毕业论文 - 物流企业库存信息管理系统

图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信息汇总输入窗体