【正文】 購員發(fā)出的采購計劃，生成訂貨合同，并與訂貨單位發(fā)生交易行為。數(shù)據(jù)流來源：訂貨單位數(shù)據(jù)流去向：訂貨單位數(shù)據(jù)組成：計劃編碼+合同編碼+發(fā)出計劃時間+合同交易時間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（4） 數(shù)據(jù)流編號：D024數(shù)據(jù)流名稱：發(fā)貨單簡述：供貨商向訂貨單位提供交易成功的發(fā)貨單，訂貨單位審核發(fā)貨單。數(shù)據(jù)流來源：審核發(fā)貨單數(shù)據(jù)流去向：訂貨單位數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品單價+商品數(shù)量+單位名稱+發(fā)出時間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（5） 數(shù)據(jù)流編號：D025數(shù)據(jù)流名稱：提貨通知單 簡述：當(dāng)發(fā)貨單通過審核時，由采購模塊向采購員發(fā)出允許提貨通知。數(shù)據(jù)流來源：審核發(fā)貨單數(shù)據(jù)流去向：采購員數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品單價+商品數(shù)量+單位名稱+發(fā)出時間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（6） 數(shù)據(jù)流編號：D026數(shù)據(jù)流名稱：入庫單簡述：當(dāng)提貨通知單發(fā)出時，采購員將商品入庫的信息發(fā)送給庫存管理，供庫存管理更新商品信息。數(shù)據(jù)流來源：提貨通知單數(shù)據(jù)流去向：庫供 數(shù)據(jù)組成：貨單編碼+商品編碼+商品名稱+商品數(shù)量+發(fā)出時間數(shù)據(jù)流量：1次/7天高峰流量：1次/2天（四）處理邏輯的定義（1） 處理邏輯的編號：P021處理邏輯的名稱：審核缺貨通知單簡述：負(fù)責(zé)缺貨信息的更新以及將采購信息傳遞給采購員。輸入的數(shù)據(jù)流：審核通過、審核不通過處理：通過缺貨審核提供的審核通過和審核不通過的信息來更新采購信息，并 將更新的采購信息傳遞給采購員輸出的數(shù)據(jù)流：采購計劃單處理頻率：1次/2天（2） 處理邏輯的編號：P022處理邏輯的名稱：制定訂貨計劃 簡述：負(fù)責(zé)制定具體的訂貨計劃。輸入的數(shù)據(jù)流：訂貨計劃處理：根據(jù)采購計劃單來制定該采購計劃的具體貨物，制定出詳細(xì)的訂貨計劃。輸出的數(shù)據(jù)流：訂貨計劃處理頻率：1次/2天（3） 處理邏輯的編號：P023處理邏輯的名稱：發(fā)出訂貨單簡述：供貨單位向訂貨單位發(fā)出訂貨單。輸入的數(shù)據(jù)流：訂貨計劃 處理：供貨單位根據(jù)訂貨單位的訂貨計劃確定具體的訂貨單。輸出的數(shù)據(jù)流：訂貨單處理頻率：1次/2天（4） 處理邏輯的編號：P024處理邏輯的名稱：審核發(fā)貨單簡述：供貨單位想訂貨單位發(fā)出發(fā)貨單，供訂貨單位審批，負(fù)責(zé)審核此次發(fā)貨是否可行。輸入的數(shù)據(jù)流：提貨通知單處理：訂貨單位審批供貨單位的發(fā)貨單，對審批通過的發(fā)貨單采取向采購員發(fā)出提貨通知單；對審批不通過的發(fā)貨單發(fā)出拒絕發(fā)貨通知。輸出的數(shù)據(jù)流：提貨通知單處理頻率：1次/2天（5） 處理邏輯的編號：P025處理邏輯的名稱：編制入庫單簡述：采購員向庫工發(fā)出入庫單。輸入的數(shù)據(jù)流：提貨通知單 處理：供貨單位根據(jù)供貨單位的提貨通知單編制入庫信息。輸出的數(shù)據(jù)流：入庫單處理頻率：1次/2天（五）數(shù)據(jù)存儲的定義（1）數(shù)據(jù)存儲的編號：F021數(shù)據(jù)存儲的名稱：訂貨計劃簡述：記錄訂貨計劃的表格數(shù)據(jù)存儲的組成：計劃編碼+計劃信息關(guān)鍵字：計劃編碼相關(guān)聯(lián)的處理：P02P022（2）數(shù)據(jù)存儲的編號：F022 數(shù)據(jù)存儲的名稱：發(fā)貨單 簡述：記錄訂貨單供采購部門使用。 數(shù)據(jù)存儲的組成：貨單編碼+審核情況 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P02P024（3）數(shù)據(jù)存儲的編號：F023 數(shù)據(jù)存儲的名稱：提貨通知單簡述：記錄通過審核的訂貨信息供采購管理部門使用。數(shù)據(jù)存儲的組成：貨單編碼+貨單信息 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P024 （4）數(shù)據(jù)存儲的編號：F024 數(shù)據(jù)存儲的名稱：入庫單簡述：記錄入庫信息供庫存管理部門使用。數(shù)據(jù)存儲的組成：貨單編碼+貨單信息 關(guān)鍵字：貨單編碼 相關(guān)聯(lián)的處理：P02P024九 系統(tǒng)代碼設(shè)計首先是登陸界面登陸界面代碼為：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)建測試密碼是否正確 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 輸入密碼錯誤次數(shù)太多，請稍后重試, vbExclamation End End If MsgBox 密碼錯誤，再試一次！還有 amp。 3 m_nErrCount amp。 次機(jī)會，注意密碼區(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。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 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。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 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。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 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。檢測輸入有效性 If Not CheckValid Then Exit Sub 39。如果是新增狀態(tài)，則初始化一個數(shù)據(jù)對象 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。 從注冊表獲得系統(tǒng)信息程序路徑\名稱... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 僅從注冊表獲得系統(tǒng)信息程序路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 驗(yàn)證已知的 32 位文件版本的存在 If (Dir(SysInfoPath amp。 \) ) Then SysInfoPath = SysInfoPath amp。 \ 39。 錯誤 文件找不到... Else GoTo SysInfoErr End If 39。 錯誤 注冊表項(xiàng)找不到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時系統(tǒng)信息不可用, vbOKOnlyEnd Sub 十 心得浩浩蕩蕩兩個禮拜，迷迷糊糊弄到現(xiàn)在，總算可以交出這一份雖然稚嫩但是凝聚了我們心血的作業(yè)。從開始的選題就一波三折，從酒店管理信息系統(tǒng)，到人力資源管理信息系統(tǒng)，好不容易做到了U/C矩陣，到了要階段性展示的時候，發(fā)現(xiàn)我們的業(yè)務(wù)流程圖有諸多問題，信息庫的設(shè)計不好完善，各部門沒有有效地聯(lián)系起來。后來參看了一些前輩的作品，終于找到癥結(jié)所在——我們的選題過于空泛，各流程之間缺乏數(shù)據(jù)聯(lián)系，很多主觀因素。個風(fēng)和日麗的周末，我們把天生殘障的小幼苗推倒埋葬，重新培育一顆新樹苗。這一次我們選題就保守了，堅決貫徹不要新的原則，所以部門簡單、分工明確、在我們生活中扮演著重要角色的鮮果屋超市就成了我們的新目標(biāo)。因?yàn)橛辛饲耙淮蔚慕?jīng)驗(yàn)，這次的進(jìn)程就相對順利得多，在輕松的氛圍中，大家很快對我們所設(shè)計的目標(biāo)，背景，假設(shè)等達(dá)成共識。至于后面的流程圖，er圖及數(shù)據(jù)庫59 / 60