职工档案管理信息系统的设计与实先.docx

湖南文理学院课程设计报告

课程名称： 计算机软件技术基础
系 部： 电气与信息工程学院
专业班级： 通信 07101 班
学生姓名： 郭 兰
指导教师： 梅 英
完成时间： 2009-12-5
报告成绩：

评阅意见：

评阅教师 日期

目录
一、设计题目 2
二、设计要求 2
三、设计目的 2
四、所用软件 2
五、系统设计 3
1.系统总体设计 3

1.1 系统总体设计分析 3

1.2 系统的结构组成框图 3

2.各子模块设计 4

2.1 数据库的逻辑结构设计 4

2.2 登陆界面的模块设计 6

2.3档案管理窗体模块设计 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.系统总体设计
1.1 系统总体设计分析
该系统为职工管理系统，主要目的是方便，全面的对职工信息进行管理。根据我所学知识可以运用C语言、C++实现和delphi等。鉴于C语言的单一界面、复杂程序的编辑，操作不方便，不能方便直观的展现设计内容。C++虽然界面比TC好一些，但由于我们没有系统的对他进行学习编程有些困难。因此选用delphi为平台设计此系统。
根据老师的设计要求，该系统实现下面的功能:
※系统采用人机交互的方式，界面美观友好，信息查询灵活、方便，数据存储安全
※实现对职工的档案的输入、查询。
※实现对职工的档案的修改。
※实现对职工的档案的输出报表。
对于职工档案的输入、查询、修改和报表功能都是基于数据库的操作，建立数据库是本设计关键。通过对设计的需求分析可得知，此系统设计包括：数据库的建立，登陆界面的设计，登陆等候界面的设计，档案管理窗体的创建，数据报表编辑窗体的建立。
1.2 系统的结构组成框图
系统结构框图如下图所示：
按编号查询
信息浏览
信息查询
信息修改
信息添加
菜单选择
按姓名查询
职工档案管理信息系统

图1 系统结构框图
由结构框图可知，首先要建立数据库，同时新建一个工程，再在里面添加form1、form2、 form3、form4、 form5窗体，通过在窗体中添加所需的控件，比如：Adodatabase、Adodatasource、Adoquery。最后对各个控件的属性和事件进行设置，对数据库进行连接，编写程序代码，实现系统所需实现的功能。
2.各子模块设计
2.1 数据库的逻辑结构设计
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。
在进行数据库的设计时有两种方法可行，即：
（1）在delphi自身的开发环境中创建数据表，用到的是该软件的数据库桌面工具Database Desktop。
（2）可以用Microsoft Office Access 2003来建立表格，生成该数据库的.mdb文件，再通过delphi来进行数据库的链接。我选择了后一种方法。
2.1.1数据表的建立
首先需要罗列出职工档案所包括的具体项目，如下所示：
籍贯
职工基本信息
性别
民族
出生日期
工资
学历
健康状况
政治面貌
编号
姓名
职务
年龄

图2 职工基本信息
打开Microsoft Office 2003 Access完成表格的建立，如下所示：

图3 数据表
2.1.2 数据表的链接
在form2和form3中添加Ado数据集组件Adotable1、数据访问组件Daasource1及数据控制组件DBGrid1，点击Adotable1中的ConnectionString（连接字符串属性），得到下图所示的对话框：

图4 生成Connectionstring的向导
进行浏览加载数据表并测试，最后结果如下图所示：

图5 AdoConnection属性配置成功
点击“确定”即加载数据表成功。
2.2 登陆界面的模块设计
为了使系统的安全性得到保障，我设置了登录模块。只有通过登录模块，只有系统的合法用户才可以进入系统的主界面。
建立了一个窗口Form1，并在里面添加了一些控件，其中包括6个标签控件lable，一个图片控件image1，一个编辑控件edit1和一个时间控件timer1，用以进行界面的验证和登陆。同时建立form5并在其中添加image1，lable1，progressbar1和timer1，用以控制登陆的时间和模拟网络的登陆模型。
在添加控件之后最重要的事是设置各个控件的属性、事件和编程。
2.2.1整个窗体界面的设计：

图6 登陆界
表1档案管理窗体主要控件的属性设置和功能表
组件
属性
功能
Image1
Picture使用editor
加载图片
Edit1
Text属性为空,passwordchar属性设为“@”
用来输入用户登密码
Label 1
Caption设为“职工档案管理系统”
用于显示系统标题
Label2
Caption设为“进入”
用于进入系统
Label3
Caption设为“职工档案管理系统”
用于显示系统标题
Label4
Caption设为“进入”
用于输入标示输入密码
Label5
Caption设为“设计者：郭兰”
用于显示设计者
Label6
Caption设为“退出”
用于退出系统
Timer1
Interval设为“500”
用于登陆界面等候

2.2.2登陆流程图
输入密码
密码是否正确
系统功能
开始
退出
No
Yes
与数据库核对密码

图7 登陆流程图
2.2.3编写窗体代码
1.处理登陆窗体的Label2Click事件
该事件的主要作用是设置登陆用户名和用户需要登录的密码，点击登陆按钮当密码不正确时显示“对不起，您输入的密码不正确”，密码正确时进去form5窗体，form1窗体自动隐藏。当你不需要登录是就点击退出按钮退出该系统。
登陆窗体的Label2Click事件对应的代码如下：
procedure TForm1.Label2Click(Sender: TObject);
begin
if edit1.Text='1234' then \\ 输入密码“1234”\\
begin
form1.Hide; \\ 窗体1隐藏 \\
form5.Show; \\ 窗体5显示\\
form5.timer1.enabled:=true;
end
else
showmessage('对不起，您输入的密码不正确！') \\ 密码不正确显示“对不起，您输入的密码不正确！”\\
end;
2. 处理登陆窗体的.Label2MouseEnter事件
该事件的主要作用是当鼠标指向lable 2时，lable2的颜色变成红的点击鼠标就可进入系统。
登陆窗体的.Label2MouseEnter事件对应的代码如下：
procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
label2.font.Color:=clred; \\ 字体颜色变为红色\\
end;
3. 处理登陆窗体的Label2MouseLeave事件
该事件的主要功能是当它离开label2时字体的颜色恢复原来的颜色变为绿蓝。
登陆窗体的Label2MouseLeave事件对应的代码如下：
procedure TForm1.Label2MouseLeave(Sender: TObject); /
begin
label2.font.Color:=clteal; \\ 字体颜色变为绿蓝\\
end;
4. 处理登陆窗体的Timer1Timer事件
该事件的主要功能是进入界面时使label1和 label3闪烁实现立体感。
登陆窗体的Timer1Timer事件对应的代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.visible:=not label1.Visible ;
end;
5. 处理登陆窗体的Label6Click事件
该事件的主要功能是退出登陆界面关闭form1窗体。
登陆窗体的Label6Click事件对应的代码如下：
procedure TForm1.Label6Click(Sender: TObject);
begin
Form1.Close; \\ 关闭窗口\\
end;
end.
2.3档案管理窗体模块设计
任何窗体都是一个容器，只有在容器中放置执行相关事务的空间才能产生相应的作用，为此在主窗体中在里面添加了一些控件，其中包括2个标签控件lable，一个图片控件image1，一个页面控制控件Pagecontrol1，一个数据源提供者provider，一个命令按钮Speedbutton1和一个时间控件timer1。其中最重要的是pagecontrol1，它用于生成多个页面，以实现不同功能的开发。
2.3.1整个窗体界面的设计：

图8 主窗体的设计

表2 Form2档案管理窗体主要控件的属性设置和功能表
组件
属性
功能
Image1
Picture使用editor
加载图片
Lable1
Caption设为“职工档案管理”
用于显示窗体标题
Label2
Caption设为“职工档案管理”
用于显示窗体标题
Pagecontrol1

用于页面控制
Datasource
Dataset设为“adotable”
设置数据源对应的数据集
Adotable
Connectionstring设为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\郭兰\职工档案管理信息系统.mdb;Persist Security Info=False”，active设为“true”，tablename设为“职工基本信息表”active设为“true”
设置该数据集所使用的数据库
Speedbutton1
Caption设为“退出系统”
用于系统的退出
Timer1
Interval设为“1000”
用于字体的闪烁，产生立体感
2.3.2编写窗体代码
1.处理登陆窗体的SpeedButton1Click事件
该事件的主要功能是退出系统。
登陆窗体的SpeedButton1Click事件对应的代码如下：
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
application.Terminate ;
end;
2.3.3 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设为“籍贯”
提示输入籍贯
DBEdit1
Datasource设为“Datasourc1”
选择数据源
Datafield设为“职工编号”
是数据与输出窗口相匹配
DBEdit2
Datasource设为“Datasourc1”
选择数据源
Datafield设为“职工姓名”
是数据与输出窗口相匹配
DBEdit3
Datasource设为“Datasourc1”
选择数据源
Datafield设为“性别”
是数据与输出窗口相匹配
DBEdit4
Datasource设为“Datasourc1”
选择数据源
Datafield设为“出生日期”
是数据与输出窗口相匹配
DBEdit5
Datasource设为“Datasourc1”
选择数据源
Datafield设为“民族”
是数据与输出窗口相匹配
DBEdit6
Datasource设为“Datasourc1”
选择数据源
Datafield设为“政治面貌”
是数据与输出窗口相匹配
DBEdit7
Datasource设为“Datasourc1”
选择数据源
Datafield设为“健康状况”
是数据与输出窗口相匹配
DBEdit8
Datasource设为“Datasourc1”
选择数据源
Datafield设为“学历”
是数据与输出窗口相匹配
DBEdit9
Datasource设为“Datasourc1”
选择数据源
Datafield设为“职务”
是数据与输出窗口相匹配
DBEdit10
Datasource设为“Datasourc1”
选择数据源
Datafield设为“工资”
是数据与输出窗口相匹配
DBEdit11
Datasource设为“Datasourc1”
选择数据源
Datafield设为“联系电话”
是数据与输出窗口相匹配
DBEdit12
Datasource设为“Datasourc1”
选择数据源
Datafield设为“籍贯”
是数据与输出窗口相匹配
BitBtn1
Caption设为“输入”
输入数据
BitBtn2
Caption设为“修改”
对数据进行修改
BitBtn3
Caption设为“删除”
删除数据

流程图如下图示：

Yes
开始
开始
退出
输入职工信息
判断是否重复
保存数据
退出
连接数据库
连接数据库
输入修改信息
判断是否重复
保存数据
Yes
No
No

图9 输入流程图 图10 修改流程图

编写tabsheet2代码
● 处理登陆窗体的TForm2.BitBtn1Click事件
该事件的主要功能是添加职工档案信息。
登陆窗体的TForm2.BitBtn1Click事件对应的代码如下：
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
adotable1.Append;
end;
● 处理登陆窗体的TForm2.BitBtn2Click事件
该事件的主要功能是修改职工档案信息。
登陆窗体的TForm2.BitBtn2Click事件对应的代码如下：
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
adotable1.Edit;
adotable1.Post;
end;
● 处理登陆窗体的TForm2.BitBtn3Click事件
该事件的主要功能是删除职工档案信息。
登陆窗体的TForm2.BitBtn3Click事件对应的代码如下：
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
adotable1.Delete;
end;
2. Tabsheet3（全部档案浏览查询）建立及设置
Tabsheet3表单中设置了DBGird控件，Label控件和Button按钮其主要功能是显示每个职工的全部信息，并可以通过输入职工姓名查询每个职工的信息。
Tabsheet3的操作界面：

图11 浏览查询界面编辑

表4 tabsheet2主要控件的属性设置和功能表
组件
属性
功能
Label
Caption设为“请输入职工姓名”
提示输入所要查询的职工姓名
DBGird1
Datasource设为“Datasourc1”
设置数据表格使用的数据源
Edit1
Text属性为空，
用于输入要查询的职工姓名
Button
Caption设为“执行查询”
进入查询
流程图:
开始
输入查询信息
判断是否存在
输出数据
退出
连接数据库
No
Yes

图12 查询流程图
编写Tabsheet3代码：
处理登陆窗体的TForm2. Button1Click事件
该事件的主要功能是查询职工档案信息，当输入的姓名在数据库中时黑三角指向对应的职工，否则保持不变。
登陆窗体的TForm2. Button1Click事件对应的代码如下
procedure TForm2.Button1Click(Sender: TObject);
begin
adotable1.locate('职工姓名',edit1.Text ,[])
end;
3.Tabsheet4 （报表功能）建立及设置
Tabsheet4表单的设计主要包括两大部分：数据表的建立和操作界面的设置。其主要功能是显示职工的全部信息。
建立一个数据报表

图13 数据报表的建立

表5 QuickRep1主要控件的属性设置和功能表
组件
组件
属性
功能
QRBand1
QRLabel7
Caption设为“职工基本信息”
在报表中显示静态文本

QRBand2
QRDBText1
Dataset设为“ADOTable1”
指定数据来源，显示数据库表中记录的字段
QRDBText2
Dataset设为“ADOTable1”
指定数据来源，显示数据库表中记录的字段
QRDBText3
Dataset设为“ADOTable1”
指定数据来源，显示数据库表中记录的字段
QRDBText4
Dataset设为“ADOTable1”
指定数据来源，显示数据库表中记录的字段
QRDBText5
Dataset设为“ADOTable1”
指定数据来源，显示数据库表中记录的字段

QRBand3
QRLabel2
将Name设为QRLabel2
在报表中显示静态文本
QRLabel3
” 将Name设为QRLabel3
在报表中显示静态文本
QRLabel4
将Name设为QRLabel4
在报表中显示静态文本
QRLabel5
将Name设为QRLabel5
在报表中显示静态文本
QRLabel6
将Name设为QRLabel6
在报表中显示静态文本
Tabsheet4的操作界面：

图14 报表功能界面编辑
在该页面中添加了一个数据控制控件Radiobutton并将其与Form3窗体链接，把它的Caption设为“基本信息打印”。
流程图如下所示：
开始
输入职工信息
输出职工信息
退出

图13 报表流程图

编写Tabsheet4代码：
处理登陆窗体的TForm2. RadioClick事件
该事件的主要功能是打印职工档案信息，当点击数据控制按钮时就显示全体职工的信息。
登陆窗体的TForm2. RadioClick事件对应的代码如下
procedure TForm2.RadioButton1Click(Sender: TObject);
begin
form3.quickrep1.preview;\\打印form3的信息\\
form2.Hide ;\\窗体2隐藏\\
form3.Show;\\窗体3显示\\
end.
3相关函数分析
在设计该系统的过程中我没有用到函数，只有过程之间的相互调用和if…else语句、degin…end语句的应用，最主要的过程是procedure，比如
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
adotable1.Append;
end;
TForm2.BitBtn1Click事件过程调用adotable1.Append过程，鼠标点击就执行增加空白页的任务。该系统应用的基本上就是这种过程和事件的调用。
4源程序设计（见附录）
六、实验调试结果
1.系统的登陆界面
当输入的密码正确时，得到如下的成功登陆界面

图14 系统登陆

当输入的密码不正确时，显示密码输入错误

图15 系统登陆失败
2、职工档案系统的主窗体。
登陆成功后将进入该界面，它由编辑、浏览，报表三个主按钮控件构成。

图16 个人档案显示图
当点击输入按钮后，得到如下的空白页面，我们可以输入员工的相对应的档案信息

图17 职工档案信息输入
当我们点击修改按钮后可以对员工的档案进行修改，如下图所示

图18 职工档案修改
进入查询页面后，我们可以对员工的档案进行查询，当所要查询的人属于该系统后，黑三角形将指向我们所查询的员工这一行，当不存在时，黑三角就保持不变。

图19 职工档案信息查询
选择报表功能后点击基本信息打印，将会显示职工的部分信息，具体效果如下图所示：

图20 职工档案报表
3.“退出系统”按钮实现带系统的退出功能，鼠标选定后，将自动退出该系统，其存在的界面如下：

图21 退出系统
七、设计中的问题及解决方法
由于这是我第一次用delphi来制作一个系统，所以我碰到了好多问题，但是经过查找资料，看视频教程，我把问题解决掉了，基本实现我所要的那些功能。我列写了下面主要几个方面的。
1.在背景图片上添加控件的问题。
设置背景图片后，当我添加一些组件时相应部分的背景无法显示，使得图片上残留一些阴影，经过查找书本，最后在对象编辑器中我将Transparent属性设为“True”,终于得到了我所需的效果，同时我也将其它组件的属性进行了修改。
Transparent属性设置为“false”时的效果如下：

Transparent属性设置为“true”时的效果如下：

2.Pagecontrol和Tabsheet的添加问题。
通过阅读我所借的相关资料书，我了解到设计档案窗体时，可以通过页面控制控件按钮来控制相应页的菜单。但是在设计过程中我并没有找到相应的Tabsheet控件，后来在我下载的视频教程中我找到了解决方法，成功的添加了3个表单，完成了该页面的设置。
3.数据表的链接问题
在该系统中最重要的部分就是数据表的链接问题，只有数据表链接成功了，后续的工程才能进行，同时这也是我问题出现最多的一个过程。在Pagecontrol中添加Adotable1和Datasource1控件后，就是设置其属性了，当数据表的链接不成功时，出现了以下的对话框：

图22 数据表链接失败
当我把Adotable1属性Connectionstring设为“Provider=Microsoft.Jet.OLEDB.4.0;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 7.0/8.0课程设计与系统开发案例，北京，清华大学出版社 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 TForm1.Label2Click(Sender: TObject);
begin
if edit1.Text='1234' then \\输入密码‘1234’\\
begin
form1.Hide; \\ form1隐藏\\
form5.Show; \\ form5显示\\
form5.timer1.enabled:=true; \\ form5的时间控制工作\\
end
else
showmessage('对不起，您输入的密码不正确！') \\密码错误时显示‘对不起，您输入的密码不正确！’\\
end;
procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
label2.font.Color:=clred;\\鼠标移到Label2时变为红色\\
end;
procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
label2.font.Color:=clteal; \\鼠标移开Label2时变为绿蓝色\\
end;
procedure TForm1.Timer1Timer(Sender: TObject);\\使字体闪烁\\
begin
label1.visible:=not label1.Visible ;
end;
procedure TForm1.Label6Click(Sender: TObject);\\点击Label6时form1关闭，进入等候界面\\
begin
Form1.Close;
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;