【正文】 。 amp。 = adCmdText = ZB End SubPrivate Sub Command2_Click() = = = = = = = End SubPrivate Sub Command3_Click() Unload Me End SubPrivate Sub Form_Load() Do Until (品名) (型號) (單位) LoopEnd Sub歸還管理代碼： Private Sub Command1_Click() If = And = Then 39。 pm amp。 Dim i As String 39。 39。 Else 39。 D(1)End Sub。 D(j) 39。 (型號) 39。 39。Trim() (經(jīng)手人) = Trim() (歸還人) = Trim() (歸還日期) = Date (說明) = Trim() End If Dim pm As String Dim pms As String Dim n As String Dim m As String pm = Trim() n = Val() pms = select * from 庫存表 where 品名=39。 PM amp。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。 PM amp。Trim() (經(jīng)手人) = Trim() (出庫日期) = Date (說明) = Trim() End If Dim pm As String Dim pms As String Dim n As String Dim m As String pm = Trim() n = Val() pms = select * from 庫存表 where 品名=39。 39。 amp。MsgBox 登陸成功！, , 登錄提示信息： Else MsgBox 密碼不正確，請重新輸入！, , 登錄提示信息： = End IfEnd SubPrivate Sub Command2_Click() Unload Me End Sub修改用戶密碼界面代碼： Private Sub Command1_Click() If Trim() Then MsgBox 用戶名不正確，請確認(rèn)！, , 信息提示！ = Exit Sub Else Dim name As String Dim names As String name = Trim() names = select * from 用戶登錄信息表 where 用戶名=39。 .Columns(3).Caption = 成績 39。where 品名 = 39。 End Sub Private Sub XHCX_Click() = 庫存信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號, 請輸入, 0) If Len(XH) 0 Then 39。 39。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub PMCX_Click() = 庫存信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 庫存表 where 品名 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCZCX_Click() = 借出信息 Dim ZB As String ZB = select * from 借出表 = adCmdText = ZB Call InitGrid2End SubPrivate Sub JSHRCHX_Click() = 歸還信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請輸入, 0) n = select * from 歸還表 where 經(jīng)手人 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCRCX_Click() = 借出信息 Dim JCR As String Dim n As String JCR = InputBox(借出人, 請輸入, 0) n = select * from 借出表 where 借出人 = 39。 End SubPrivate Sub JCHPMCHX_Click() = 借出信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 借出表 where 品名 = 39。 amp。 amp。 = False 39。檢測用戶名是否已經(jīng)存在 Dim strS As String usename = Trim() strS = select * from 用戶登錄信息表 where 用戶名=39。 39。 = adCmdText = n Call InitGrid1End SubPrivate Sub CHKXHCHX_Click() = 出庫信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號, 請輸入, 0) n = select * from 出庫表 where 型號 = 39?！靶掠脩簟卑粹o = True = True = = = = 確定 = 取消 End SubPrivate Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) = TrueEnd SubPrivate Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) = FalseEnd SubPrivate Sub Form_Load() = False = FalseEnd SubPrivate Sub Timer1_Timer() 39。 strSno amp。 usename amp。其它元件不在一一說明。倉庫管理系統(tǒng) 項目的建立 ，現(xiàn)圖文結(jié)合的方式一步一步展現(xiàn)制作過程。登錄界面窗口的建立 最終界面如下：Adodc1的添加過程為：單擊“工程”——“部件”出現(xiàn)下圖所示，選擇“控件”下的“Microsoft ADO Data Control （OLEDB）” 單擊“確定”在工具欄中會出現(xiàn)“”圖標(biāo)，單擊它并拖動到相應(yīng)位置即可。 amp。 amp。Unload Me End IfEnd SubPrivate Sub Command3_Click() 39。 39。 JSHR amp。 Dim usename As String 39。MsgBox (成功添加新用戶！) 39。 End SubPrivate Sub GHPMCX_Click() = 歸還信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 歸還表 where 品名 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub GHSJCX_Click() = 歸還信息 Dim JCRQ As String Dim n As String JCRQ = InputBox(歸還日期，格式為：月/日/年 如：12/1/2011, 請輸入, 0) n = select * from 歸還表 where 歸還日期 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub GHZCX_Click() = 歸還信息 Dim ZB As String ZB = select * from 歸還表 = adCmdText = ZB