『易坊知识库摘要_仓库管理系统(VB+Access+源代码)[特选材料]( 二 )』12、ext = Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = Then 提示用户密码不能为空MsgBox 密码不能为空!, , 登录提示信息：Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBo...

12、ext = Text1.SetFocusExit SubEnd IfEnd IfIf Text2.Text = Then 提示用户密码不能为空MsgBox 密码不能为空!, , 登录提示信息：Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 请再次输入密码!, , 登录提示信息：Text3.SetFocusExit SubEnd IfIf Text2.Text 0 Thenn = select * from 入库表 where 品名 = & pm & Adodc2.CommandType = adCmdTextAdodc2.Recor 。

13、dSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKSHJ_Click()Frame2.Caption = 入库信息Dim RKRQ As StringDim n As StringRKRQ = InputBox(入库日期 ， 格式为：月/日/年 如：12/1/2011, 请输入, 0)n = select * from 入库表 where 入库日期 = & RKRQ & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshCall In 。

14、itGrid1End SubPrivate Sub RKXHCHX_Click()Frame2.Caption = 入库信息Dim XH As StringDim n As StringXH = InputBox(产品型号, 请输入, 0)If Len(XH) 0 Thenn = select * from 入库表 where 型号 = & XH & Adodc2.CommandType = adCmdTextAdodc2.RecordSource = nAdodc2.RefreshEnd IfCall InitGrid1End SubPrivate Sub RKZCX_Click()Fram 。

15、e2.Caption = 入库信息Dim ZB As StringZB = select * from 入库表 Adodc2.CommandType = adCmdTextAdodc2.RecordSource = ZBAdodc2.RefreshCall InitGrid1End SubPrivate Sub Timer1_Timer()If Label4.Left + Label4.Width 0 Then 当标签右边位置大于0时 ， 标签向左移Label4.Move Label4.Left - 80Else 否则标签从头开始Label4.Left = Form2.ScaleWidthEnd。

16、IfIf Label5.Left + Label5.Width 0 ThenLabel5.Move Label5.Left - 80ElseLabel5.Left = Form2.ScaleWidthEnd IfIf Label6.Left + Label6.Width 0 ThenLabel6.Move Label6.Left - 80ElseLabel6.Left = Form2.ScaleWidthEnd IfIf Label7.Left + Label7.Width 0 ThenLabel7.Move Label7.Left - 80ElseLabel7.Left = Form2.Sc 。

17、aleWidthEnd IfEnd SubPrivate Sub XGMM_Click()Form2.HideForm4.ShowEnd SubPrivate Sub XHCX_Click()Frame2.Caption = 库存信息Dim XH As StringDim n As StringXH = InputBox(产品型号, 请输入, 0)If Len(XH) 0 Then And Val(XH) Form2.TextUserName ThenMsgBox 用户名不正确 ， 请确认！, , 信息提示！Text1.Text = Text1.SetFocusExit SubElseDim na 。

18、me As StringDim names As Stringname = Trim(Text1.Text)names = select * from 用户登录信息表 where 用户名= & name & Adodc1.CommandType = adCmdTextAdodc1.RecordSource = namesAdodc1.RefreshIf Text2.Text = ThenMsgBox 请输入旧密码!, , 信息提示！Text2.SetFocusExit SubEnd IfIf Adodc1.Recordset.Fields(密码) Trim(Text4.Text) ThenMs 。

【仓库管理系统(VB+Access+源代码)[特选材料]】19、gBox 两次输入的新密码不一致!, , 信息提示！Text3.Text = Text4.Text = Text3.SetFocusExit SubElseAdodc1.Recordset.Fields(密码) = Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox (密码修改成功！)Unload MeForm2.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd Sub入库管理代码：Private Sub Command1_Click()If Text1.Text = And Text2.Text = ThenMsgBox “品名”和“型号”不能同时为空 ， 必须输入其中一项!, , 提示信息!Exit SubText1.SetFocusElseIf Text3.Text = And Text4.Text = ThenMsg 。

来源：(未知)

【学习资料】网址：/a/2021/0321/0021742718.html

标题：仓库管理系统(VB+Access+源代码)[特选材料]( 二 )