【正文】 End If j = j + 1 End If = s 39。k = 0 39。 39。where 品名 = 39。添加 (品名) = Trim() 39。 = adCmdText = pms m = (數(shù)量).Value If (型號) = Trim() Then (數(shù)量) = Val(m) Val(n) End If Dim X As Integer X = MsgBox(產(chǎn)品借出登記成功，是否繼續(xù)添加產(chǎn)品!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息!) If X = vbNo Then Unload Me End If = = = = = = = = 借出信息 Dim ZB As String ZB = select * from 借出表 39。 = Then MsgBox 請輸入產(chǎn)品“數(shù)量”或“單位”之一!, , 提示信息! Exit Sub End If If = Then MsgBox 請經(jīng)手人簽名!, vbCritical, 提示信息! Exit Sub End If 39。 End If = = = = = = = = 出庫信息 Dim ZB As String ZB = select * from 出庫表 39。添加 (品名) = Trim() 39。where 品名 = 39。 End If End IfEnd SubPrivate Sub Command2_Click() Unload Me 39。 39。.Columns(0).Caption = 學(xué)號 39。 = adCmdText = n End If Call InitGrid0End SubPrivate Sub ZB_Click() = 庫存信息 Dim ZB As String 39。 = adCmdText = n End If Call InitGrid1End SubPrivate Sub RKZCX_Click() = 入庫信息 Dim ZB As String ZB = select * from 入庫表 = adCmdText = ZB Call InitGrid1End SubPrivate Sub Timer1_Timer() If + 0 Then 39。 = adCmdText = n End If Call InitGrid1End SubPrivate Sub RKSHJ_Click() = 入庫信息 Dim RKRQ As String Dim n As String RKRQ = InputBox(入庫日期，格式為：月/日/年 如：12/1/2011, 請輸入, 0) n = select * from 入庫表 where 入庫日期 = 39。 End SubPrivate Sub RKJSHR_Click() = 入庫信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請輸入, 0) n = select * from 入庫表 where 經(jīng)手人 = 39。 amp。 amp。 amp。 XH amp。 JCR amp。End SubPrivate Sub Command2_Click() = False = TrueEnd SubPrivate Sub CXDL_Click() 39。提示用戶密碼不能為空 MsgBox 密碼不能為空!, , 登錄提示信息： Exit Sub End If If = Then MsgBox 請?jiān)俅屋斎朊艽a!, , 登錄提示信息： Exit Sub End If If Then MsgBox 兩次輸入的密碼不一致,請確認(rèn)!, , 登錄提示信息： = = Exit Sub Else 39。 = adCmdText = n Call InitGrid1End SubPrivate Sub CKZCX_Click() = 出庫信息 Dim ZB As String ZB = select * from 出庫表 = adCmdText = ZB Call InitGrid1End SubPrivate Sub Command1_Click() If = Then 39。 End SubPrivate Sub CKJSHR_Click() = 出庫信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請輸入, 0) n = select * from 出庫表 where 經(jīng)手人 = 39。 amp。MsgBox 登陸成功！, , 登錄提示信息： Else MsgBox 密碼不正確，請重新輸入！, , 登錄提示信息： = End If End IfEnd SubPrivate Sub Command2_Click() 39?！暗卿洝卑粹o，用戶登錄 Dim strSno As String Dim strSelect As String strSno = Trim() 39。 Dim usename As String 39。如下建立一個“用戶表”的數(shù)據(jù)庫，用來存放用戶信息及一些出入庫管理信息。此文可作供初學(xué)者們學(xué)習(xí)交流?！暗卿洝薄ⅰ按_定”按鈕 If = 確定 And = 取消 Then 39。 = adCmdText = strS If = False Then MsgBox 您輸入的用戶已存在!, , 登錄提示信息： = = = Exit Sub End If End If If = Then 39。 = adCmdText = strSelect If = True Then MsgBox 用戶名不存在，請重新輸入！, , 登錄提示信息： = = Exit Sub End If If (密碼) = Trim() Then 39。顯示向左移動的歡迎字幕 If + 0 Then 39。 XH amp。 amp。 usename amp。 = 登錄 39。 39。 39。 pm amp。 JCR amp。 JSHR amp。 pm amp。 amp。 amp。 amp。 PM amp。檢測用戶名是否存在 strSelect = select 密碼 from 用戶登錄信息表 where 用戶名 = 39。 name amp。 39。End Sub出庫管理代碼： Private Sub Command1_Click() If = And = Then 39。 pm amp。 = adCmdText = ZB End SubPrivate Sub Command2_Click() = = = = = = = End SubPrivate Sub Command3_Click() Unload Me 39