(完整版)计算机信息管理毕业论文

tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton2_Click() Form5.Show End Sub

Private Sub xpcmdbutton3_Click() Form2.Show End Sub

Private Sub xpcmdbutton4_Click() Form3.Show End Sub

Private Sub xpcmdbutton5_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton6_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton7_Click() open_connection (\tablename = \

Set DataGrid1.DataSource = rst End Sub

Private Sub xpcmdbutton8_Click() Frm_sys_set.Show End Sub

Private Sub xpmin_Click() Me.WindowState = 1 End Sub

Private Sub xpclose_Click() Unload Me frmLogin.Show End Sub

Private Sub xptopbuttons1_Click() Unload Me End Sub

Private Sub xptopbuttons2_Click() Me.WindowState = 1 End Sub 1. 用户登陆

该窗体主要完成用户管理登陆功能，也是进入系统的一个重要的门槛，该门槛是有权限限制，根据不同的用户帐号，功能也截然不同，这就是本系统的一个关键点。（默然读者帐号；reader 密码；008）代码见code目录下:login.txt Private Sub Form_Load() '连接用户表 Call open_connection(\xpcmdbutton1.Caption = \登陆\

xpcmdbutton2.Caption = \注销\End Sub

Private Sub Image1_Click() End Sub

Private Sub xpcmdbutton1_Click() '登录系统 Dim sql As String

If Trim(Text1.Text) = \如果文本框为空，则给出提示 frmMsg.Show

frmMsg.notice.Visible = True

frmMsg.Text1.Text = \请输入用户登录账号!\ Exit Sub Else

sql = \* from user_table where [登录名]='\& Trim(Text1.Text) & \'查找用户登录名 rst.Close

rst.Open sql, con, adOpenDynamic, adLockOptimistic If rst.RecordCount <= 0 Then frmMsg.Show

frmMsg.error.Visible = True frmMsg.Text1.Text = \用户名不存在！\ Exit Sub End If

'用户合法性检测并赋予一定的权限级别

If LCase(Trim(rst![登录名])) = LCase(Trim(Text1.Text)) Then If Trim(rst![密码]) = Trim(Text2.Text) Then

privilege = rst![权限]

Call check_privage(privilege) '权限分配 Else

frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \密码错误，请重新输入！\ Exit Sub End If End If End If End Sub

Private Sub xpcmdbutton2_Click() '退出系统 End End Sub

Private Sub xptopbuttons1_Click() End End Sub

Private Sub xptopbuttons2_Click(Index As Integer) Me.WindowState = 1 End Sub

如果用户名错误或者密码错误” 友情提示”窗体就会响应，传送信息给用户

提示1