5.5.3 系统设置（frm_user）窗体代码：
Private Sub Form_Load()
Set ADOrs = New ADODB.Recordset
Dim strSql As String
Dim i As Integer
strSql = "select * from user_info " ADOrs.Open strSql, ADOcn
num = ADOrs.Fields.Count
Combo1.AddItem "用户ID"
Combo1.AddItem "部门"
Combo1.AddItem "姓名"
ADOrs.Close
Combo1.ListIndex = 0
cmdPrevious.Visible = False
cmdNext.Visible = False
DataGrid1.Visible = False
End Sub Private Sub cmd_find_Click()
Set ADOrs = New ADODB.Recordset
Dim datanum As Integer
Dim strSql As String
'根据字段名模糊查询记录
If Combo1.Text = "用户ID" Then
strSql = "SELECT * FROM user_info where userid like '%" & Text1.Text & "%'"
End If
If Combo1.Text = "部门" Then
strSql = "SELECT * FROM user_info where unit like '%" & Text1.Text & "%'"
End If
If Combo1.Text = "姓名" Then
strSql = "SELECT * FROM user_info where name like '%" & Text1.Text & "%'"
End If
总 结 经过本次课程设计，我对软件工程项目开发中的项目制定、部门分工、开发流程、整体统筹等方面有了一定的了解和提高。对于数据库原理、编程通过理论结合实践也有了更深层次的理解。这次课程设计，给我印象非常深刻的地方有以下几点：
1．统筹规划，严格按照数据库管理软件的开发流程来进行开发，使软件开发过程中未出现严重问题。整个开发过程，需求分析占用了一半的时间，使软件设计构架比较合理，而代码编辑和软件测试占用了另一半时间。这种时间安排我认为比较合理，比较满意。 | 
