山东科技大学学生课程设计
助下，把问题一个有一个地解决了。每一个问题的解决都加深了对数据库的了解。不过，由于专业知识的限制，所制作的工资管理系统仍然存在一些问题，如系统功能单一、属性比较简单等，今后需要进一步学习，继续完善系统的功能。
通过本次课程设计，使我从更深的层次了解了VB的设计技巧和应用方法。在程序的编制和调试过程中，我从中学到了很多有用的方法，比如通过本次设计，我更深刻的体会到了VB系统的方便与实用。在课程设计的过程中，我对课本上的知识进行了复习，从中找出了不少盲点，由衷地感觉到学习过程中应该把学的知识作扎实，多动手多思考，这样才能最大限度的减少知识的漏洞。 把课本上的东西变成实际的东西，让其有使用的价值，是一件很让人高兴的事。我切实的体会到VB这门课程是有用处的，它解释了我平时学习中的很多疑惑，让我增长了很多见识。
6 参考资料
1.高春艳，李艳，谷伟东. Visual Basic数据库开发关键技术与实例应用[M]，人民邮电出版社，2004.12
2.刘天惠.Visual Basic程序设计教程[M]. 北京: 清华大学大学出版社，2003.12-24
3.龚沛曾.Visual Basic程序设计教程[M]. 高等教育出版社, 2004.28-45 4.蒋加伏.Visual Basic程序设计教程[M].北京: 北京邮电大学出版社，2003-10.26
5.Microsoft .Visual Basic 6.0 中文版控件大全[M]北京：电子工业出版社,2004.15－23
17
山东科技大学学生课程设计
7 源程序清单
（1） 登录
Option Explicit
Public conn As New ADODB.Connection Public rs As New ADODB.Recordset Public db As String Private sSql As String Private Sub Form_Load() Dim i As Integer
On Error GoTo Err
db = \Security=SSPI;Persist Security Info=False;Initial Catalog=mstaff;DataSource=.\ conn.CursorLocation = adUseClient conn.Open db Exit Sub Err:
MsgBox Err.Number Unload Me End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub
Private Sub Image1_Click()
End Sub
Private Sub lgbt_Click()
sSql = \* from admin where uname='\& unamei.Text & \and upassword='\
If rs.State <> adStateClosed Then rs.Close
rs.Open sSql, conn, adOpenStatic, adLockBatchOptimistic
18
山东科技大学学生课程设计
If rs.EOF Then
MsgBox \用户名或密码错误。\ Exit Sub End If
unamei.Text = \ upasswordi.Text = \ Me.Hide
mainfrm.Show End Sub
Private Sub rsbt_Click() unamei.Text = %upasswordi.Text = \End Sub
（2）人员信息管理系统（MID主窗体）
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) End End Sub
Private Sub Image1_Click()
End Sub
Private Sub menuaa_Click() Me.Enabled = False madmin.Show End Sub
Private Sub menuab_Click() Me.Hide login.Show End Sub
Private Sub menub_Click() Me.Enabled = False mstaff.Show End Sub
19
山东科技大学学生课程设计
Private Sub menuca_Click() Me.Enabled = False mdd.Show End Sub
Private Sub menucb_Click() Me.Enabled = False diaodong.Show End Sub
Private Sub menuda_Click() mdept.Show
Me.Enabled = False End Sub
Private Sub menudb_Click() Me.Enabled = False mjob.Show End Sub
Private Sub menuea_Click() Me.Enabled = False sinfo.Show End Sub
Private Sub menueb_Click() Me.Enabled = False ddinfo.Show End Sub
Private Sub menufa_Click() 'about.Show test.Show End Sub
（3）系统用户管理
Option Explicit
Public conn As New ADODB.Connection Public rs As New ADODB.Recordset
20
