设计结果与分析(可以加页)：
1、员工信息查询 (frmEmpInfo2.frm)
图1.9：员工信息查询界面
主要代码如下:
Private Sub Command1_Click() Dim strId As String Dim strName As String Dim strDept As String Dim strTitle As String Dim strDuty As String Dim strEdu As String Dim strSex As String '设置错误陷阱
On Error GoTo ERR_CONN If Trim(MskId) = \ strId = \ Else
strId = \ End If
If Trim(Text2) = \ strName = \ Else
strName = \ End If
If cboDept.ListIndex = 0 Then strDept = \ Else
strDept = \ End If
If cboTitle.ListIndex = 0 Then strTitle = \ Else
strTitle = \ End If
If cboDuty.ListIndex = 0 Then strDuty = \ Else
strDuty = \ End If
If cboEdu.ListIndex = 0 Then strEdu = \ Else
strEdu = \ End If
If cboSex.ListIndex = 0 Then strSex = \ Else
strSex = \ End If
'打开一个数据集 strSql = \a.emp_id,a.emp_name,a.sex,b.edu_name,c.dept_name,d.duty_name,e.title_name from employee a,education b,department c,duty d,title e where a.edu_id=b.edu_id and a.dept_id=c.dept_id and a.duty_id=d.duty_id and a.title_id=e.title_id \& strTitle & \& \
rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly
If rs.EOF Then
Label9 = \找到0条记录\
flxShow.Rows = 1 Else
'填写数据
flxShow.Rows = 1
Do While Not rs.EOF
flxShow.Rows = flxShow.Rows + 1
flxShow.TextMatrix(flxShow.Rows - 1, 0) = rs.Fields(0).Value
For i = 2 To rs.Fields.Count
flxShow.TextMatrix(flxShow.Rows - 1, i) = rs.Fields(i - 1).Value
Next i
rs.MoveNext Loop
Label9 = \找到\条记录\
End If rs.Close Exit Sub
ERR_CONN:
MsgBox \请检查输入的数据是否有效\End Sub
Private Sub Command3_Click() Unload Me End Sub
Private Sub Form_Load()
'性别
cboSex.AddItem \ cboSex.AddItem \男\ cboSex.AddItem \女\ cboSex.ListIndex = 0
'学历
strSql = \ rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly cboEdu.AddItem \
Do While Not rs.EOF
cboEdu.AddItem (rs.Fields(\
cboEdu.ItemData(cboEdu.NewIndex) = rs.Fields(\ rs.MoveNext Loop rs.Close
cboEdu.ListIndex = 0
'部门
strSql = \dept_id,dept_name from department Order By dept_id\ rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly cboDept.AddItem \ Do While Not rs.EOF
cboDept.AddItem (rs.Fields(\ cboDept.ItemData(cboDept.NewIndex) = rs.Fields(\ rs.MoveNext Loop rs.Close
cboDept.ListIndex = 0
'职务
strSql = \ rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly cboDuty.AddItem \ Do While Not rs.EOF
cboDuty.AddItem (rs.Fields(\ cboDuty.ItemData(cboDuty.NewIndex) = rs.Fields(\ rs.MoveNext Loop rs.Close
cboDuty.ListIndex = 0
'职称
strSql = \ rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly cboTitle.AddItem \ Do While Not rs.EOF
cboTitle.AddItem (rs.Fields(\ cboTitle.ItemData(cboTitle.NewIndex) = rs.Fields(\ rs.MoveNext Loop