課程設計實驗報告產(chǎn)品訂單管理系統(tǒng)

1、數(shù)據(jù)庫課程設計產(chǎn)品訂單管理系統(tǒng)二零一二年五月目錄 TOC o 1-3 h z u HYPERLINK l _Toc325370278 一、引言 PAGEREF _Toc325370278 h 1 HYPERLINK l _Toc325370279 二、開發(fā)環(huán)境 PAGEREF _Toc325370279 h 1 HYPERLINK l _Toc325370280 三、需求分析 PAGEREF _Toc325370280 h 1 HYPERLINK l _Toc325370281 3.1按客戶分類訂單管理子系統(tǒng) PAGEREF _Toc325370281 h 2 HYPERLINK l _Toc

2、325370282 3.2其他信息子系統(tǒng) PAGEREF _Toc325370282 h 2 HYPERLINK l _Toc325370283 3.3預覽報表子系統(tǒng) PAGEREF _Toc325370283 h 2 HYPERLINK l _Toc325370284 四、概念結構設計定單 PAGEREF _Toc325370284 h 2 HYPERLINK l _Toc325370285 4.2子系統(tǒng)模型圖 PAGEREF _Toc325370285 h 3 HYPERLINK l _Toc325370286 4.21訂單的職員實體關系 PAGEREF _Toc325370286 h 3

3、 HYPERLINK l _Toc325370287 4.2產(chǎn)品訂單系統(tǒng)產(chǎn)品實體關系 PAGEREF _Toc325370287 h 3 HYPERLINK l _Toc325370288 4.23產(chǎn)品訂單系統(tǒng)訂單實體關系 PAGEREF _Toc325370288 h 4 HYPERLINK l _Toc325370289 4.2產(chǎn)品訂單系統(tǒng)訂單明細實體關系 PAGEREF _Toc325370289 h 5 HYPERLINK l _Toc325370290 4.25產(chǎn)品訂單系統(tǒng)付費實體關系 PAGEREF _Toc325370290 h 5 HYPERLINK l _Toc3253702

4、91 4.26產(chǎn)品訂單系統(tǒng)付費方式實體關系 PAGEREF _Toc325370291 h 6 HYPERLINK l _Toc325370292 4.27產(chǎn)品訂單系統(tǒng)客戶實體關系 PAGEREF _Toc325370292 h 6 HYPERLINK l _Toc325370293 4.2產(chǎn)品訂單系統(tǒng)我的公司信息實體關系 PAGEREF _Toc325370293 h 7 HYPERLINK l _Toc325370294 五、數(shù)據(jù)字典（比較多，不一一列出） PAGEREF _Toc325370294 h 7 HYPERLINK l _Toc325370295 六、系統(tǒng)詳細設計 PAGERE

5、F _Toc325370295 h 8 HYPERLINK l _Toc325370296 6.1數(shù)據(jù)庫表的設計 PAGEREF _Toc325370296 h 8 HYPERLINK l _Toc325370297 6.2由表生成各種窗口 PAGEREF _Toc325370297 h 13 HYPERLINK l _Toc325370298 6.3生成報表 PAGEREF _Toc325370298 h 17 HYPERLINK l _Toc325370299 七、詳細設計代表性的SQL語句及結果 PAGEREF _Toc325370299 h 18 HYPERLINK l _Toc325

6、370300 7.按職員分類的銷售額子查詢 PAGEREF _Toc325370300 h 18 HYPERLINK l _Toc325370301 7.按客戶分類的銷售額子查詢 PAGEREF _Toc325370301 h 18 HYPERLINK l _Toc325370302 八、設計細節(jié)展示 PAGEREF _Toc325370302 h 19 HYPERLINK l _Toc325370303 8.發(fā)票窗體設計 PAGEREF _Toc325370303 h 19 HYPERLINK l _Toc325370304 8.結果展示 PAGEREF _Toc325370304 h 19

7、 HYPERLINK l _Toc325370305 8.按產(chǎn)品分類銷售額窗體設計 PAGEREF _Toc325370305 h 20 HYPERLINK l _Toc325370306 8.結果展示 PAGEREF _Toc325370306 h 20 HYPERLINK l _Toc325370307 九、關鍵技術及體會 PAGEREF _Toc325370307 h 20 HYPERLINK l _Toc325370308 十、課程設計總結 PAGEREF _Toc325370308 h 21 HYPERLINK l _Toc325370309 附錄：主窗體代碼： PAGEREF _T

8、oc325370309 h 22 11/13一、引言訂單管理是每所公司或工廠必須面對的工作，特別這幾年，我國加入WTO，隨著國家政策的調(diào)整，給企業(yè)的訂單管理，商品的進存銷都帶來了不少沖擊。但一直以來用傳統(tǒng)人手方式管理文件檔案，這種管理方式存在許多缺點：效率低，保密性差，另外隨著進貨數(shù)量的增加，這必然增加了訂單管理者的工作量和勞動強度。同時，將產(chǎn)生大量的文件和數(shù)據(jù)，這給訂單信息的查找，更新和維護都帶來了不少困難。據(jù)調(diào)查，目前我國還有相當一部分企業(yè)的訂單還停留在紙介質(zhì)的基礎上，尤其小型工廠或企業(yè)對訂單的管理更是落后。這樣的管理機制已經(jīng)不能適應時代發(fā)展的需求，其管理方法將浪費人力物力。隨著科技的不斷

9、提高，計算機科學與技術日漸成熟，這種傳統(tǒng)的手工管理模式必然被以計算機為物質(zhì)基礎的信息管理方式所取代。二、開發(fā)環(huán)境CPU： Intel Pentium雙核 2.70GHz內(nèi)存： 2G開發(fā)軟件：Microsoft office access 2003操作系統(tǒng)：Microsoft window XP professional 版本2002 Service Pack 3三、需求分析我公司為加強訂單管理，準備開發(fā)一個訂單管理系統(tǒng)，該系統(tǒng)包括按客戶分類訂單管理子系統(tǒng)，其他信息子系統(tǒng)，預覽報表子系統(tǒng)。下面是經(jīng)需求調(diào)查并初步歸納出的相關存儲要求：如下所示3.1按客戶分類訂單管理子系統(tǒng)a.訂購情況：訂單標識，職

10、員標識，產(chǎn)品，單價，數(shù)量，折扣，總計等信息。b.付費情況：包括訂單標識，付費方式，付費日期，付費金額，持卡人姓名，信用卡號等信息c.預覽發(fā)票：包括訂單標識，發(fā)票日期，發(fā)票金額，付款條款等信息。3.2其他信息子系統(tǒng)a.職員情況：包括職員姓，名，職務，電話號，郵件地址等信息b.公司信息：包括公司全稱，地址，郵編，營業(yè)稅率，電話號，傳真號等c.產(chǎn)品情況：包括產(chǎn)品標識，產(chǎn)品名稱，產(chǎn)品單價等。d.付費方式：包括付費方式標識，付費方式，是否使用信用卡等。e.裝運方式：包括裝運方式標識，裝運方式。3.3預覽報表子系統(tǒng)a.按客戶情況：包括客戶姓名，電話號，傳真號，公司名稱等b.按應收賬款：包括客戶姓名，當前應

11、收賬款，30-60天后應收賬款，61-90天后應收賬款，大于90天后應收賬款，余額等信息。c.按客戶分類銷售額：包括公司名稱，單位總計，總銷售額，營業(yè)稅，運費總計，發(fā)票上的金額等信息。e.按職員分類銷售額報表：包括職員姓名，單位總數(shù)，總銷售額等信息。f.按產(chǎn)品分類銷售額：包括產(chǎn)品名稱，單位總計，總銷售額等信四、概念結構設計定單4.1整體ER模型圖4.2子系統(tǒng)模型圖4.21訂單的職員實體關系4.2產(chǎn)品訂單系統(tǒng)產(chǎn)品實體關系4.23產(chǎn)品訂單系統(tǒng)訂單實體關系4.2產(chǎn)品訂單系統(tǒng)訂單明細實體關系4.25產(chǎn)品訂單系統(tǒng)付費實體關系4.26產(chǎn)品訂單系統(tǒng)付費方式實體關系4.27產(chǎn)品訂單系統(tǒng)客戶實體關系4.2產(chǎn)品訂

12、單系統(tǒng)我的公司信息實體關系五、數(shù)據(jù)字典（比較多，不一一列出）六、系統(tǒng)詳細設計6.1數(shù)據(jù)庫表的設計本系統(tǒng)表一共有十一張，分別為“Switchboad Items”、“產(chǎn)品”、“訂單”、“訂單明細”、“付費”、“付費方式”、“客戶”、“我的公司信息”、“職員”、“裝運方式”。表6-1 表6-2 Switchboad Items”注：表6-2“Switchboard Items”主要用于對主界面的設置，包括“Switchboard ID”、“項目編號”、“項目文字”、“命令”，“參數(shù)”。表6-3 產(chǎn)品注：表6-3 “產(chǎn)品“主要用于儲存產(chǎn)品信息包括產(chǎn)品標識、產(chǎn)品名稱、單件等三項信息表6-4訂單表6-5

13、訂單明細表注：表6-4 “訂單”及表6-5“訂單明細表”主要用于查看訂單的基本內(nèi)容?！岸▎巍敝饕ā坝唵螛俗R”、“客戶標識”、“職員標識”、“訂單編號”、“收貨方名稱”、“收貨方地址”、“收貨方城市”、“收貨方省/自治區(qū)”、“收貨方郵政編碼”、“收貨方國家”、“收貨方電話”、“發(fā)貨日期”、“裝運方式標識”、“運費”、“營業(yè)稅額”；“訂單明細”主要包括“訂單明細標識”、“點單標識”、“產(chǎn)品標識”、“數(shù)量”“單價”、“折扣”等。表6-6付費注：表6-6“付費”只要用于查看付費方式、金額和日期。只要包括“付費標識”、“訂單標識”、“付費金額”、“付費日期”、“信用卡號”、“持卡人”、“信用卡到期日

14、”、“信用卡權限”、“付費方式標識”。表6-7付費方式注：表6-7“付費方式”主要包括“付費方式標識”、“付費方式”、“是否使用信用卡”表6-8客戶注：表6-8“客戶”主要用于查看客戶的基本信息。表6-9我公司信息注：表6-9“我的公司信息”主要用于查看公司的基本信息。表6-10職員表6-11裝運方式6.2由表生成各種窗口圖61 主切換面板圖6-2 按客戶分類的訂單圖63 產(chǎn)品窗口圖6-4 按客戶分類的訂單圖6-5 打印發(fā)票窗口圖6-6 訂單分類窗口圖6-7 訂單明細窗口圖6-8 付費窗口圖6-9 付費方式窗口圖 6-10 我的公司信息窗口圖6-11 職員窗口圖612 裝運方式 圖613 裝運

15、信息6.3生成報表按產(chǎn)品分類銷售額生成的報表注:輸入開始和結束日期點預覽后七、詳細設計代表性的SQL語句及結果7.按職員分類的銷售額子查詢SELECT DISTINCTROW 訂單.EmployeeID, 訂單.OrderDate, 訂單.FreightCharge, 訂單.SalesTaxRate, Sum(CLng(Quantity*UnitPrice*(1-Discount)*100)/100) AS 總銷售額, Sum(訂單明細表.Quantity) AS 單位總數(shù)FROM 訂單 LEFT JOIN 訂單明細表 ON 訂單.OrderID = 訂單明細表.OrderIDGROUP BY

16、 訂單.EmployeeID, 訂單.OrderDate, 訂單.FreightCharge, 訂單.SalesTaxRate;7.按客戶分類的銷售額子查詢SELECT DISTINCTROW 訂單.CustomerID, 訂單.OrderDate, 訂單.FreightCharge, 訂單.SalesTaxRate, Sum(CLng(Quantity*UnitPrice*(1-Discount)*100)/100) AS 總銷售額, Sum(訂單明細表.Quantity) AS 單位總計FROM 訂單 LEFT JOIN 訂單明細表 ON 訂單.OrderID = 訂單明細表.OrderI

17、DGROUP BY 訂單.CustomerID, 訂單.OrderDate, 訂單.FreightCharge, 訂單.SalesTaxRate;八、設計細節(jié)展示8.發(fā)票窗體設計8.結果展示8.按產(chǎn)品分類銷售額窗體設計8.結果展示九、關鍵技術及體會本課程設計中主要用了表操作，查詢操作，窗體設計，菜單與工具欄的使用等技術，開始只是模仿書上的例題進行練習，做了幾次后，發(fā)現(xiàn)利用模板，或著使用數(shù)據(jù)導入導出，和，等結合使用會更加方便，快捷。十、課程設計總結在這次數(shù)據(jù)庫實習的過程中，我們利用課下時間進行學習，對數(shù)據(jù)庫的基本操作和感念有了大體的了解。能夠用用access設計一個簡單的訂單管理系統(tǒng)，其主要功能

18、是查詢與管理。同時，這次實習培養(yǎng)了我們對數(shù)據(jù)庫的興趣，有助于我們以后對數(shù)據(jù)庫有進一步的了解和學習，也給了我們一個動手實踐的機會，使我們在理論付諸于實踐的過程中有了新的能力上的提升參考文獻access2003自學教程 中國經(jīng)濟出版社2001.8access2003應用設計教程 高等教育出版社2附錄：主窗體代碼：Option Compare DatabaseOption ExplicitConst conNumButtons = 8Const conFontWeightBold = 700Const conFontWeightNormal = 400Private Sub Box23_Click(

19、)End SubPrivate Sub cmdExit_Click() CloseCurrentDatabaseEnd SubSub cmdExit_GotFocus() Dim intOption As Integer If the Exit Button has received the focus, turn off the focus on all the menu options For intOption = 1 To conNumButtons Me(Option & intOption).Visible = False Me(OptionLabel & intOption).F

20、ontWeight = conFontWeightNormal Next intOption ExitLabel.FontUnderline = TrueEnd SubPrivate Sub cmdExit_LostFocus() ExitLabel.FontUnderline = FalseEnd SubPrivate Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ExitLabel.FontWeight = conFontWeightBoldEnd SubPrivat

21、e Sub cmdExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ExitLabel.FontWeight = conFontWeightNormalEnd SubPrivate Sub Form_Open(Cancel As Integer) Minimize the database window and initialize the form.On Error GoTo Form_Open_Err Minimize the database window. DoCmd.SelectOb

22、ject acForm, Switchboard, True DoCmd.Minimize Move to the switchboard page that is marked as the default. Me.Filter = ItemNumber = 0 AND Argument = 默認 Me.FilterOn = TrueForm_Open_Exit: Exit SubForm_Open_Err: MsgBox Err.Description Resume Form_Open_ExitEnd SubPrivate Sub Form_Current() Update the cap

23、tion and fill in the list of options. Me.Caption = Nz(Me!ItemText, ) FillOptionsEnd SubPrivate Sub FillOptions() Fill in the options for this switchboard page. The number of buttons on the form. Dim dbs As Database Dim rst As Recordset Dim strSQL As String Dim intOption As Integer Set the focus to t

24、he first button on the form, and then hide all of the buttons on the form but the first. You cant hide the field with the focus. Me!Option1.Visible = True Me!Command1.Enabled = True Me!Command1.SetFocus With Me!OptionLabel1 .Visible = True .FontWeight = conFontWeightBold End With For intOption = 2 T

25、o conNumButtons Me(Option & intOption).Visible = False Me(OptionLabel & intOption).Visible = False Me(OptionLabel & intOption).FontWeight = conFontWeightNormal Me(Command & intOption).Enabled = False Next intOption Open the table of Switchboard Items, and find the first item for this Switchboard Pag

26、e. Set dbs = CurrentDb() strSQL = SELECT * FROM Switchboard Items strSQL = strSQL & WHERE ItemNumber 0 AND SwitchboardID= & Me!SwitchboardID strSQL = strSQL & ORDER BY ItemNumber; Set rst = dbs.OpenRecordset(strSQL) If there are no options for this Switchboard Page, display a message. Otherwise, fil

27、l the page with the items. If (rst.EOF) Then Me!OptionLabel1.Caption = There are no items for this switchboard page Else While (Not (rst.EOF) Me(OptionLabel & rst!ItemNumber).Visible = True Me(OptionLabel & rst!ItemNumber).Caption = rst!ItemText Me(Command & rst!ItemNumber).Enabled = True rst.MoveNe

28、xt Wend End If Close the recordset and the database. rst.Close dbs.CloseEnd SubPrivate Function HandleFocus(intBtn As Integer) This function is called when a menu option receives the focus. intBtn indicates which button was clicked.Dim intOption As IntegerOn Error GoTo HandleMouseOver_Err For intOpt

29、ion = 1 To conNumButtons Show that this menu option has the focus. If intOption = intBtn Then Me(Option & intOption).Visible = True Me(OptionLabel & intOption).FontWeight = conFontWeightBold Me(command & intBtn).SetFocus . and turn off the focus on the other options Else Me(Option & intOption).Visib

30、le = False Me(OptionLabel & intOption).FontWeight = conFontWeightNormal End If Next intOptionHandleMouseOver_Exit: Exit FunctionHandleMouseOver_Err: MsgBox 執(zhí)行該命令時出錯。, vbCritical Resume HandleMouseOver_ExitEnd FunctionPrivate Function HandleButtonClick(intBtn As Integer) This function is called when

31、a button is clicked. intBtn indicates which button was clicked. Constants for the commands that can be executed. Const conCmdGotoSwitchboard = 1 Const conCmdOpenFormAdd = 2 Const conCmdOpenFormBrowse = 3 Const conCmdOpenReport = 4 Const conCmdCustomizeSwitchboard = 5 Const conCmdExitApplication = 6

32、Const conCmdRunMacro = 7 Const conCmdRunCode = 8 An error that is special cased. Const conErrDoCmdCancelled = 2501 Dim dbs As Database Dim rst As RecordsetOn Error GoTo HandleButtonClick_Err Find the item in the Switchboard Items table that corresponds to the button that was clicked. Set dbs = Curre

33、ntDb() Set rst = dbs.OpenRecordset(Switchboard Items, dbOpenDynaset) rst.FindFirst SwitchboardID= & Me!SwitchboardID & AND ItemNumber= & intBtn If no item matches, report the error and exit the function. If (rst.NoMatch) Then MsgBox 讀取 Switchboard Items 表時出錯。 rst.Close dbs.Close Exit Function End If Select Case rst!Command Go to another switchboard. Case conCmdGotoSwitchboard Me.Filter = ItemNumber = 0 AND SwitchboardID= & rst!Argument Open a form in Add mode. Case conCmdOpenFormAdd DoCmd.OpenForm rst!Argument, , , , acAdd