【正文】 ).Width = 1000 .Columns(6).Width = 800 .Columns(7).Width = 4000 End WithEnd SubPrivate Sub InitGrid2() With DataGrid1 39。 .Columns(3).Caption = 成績 39。 strSno amp。MsgBox 登陸成功！, , 登錄提示信息： Else MsgBox 密碼不正確，請(qǐng)重新輸入！, , 登錄提示信息： = End IfEnd SubPrivate Sub Command2_Click() Unload Me End Sub修改用戶密碼界面代碼： Private Sub Command1_Click() If Trim() Then MsgBox 用戶名不正確，請(qǐng)確認(rèn)！, , 信息提示！ = Exit Sub Else Dim name As String Dim names As String name = Trim() names = select * from 用戶登錄信息表 where 用戶名=39。 = 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。 amp。 Else = = = = = = = End If = 入庫信息 Dim ZB As String ZB = select * from 入庫表 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 39。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。 = 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 39。 PM amp。 = And = Then MsgBox “品名”和“型號(hào)”不能同時(shí)為空，必須輸入其中一項(xiàng)!, , 提示信息! Exit Sub Else If = And = Then 39。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。 39。 PM amp。 = 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。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。 = 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。 39。 (型號(hào)) 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。 D(j) 39。End If 39。 D(1)End Sub。a + , + D(2) + D(1) 39。 Else 39。If k j And D(k) D(j) Then 39。 39。 Do Until 39。 Dim i As String 39。 amp。 pm amp。Trim() (型號(hào)) = Trim() 39。 = adCmdText = ZB End SubPrivate Sub Command2_Click() = = = = = = = End SubPrivate Sub Command3_Click() Unload Me End SubPrivate Sub Form_Load() Do Until (品名) (型號(hào)) (單位) LoopEnd Sub歸還管理代碼： Private Sub Command1_Click() If = And = Then 39。where 品名 =