职工档案管理信息系统的设计与实现

职工 档案 肢体残疾康复训练教师个人成长档案教师师德档案表人事档案装订标准员工三级安全教育档案 管理信息系统的设计与实现 0138 课程名称： 计算机软件技术基础 系 部： 电气与信息工程学院 专业班级： 通信 07101 班 学生姓名： 郭 兰 指导教师： 梅 英 完成时间： 2009-12-5 报告成绩： 评阅意见： 评阅教师 日期 3855 0 0138 目录 工贸企业有限空间作业目录特种设备作业人员作业种类与目录特种设备作业人员目录1类医疗器械目录高值医用耗材参考目录 一、设计题目 ................................................................ 2 二、设计 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 ................................................................ 2 三、设计目的 ................................................................ 2 四、所用软件 ................................................................ 2 五、系统设计 ................................................................ 3 1.系统总体设计 ............................................................ 3 1.1 系统总体设计分析 ...................................................... 3 1.2 系统的结构组成框图 .................................................... 3 2.各子模块设计 ............................................................ 4 2.1 数据库的逻辑结构设计 .................................................. 4 2.2 登陆界面的模块设计 .................................................... 6 2.3档案管理窗体模块设计 ................................................. 10 3相关函数分析 ........................................................... 23 4源程序设计（见附录） ................................................... 24 六、实验调试结果 ........................................................... 24 1.系统的登陆界面 ......................................................... 24 2、职工档案系统的主窗体。 ................................................ 25 七、设计中的问题及解决方法 ................................................. 27 八、设计心得 ............................................................... 29 九.参考文献 ................................................................ 30 十、附录： ................................................................. 30 3855 1 0138 一、设计题目 职工档案管理信息系统的设计与实现 二、设计要求 设计编写一个职工档案管理软件。该软件与实际应用还有很大的距离，但它涵盖了 数据库设计的基本内容。根据实际工作的需要，一般用户要求一个档案管理软件应有以 下几个基本功能： (1) 数据输入功能：要求随时往库中追加记录和插入记录并且操作方便。 (2) 数据查询功能：一般的查询功能包括按姓名查询、按编号查询等(为简单起见例按 姓名查询)，且能从任何一个记录计始顺序浏览，随时可停止。 (3) 数据修改功能：要求可随时对库中数据进行修改更新，对无用的数据可随时删除。 (4) 报表功能：为了查询全部信息，可以将数据库中的数据简单直观的以表格的形式 输出。 (5) 要求以菜单选择的方式完成上述4项功能，用户界面美观，便于操作，软件运行 稳定、准确。 三、设计目的 随着我们对计算机理论知识的学习的不断加深，实践方面是不可缺少的，因此我 觉着这是一次很好的运用自己所学的知识的机会，在本次我的设计中为了提升自己的能 力，我运用了delphi语言来实现我所设计的系统的功能。这是一种我们课堂上没讲过的 语言，我也是听别人说这种语言的编程简单，界面友好，同时我觉得既然是锻炼能力， 何不运用这种语言，现在网络那么发达，还怕学不会？凭着自己平时的积累和学习的激 情，我决定用了,虽然没有达到自己预期的效果。 四、所用软件 1.页面开发环境：Borland Delphi 7 2.后台数据库： Microsoft Office Access 2003 3.开发环境运行平台：XP(SP2) 3855 2 0138 五、系统设计 1.系统总体设计 1.1 系统总体设计分析 该系统为职工管理系统，主要目的是方便，全面的对职工信息进行管理。根据我所学 知识可以运用C语言、C++实现和delphi等。鉴于C语言的单一界面、复杂程序的编辑，操作不方便，不能方便直观的展现设计内容。C++虽然界面比TC好一些，但由于我们没有系统的对他进行学习编程有些困难。因此选用delphi为平台设计此系统。 根据老师的设计要求，该系统实现下面的功能: ※系统采用人机交互的方式，界面美观友好，信息查询灵活、方便，数据存储安全 ※实现对职工的档案的输入、查询。 ※实现对职工的档案的修改。 ※实现对职工的档案的输出报表。 对于职工档案的输入、查询、修改和报表功能都是基于数据库的操作，建立数据库是 本设计关键。通过对设计的需求分析可得知，此系统设计包括：数据库的建立，登陆界面 的设计，登陆等候界面的设计，档案管理窗体的创建，数据报表编辑窗体的建立。 1.2 系统的结构组成框图 系统结构框图如下图所示： 职工档案管 理信息系统 信息菜单信息信息信息 添加 选择 浏览 查询 修改 按编号按姓名 查询 查询 图1 系统结构框图 3855 3 0138 由结构框图可知，首先要建立数据库，同时新建一个工程，再在里面添加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数据表的建立 首先需要罗列出职工档案所包括的具体项目，如下所示： 3855 4 0138 姓名 职务 年龄 编号 性别 籍贯 职工基本信息 民族 学历 出生政治健康日期 工资 面貌 状况 图2 职工基本信息 打开Microsoft Office 2003 Access完成表格的建立，如下所示： 图3 数据表 2.1.2 数据表的链接 在form2和form3中添加Ado数据集组件Adotable1、数据访问组件Daasource1及数 3855 5 0138 据控制组件DBGrid1，点击Adotable1中的ConnectionString（连接字符串属性），得到下图 所示的对话框： 图4 生成Connectionstring的向导 进行浏览加载数据表并测试，最后结果如下图所示： 图5 AdoConnection属性配置成功 点击“确定”即加载数据表成功。 2.2 登陆界面的模块设计 为了使系统的安全性得到保障，我设置了登录模块。只有通过登录模块，只有系统的 合法用户才可以进入系统的主界面。 建立了一个窗口Form1，并在里面添加了一些控件，其中包括6个标签控件lable，一个图片控件image1，一个编辑控件edit1和一个时间控件timer1，用以进行界面的验证和登陆。同时建立form5并在其中添加image1，lable1，progressbar1和timer1，用以控制登陆的时间和模拟网络的登陆模型。 在添加控件之后最重要的事是设置各个控件的属性、事件和编程。 3855 6 0138 2.2.1整个窗体界面的设计： 图6 登陆界 表1档案管理窗体主要控件的属性设置和功能表 组件 属性 功能 Image1 Picture使用editor 加载图片 Edit1 Text属性为用来输入用户登密码 空,passwordchar属性设为 “@” Label 1 Caption设为“职工档案管理用于显示系统标题 系统” Label2 Caption设为“进入” 用于进入系统 Label3 Caption设为“职工档案管理用于显示系统标题 系统” Label4 Caption设为“进入” 用于输入标示输入密 码 Label5 Caption设为“设计者：郭兰” 用于显示设计者 3855 7 0138 Label6 Caption设为“退出” 用于退出系统 Timer1 Interval设为“500” 用于登陆界面等候 2.2.2登陆流程图 开始 输入密码 No 密码是否正确 Yes 与数据库核对密码 系统功能 退出 图7 登陆流程图 2.2.3编写窗体代码 1.处理登陆窗体的Label2Click事件 该事件的主要作用是设置登陆用户名和用户需要登录的密码，点击登陆按钮当密码不 3855 8 0138 正确时显示“对不起，您输入的密码不正确”，密码正确时进去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; 3855 9 0138 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整个窗体界面的设计： 3855 10 0138 图8 主窗体的设计 表2 Form2档案管理窗体主要控件的属性设置和功能表 组件 属性 功能 Image1 Picture使用editor 加载图片 Lable1 Caption设为“职工档案管理” 用于显示窗体 标题 Label2 Caption设为“职工档案管理” 用于显示窗体 标题 Pagecontrol1 用于页面控制 Datasource Dataset设为“adotable” 设置数据源对 应的数据集 3855 11 0138 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的操作界面： 3855 12 0138 图9 个人档案记录编辑 表3 tabelsheet2主要控件的属性设置和功能表 组件 属性 功能 Label3 Caption设为“职务” 提示输入职务 3855 13 0138 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” 3855 14 0138 Datafield设为“性别” 是数据与输出窗口相匹 配 DBEdit4 Datasource设为选择数据源 “Datasourc1” Datafield设为“出生日是数据与输出窗口相匹 期” 配 DBEdit5 Datasource设为选择数据源 “Datasourc1” Datafield设为“民族” 是数据与输出窗口相匹 配 DBEdit6 Datasource设为选择数据源 “Datasourc1” Datafield设为“政治面是数据与输出窗口相匹 貌” 配 DBEdit7 Datasource设为选择数据源 “Datasourc1” Datafield设为“健康状是数据与输出窗口相匹 况” 配 DBEdit8 Datasource设为选择数据源 “Datasourc1” Datafield设为“学历” 是数据与输出窗口相匹 配 DBEdit9 Datasource设为选择数据源 3855 15 0138 “Datasourc1” Datafield设为“职务” 是数据与输出窗口相匹 配 DBEdit10 Datasource设为选择数据源 “Datasourc1” Datafield设为“工资” 是数据与输出窗口相匹 配 DBEdit11 Datasource设为选择数据源 “Datasourc1” Datafield设为“联系电是数据与输出窗口相匹 话” 配 DBEdit12 Datasource设为选择数据源 “Datasourc1” Datafield设为“籍贯” 是数据与输出窗口相匹 配 BitBtn1 Caption设为“输入” 输入数据 BitBtn2 Caption设为“修改” 对数据进行修改 BitBtn3 Caption设为“删除” 删除数据 流程图如下图示： 3855 16 0138 开始 开始 连接数据库 连接数据库 输入职工信息 输入修改信息 Yes Yes 判断是否重复 判断是否重复 No No 保存数据 保存数据 退出 退出 图9 输入流程图 图10 修改流程图 编写tabsheet2代码 ? 处理登陆窗体的TForm2.BitBtn1Click事件 该事件的主要功能是添加职工档案信息。 登陆窗体的TForm2.BitBtn1Click事件对应的代码如下： procedure TForm2.BitBtn1Click(Sender: TObject); begin adotable1.Append; end; ? 处理登陆窗体的TForm2.BitBtn2Click事件 该事件的主要功能是修改职工档案信息。 3855 17 0138 登陆窗体的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 浏览查询界面编辑 3855 18 0138 表4 tabsheet2主要控件的属性设置和功能表 组件 属性 功能 Label Caption设为“请输入职工提示输入所要查询的职工 姓名” 姓名 DBGird1 Datasource设为设置数据表格使用的数据 “Datasourc1” 源 Edit1 Text属性为空， 用于输入要查询的职工姓 名 Button Caption设为“执行查询” 进入查询 流程图: 开始 输入查询信息 连接数据库 No 判断是否存在 Yes 输出数据 退出 3855 19 0138 图12 查询流程图 编写Tabsheet3代码： 处理登陆窗体的TForm2. Button1Click事件 该事件的主要功能是查询职工档案信息，当输入的姓名在数据库中时黑三角指向对应 的职工，否则保持不变。 登陆窗体的TForm2. Button1Click事件对应的代码如下 procedure TForm2.Button1Click(Sender: TObject); begin adotable1.locate('职工姓名',edit1.Text ,[]) end; 3.Tabsheet4 （报表功能）建立及设置 Tabsheet4表单的设计主要包括两大部分：数据表的建立和操作界面的设置。其主要功 能是显示职工的全部信息。 建立一个数据报表 图13 数据报表的建立 3855 20 0138 表5 QuickRep1主要控件的属性设置和功能表 组件 组件 属性 功能 QRBand1 QRLabel7 Caption设为“职在报表中显示静 工基本信息” 态文本 QRDBText1 Dataset设为指定数据来源，显 “ADOTable1” 示数据库表中记 录的字段 QRDBText2 Dataset设为指定数据来源，显 “ADOTable1” 示数据库表中记 录的字段 QRBand2 QRDBText3 Dataset设为指定数据来源，显 “ADOTable1” 示数据库表中记 录的字段 QRDBText4 Dataset设为指定数据来源，显 “ADOTable1” 示数据库表中记 录的字段 QRDBText5 Dataset设为指定数据来源，显 “ADOTable1” 示数据库表中记 录的字段 QRLabel2 将Name设为在报表中显示静 QRLabel2 态文本 QRLabel3 ” 将Name设为在报表中显示静 QRLabel3 态文本 3855 21 0138 QRLabel4 将Name设为在报表中显示静QRBand3 QRLabel4 态文本 QRLabel5 将Name设为在报表中显示静 QRLabel5 态文本 QRLabel6 将Name设为在报表中显示静 QRLabel6 态文本 Tabsheet4的操作界面： 图14 报表功能界面编辑 在该页面中添加了一个数据控制控件Radiobutton并将其与Form3窗体链接，把它的Caption设为“基本信息打印”。 流程图如下所示： 3855 22 0138 开始 输入职工信息 输出职工信息 退出 图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，比如 3855 23 0138 procedure TForm2.BitBtn1Click(Sender: TObject); begin adotable1.Append; end; TForm2.BitBtn1Click事件过程调用adotable1.Append过程，鼠标点击就执行增加空白页的任务。该系统应用的基本上就是这种过程和事件的调用。 4源程序设计（见附录） 六、实验调试结果 1.系统的登陆界面 当输入的密码正确时，得到如下的成功登陆界面 图14 系统登陆 当输入的密码不正确时，显示密码输入错误 3855 24 0138 图15 系统登陆失败 2、职工档案系统的主窗体。 登陆成功后将进入该界面，它由编辑、浏览，报表三个主按钮控件构成。 图16 个人档案显示图 当点击输入按钮后，得到如下的空白页面，我们可以输入员工的相对应的档案信息 3855 25 0138 图17 职工档案信息输入 当我们点击修改按钮后可以对员工的档案进行修改，如下图所示 图18 职工档案修改 进入查询页面后，我们可以对员工的档案进行查询，当所要查询的人属于该系统后， 黑三角形将指向我们所查询的员工这一行，当不存在时，黑三角就保持不变。 3855 26 0138 图19 职工档案信息查询 选择报表功能后点击基本信息打印，将会显示职工的部分信息，具体效果如下图所示： 图20 职工档案报表 3.“退出系统”按钮实现带系统的退出功能，鼠标选定后，将自动 退出该系统，其存在的界面如下： 图21 退出系统 七、设计中的问题及解决方法 由于这是我第一次用delphi来制作一个系统，所以我碰到了好多问题，但是经过查 找资料，看视频教程，我把问题解决掉了，基本实现我所要的那些功能。我列写了下面主 3855 27 0138 要几个方面的。 1.在背景图片上添加控件的问题。 设置背景图片后，当我添加一些组件时相应部分的背景无法显示，使得图片上残留一 些阴影，经过查找 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 本，最后在对象编辑器中我将Transparent属性设为“True”,终于得到了我所需的效果，同时我也将其它组件的属性进行了修改。 Transparent属性设置为“false”时的效果如下： Transparent属性设置为“true”时的效果如下： 2.Pagecontrol和Tabsheet的添加问题。 通过阅读我所借的相关资料书，我了解到设计档案窗体时，可以通过页面控制控件按 钮来控制相应页的菜单。但是在设计过程中我并没有找到相应的Tabsheet控件，后来在我下载的视频教程中我找到了解决方法，成功的添加了3个表单，完成了该页面的设置。 3.数据表的链接问题 在该系统中最重要的部分就是数据表的链接问题，只有数据表链接成功了，后续的工 程才能进行，同时这也是我问题出现最多的一个过程。在Pagecontrol中添加Adotable1和Datasource1控件后，就是设置其属性了，当数据表的链接不成功时，出现了以下的对 话框： 3855 28 0138 图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过程的理解，特别是数据库的建立与链接。也掌握了如何应用这种语言实现 对一个数据表的添加、删除、修改、产生报表功能，我相信以后遇到类似的系统时，通过 努力我都可以可以设计出来。 两周的课程设计，我真的学到了很多，但是最重要的是我学会了这样一个有用的软件， 我觉得它的优点很多，它的编程的简单易懂更是我所喜欢的。两周的时间要学会一种语言 3855 29 0138 真的很难，而我学的只是些基本的、浅显的，但是我相信在课余我一定会加强对它的学习， 从而更好的学好它，掌握它，应用它。 九.参考文献 1. 谭浩强. Delphi程序设计（第二版）（Delphi 2005），北京，清华大学出版社 2006 2. 伍俊良. Delphi 7.0/8.0课程设计与系统开发案例，北京，清华大学出版社 2004 3. 徐 谡. Delphi应用与开发案例教程.，北京，清华大学出版社 2005 4. 求是科技 Delphi信息管理系统开发实例导航.，北京，人民邮电出版社 2005 5. 彭明明 Delphi数据库实用编程100例，北京，中国铁道出版社 2006 6. www.2bysj.cn 十、附录： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; 3855 30 0138 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 3855 31 0138 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, 3855 32 0138 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; 3855 33 0138 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; 3855 34 0138 var Form2: TForm2; implementation uses Unit3, Unit4; {$R *.dfm} procedure TForm2.SpeedButton1Click(Sender: TObject);\\点击命令按钮‘退出系统’\\ begin application.Terminate ; end; procedure TForm2.BitBtn1Click(Sender: TObject);\\输入职工档案信息\\ begin adotable1.Append;\\增加空的页面\\ end; procedure TForm2.BitBtn2Click(Sender: TObject);\\修改职工档案信息\\ begin adotable1.Edit; adotable1.Post; end; procedure TForm2.BitBtn3Click(Sender: TObject);\\删除职工档案信息\\ begin adotable1.Delete; end; procedure TForm2.Button1Click(Sender: TObject);\\根据职工姓名查询\\ begin adotable1.locate('职工姓名',edit1.Text ,[]) end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);\\终止系统\\ begin application.Terminate ; end; 3855 35 0138 procedure TForm2.Timer1Timer(Sender: TObject);\\时间控制器使字体闪烁\\ begin label1.Visible :=not label1.Visible ; end; procedure TForm2.RadioButton1Click(Sender: TObject); begin form3.quickrep1.preview; \\打印职工档案信息\\ form2.Hide ; form3.Show; 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; 3855 36 0138 implementation uses Unit2; {$R *.dfm} procedure TForm5.Timer1Timer(Sender: TObject);\\模拟登陆延时\\ begin if progressbar1.Position=100 then begin form5.Hide; form2.show; end else progressbar1.Position:= progressbar1.Position+progressbar1.Step; end; end. 3855 37