【正文】 如下：代碼： Private Sub AddNew_Click() = True = FalseEnd SubPrivate Sub CHKPMCHX_Click() = 出庫信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 出庫表 where 品名 = 39。添加新用戶 (用戶名) = Trim() (密碼) = Trim() MsgBox (添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！) = False = False = 登錄 = 退出 End If Else 39。代碼如下： Private Sub Exit_Click() EndEnd Sub數(shù)據(jù)庫的建立。如果為“確定”則添加新用戶 If = Then 39。檢測密碼是否正確 39。 39。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub GHRCX_Click() = 歸還信息 Dim JCR As String Dim n As String JCR = InputBox(歸還人, 請輸入, 0) n = select * from 歸還表 where 歸還人 = 39。 39。 39。 pm amp。 XH amp。 amp。 = adCmdText = pms If Then With Form2 . .(品名) = Trim() .(型號) = Trim() .(數(shù)量) = Trim() .(單位) = Trim() .(說明) = Trim() . End With Else m = (數(shù)量).Value If (型號) = Trim() Then (數(shù)量) = Val(m) + Val(n) End If End If Dim X As Integer X = MsgBox(產(chǎn)品入庫登記成功，是否繼續(xù)添加產(chǎn)品!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息!) If X = vbNo Then Unload Me 39。 39。 pm amp。 39。 i = i + 1 39。+ + Val(i) + + Val(j) + + Val(k) = j 39。 (品名) 39。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。Trim() (型號) = Trim() 39。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。添加 (品名) = Trim() (型號) = Trim() (數(shù)量) = Trim() (單位) = 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。.Columns(2).Caption = 學(xué)分 39。否則標(biāo)簽從頭開始 = End If If + 0 Then 80 Else = End If If + 0 Then 80 Else = End If If + 0 Then 80 Else = End IfEnd SubPrivate Sub XGMM_Click() 39。 JSHR amp。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub GHZCX_Click() = 歸還信息 Dim ZB As String ZB = select * from 歸還表 = adCmdText = ZB Call InitGrid2End SubPrivate Sub JCCZ_Click() 39。 End SubPrivate Sub GHPMCX_Click() = 歸還信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請輸入, 0) n = select * from 歸還表 where 品名 = 39。 Dim usename As String 39。 39。 amp。登錄界面窗口的建立 最終界面如下：Adodc1的添加過程為：單擊“工程”——“部件”出現(xiàn)下圖所示，選擇“控件”下的“Microsoft ADO Data Control （OLEDB）” 單擊“確定”在工具欄中會出現(xiàn)“”圖標(biāo)，單擊它并拖動(dòng)到相應(yīng)位置即可。其它元件不在一一說明。 strSno amp。 = 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。檢測用戶名是否已經(jīng)存在 Dim strS As String usename = Trim() strS = select * from 用戶登錄信息表 where 用戶名=39。 amp。 End SubPrivate Sub JCHPMCHX_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。 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。 .Columns(3).Caption = 成績 39。 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。Trim() (數(shù)量) = Trim() (單位) = Trim() 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。 (型號)