图5－1登陆窗体
主要代码
Private Sub cmdOK_Click()
If txtPassword.Text <> \Call fun.closers
Call fun.queryadminbase(Combo1.Text)
If rs.Fields(\密码\ Call fun.closers Call fun.closecnn MsgBox \ Unload Me system.Show Else
Call fun.closers
MsgBox \密码错误，请重试！\登录\ txtPassword.SetFocus
SendKeys \ End If Else
MsgBox \别忘了输入密码:)\：（\End If
End Sub
Private Sub Form_Load()
txtPassword.Text = \Call fun.closecnn
Call fun.opencnn
Call fun.cnnadminbase
Combo1.Clear Do Until rs.EOF
Combo1.AddItem rs.Fields(\用户名\rs.MoveNext Loop End Sub
5.2.2 用户信息管理实施
设计一较为简易用户添加删除管理模块。
图5－2添加用户实施窗体
主要代码：
Private Sub Command1_Click() If Text2.Text = Text3.Text Then
Call fun.closers
Call fun.queryadminbase(Text1.Text) If rs.RecordCount = 0 Then rs.AddNew
rs.Fields(\用户名\ rs.Fields(\密码\ rs.Update
MsgBox \添加用户成功\：）\ Else
MsgBox \已有该用户\：）\ End If
Call fun.closers
Else
MsgBox \输入密码错误\：（\End If
End Sub
Private Sub Command2_Click()
If Text2.Text = Text3.Text Then Call fun.closers
Call fun.queryadminbase(Text1.Text)
If rs.RecordCount = 0 Then
MsgBox \没有该用户！\ Else
If rs.Fields(\密码\
MsgBox \删除用户成功!\删除用户\ rs.Delete rs.Update Call closers Else
MsgBox \密码错误，请重试！\删除用户\ Text2.SetFocus
SendKeys \ End If End If Else
MsgBox \密码确认错误！\ Text2.SetFocus
SendKeys \End If End Sub
5.2.3 入库管理系统实施
图5－3信息汇总输入窗体
