辽 宁 工 业 大 学 综 合 实 训 说 明 书（论 文）
End Sub 3 企业部门管理录入，编辑，修改，作用是设定可以进入数据库的人员，同时设定部门。
图3.17企业部门管理录入图
通过ADO控件连接到数据库的BUMEN表，通过SQL语句
筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 4 日常管理
18
辽 宁 工 业 大 学 综 合 实 训 说 明 书（论 文）
图3.18考勤加班出差管理图
分为考勤加班出差管理，奖惩考核和员工培训。
通过这三个指标的考核确定人员的表现好坏。确定人员的待遇 使用的语句
筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 6 各种信息的查询
19
辽 宁 工 业 大 学 综 合 实 训 说 明 书（论 文）
图3.19工资查询图
这里就列出组合查询源代码进行说明： Private Sub Command6_Click() ss2 = Text2.Text 设定4个变量 ss3 = Text3.Text ss4 = Text4.Text ss5 = Text5.Text Adodc1.RecordSource = \* FROM RS where \+ ss2 + \+ ss4 + \and \Adodc1.Refresh 字段1=变量SS1 值=SS2 字段2=变量SS3 值=SS4 End Sub
7 系统数据的安全保密，设定系统用户
通过ADO控件连接到数据库的USER表，通过SQL语句
“SELECT user.user, user.pass FROM [user];”筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub
20
辽 宁 工 业 大 学 综 合 实 训 说 明 书（论 文）
Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 8、 退出系统模块：退出系统返回WIDNOWS界面。 一个命令即可 Private Sub e_Click() End
9 打印报表。
图3.20打印报表图
21
辽 宁 工 业 大 学 综 合 实 训 说 明 书（论 文）
第4章 实训日记
第1天：分组，选择题目。
第2天：去图书馆查阅相应资料并在网上查找软件工程相关资料。 第3天：布置组内相应任务，设计程序各部分模块功能。 第4天：选择语言，编写程序。
第5天：调试程序代码，修复程序运行时出现的错误。 第6天：收集程序代码，分析模块功能，收集报告资料。 第7天：阅读软件工程书籍，对软件文档的撰写大致了解。 第8天: 了解对软件文档作用及分类并对其中内容整理到报告中。 第9天：了解软件文档所采用的标准并对内容整理到报告中。 第10天：整理软件文档主要内容到报告中。 第11天：完成报告实例一。 第12天：完成报告实例二。
第13天：完成实训总结内容，总结这些天带来的收获。 第14天：完成报告排版，上交作业。
22