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

职工档案管理信息系统的设计与实现内容摘要：

on 设为“职务” 提示输入职务 0138 3855 14 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” 选择数据源 0138 3855 15 Datafield 设为“性别” 是数据与输出窗口相匹配 DBEdit4 Datasource 设为“ Datasourc1” 选择数据 源 Datafield 设为“出生日期” 是数据与输出窗口相匹配 DBEdit5 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“民族” 是数据与输出窗口相匹配 DBEdit6 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“政治面貌” 是数据与输出窗口相匹配 DBEdit7 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“健康状况” 是数据与输出窗口相匹配 DBEdit8 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“学历” 是数据与输出窗口相匹配 DBEdit9 Datasource 设为 选择数据源 0138 3855 16 “ Datasourc1” Datafield 设为“职务” 是数据与输出窗口相匹配 DBEdit10 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“工资” 是数据与输出窗口相匹配 DBEdit11 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设 为“联系电话” 是数据与输出窗口相匹配 DBEdit12 Datasource 设为“ Datasourc1” 选择数据源 Datafield 设为“籍贯” 是数据与输出窗口相匹配 BitBtn1 Caption 设为“输入” 输入数据 BitBtn2 Caption 设为“修改” 对数据进行修改 BitBtn3 Caption 设为“删除” 删除数据 流程图如下图示： 0138 3855 17 图 9 输入流程图 图 10 修改流程图 编写 tabsheet2 代码 ● 处理登陆窗体的 事件 该事件的主要功能是添加职工档案信息。 登陆窗体的 事件 对应的代码如下： procedure (Sender: TObject)。 begin。 end。 ● 处理登陆窗体的 事件 该事件的主要功能是修改职工档案信息。 开始 开始 退出 输入职工信息 判断是否重复 保存数据 退出 连接数据库 连接数据库 输入修改信息 判断是否重复 保存数据 Yes No No Yes 0138 3855 18 登陆窗体的 事件 对应的代码如下： procedure (Sender: TObject)。 begin。 end。 ● 处理登陆窗体的 事件 该事件的主要功能是删除职工档案信息。 登陆窗体的 事件 对应的代码如下： procedure (Sender: TObject)。 begin。 end。 2. Tabsheet3（全部档案浏览查询）建立及设置 Tabsheet3 表单中设置了 DBGird 控件， Label 控件和 Button 按钮其主要功能是显示每个职工的全部信息，并可以通过输入职工姓名查询每个职工的信息。 Tabsheet3 的操作界面： 图 11 浏览查询界面编辑 0138 3855 19 表 4 tabsheet2 主要控件的属性设置和功能表 组件 属性 功能 Label Caption 设为“请输入职工姓名” 提示输入所要查询的职工姓名 DBGird1 Datasource 设为“ Datasourc1” 设置数据表格使用的数据源 Edit1 Text 属性为空， 用于输入要查询的职工姓名 Button Caption 设为“执行查询” 进入查询 流程图 : 开始 输入查询信息 判断是否存在 输出数据 退出 连接数据库 No Yes 0138 3855 20 图 12 查询流程图 编写 Tabsheet3 代码： 处理登陆窗体的 TForm2. Button1Click 事件 该事件的主要功能是查询职工档案信息，当输入的姓名在数据库中时黑三角指向对应的职工，否则保持不变。 登陆窗体的 TForm2. Button1Click 事件 对应的代码如下 procedure (Sender: TObject)。 begin (39。 职工姓名 39。 , ,[]) end。 （报表功能）建立及设置 Tabsheet4 表单的设计主要包括两大部分：数据表的建立和操作界面的设置。 其主要功能是显示职工的全部信息。 建立一个数据报表 图 13 数据报表的建立 0138 3855 21 表 5 QuickRep1 主要控件的属性 设置和功能表 组件 组件 属性 功能 QRBand1 QRLabel7 Caption 设为“职工基本信息” 在报表中显示静态文本 QRBand2 QRDBText1 Dataset 设为“ ADOTable1” 指定数据来源，显示数据库表中记录的字段 QRDBText2 Dataset 设为“ ADOTable1” 指定数据来源，显示数据库表中记录的字段 QRDBText3 Dataset 设为“ ADOTable1” 指定数据来源，显示数据库表中记录的字段 QRDBText4 Dataset 设为“ ADOTable1” 指定数据来源，显示数据库表中记录的字段 QRDBText5 Dataset 设为“ ADOTable1” 指定数据来源，显示数据库表中记录的字段 QRLabel2 将 Name 设为QRLabel2 在报表中显示静态文本 QRLabel3 ” 将 Name 设为QRLabel3 在报表中显示静态文本 0138 3855 22 QRBand3 QRLabel4 将 Name 设为QRLabel4 在报表中显示静态文本 QRLabel5 将 Name 设为QRLabel5 在报表中显示静态文本 QRLabel6 将 Name 设为QRLabel6 在报表中显示静态文本 Tabsheet4 的操作界面： 图 14 报表功能界面编辑 在该页面中添加了一个数据控制控件 Radiobutton 并将其与 Form3 窗体链接，把它的Caption 设为“基本信息打印”。