【正文】 InitGrid2End SubPrivate Sub JCCZ_Click() 39。 39。 39。 39。 JSHR amp。 RKRQ amp。否則標(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。PM = InputBox(產(chǎn)品名, 請(qǐng)輸入, 0) ZB = select * from 庫(kù)存表 39。.Columns(2).Caption = 學(xué)分 39。檢測(cè)密碼是否正確 Unload Me 39。添加 (品名) = Trim() (型號(hào)) = Trim() (數(shù)量) = Trim() (單位) = Trim() (經(jīng)手人) = Trim() (入庫(kù)日期) = Date (說(shuō)明) = 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 庫(kù)存表 where 品名=39。 PM amp。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。 amp。Trim() (型號(hào)) = Trim() 39。 amp。Trim() (數(shù)量) = Trim() (單位) = Trim() 39。 PM amp。 (品名) 39。If D(k) D(j) Then 39。+ + Val(i) + + Val(j) + + Val(k) = j 39。 k = k + 1 39。 i = i + 1 39。 i = 0 39。 39。 = And = Then MsgBox “品名”和“型號(hào)”不能同時(shí)為空，必須輸入其中一項(xiàng)!, , 提示信息! Exit Sub Else If = And = Then 39。 pm amp。End SubPrivate Sub Form_Load() Do Until (型號(hào)) (品名) (單位) LoopEnd Sub借出管理代碼： Private Sub Command1_Click() If = And = Then 39。 39。 = And = Then MsgBox “品名”和“型號(hào)”不能同時(shí)為空，必須輸入其中一項(xiàng)!, , 提示信息! Exit Sub Else If = And = Then 39。 = adCmdText = pms If Then With Form2 . .(品名) = Trim() .(型號(hào)) = Trim() .(數(shù)量) = Trim() .(單位) = Trim() .(說(shuō)明) = Trim() . End With Else m = (數(shù)量).Value If (型號(hào)) = Trim() Then (數(shù)量) = Val(m) + Val(n) End If End If Dim X As Integer X = MsgBox(產(chǎn)品入庫(kù)登記成功，是否繼續(xù)添加產(chǎn)品!, vbYesNo + vbQuestion + vbDefaultButton1, 提示信息!) If X = vbNo Then Unload Me 39。 39。 amp。 39。 XH amp。 XH amp。 pm amp。 39。 39。 39。 39。 = adCmdText = n Call InitGrid2End SubPrivate Sub GHXHCX_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 GHRCX_Click() = 歸還信息 Dim JCR As String Dim n As String JCR = InputBox(歸還人, 請(qǐng)輸入, 0) n = select * from 歸還表 where 歸還人 = 39。 = 退出 End If = False = True = = 39。 39。 CHKRQ amp。 39。當(dāng)標(biāo)簽右邊位置大于0時(shí)，標(biāo)簽向左移 80 Else 39。檢測(cè)密碼是否正確 39。提示用戶密碼不能為空 MsgBox 密碼不能為空!, , 登錄提示信息： Exit Sub End If If = Then MsgBox 請(qǐng)?jiān)俅屋斎朊艽a!, , 登錄提示信息： Exit Sub End If If Then MsgBox 兩次輸入的密碼不一致,請(qǐng)確認(rèn)!, , 登錄提示信息： = = Exit Sub Else 39。如果為“確定”則添加新用戶 If = Then 39。作者聯(lián)系方式：Email ：1355044347最終運(yùn)行效果打開軟件出現(xiàn)如下登錄界面輸入系統(tǒng)預(yù)設(shè)用戶名及密碼（ 1 1 ）單擊“登錄”或單擊“新用戶”添加新用戶進(jìn)入如下主界面：建立工程 創(chuàng)建標(biāo)準(zhǔn)EXE 按“打開” 添加MDI窗體——打開 編輯菜單在空白處右擊——點(diǎn)擊“菜單編輯器” 在“標(biāo)題”里輸入“系統(tǒng)”，在“名稱”里輸入“Sys”（注意此處不能為漢字）點(diǎn)擊“下一個(gè)”再點(diǎn)擊“ ”“確定”退到MDI界面點(diǎn)擊“系統(tǒng)”——“退出”如下，然后編寫代碼。代碼如下： Private Sub Exit_Click() EndEnd Sub數(shù)據(jù)庫(kù)的建立。提示用戶輸入用戶名 MsgBox 請(qǐng)輸入用戶名！, , 登錄信息提示： Exit Sub Else 39。添加新用戶 (用戶名) = Trim() (密碼) = Trim() MsgBox (添加新用戶成功，現(xiàn)在您可以登陸系統(tǒng)了！) = False = False = 登錄 = 退出 End If Else 39。Unload Me 39。否則標(biāo)簽從頭開始 = End If If + 0 Then 80 Else = End IfEnd Sub主界面窗體如下：代碼： Private Sub AddNew_Click() = True = FalseEnd SubPrivate Sub CHKPMCHX_Click() = 出庫(kù)信息 Dim pm As String Dim n As String pm = InputBox(產(chǎn)品名, 請(qǐng)輸入, 0) n = select * from 出庫(kù)表 where 品名 = 39。 = adCmdText = n End SubPrivate Sub CKCZ_Click() 39。 39。 = adCmdText = strS