【正文】 strS If = False Then MsgBox 您輸入的用戶(hù)已存在!, , 登錄提示信息： = = = Exit Sub End If End If If = Then 39。 = 39。 amp。 amp。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCHXHCHX_Click() = 借出信息 Dim XH As String Dim n As String XH = InputBox(產(chǎn)品型號(hào), 請(qǐng)輸入, 0) n = select * from 借出表 where 型號(hào) = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JCSHJCX_Click() = 借出信息 Dim JCRQ As String Dim n As String JCRQ = InputBox(借出日期，格式為：月/日/年 如：12/1/2011, 請(qǐng)輸入, 0) n = select * from 借出表 where 借出日期 = 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub JSHRCX_Click() = 借出信息 Dim JSHR As String Dim n As String JSHR = InputBox(經(jīng)手人, 請(qǐng)輸入, 0) n = select * from 借出表 where 經(jīng)手人 = 39。 = adCmdText = n Call InitGrid0End SubPrivate Sub RKCZ_Click() 39。 39。 39。 39。 = adCmdText = ZB Call InitGrid0End SubPrivate Sub InitGrid0() With DataGrid1 .Columns(0).Width = 1600 .Columns(1).Width = 2200 .Columns(2).Width = 2200 .Columns(3).Width = 1000 .Columns(4).Width = 1000 .Columns(5).Width = 4000 End WithEnd SubPrivate Sub InitGrid1() With DataGrid1 .Columns(0).Width = 800 .Columns(1).Width = 1600 .Columns(2).Width = 1600 .Columns(3).Width = 800 .Columns(4).Width = 800 .Columns(5).Width = 1000 .Columns(6).Width = 800 .Columns(7).Width = 4000 End WithEnd SubPrivate Sub InitGrid2() With DataGrid1 39。 strSno amp。 = adCmdText = names If = Then MsgBox 請(qǐng)輸入舊密碼!, , 信息提示！ Exit Sub End If If (密碼) Trim() Then MsgBox 舊密碼不正確，請(qǐng)確認(rèn)!, , 信息提示！ = Exit Sub End If If = Then MsgBox 請(qǐng)輸入新密碼!, , 信息提示！ Exit Sub End If If = Then MsgBox 請(qǐng)?jiān)俅屋斎胄旅艽a!, , 信息提示！ Exit Sub End If If Trim() Trim() Then MsgBox 兩次輸入的新密碼不一致!, , 信息提示！ = = Exit Sub Else (密碼) = Trim() MsgBox (密碼修改成功！) Unload Me 39。 Else = = = = = = = End If = 入庫(kù)信息 Dim ZB As String ZB = select * from 入庫(kù)表 39。 = Then MsgBox 請(qǐng)輸入產(chǎn)品“數(shù)量”或“單位”之一!, , 提示信息! Exit Sub End If If = Then MsgBox 請(qǐng)經(jīng)手人簽名!, vbCritical, 提示信息! Exit Sub End If 39。 = adCmdText = pms m = (數(shù)量).Value If (型號(hào)) = Trim() Then (數(shù)量) = Val(m) Val(n) End If Dim X As Integer X = MsgBox(產(chǎn)品出庫(kù)登記成功，是否繼續(xù)添加產(chǎn)品!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息!) If X = vbNo Then Unload Me 39。 = And = Then MsgBox “品名”和“型號(hào)”不能同時(shí)為空，必須輸入其中一項(xiàng)!, , 提示信息! Exit Sub Else If = And = Then 39。 39。 = Then MsgBox 請(qǐng)輸入產(chǎn)品“數(shù)量”或“單位”之一!, , 提示信息! Exit Sub End If If = Then MsgBox 請(qǐng)經(jīng)手人簽名!, vbCritical, 提示信息! Exit Sub End If If = Then MsgBox 請(qǐng)輸入歸還人姓名!, vbCritical, 提示信息! Exit Sub End If 39。 = adCmdText = pms m = (數(shù)量).Value If (型號(hào)) = 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。 39。 Loop Call pmEnd SubPrivate Sub pm() Dim i As Variant Dim j As Variant Dim k As Variant Dim a As Variant Dim b As Variant Dim c As Variant Dim s As Variant Dim D As Variant i = 0 j = 0 Do Until a = a + , + (品名) b = b + , + (型號(hào)) b = b + , + (單位) i = i + 1 Loop D = Split(a, ,) If j i Then s = D(2) s 39。End If 39。a + , + D(2) + D(1) 39。If k j And D(k) D(j) Then 39。 Do Until 39。 amp。Trim() (型號(hào)) = Trim() 39。where