【正文】 購(gòu)員發(fā)出的采購(gòu)計(jì)劃，生成訂貨合同，并與訂貨單位發(fā)生交易行為。數(shù)據(jù)流來(lái)源：訂貨單位數(shù)據(jù)流去向：訂貨單位數(shù)據(jù)組成：計(jì)劃編碼+合同編碼+發(fā)出計(jì)劃時(shí)間+合同交易時(shí)間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（4） 數(shù)據(jù)流編號(hào)：D024數(shù)據(jù)流名稱：發(fā)貨單簡(jiǎn)述：供貨商向訂貨單位提供交易成功的發(fā)貨單，訂貨單位審核發(fā)貨單。數(shù)據(jù)流來(lái)源：審核發(fā)貨單數(shù)據(jù)流去向：訂貨單位數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品單價(jià)+商品數(shù)量+單位名稱+發(fā)出時(shí)間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（5） 數(shù)據(jù)流編號(hào)：D025數(shù)據(jù)流名稱：提貨通知單 簡(jiǎn)述：當(dāng)發(fā)貨單通過(guò)審核時(shí)，由采購(gòu)模塊向采購(gòu)員發(fā)出允許提貨通知。數(shù)據(jù)流來(lái)源：審核發(fā)貨單數(shù)據(jù)流去向：采購(gòu)員數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品單價(jià)+商品數(shù)量+單位名稱+發(fā)出時(shí)間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（6） 數(shù)據(jù)流編號(hào)：D026數(shù)據(jù)流名稱：入庫(kù)單簡(jiǎn)述：當(dāng)提貨通知單發(fā)出時(shí)，采購(gòu)員將商品入庫(kù)的信息發(fā)送給庫(kù)存管理，供庫(kù)存管理更新商品信息。數(shù)據(jù)流來(lái)源：提貨通知單數(shù)據(jù)流去向：庫(kù)供 數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品數(shù)量+發(fā)出時(shí)間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（四）處理邏輯的定義（1） 處理邏輯的編號(hào)：P021處理邏輯的名稱：審核缺貨通知單簡(jiǎn)述：負(fù)責(zé)缺貨信息的更新以及將采購(gòu)信息傳遞給采購(gòu)員。輸入的數(shù)據(jù)流：審核通過(guò)、審核不通過(guò)處理：通過(guò)缺貨審核提供的審核通過(guò)和審核不通過(guò)的信息來(lái)更新采購(gòu)信息，并 將更新的采購(gòu)信息傳遞給采購(gòu)員輸出的數(shù)據(jù)流：采購(gòu)計(jì)劃單處理頻率：1次/2天（2） 處理邏輯的編號(hào)：P022處理邏輯的名稱：制定訂貨計(jì)劃 簡(jiǎn)述：負(fù)責(zé)制定具體的訂貨計(jì)劃。輸入的數(shù)據(jù)流：訂貨計(jì)劃處理：根據(jù)采購(gòu)計(jì)劃單來(lái)制定該采購(gòu)計(jì)劃的具體貨物，制定出詳細(xì)的訂貨計(jì)劃。輸出的數(shù)據(jù)流：訂貨計(jì)劃處理頻率：1次/2天（3） 處理邏輯的編號(hào)：P023處理邏輯的名稱：發(fā)出訂貨單簡(jiǎn)述：供貨單位向訂貨單位發(fā)出訂貨單。輸入的數(shù)據(jù)流：訂貨計(jì)劃 處理：供貨單位根據(jù)訂貨單位的訂貨計(jì)劃確定具體的訂貨單。輸出的數(shù)據(jù)流：訂貨單處理頻率：1次/2天（4） 處理邏輯的編號(hào)：P024處理邏輯的名稱：審核發(fā)貨單簡(jiǎn)述：供貨單位想訂貨單位發(fā)出發(fā)貨單，供訂貨單位審批，負(fù)責(zé)審核此次發(fā)貨是否可行。輸入的數(shù)據(jù)流：提貨通知單處理：訂貨單位審批供貨單位的發(fā)貨單，對(duì)審批通過(guò)的發(fā)貨單采取向采購(gòu)員發(fā)出提貨通知單；對(duì)審批不通過(guò)的發(fā)貨單發(fā)出拒絕發(fā)貨通知。輸出的數(shù)據(jù)流：提貨通知單處理頻率：1次/2天（5） 處理邏輯的編號(hào)：P025處理邏輯的名稱：編制入庫(kù)單簡(jiǎn)述：采購(gòu)員向庫(kù)工發(fā)出入庫(kù)單。輸入的數(shù)據(jù)流：提貨通知單 處理：供貨單位根據(jù)供貨單位的提貨通知單編制入庫(kù)信息。輸出的數(shù)據(jù)流：入庫(kù)單處理頻率：1次/2天（五）數(shù)據(jù)存儲(chǔ)的定義（1）數(shù)據(jù)存儲(chǔ)的編號(hào)：F021數(shù)據(jù)存儲(chǔ)的名稱：訂貨計(jì)劃簡(jiǎn)述：記錄訂貨計(jì)劃的表格數(shù)據(jù)存儲(chǔ)的組成：計(jì)劃編碼+計(jì)劃信息關(guān)鍵字：計(jì)劃編碼相關(guān)聯(lián)的處理：P02P022（2）數(shù)據(jù)存儲(chǔ)的編號(hào)：F022 數(shù)據(jù)存儲(chǔ)的名稱：發(fā)貨單 簡(jiǎn)述：記錄訂貨單供采購(gòu)部門使用。 數(shù)據(jù)存儲(chǔ)的組成：貨單編碼+審核情況 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P02P024（3）數(shù)據(jù)存儲(chǔ)的編號(hào)：F023 數(shù)據(jù)存儲(chǔ)的名稱：提貨通知單簡(jiǎn)述：記錄通過(guò)審核的訂貨信息供采購(gòu)管理部門使用。數(shù)據(jù)存儲(chǔ)的組成：貨單編碼+貨單信息 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P024 （4）數(shù)據(jù)存儲(chǔ)的編號(hào)：F024 數(shù)據(jù)存儲(chǔ)的名稱：入庫(kù)單簡(jiǎn)述：記錄入庫(kù)信息供庫(kù)存管理部門使用。數(shù)據(jù)存儲(chǔ)的組成：貨單編碼+貨單信息 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P024九 系統(tǒng)代碼設(shè)計(jì)首先是登陸界面登陸界面代碼為：Option ExplicitPrivate Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim m_Admin As New clsAdminDim m_nErrCount As IntegerPrivate Sub Form_Load() m_nErrCount = 0End SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() 39。ToDo: 創(chuàng)建測(cè)試密碼是否正確 39。檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString() Pwd = RealString() 39。判斷密碼是否正確 If Not (Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount = 3 Then MsgBox 輸入密碼錯(cuò)誤次數(shù)太多，請(qǐng)稍后重試, vbExclamation End End If MsgBox 密碼錯(cuò)誤，再試一次！還有 amp。 3 m_nErrCount amp。 次機(jī)會(huì)，注意密碼區(qū)分大小寫, vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub進(jìn)貨信息執(zhí)行代碼Private Sub Form_Load() Dim opMerch As New clsOpMerch Dim opProvider As New clsOpProvider cboMerchName cboProviderEnd Sub39。確定按鈕Private Sub OKButton_Click() OK = True 39。檢測(cè)輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsBuy 39。保存用戶輸入 SaveValue End Sub銷售信息執(zhí)行代碼Private Sub Form_Load() Dim opMerch As New clsOpMerch cboMerchNameEnd SubPrivate Sub fraMerchType_DragDrop(Source As Control, X As Single, Y As Single)End Sub39。確定按鈕Private Sub OKButton_Click() OK = True 39。檢測(cè)輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsSell 39。保存用戶輸入 SaveValue End Sub商品信息執(zhí)行代碼Private Sub fraMerch_DragDrop(Source As Control, X As Single, Y As Single)End Sub39。確定按鈕Private Sub OKButton_Click() OK = True 39。檢測(cè)輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsMerch 39。保存用戶輸入 SaveValue End Sub供貨商信息執(zhí)行代碼rivate Sub fraMerchType_DragDrop(Source As Control, X As Single, Y As Single)End Sub39。確定按鈕Private Sub OKButton_Click() OK = True 39。檢測(cè)輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsProvider 39。保存用戶輸入 SaveValue End Sub所有權(quán)信息執(zhí)行代碼Private Sub Form_Load() 39。LoadResStrings Me = 版本 amp。 amp。 . amp。 amp。 . amp。 39。 = End SubPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 從注冊(cè)表獲得系統(tǒng)信息程序路徑\名稱... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 僅從注冊(cè)表獲得系統(tǒng)信息程序路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 驗(yàn)證已知的 32 位文件版本的存在 If (Dir(SysInfoPath amp。 \) ) Then SysInfoPath = SysInfoPath amp。 \ 39。 錯(cuò)誤 文件找不到... Else GoTo SysInfoErr End If 39。 錯(cuò)誤 注冊(cè)表項(xiàng)找不到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時(shí)系統(tǒng)信息不可用, vbOKOnlyEnd Sub 十 心得浩浩蕩蕩兩個(gè)禮拜，迷迷糊糊弄到現(xiàn)在，總算可以交出這一份雖然稚嫩但是凝聚了我們心血的作業(yè)。從開始的選題就一波三折，從酒店管理信息系統(tǒng)，到人力資源管理信息系統(tǒng)，好不容易做到了U/C矩陣，到了要階段性展示的時(shí)候，發(fā)現(xiàn)我們的業(yè)務(wù)流程圖有諸多問(wèn)題，信息庫(kù)的設(shè)計(jì)不好完善，各部門沒(méi)有有效地聯(lián)系起來(lái)。后來(lái)參看了一些前輩的作品，終于找到癥結(jié)所在——我們的選題過(guò)于空泛，各流程之間缺乏數(shù)據(jù)聯(lián)系，很多主觀因素。個(gè)風(fēng)和日麗的周末，我們把天生殘障的小幼苗推倒埋葬，重新培育一顆新樹苗。這一次我們選題就保守了，堅(jiān)決貫徹不要新的原則，所以部門簡(jiǎn)單、分工明確、在我們生活中扮演著重要角色的鮮果屋超市就成了我們的新目標(biāo)。因?yàn)橛辛饲耙淮蔚慕?jīng)驗(yàn)，這次的進(jìn)程就相對(duì)順利得多，在輕松的氛圍中，大家很快對(duì)我們所設(shè)計(jì)的目標(biāo)，背景，假設(shè)等達(dá)成共識(shí)。至于后面的流程圖，er圖及數(shù)據(jù)庫(kù)59 / 60