生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)課程設(shè)計(jì)(存儲(chǔ)版)
【正文】 13__指導(dǎo)教師簽字：_______________ 系主任簽字：_____________設(shè)計(jì)題目：生產(chǎn)企業(yè)內(nèi)部物資管理信息系統(tǒng)專 業(yè)：物流工程設(shè) 計(jì) 人：學(xué) 號(hào)、項(xiàng)目研究目的和意義 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)物資設(shè)備管理系統(tǒng)化、規(guī)范化和自動(dòng)化，從而達(dá)到提高單位工作效率的目的。l 物資金額簡(jiǎn)單的統(tǒng)計(jì)查詢、系統(tǒng)功能設(shè)計(jì)系統(tǒng)管理物資基本信息管理物資出庫(kù)信息管理物資入庫(kù)信息管理物資余額信息管理用戶管理密碼管理物資基本信息添加物資基本信息查詢物資基本信息修改入庫(kù)物資信息添加入庫(kù)物資信息修改入庫(kù)物資信息查詢出庫(kù)物資信息添加出庫(kù)物資信息修改出庫(kù)物資信息查詢物資余額信息查詢物資余額信息瀏覽物資管理信息系統(tǒng)三、 系統(tǒng)設(shè)計(jì)、系統(tǒng)詳細(xì)設(shè)計(jì)各個(gè)實(shí)體具體的描述ER圖如下：物資基本信息實(shí)體計(jì)量單位物資編號(hào)物資名稱物資規(guī)格物資基本信息實(shí)體ER圖物資入庫(kù)信息實(shí)體保管人物資基本信息經(jīng)辦人入庫(kù)時(shí)間物資入庫(kù)信息實(shí)體ER圖物資出庫(kù)信息實(shí)體保管人物資基本信息經(jīng)辦人出庫(kù)時(shí)間物資出庫(kù)信息實(shí)體ER圖物資剩余信息實(shí)體倉(cāng)庫(kù)物資基本信息數(shù)量金額物資余額信息實(shí)體ER圖、數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)在上面的實(shí)體以及實(shí)體之間關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫(kù)中的表格以及各個(gè)表格之間的關(guān)系。若沒有找到符合where條件的記錄MsgBox 用戶名錯(cuò)誤,重新輸入, vbExclamation, 警告 = ElseIf (密碼) = Text2 ThenUnload MeElseMsgBox 密碼錯(cuò)誤,重新輸入, vbExclamation, 警告 = End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub cmdCancel_Click()Unload MeEnd Sub（2）、首頁(yè)界面設(shè)計(jì)及代碼：Private Sub clxsxxtj_Click()銷售額統(tǒng)計(jì)End SubPrivate Sub gccbtj_Click()End SubPrivate Sub Picture1_Click()End SubPrivate Sub sywzxxcx_Click()End SubPrivate Sub tc_Click()Unload MeEnd SubPrivate Sub wzrkxxcxcx_Click()End SubPrivate Sub wzrkxxtj_Click()End SubPrivate Sub wzckxxcx_Click()End SubPrivate Sub wzckxxtjyxg_Click()End SubPrivate Sub wzrkxxcx_Click()End SubPrivate Sub wzrkxxtjyxg_Click()End SubPrivate Sub wzxxsc_Click()End SubPrivate Sub wzxxtj_Click()End SubPrivate Sub wzxxxg_Click()End SubPrivate Sub xsetj_Click()End Sub（3）、物資信息添加設(shè)計(jì)及代碼 ：Private Sub cmdedit_Click() = True = True = False = False = TrueEnd SubPrivate Sub CmdAdd_Click() = False = False = True = TrueEnd SubPrivate Sub Cmddel_Click()X = MsgBox(確實(shí)要?jiǎng)h除此條記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If X = vbYes Then If Then End
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1