采購管理信息系統(tǒng)設(shè)計(jì)(參考版)
2025-05-18 02:56本頁面
【正文】 我相信，這套采購供應(yīng) 管理 信息 系統(tǒng) 經(jīng)過進(jìn)一步的改善和完善，一定會(huì)在 企事業(yè)單位 得到很好的應(yīng)用！ 沈陽理工大學(xué)課程實(shí)踐（論文） 29 參考文獻(xiàn) [1] 金敏力 .管理信息系統(tǒng) .科學(xué)出版社， 2021 [2] 伍俊良 .管理信息系統(tǒng)開發(fā)與應(yīng)用 .科學(xué)出版社 ， 2021(7) [3] 黃梯云 .管理信息系統(tǒng) .高等教育出版社 ， 2021(5) [4] 張朝昆、施麗娜 .Visual Basic 數(shù)據(jù)庫開發(fā)基 礎(chǔ)與應(yīng)用 .人民郵電出版社 ， 2021 [5] 何玉潔 .數(shù)據(jù)庫原理與應(yīng)用教程 .機(jī)械工業(yè)出版社 ， 2021(12) [6] 鄧晶 .管理信息系統(tǒng)及應(yīng)用實(shí)例 .中國電力出版社 ， 2021(3) 。開闊了視野，增長了知識(shí)，積累了經(jīng)驗(yàn)。這些都有待于進(jìn)一步的改善。 在整個(gè)課程設(shè)計(jì)階段的工作和課程設(shè)計(jì)報(bào)告的寫作過程的經(jīng)歷將會(huì)使我終生受益，并對(duì)我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。系統(tǒng)設(shè)計(jì)為 整個(gè)程序構(gòu)建了骨架 ,各個(gè)功能模塊實(shí)現(xiàn)各個(gè)細(xì)節(jié)部分。 寫完這個(gè)課程設(shè)計(jì)報(bào)告，一個(gè)完整的采購供應(yīng)管理系統(tǒng)就創(chuàng)建完畢了。 主要功能有：數(shù)據(jù)入庫、查詢、修改和刪除等。在本系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的過程中，主要講述了采購供應(yīng)管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)部分，包括功能模塊設(shè)計(jì)、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)等。 (密碼 ) = Text2 MsgBox 修改密碼成功！ End If Text1 = Text2 = 沈陽理工大學(xué)課程實(shí)踐（論文） 27 End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() = 1 End Sub 沈陽理工大學(xué)課程實(shí)踐（論文） 28 結(jié)束語 經(jīng)過幾個(gè)星期的不斷實(shí)踐與探索 ,采購供應(yīng)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)己經(jīng)初步完成 ,基本上達(dá)到了預(yù)期的設(shè)計(jì)要求和目的。如果密碼確認(rèn)不同則提示 兩次密碼不同，請(qǐng)從新輸入！ 沈陽理工大學(xué)課程實(shí)踐（論文） 26 圖 49 密碼修改 具體代碼如下： Private Sub Command1_Click() If Text1 = Or Text3 = Or Not IsNumeric(Text2) Then MsgBox 請(qǐng)完整信息，密碼為數(shù)字！ ElseIf Text1 Text2 Then MsgBox 兩次密碼不同，請(qǐng)從新輸入！ Text1 = Text2 = Else = 用戶名 =39。 沈陽理工大學(xué)課程實(shí)踐（論文） 25 圖 57 采購查詢 具體代碼如下： Private Sub Command1_Click() = 數(shù)量 50 End Sub Private Sub Command2_Click() End Sub 密碼修改 本功能允許使用者對(duì)密碼進(jìn)行修改，取保系統(tǒng)的安全與方便。 If (是否付款 ) = 是 Then = False Else = True End If End If End If End Sub 采購查詢 采購查詢是一個(gè)有限制條件的查詢窗口，也就是說由用戶自定義最低的庫存數(shù)量，然后可以方便的讓操作人員進(jìn)行查詢。 If Then MsgBox 無該訂單 ! Else = 訂單號(hào) = + 39。 amp。 39。 + + 39。輸入訂單號(hào)對(duì)要付款的訂單進(jìn)行查詢，如果訂單號(hào)存在且其“是否付款”屬性為否，則確認(rèn)付款，并將信息保存到倉庫管理表中完成付款交易。 39。 amp。 沈陽理工大學(xué)課程實(shí)踐（論文） 21 圖 55 倉庫二的查詢 具體代碼為： Private Sub Text6_Change() If Not IsNumeric() Or Not IsNumeric() Then MsgBox 請(qǐng)?jiān)趩蝺r(jià)和數(shù)量中輸入數(shù)字 Else Text6 = Val(Text4) * Val(Text5) End If End Sub Private Sub Command1_Click() If = Or = Then MsgBox 請(qǐng)輸入完整信息，供應(yīng)商與商品名稱！ , vbOKOnly + vbExclamation, 警告！ Else 訂單號(hào) = amp。填入相關(guān)商品信息，會(huì)將相關(guān)商品信息。 + + 39。 訂單號(hào) = amp。 (訂單號(hào)沈陽理工大學(xué)課程實(shí)踐（論文） 19 ) If = True Then (名稱 ) = (名稱 ) (數(shù)量 ) = (數(shù)量 ) (訂單號(hào) ) = (訂單號(hào) ) (單價(jià) ) = (單價(jià) ) (金額 ) = (金額 ) Else (數(shù)量 ) = ((數(shù)量 ) + (數(shù)量 )) End If
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1