【正文】 ，對初始原型系統(tǒng)進行需求 迭代，不斷修山東交通學院課程設計報告 3 正和改進，直到形成較為完善的可行系統(tǒng)。 設計任務 分工說明 文字整理： 李玉鑫 資料收集： 林濤 程序設計： 李鵬鵬 校正： 李鵬鵬 山東交通學院課程設計報告 4 2 系統(tǒng)分析 系統(tǒng)功能分析 企業(yè)訂單管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分 ,它的內容對于企業(yè)的管理來說都是至關重要的，因此，企業(yè)訂單管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段，但一直以來人們使用傳統(tǒng)的人工方式管理訂單，這種管理方式存在著許多缺點，諸如效率低，保密性差等，而且時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。 山東交通學院課程設計報告 5 業(yè)務流程圖 圖 業(yè)務流程圖 數據流程圖 數據流程圖主要是使整個流程簡單明了的展現(xiàn)出來，首先是管理員登陸，輸 入登陸賬號以及密碼即可進入訂單信息管理系統(tǒng)。通過這個系統(tǒng)，工作人員可以更加方便快捷的實現(xiàn)對訂單的一系列管理。將 WLGL 數據庫打開，轉化 97 格式的數據庫，取名 WLGL97，復制到用戶目錄下。 運行程序，查看結果。啟動ACCESS，找到數據庫 WLGL,確認有貨 物表，并已經錄入了多條數據。 設置 ADODC 的屬性，生成 — 提供程序 — Microsoft JET OLE DB；連接 — WLGL—測試連接成功；記錄源 — 命令類型： 2— 表名稱：貨物表。 啟動 VB,通過菜單 外接程序 — 可視化數據管理器，在 visdata 界面上文件 打開數據庫 — Microsoft ACCESS WLGL97,實用程序 數據窗體設計器 — 窗體名稱 :huowu— 記錄源：貨物表 — 添加使用的多個字段到右側 — 生成窗體 — 關閉。復制到用戶目錄下。 Next j Print Next i 界面設計 用戶登錄 系統(tǒng)登錄控制，必須使用用戶名和密碼登錄后才能使用系統(tǒng) 山東交通學院課程設計報告 12 代碼如下 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdcancel_Click() 39。 amp。 Trim() amp。 \) End Sub 主窗體 山東交通學院課程設計報告 14 代碼如下： Private Sub gbxt_Click() Unload Me End Sub Private Sub gzryjbxxcx_Click() End Sub Private Sub gzryjbxxsr_Click() End Sub Private Sub kcbdjxgxxcx_Click() End Sub Private Sub kcbdjxgxxsr_Click() End Sub Private Sub Picture1_Click() End Sub Private Sub ddlr_Click() End Sub 山東交通學院課程設計報告 15 Private Sub ddxxcx_Click() End Sub Private Sub khxxgl_Click() End Sub Private Sub MDIForm_Load() End Sub Private Sub qxjmmsz_Click() End Sub Private Sub xscjc_Click() End Sub Private Sub yspsxxcx_Click() End Sub Private Sub xsyjbxxsr_Click() End Sub Private Sub xxzyxxb_Click() End Sub Private Sub spxxcx_Click() End Sub 訂單錄入 訂單信息管理，管理訂單信息，可以添加、修改和刪除訂單信息，在增加訂單時需山東交通學院課程設計報告 16 要使用的產品信息和經銷商信息必須首先通過產品信息管理和經銷商信息管理功能添加； 代碼如下 Private Sub cmdadd_Click() 39。退出 Unload Me End Sub Private Sub Form_Load() = LoadPicture( amp。放棄修改 For i = 0 To 6 Text1(i).Enabled = False 山東交通學院課程設計報告 20 Next i = False = False = True = True = True End Sub Private Sub cmddelete_Click() Dim myval As String myval = MsgBox(是否要刪除該記錄？ , vbYesNo) If myval = vbYes Then If Then For i = 0 To 6 Text1(i).Enabled = False Next i End If End If End Sub Private Sub cmdedit_Click() If 0 Then For i = 0 To 6 Text1(i).Enabled = True Next i = True = True = False = False = False Else MsgBox (沒有要修 改的記錄！ ) End If End Sub Private Sub cmdsave_Click() 39。 山東交通學院課程設計報告 22 代碼如下： Private Sub Command1_Click() If = Then MsgBox 請準確輸入查詢內容 End If If = 商品名稱 Then = Provider=。 amp。Persist Security Info=False = select * from 商品信息管理 where 商品類型 like 39。 = adCmdText If Not Then = (商品名稱 ) = (商品類型 ) = (商品單價 ) = (商品庫存 ) = (所 在倉庫 ) Else: MsgBox 您所要查詢的內容不存在！ End If End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() (商品名稱 ) (商品類型 ) = LoadPicture( amp。% amp。Data Source=C:\Users\dell\Desktop\訂單管理系統(tǒng) \。 %39。因為對訂單管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用