某公司入庫信息管理系統(tǒng)設(shè)計方案-資料下載頁
2025-04-30 23:15本頁面
【正文】 用戶名) = (密碼) = MsgBox 新用戶已建好!, vbOKOnly + vbExclamation, 提示 = = End IfEnd SubPrivate Sub Command2_Click()End Sub入庫管理系統(tǒng)主界面Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()End SubPrivate Sub Command7_Click()End Sub入庫單管理Private Sub 查詢_Click()Dim a As Stringa = (入庫單號=39。 amp。 a amp。 39。)If = True Then = MsgBox 入庫單號不存在，請重新輸入！, , 提示Else = (物料名稱) = (物料數(shù)量) = (物料單價) = (物料金額) = (采購計劃單) = (采購員) = (是否交貨) = (倉庫)End IfEnd SubPrivate Sub 返回_Click()End SubPrivate Sub 刪除_Click()End SubPrivate Sub 新建_Click()If = ThenMsgBox 請輸入完整信息，輸入入庫單號 ！, vbOKOnly + vbExclamation, 警告！Else(入庫單號) = (采購計劃單) = (采購員) = (物料名稱) = (物料數(shù)量) = (物料單價) = (物料金額) = (是否交貨) = (倉庫) = MsgBox 已保存入庫單！, vbOKOnly + vbExclamation, 提示 = = = = = = = = End IfEnd SubPrivate Sub 修改_Click() (入庫單號=39。 amp。 amp。 39。)If = True ThenMsgBox 無該訂單！請從新輸入Else = (入庫單號) = (采購計劃單) = (采購員) = (物料名稱) = (物料數(shù)量) = (物料單價) = (物料金額) = (是否交貨) = (倉庫)End IfEnd Sub入庫驗收管理Private Sub 查詢1_Click()Dim a As Stringa = (入庫單號=39。 amp。 a amp。 39。)If = True Then = MsgBox 入庫單號不存在，請重新輸入！, , 提示Else = (物料檢驗單號) = (物料是否合格) = (質(zhì)檢員)End IfEnd SubPrivate Sub 查詢2_Click(Index As Integer)Dim a As Stringa = (供應(yīng)商號=39。 amp。 a amp。 39。)If = True Then = MsgBox 供應(yīng)商號不存在，請重新輸入！, , 提示Else = (供應(yīng)商名稱) = (物料是否合格) = (評估結(jié)果)End IfEnd SubPrivate Sub 返回_Click()End SubPrivate Sub 刪除_Click()End SubPrivate Sub 新建_Click()If = ThenMsgBox 請輸入完整信息，輸入入庫單號 ！, vbOKOnly + vbExclamation, 警告！Else(物料檢驗單號) = (物料是否合格) = (質(zhì)檢員) = MsgBox 已保存供應(yīng)商信息！, vbOKOnly + vbExclamation, 提示 = = = End SubPrivate Sub 修改_Click() (入庫單號=39。 amp。 amp。 39。)If = True ThenMsgBox 無該入庫單Else = (物料檢驗單號) = (物料是否合格) = (質(zhì)檢)End IfEnd Sub庫存管理Private Sub 查詢_Click() (收貨單號=39。 amp。 (收貨單號) amp。 39。)If = True ThenMsgBox 是否交易入庫, vbOKOnly(物料名稱) = (物料名稱)(物料數(shù)量) = (物料數(shù)量)(收貨單號) = (收貨單號)(物料單價) = (物料單價)(物料金額) = (物料金額)(倉庫) = (倉庫)Else(物料數(shù)量) = ((物料數(shù)量) + (物料數(shù)量))End IfEnd SubPrivate Sub 返回_Click()End SubPrivate Sub 刪除_Click()End IfEnd Sub收貨單查詢管理Private Sub 查詢_Click()Dim a As Stringa = (收貨單號=39。 amp。 a amp。 39。)If = True Then = MsgBox 收貨單號不存在，請重新輸入！, , 提示Else = (物料名稱) = (物料數(shù)量) = (物料單價) = (供應(yīng)商號) = (倉管員) = (訂單時間) = (倉庫)End IfEnd SubPrivate Sub 返回_Click()End Sub供應(yīng)商管理Private Sub 返回_Click()End SubPrivate Sub 刪除_Click()End SubPrivate Sub 修改_Click() (供應(yīng)商號=39。 amp。 amp。 39。)If = True ThenMsgBox 無該供應(yīng)商Else = (供應(yīng)商號) = (名稱) = (地址) = (聯(lián)系電話)(等級) = End IfEnd SubPrivate Sub 新建_Click()If = ThenMsgBox 請輸入完整信息，輸入供應(yīng)商號 ！, vbOKOnly + vbExclamation, 警告！Else(供應(yīng)商號) = (名稱) = (地址) = (聯(lián)系電話) = (等級) = MsgBox 已保存供應(yīng)商信息！, vbOKOnly + vbExclamation, 提示 = = = = End IfEnd Sub用戶信息管理Private Sub 返回_Click()End SubPrivate Sub 確認_Click()If 用戶名 = Or 新密碼 = Or Not IsNumeric(密碼確認) ThenMsgBox 請完整信息，密碼為數(shù)字！ElseIf 新密碼 密碼確認 ThenMsgBox 兩次密碼不同，請從新輸入！新密碼 = 密碼確認 = Else = 用戶名=39。 + + 39。(密碼) = MsgBox 修改密碼成功!, vbOKOnly + vbExclamation, 提示用戶名 = 新密碼 = 密碼確認 = End Sub成績評定表評定項目內(nèi)容滿分評分學(xué)習(xí)態(tài)度學(xué)習(xí)認真，態(tài)度端正，遵守紀律，嚴格保證設(shè)計時間并按任務(wù)書中規(guī)定的進度開展各項工作。10程序設(shè)計結(jié)合文本內(nèi)容來設(shè)計程序。程序界面友好，能夠建立表間聯(lián)系。具有實際動手能力、分析能力和計算機應(yīng)用能力。40文本質(zhì)量結(jié)構(gòu)嚴謹，層次清晰，語言準確，文字流暢，完全符合規(guī)范化要求，書寫工整，圖表清晰，分析透徹。文本上交及時50總成績100教師評語：簽名：日期：
公司管理相關(guān)推薦
鄂ICP備17016276號-1