湖南文理学院课程设计报告
课程名称： 计算机软件技术基础
系 部： 电气与信息工程学院
专业班级： 通信 07101 班
学生姓名： 郭 兰
指导教师： 梅 英
完成时间： 2009-12-5
报告成绩：
评阅意见：
评阅教师 日期
目录
一、设计题目 .................................................................................................................................2
二、设计要求 .................................................................................................................................2
三、设计目的 .................................................................................................................................2
四、所用软件 .................................................................................................................................2
五、系统设计 .................................................................................................................................3
1.系统总体设计...........................................................................................................................3
系统总体设计分析 ...............................................................................................................3
系统的结构组成框图 ...........................................................................................................3
2.各子模块设计...........................................................................................................................4
数据库的逻辑结构设计 .......................................................................................................4
登陆界面的模块设计 ...........................................................................................................6
档案管理窗体模块设计 .......................................................................................................6
3 相关函数分析...........................................................................................................................6
4 源程序设计（见附录）...........................................................................................................6
六、实验调试结果 .........................................................................................................................6
1.系统的登陆界面.......................................................................................................................6
2、职工档案系统的主窗体。....................................................................................................6
七、设计中的问题及解决方法 .....................................................................................................6
八、设计心得 .................................................................................................................................6
九.参考文献 ....................................................................................................................................6
十、附录： .....................................................................................................................................6
一、设计题目
职工档案管理信息系统的设计与实现
二、设计要求
设计编写一个职工档案管理软件。该软件与实际应用还有很大的距离，但它涵盖了
数据库设计的基本内容。根据实际工作的需要，一般用户要求一个档案管理软件应有以
下几个基本功能：
(1) 数据输入功能：要求随时往库中追加记录和插入记录并且操作方便。
(2) 数据查询功能：一般的查询功能包括按姓名查询、按编号查询等(为简单起见例按
姓名查询)，且能从任何一个记录计始顺序浏览，随时可停止。
(3) 数据修改功能：要求可随时对库中数据进行修改更新，对无用的数据可随时删除。
(4) 报表功能：为了查询全部信息，可以将数据库中的数据简单直观的以表格的形式
输出。
(5) 要求以菜单选择的方式完成上述 4 项功能，用户界面美观，便于操作，软件运行
稳定、准确。
三、设计目的
随着我们对计算机理论知识的学习的不断加深，实践方面是不可缺少的，因此我
觉着这是一次很好的运用自己所学的知识的机会，在本次我的设计中为了提升自己的能
力，我运用了 delphi 语言来实现我所设计的系统的功能。这是一种我们课堂上没讲过的
语言，我也是听别人说这种语言的编程简单，界面友好，同时我觉得既然是锻炼能力，
何不运用这种语言，现在网络那么发达，还怕学不会？凭着自己平时的积累和学习的激
情，我决定用了,虽然没有达到自己预期的效果。
四、所用软件
1.页面开发环境：Borland Delphi 7
2.后台数据库： Microsoft Office Access 2003
3.开发环境运行平台：XP(SP2)
五、系统设计
1.系统总体设计
系统总体设计分析
该系统为职工管理系统，主要目的是方便，全面的对职工信息进行管理。根据我所学
知识可以运用 C 语言、C++实现和 delphi 等。鉴于 C 语言的单一界面、复杂程序的编辑，
操作不方便，不能方便直观的展现设计内容。C++虽然界面比 TC 好一些，但由于我们没
有系统的对他进行学习编程有些困难。因此选用 delphi 为平台设计此系统。
根据老师的设计要求，该系统实现下面的功能:
※系统采用人机交互的方式，界面美观友好，信息查询灵活、方便，数据存储安全
※实现对职工的档案的输入、查询。
※实现对职工的档案的修改。
※实现对职工的档案的输出报表。
对于职工档案的输入、查询、修改和报表功能都是基于数据库的操作，建立数据库是
本设计关键。通过对设计的需求分析可得知，此系统设计包括：数据库的建立，登陆界面
的设计，登陆等候界面的设计，档案管理窗体的创建，数据报表编辑窗体的建立。
系统的结构组成框图
系统结构框图如下图所示：
图 1 系统结构框图
信息
浏览
信息
查询
信息
修改
信息
添加
菜单
选择
按姓名
查询
职工档案管
理信息系统
按编号
查询
由结构框图可知，首先要建立数据库，同时新建一个工程，再在里面添加 form1、
form2 、 form3 、form4 、 form5 窗体，通过在窗体中添加所需的控件，比如：Adodatabase、
Adodatasource、Adoquery。最后对各个控件的属性和事件进行设置，对数据库进行连接，
编写程序代码，实现系统所需实现的功能。
2.各子模块设计
数据库的逻辑结构设计
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，
简而言之，数据库就是信息的集合。
在进行数据库的设计时有两种方法可行，即：
（1）在 delphi 自身的开发环境中创建数据表，用到的是该软件的数据库桌面工具
Database Desktop。
（2）可以用 Microsoft Office Access 2003 来建立表格，生成该数据库的.mdb 文件，再
通过 delphi 来进行数据库的链接。我选择了后一种方法。
数据表的建立
首先需要罗列出职工档案所包括的具体项目，如下所示：
图 2 职工基本信息
打开 Microsoft Office 2003 Access 完成表格的建立，如下所示：
图 3 数据表
数据表的链接
在 form2 和 form3 中添加 Ado 数据集组件 Adotable1、数据访问组件 Daasource1 及数
职工基本信息
性别
民族
出生
日期 工资
学历
健康
状况
政 治
面貌
编号
姓名
职务
年龄
籍贯
据控制组件 DBGrid1，点击 Adotable1 中的 ConnectionString（连接字符串属性），得到下图
所示的对话框：
图 4 生成 Connectionstring 的向导
进行浏览加载数据表并测试，最后结果如下图所示：
图 5 AdoConnection 属性配置成功
点击“确定”即加载数据表成功。
登陆界面的模块设计
为了使系统的安全性得到保障，我设置了登录模块。只有通过登录模块，只有系统的
合法用户才可以进入系统的主界面。
建立了一个窗口 Form1，并在里面添加了一些控件，其中包括 6 个标签控件 lable，一
个图片控件 image1，一个编辑控件 edit1 和一个时间控件 timer1，用以进行界面的验证和
登陆。同时建立 form5 并在其中添加 image1，lable1，progressbar1 和 timer1，用以控制登
陆的时间和模拟网络的登陆模型。
在添加控件之后最重要的事是设置各个控件的属性、事件和编程。
整个窗体界面的设计：
图 6 登陆界
表 1 档案管理窗体主要控件的属性设置和功能表
组件 属性 功能
Image1 Picture 使用 editor 加载图片
Edit1 Text 属性为空,passwordchar 属性
设为“@”
用来输入用户登密码
Label 1 Caption 设为“职工档案管理系统” 用于显示系统标题
Label2 Caption 设为“进入” 用于进入系统
Label3 Caption 设为“职工档案管理系统” 用于显示系统标题
Label4 Caption 设为“进入” 用于输入标示输入密码
Label5 Caption 设为“设计者：郭兰” 用于显示设计者
Label6 Caption 设为“退出” 用于退出系统
Timer1 Interval 设为“500” 用于登陆界面等候
登陆流程图
图 7 登陆流程图
编写窗体代码
1.处理登陆窗体的 Label2Click 事件
该事件的主要作用是设置登陆用户名和用户需要登录的密码，点击登陆按钮当密码不
正确时显示“对不起，您输入的密码不正确”，密码正确时进去 form5 窗体，form1 窗体自
动隐藏。当你不需要登录是就点击退出按钮退出该系统。
登陆窗体的 Label2Click 事件对应的代码如下：
procedure (Sender: TObject);
begin
if ='1234' then \\ 输入密码“1234”\\
begin
; \\ 窗体 1 隐藏 \\
; \\ 窗体 5 显示\\
输入密码
密码是否正确
系统功能
开始
退出
No
Yes
与数据库核对密码
:=true;
end
else
showmessage('对不起，您输入的密码不正确！') \\ 密码不正确显示“对不起，您输入
的密码不正确！”\\
end;
2. 处理登陆窗体的.Label2MouseEnter 事件
该事件的主要作用是当鼠标指向 lable 2 时，lable2 的颜色变成红的点击鼠标就可进入
系统。
登陆窗体的.Label2MouseEnter 事件对应的代码如下：
procedure (Sender: TObject);
begin
:=clred; \\ 字体颜色变为红色\\
end;
3. 处理登陆窗体的 Label2MouseLeave 事件
该事件的主要功能是当它离开 label2 时字体的颜色恢复原来的颜色变为绿蓝。
登陆窗体的 Label2MouseLeave 事件对应的代码如下：
procedure (Sender: TObject); /
begin
:=clteal; \\ 字体颜色变为绿蓝\\
end;
4. 处理登陆窗体的 Timer1Timer 事件
该事件的主要功能是进入界面时使 label1 和 label3 闪烁实现立体感。
登陆窗体的 Timer1Timer 事件对应的代码如下：
procedure (Sender: TObject);
begin
:=not ;
end;
5. 处理登陆窗体的 Label6Click 事件
该事件的主要功能是退出登陆界面关闭 form1 窗体。
登陆窗体的 Label6Click 事件对应的代码如下：
procedure (Sender: TObject);
begin
; \\ 关闭窗口\\
end;
end.
档案管理窗体模块设计
任何窗体都是一个容器，只有在容器中放置执行相关事务的空间才能产生相应的作
用，为此在主窗体中在里面添加了一些控件，其中包括 2 个标签控件 lable，一个图片控件
image1，一个页面控制控件 Pagecontrol1，一个数据源提供者 provider，一个命令按钮
Speedbutton1 和一个时间控件 timer1。其中最重要的是 pagecontrol1，它用于生成多个页面，
以实现不同功能的开发。
整个窗体界面的设计：
图 8 主窗体的设计
表 2 Form2 档案管理窗体主要控件的属性设置和功能表
组件 属性 功能
Image1 Picture 使用 editor 加载图片
Lable1 Caption 设为“职工档案管理” 用 于 显 示 窗 体 标
题
Label2 Caption 设为“职工档案管理” 用 于 显 示 窗 体 标
题
Pagecontrol1 用于页面控制
Datasource Dataset 设为“adotable” 设 置 数 据 源 对 应
的数据集
Adotable Connectionstring 设 为
“ Provider=;Data
Source=C:\Documents and Settings\Administrator\ 桌
面\郭兰\职工档案管理信息系统.mdb;Persist Security
Info=False”，active 设为“true”，tablename 设为“职工
基本信息表”active 设为“true”
设 置 该 数 据 集 所
使用的数据库
Speedbutton1 Caption 设为“退出系统” 用于系统的退出
Timer1 Interval 设为“1000” 用于字体的闪烁，
产生立体感
编写窗体代码
1.处理登陆窗体的 SpeedButton1Click 事件
该事件的主要功能是退出系统。
登陆窗体的 SpeedButton1Click 事件对应的代码如下：
procedure (Sender: TObject);
begin
;
end;
pagecontrol1 页面的设置和控件的属性、功能设置及代码编写
该页面控制主要由表单 tabsheet2、tabsheet3、tabsheet4 及其添加到表单中的各个控件。
tabsheet2（个人档案记录）建立及设置
tabsheet2 表单在其中加载了很多 label 控件显示职工的基本信息。其主要实现职工信息
的输入，修改，删除功能。
tabsheet2 的操作界面：
图 9 个人档案记录编辑
表 3 tabelsheet2 主要控件的属性设置和功能表
组件 属性 功能
Label3 Caption 设为“职务” 提示输入职务
Label4 Caption 设为“职工姓名” 提示输入姓名
Label5 Caption 设为“职工编号” 提示输入职工编号
Label6 Caption 设为“工资” 提示输入工资
Label7 Caption 设为“政治面貌” 提示输入政治面貌
Label8 Caption 设为“性别” 提示输入性别
Label9 Caption 设为“出生日期” 提示输入出生日期
Label10 Caption 设为“民族” 提示输入民族
Label11 Caption 设为“学历” 提示输入学历
Label12 Caption 设为“健康状况” 提示输入健康状况
Label13 Caption 设为“联系电话” 提示输入联系电话
Label15 Caption 设为“籍贯” 提示输入籍贯
Datasource 设为“Datasourc1” 选择数据源DBEdit1
Datafield 设为“职工编号” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit2
Datafield 设为“职工姓名” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit3
Datafield 设为“性别” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit4
Datafield 设为“出生日期” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit5
Datafield 设为“民族” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit6
Datafield 设为“政治面貌” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit7
Datafield 设为“健康状况” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit8
Datafield 设为“学历” 是数据与输出窗口相匹配
DBEdit9 Datasource 设为“Datasourc1” 选择数据源
Datafield 设为“职务” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit10
Datafield 设为“工资” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit11
Datafield 设为“联系电话” 是数据与输出窗口相匹配
Datasource 设为“Datasourc1” 选择数据源DBEdit12
Datafield 设为“籍贯” 是数据与输出窗口相匹配
BitBtn1 Caption 设为“输入” 输入数据
BitBtn2 Caption 设为“修改” 对数据进行修改
BitBtn3 Caption 设为“删除” 删除数据
流程图如下图示：
图 9 输入流程图 图 10 修改流程图
编写 tabsheet2 代码
● 处理登陆窗体的 事件
该事件的主要功能是添加职工档案信息。
登陆窗体的 事件对应的代码如下：
procedure (Sender: TObject);
begin
;
end;
● 处理登陆窗体的 事件
该事件的主要功能是修改职工档案信息。
登陆窗体的 事件对应的代码如下：
开始开始
退出
输入职工信息
判断是否重复
保存数据
退出
连接数据库连接数据库
输入修改信息
判断是否重复
保存数据
Yes
No
No
Yes
procedure (Sender: TObject);
begin
;
;
end;
● 处理登陆窗体的 事件
该事件的主要功能是删除职工档案信息。
登陆窗体的 事件对应的代码如下：
procedure (Sender: TObject);
begin
;
end;
2. Tabsheet3（全部档案浏览查询）建立及设置
Tabsheet3 表单中设置了 DBGird 控件，Label 控件和 Button 按钮其主要功能是显示每
个职工的全部信息，并可以通过输入职工姓名查询每个职工的信息。
Tabsheet3 的操作界面：
图 11 浏览查询界面编辑
表 4 tabsheet2 主要控件的属性设置和功能表
组件 属性 功能
Label Caption 设为“请输入职工姓名” 提示输入所要查询的职工姓名
DBGird1 Datasource 设为“Datasourc1” 设置数据表格使用的数据源
Edit1 Text 属性为空， 用于输入要查询的职工姓名
Button Caption 设为“执行查询” 进入查询
流程图:
图 12 查询流程图
编写 Tabsheet3 代码：
处理登陆窗体的 TForm2. Button1Click 事件
该事件的主要功能是查询职工档案信息，当输入的姓名在数据库中时黑三角指向对应
的职工，否则保持不变。
登陆窗体的 TForm2. Button1Click 事件对应的代码如下
开始
输入查询信息
判断是否存在
输出数据
退出
连接数据库
No
Yes
procedure (Sender: TObject);
begin
('职工姓名', ,[])
end;
（报表功能）建立及设置
Tabsheet4 表单的设计主要包括两大部分：数据表的建立和操作界面的设置。其主要功
能是显示职工的全部信息。
建立一个数据报表
图 13 数据报表的建立
表 5 QuickRep1 主要控件的属性设置和功能表
组件 组件 属性 功能
QRBand1 QRLabel7 Caption 设为“职工基
本信息”
在报表中显示静态文
本
QRDBText1 Dataset 设 为
“ADOTable1”
指定数据来源，显示
数据库表中记录的字
段
QRDBText2 Dataset 设 为
“ADOTable1”
指定数据来源，显示
数据库表中记录的字
段
QRDBText3 Dataset 设 为
“ADOTable1”
指定数据来源，显示
数据库表中记录的字
段
QRDBText4 Dataset 设 为
“ADOTable1”
指定数据来源，显示
数据库表中记录的字
段
QRBand2
QRDBText5 Dataset 设 为
“ADOTable1”
指定数据来源，显示
数据库表中记录的字
段
QRLabel2 将 Name 设 为
QRLabel2
在报表中显示静态文
本
QRLabel3 ” 将 Name 设 为
QRLabel3
在报表中显示静态文
本
QRLabel4 将 Name 设 为
QRLabel4
在报表中显示静态文
本
QRLabel5 将 Name 设 为
QRLabel5
在报表中显示静态文
本
QRBand3
QRLabel6 将 Name 设 为
QRLabel6
在报表中显示静态文
本
Tabsheet4 的操作界面：
图 14 报表功能界面编辑
在该页面中添加了一个数据控制控件 Radiobutton 并将其与 Form3 窗体链接，把它的
Caption 设为“基本信息打印”。
流程图如下所示：
图 13 报表流程图
编写 Tabsheet4 代码：
处理登陆窗体的 TForm2. RadioClick 事件
该事件的主要功能是打印职工档案信息，当点击数据控制按钮时就显示全体职工的信
息。
开始
输入职工信息
输出职工信息
退出
登陆窗体的 TForm2. RadioClick 事件对应的代码如下
procedure (Sender: TObject);
begin
;\\打印 form3 的信息\\
;\\窗体 2 隐藏\\
;\\窗体 3 显示\\
end.
3 相关函数分析
在设计该系统的过程中我没有用到函数，只有过程之间的相互调用和 if…else 语句、
degin…end 语句的应用，最主要的过程是 procedure，比如
procedure (Sender: TObject);
begin
;
end;
事件过程调用 过程，鼠标点击就执行增加空白
页的任务。该系统应用的基本上就是这种过程和事件的调用。
4 源程序设计（见附录）
六、实验调试结果
1.系统的登陆界面
当输入的密码正确时，得到如下的成功登陆界面
图 14 系统登陆
当输入的密码不正确时，显示密码输入错误
图 15 系统登陆失败
2、职工档案系统的主窗体。
登陆成功后将进入该界面，它由编辑、浏览，报表三个主按钮控件构成。
图 16 个人档案显示图
当点击输入按钮后，得到如下的空白页面，我们可以输入员工的相对应的档案信息
图 17 职工档案信息输入
当我们点击修改按钮后可以对员工的档案进行修改，如下图所示
图 18 职工档案修改
进入查询页面后，我们可以对员工的档案进行查询，当所要查询的人属于该系统后，
黑三角形将指向我们所查询的员工这一行，当不存在时，黑三角就保持不变。
图 19 职工档案信息查询
选择报表功能后点击基本信息打印，将会显示职工的部分信息，具体效果如下图所示：
图 20 职工档案报表
3.“退出系统”按钮实现带系统的退出功能，鼠标选定后，将自动退出
该系统，其存在的界面如下：
图 21 退出系统
七、设计中的问题及解决方法
由于这是我第一次用 delphi 来制作一个系统，所以我碰到了好多问题，但是经过查找
资料，看视频教程，我把问题解决掉了，基本实现我所要的那些功能。我列写了下面主要
几个方面的。
1.在背景图片上添加控件的问题。
设置背景图片后，当我添加一些组件时相应部分的背景无法显示，使得图片上残留一
些阴影，经过查找书本，最后在对象编辑器中我将 Transparent 属性设为“True”,终于得到了
我所需的效果，同时我也将其它组件的属性进行了修改。
Transparent 属性设置为“false”时的效果如下：
Transparent 属性设置为“true”时的效果如下：
和 Tabsheet 的添加问题。
通过阅读我所借的相关资料书，我了解到设计档案窗体时，可以通过页面控制控件按
钮来控制相应页的菜单。但是在设计过程中我并没有找到相应的 Tabsheet 控件，后来在我
下载的视频教程中我找到了解决方法，成功的添加了 3 个表单，完成了该页面的设置。
3.数据表的链接问题
在该系统中最重要的部分就是数据表的链接问题，只有数据表链接成功了，后续的工
程才能进行，同时这也是我问题出现最多的一个过程。在 Pagecontrol 中添加 Adotable1 和
Datasource1 控件后，就是设置其属性了，当数据表的链接不成功时，出现了以下的对话框：
图 22 数据表链接失败
当 我 把 Adotable1 属 性 Connectionstring 设 为 “ Provider=;Data
Source=C:\Documents and Settings\Administrator\ 桌 面 \ 郭 兰 \ 职 工 档 案 管 理 信 息 系
统.mdb;Persist Security Info=False”，active 设为“true”，tablename 设为“职工基本信息表”active
设为“true”；Datasource 的 Dataset 设为“adotable”后，数据表导入成功。
4.使用该系统后出现的路径错误问题。
当系统设计好后，我在其他电脑上测试其功能时发现，总是出错，数据表的内容也无
法显示出来，在我们班精通电脑的同学的帮助下，我重新设置链接的路径，并将文件夹放
在桌面上，这样就可以有效的避免这种问题的出现，但是在那种不同的电脑系统中，比如
windows7，就要重新修改路径了。
八、设计心得
这是我第一次用这个语言来编写这样一个系统，也是我真正的学习 delphi 的实践过程，
遇到的问题真的很多。当时有很多人劝我放弃，毕竟时间是有限的，可是我拒绝了他们的
好意，因为我从来对这样一个自己陌生的软件产生浓烈的兴趣，我上网查了好多资料、下
载视频教程、到图书馆借阅书籍、与同学网上交流，当我设计出这个系统时，心里真的很
高兴。
在学习 delphi 的过程中我学到了好多，比如说对 delphi 组件的属性和功能的理解，
对 procedure 过程的理解，特别是数据库的建立与链接。也掌握了如何应用这种语言实现
对一个数据表的添加、删除、修改、产生报表功能，我相信以后遇到类似的系统时，通过
努力我都可以可以设计出来。
两周的课程设计，我真的学到了很多，但是最重要的是我学会了这样一个有用的软件，
我觉得它的优点很多，它的编程的简单易懂更是我所喜欢的。两周的时间要学会一种语言
真的很难，而我学的只是些基本的、浅显的，但是我相信在课余我一定会加强对它的学习，
从而更好的学好它，掌握它，应用它。
九.参考文献
1. 谭浩强. Delphi 程序设计（第二版）（Delphi 2005），北京，清华大学出版社 2006
2. 伍俊良. Delphi 课程设计与系统开发案例，北京，清华大学出版社 2004
3. 徐 谡. Delphi 应用与开发案例教程.，北京，清华大学出版社 2005
4. 求是科技 Delphi 信息管理系统开发实例导航.，北京，人民邮电出版社 2005
5. 彭明明 Delphi 数据库实用编程 100 例，北京，中国铁道出版社 2006
6.
十、附录：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
Type \\所用到的控件\\
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Timer1: TTimer;
Label5: TLabel;
Label6: TLabel;
procedure Label2Click(Sender: TObject);
procedure Label2MouseEnter(Sender: TObject);
procedure Label2MouseLeave(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Label6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit5;
{$R *.dfm}
procedure (Sender: TObject);
begin
if ='1234' then \\输入密码‘1234’\\
begin
; \\ form1 隐藏\\
; \\ form5 显示\\
:=true; \\ form5 的时间控制工作\\
end
else
showmessage('对不起，您输入的密码不正确！') \\密码错误时显示‘对不起，您输入的密
码不正确！’\\
end;
procedure (Sender: TObject);
begin
:=clred;\\鼠标移到 Label2 时变为红色\\
end;
procedure (Sender: TObject);
begin
:=clteal; \\鼠标移开 Label2 时变为绿蓝色\\
end;
procedure (Sender: TObject);\\使字体闪烁\\
begin
:=not ;
end;
procedure (Sender: TObject);\\点击 Label6 时 form1 关闭，进入等候
界面\\
begin
file://///�e��'1234
;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, DB, DBTables, ComCtrls, Grids,
DBGrids, ExtCtrls, QuickRpt, QRCtrls, jpeg, ExtDlgs, ADODB;
Type \\该窗体所用到的控件\\
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
PageControl1: TPageControl;
TabSheet2: TTabSheet;
SpeedButton1: TSpeedButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DataSource1: TDataSource;
TabSheet3: TTabSheet;
DBGrid1: TDBGrid;
TabSheet4: TTabSheet;
Label14: TLabel;
Edit1: TEdit;
Button1: TButton;
RadioButton1: TRadioButton;
Image1: TImage;
Timer1: TTimer;
ADOTable1: TADOTable;
Label15: TLabel;
DBEdit12: TDBEdit;
procedure SpeedButton1Click(Sender: TObject);\\该窗体所用到的过程\\
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit4;
{$R *.dfm}
procedure (Sender: TObject);\\点击命令按钮‘退出系统’\\
begin
;
end;
procedure (Sender: TObject);\\输入职工档案信息\\
begin
;\\增加空的页面\\
end;
procedure (Sender: TObject);\\修改职工档案信息\\
begin
;
;
end;
procedure (Sender: TObject);\\删除职工档案信息\\
begin
;
end;
procedure (Sender: TObject);\\根据职工姓名查询\\
begin
('职工姓名', ,[])
end;
procedure (Sender: TObject; var Action: TCloseAction);\\终止系统\\
begin
;
end;
procedure (Sender: TObject);\\时间控制器使字体闪烁\\
begin
:=not ;
end;
procedure (Sender: TObject);
begin
; \\打印职工档案信息\\
;
;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls;
Type \\该窗体所用到的控件\\
TForm5 = class(TForm)
Timer1: TTimer;
Image1: TImage;
ProgressBar1: TProgressBar;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit2;
{$R *.dfm}
procedure (Sender: TObject);\\模拟登陆延时\\
begin
if =100 then
begin
;
;
end
else
:= +;
end;
end.
