(三)查询系统设计
该功能模块包括个人信息、单位信息和教学情况三个部分,其中个人信息包括个人基本信息、教学记录、职务变动、职称变动几个查询;单位信息包括部门表和科室表的查询;教学情况是查询课程信息的。(例:图五为按所属部门编号查询科室信息)
1、个人信息查询
个人基本信息查询中可以选择人员编号,或是人员姓名、性别、职称、具体科室等不同的一个条件或几个条件组合查询,然后在输入框里输入想要查询的条件,按确定按钮就可以查询出人事基本信息表中符合条件的人的所有信息,查询结果将在本界面下方显示。
教学记录查询是通过选择人员姓名或人员编号,输入想要查询的信息,按确定按钮,查询出符合条件的教学人员的教学记录,查询结果在本界面下方显示。
职务变动查询和职称变动查询可以分别通过选择人员姓名、单位、职务(或职称)、时间等某一条件进行查询,输入查询条件,然后按确定按钮查询结果将在界面下方显示。
2、单位信息查询
可以通过输入部门(或科室)名称、编号等方式,然后输入查询条件,查询出部门信息(或科室信息)将在本界面下方显示。
3、教学情况
可以通过输入课程名称或课程时间进行查询,查询结
(四)管理系统设计
管理系统模块中包括数据处理,人员信息录入,职务变动录入,职称变动录入。其中数据处理是可以对人员基本信息表进行浏览和部门表、科室表、教学记录表进行数据处理的。人员信息录入是人员基本信息的录入,记录将保存在数据库的人员基本信息表里。职务(或职称)变动录入是将有职务(或职称)变动的人员的信息保存在数据库的职务(或职称)表中的。因为职务(或职称)变动表中的信息不允许删除、修改,所以没有做关于职务(或职称)的删除和修改功能的操作。
1、数据处理
管理人员可以通过管理系统中的数据处理对数据库中人员基本信息表、部门表、科室表、教学记录表这几个表中的数据进行处理,处理包括对表或是表内某一记录的浏览,在表中添加记录,对表中某一记录进行修改或是删除的操作。其中人员基本信息表是只允许浏览表和浏览、删除记录而不允许添加记录和修改记录,人员基本信息表的添加记录的操作在人员信息录入中完成。进行操作时首先要选择所要操作的表,选定表后可以进行浏览表和添加记录的操作(例:图六为修改教学记录表中某一条记录)。要对表中某条记录进行操作可以按界面提示选择出符合条件的记录进行浏览、删除和修改的操作。其选择记录按钮、确定按钮、删除记录按钮、修改记录按钮的程序代码如下:
(1)选定表,选择要操作的字段名称
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from " & Combo1.Text & ""
Adodc1.Refresh
a = Combo2.ListCount
If a <> 0 Then
For i = 0 To a - 1
Combo2.RemoveItem 0
Next i
End If
For Each i In Adodc1.Recordset.Fields
Combo2.AddItem i.Name
Next i
'把表中的字段名称列在combo2里
End Sub
注:代码中条件循环是用于在用户进行第二次操作时清除前面操作所显示的内容。
(2)选定字段后,选择所需记录
Private Sub Command4_Click()
Dim zd As String
zd = Combo2.Text
Adodc1.RecordSource = "select " & zd & " from " & Combo1.Text & ""
Adodc1.Refresh
a = Combo3.ListCount
If a <> 0 Then
For i = 0 To a - 1
Combo3.RemoveItem 0
Next i