數(shù)據(jù)庫(kù)課程設(shè)計(jì)-產(chǎn)品訂單管理系統(tǒng)

數(shù)據(jù)庫(kù)課程設(shè)計(jì)——產(chǎn)品訂單管理系統(tǒng)二零一二年五月目錄一、引言 1二、開(kāi)發(fā)環(huán)境 1三、需求分析 13.1按客戶分類(lèi)訂單管理子系統(tǒng) 23.2其他信息子系統(tǒng) 23.3預(yù)覽報(bào)表子系統(tǒng) 2四、概念結(jié)構(gòu)設(shè)計(jì)定單 24.2子系統(tǒng)ＥＲ模型圖 34.21訂單的職員實(shí)體——關(guān)系 34.２2產(chǎn)品訂單系統(tǒng)產(chǎn)品實(shí)體——關(guān)系 34.23產(chǎn)品訂單系統(tǒng)訂單實(shí)體——關(guān)系 44.2４產(chǎn)品訂單系統(tǒng)訂單明細(xì)實(shí)體——關(guān)系 54.25產(chǎn)品訂單系統(tǒng)付費(fèi)實(shí)體——關(guān)系 54.26產(chǎn)品訂單系統(tǒng)付費(fèi)方式實(shí)體——關(guān)系 64.27產(chǎn)品訂單系統(tǒng)客戶實(shí)體——關(guān)系 64.2８產(chǎn)品訂單系統(tǒng)我的公司信息實(shí)體——關(guān)系 7五、數(shù)據(jù)字典〔比較多，不一一列出〕 7六、系統(tǒng)詳細(xì)設(shè)計(jì) 86.1數(shù)據(jù)庫(kù)表的設(shè)計(jì) 86.2由表生成各種窗口 136.3生成報(bào)表 17七、詳細(xì)設(shè)計(jì)代表性的SQL語(yǔ)句及結(jié)果 187.１.按職員分類(lèi)的銷(xiāo)售額子查詢 187.２按客戶分類(lèi)的銷(xiāo)售額子查詢 18八、設(shè)計(jì)細(xì)節(jié)展示 198.１發(fā)票窗體設(shè)計(jì) 198.２結(jié)果展示 198.３按產(chǎn)品分類(lèi)銷(xiāo)售額窗體設(shè)計(jì) 208.４結(jié)果展示 20九、關(guān)鍵技術(shù)及體會(huì) 20十、課程設(shè)計(jì)總結(jié) 21附錄：主窗體代碼： 221/28一、引言訂單管理是每所公司或工廠必須面對(duì)的工作，特別這幾年，我國(guó)參加WTO，隨著國(guó)家政策的調(diào)整，給企業(yè)的訂單管理，商品的進(jìn)存銷(xiāo)都帶來(lái)了不少?zèng)_擊。但一直以來(lái)用傳統(tǒng)人手方式管理文件檔案，這種管理方式存在許多缺點(diǎn)：效率低，保密性差，另外隨著進(jìn)貨數(shù)量的增加，這必然增加了訂單管理者的工作量和勞動(dòng)強(qiáng)度。同時(shí)，將產(chǎn)生大量的文件和數(shù)據(jù)，這給訂單信息的查找，更新和維護(hù)都帶來(lái)了不少困難。據(jù)調(diào)查，目前我國(guó)還有相當(dāng)一局部企業(yè)的訂單還停留在紙介質(zhì)的根底上，尤其小型工廠或企業(yè)對(duì)訂單的管理更是落后。這樣的管理機(jī)制已經(jīng)不能適應(yīng)時(shí)代開(kāi)展的需求，其管理方法將浪費(fèi)人力物力。隨著科技的不斷提高，計(jì)算機(jī)科學(xué)與技術(shù)日漸成熟，這種傳統(tǒng)的手工管理模式必然被以計(jì)算機(jī)為物質(zhì)根底的信息管理方式所取代。二、開(kāi)發(fā)環(huán)境CPU：IntelPentium雙核2.70GHz內(nèi)存：2G開(kāi)發(fā)軟件：Microsoftofficeaccess2024操作系統(tǒng)：MicrosoftwindowXPprofessional版本2024ServicePack3三、需求分析我公司為加強(qiáng)訂單管理，準(zhǔn)備開(kāi)發(fā)一個(gè)訂單管理系統(tǒng)，該系統(tǒng)包括按客戶分類(lèi)訂單管理子系統(tǒng)，其他信息子系統(tǒng)，預(yù)覽報(bào)表子系統(tǒng)。下面是經(jīng)需求調(diào)查并初步歸納出的相關(guān)存儲(chǔ)要求：如下所示3.1按客戶分類(lèi)訂單管理子系統(tǒng)a.訂購(gòu)情況：訂單標(biāo)識(shí)，職員標(biāo)識(shí)，產(chǎn)品，單價(jià)，數(shù)量，折扣，總計(jì)等信息。b.付費(fèi)情況：包括訂單標(biāo)識(shí)，付費(fèi)方式，付費(fèi)日期，付費(fèi)金額，持卡人姓名，信用卡號(hào)等信息c.預(yù)覽發(fā)票：包括訂單標(biāo)識(shí)，發(fā)票日期，發(fā)票金額，付款條款等信息。3.2其他信息子系統(tǒng)a.職員情況：包括職員姓，名，職務(wù)，電話號(hào)，郵件地址等信息b.公司信息：包括公司全稱，地址，郵編，營(yíng)業(yè)稅率，電話號(hào)，傳真號(hào)等c.產(chǎn)品情況：包括產(chǎn)品標(biāo)識(shí)，產(chǎn)品名稱，產(chǎn)品單價(jià)等。d.付費(fèi)方式：包括付費(fèi)方式標(biāo)識(shí)，付費(fèi)方式，是否使用信用卡等。e.裝運(yùn)方式：包括裝運(yùn)方式標(biāo)識(shí)，裝運(yùn)方式。3.3預(yù)覽報(bào)表子系統(tǒng)a.按客戶情況：包括客戶姓名，電話號(hào)，傳真號(hào)，公司名稱等b.按應(yīng)收賬款：包括客戶姓名，當(dāng)前應(yīng)收賬款，30-60天后應(yīng)收賬款，61-90天后應(yīng)收賬款，大于90天后應(yīng)收賬款，余額等信息。c.按客戶分類(lèi)銷(xiāo)售額：包括公司名稱，單位總計(jì)，總銷(xiāo)售額，營(yíng)業(yè)稅，運(yùn)費(fèi)總計(jì)，發(fā)票上的金額等信息。e.按職員分類(lèi)銷(xiāo)售額報(bào)表：包括職員姓名，單位總數(shù)，總銷(xiāo)售額等信息。f.按產(chǎn)品分類(lèi)銷(xiāo)售額：包括產(chǎn)品名稱，單位總計(jì)，總銷(xiāo)售額等信四、概念結(jié)構(gòu)設(shè)計(jì)定單4.1整體ER模型圖4.2子系統(tǒng)ＥＲ模型圖4.21訂單的職員實(shí)體——關(guān)系4.２2產(chǎn)品訂單系統(tǒng)產(chǎn)品實(shí)體——關(guān)系4.23產(chǎn)品訂單系統(tǒng)訂單實(shí)體——關(guān)系4.2４產(chǎn)品訂單系統(tǒng)訂單明細(xì)實(shí)體——關(guān)系4.25產(chǎn)品訂單系統(tǒng)付費(fèi)實(shí)體——關(guān)系4.26產(chǎn)品訂單系統(tǒng)付費(fèi)方式實(shí)體——關(guān)系4.27產(chǎn)品訂單系統(tǒng)客戶實(shí)體——關(guān)系 4.2８產(chǎn)品訂單系統(tǒng)我的公司信息實(shí)體——關(guān)系五、數(shù)據(jù)字典〔比較多，不一一列出〕 六、系統(tǒng)詳細(xì)設(shè)計(jì)6.1數(shù)據(jù)庫(kù)表的設(shè)計(jì)本系統(tǒng)表一共有十一張，分別為“SwitchboadItems〞、“產(chǎn)品〞、“訂單〞、“訂單明細(xì)〞、“付費(fèi)〞、“付費(fèi)方式〞、“客戶〞、“我的公司信息〞、“職員〞、“裝運(yùn)方式〞。表6-1表6-2SwitchboadItems〞注：表6-2“SwitchboardItems〞主要用于對(duì)主界面的設(shè)置，包括“SwitchboardID〞、“工程編號(hào)〞、“工程文字〞、“命令〞，“參數(shù)〞。表6-3產(chǎn)品

注：表6-3“產(chǎn)品“主要用于儲(chǔ)存產(chǎn)品信息包括產(chǎn)品標(biāo)識(shí)、產(chǎn)品名稱、單件等三項(xiàng)信息表6-4訂單表6-5訂單明細(xì)表注：表6-4“訂單〞及表6-5“訂單明細(xì)表〞主要用于查看訂單的根本內(nèi)容。“定單〞主要包括“訂單標(biāo)識(shí)〞、“客戶標(biāo)識(shí)〞、“職員標(biāo)識(shí)〞、“訂單編號(hào)〞、“收貨方名稱〞、“收貨方地址〞、“收貨方城市〞、“收貨方省/自治區(qū)〞、“收貨方郵政編碼〞、“收貨方國(guó)家〞、“收貨方電話〞、“發(fā)貨日期〞、“裝運(yùn)方式標(biāo)識(shí)〞、“運(yùn)費(fèi)〞、“營(yíng)業(yè)稅額〞；“訂單明細(xì)〞主要包括“訂單明細(xì)標(biāo)識(shí)〞、“點(diǎn)單標(biāo)識(shí)〞、“產(chǎn)品標(biāo)識(shí)〞、“數(shù)量〞“單價(jià)〞、“折扣〞等。表6-6付費(fèi)注：表6-6“付費(fèi)〞只要用于查看付費(fèi)方式、金額和日期。只要包括“付費(fèi)標(biāo)識(shí)〞、“訂單標(biāo)識(shí)〞、“付費(fèi)金額〞、“付費(fèi)日期〞、“信用卡號(hào)〞、“持卡人〞、“信用卡到期日〞、“信用卡權(quán)限〞、“付費(fèi)方式標(biāo)識(shí)〞。表6-7付費(fèi)方式注：表6-7“付費(fèi)方式〞主要包括“付費(fèi)方式標(biāo)識(shí)〞、“付費(fèi)方式〞、“是否使用信用卡〞表6-8客戶注：表6-8“客戶〞主要用于查看客戶的根本信息。表6-9我公司信息

注：表6-9“我的公司信息〞主要用于查看公司的根本信息。

表6-10職員表6-11裝運(yùn)方式6.2由表生成各種窗口圖6—1主切換面板圖6-2按客戶分類(lèi)的訂單圖6—3產(chǎn)品窗口圖6-4按客戶分類(lèi)的訂單圖6-5打印發(fā)票窗口

圖6-6訂單分類(lèi)窗口圖6-7訂單明細(xì)窗口圖6-8付費(fèi)窗口圖6-9付費(fèi)方式窗口圖6-10我的公司信息窗口圖6-11職員窗口圖6—12裝運(yùn)方式圖6—13裝運(yùn)信息6.3生成報(bào)表按產(chǎn)品分類(lèi)銷(xiāo)售額生成的報(bào)表注:輸入開(kāi)始和結(jié)束日期點(diǎn)預(yù)覽后七、詳細(xì)設(shè)計(jì)代表性的SQL語(yǔ)句及結(jié)果7.１.按職員分類(lèi)的銷(xiāo)售額子查詢SELECTDISTINCTROW訂單.EmployeeID,訂單.OrderDate,訂單.FreightCharge,訂單.SalesTaxRate,Sum(CLng([Quantity]*[UnitPrice]*(1-[Discount])*100)/100)AS總銷(xiāo)售額,Sum([訂單明細(xì)表].Quantity)AS單位總數(shù)FROM訂單LEFTJOIN訂單明細(xì)表ON訂單.OrderID=[訂單明細(xì)表].OrderIDGROUPBY訂單.EmployeeID,訂單.OrderDate,訂單.FreightCharge,訂單.SalesTaxRate;7.２按客戶分類(lèi)的銷(xiāo)售額子查詢SELECTDISTINCTROW訂單.CustomerID,訂單.OrderDate,訂單.FreightCharge,訂單.SalesTaxRate,Sum(CLng([Quantity]*[UnitPrice]*(1-[Discount])*100)/100)AS總銷(xiāo)售額,Sum([訂單明細(xì)表].Quantity)AS單位總計(jì)FROM訂單LEFTJOIN訂單明細(xì)表ON訂單.OrderID=[訂單明細(xì)表].OrderIDGROUPBY訂單.CustomerID,訂單.OrderDate,訂單.FreightCharge,訂單.SalesTaxRate;八、設(shè)計(jì)細(xì)節(jié)展示8.１發(fā)票窗體設(shè)計(jì)8.２結(jié)果展示8.３按產(chǎn)品分類(lèi)銷(xiāo)售額窗體設(shè)計(jì)8.４結(jié)果展示九、關(guān)鍵技術(shù)及體會(huì)本課程設(shè)計(jì)中主要用了表操作，查詢操作，窗體設(shè)計(jì)，菜單與工具欄的使用等技術(shù)，開(kāi)始只是模仿書(shū)上的例題進(jìn)行練習(xí)，做了幾次后，發(fā)現(xiàn)利用模板，或著使用數(shù)據(jù)導(dǎo)入導(dǎo)出，和ｗｏｒｄ，ｅｘｃｅｌ等結(jié)合使用會(huì)更加方便，快捷。十、課程設(shè)計(jì)總結(jié)在這次數(shù)據(jù)庫(kù)實(shí)習(xí)的過(guò)程中，我們利用課下時(shí)間進(jìn)行學(xué)習(xí)，對(duì)數(shù)據(jù)庫(kù)的根本操作和感念有了大體的了解。能夠用用access設(shè)計(jì)一個(gè)簡(jiǎn)單的訂單管理系統(tǒng)，其主要功能是查詢與管理。同時(shí)，這次實(shí)習(xí)培養(yǎng)了我們對(duì)數(shù)據(jù)庫(kù)的興趣，有助于我們以后對(duì)數(shù)據(jù)庫(kù)有進(jìn)一步的了解和學(xué)習(xí)，也給了我們一個(gè)動(dòng)手實(shí)踐的時(shí)機(jī)，使我們?cè)诶碚摳吨T于實(shí)踐的過(guò)程中有了新的能力上的提升參考文獻(xiàn)access2024自學(xué)教程中國(guó)經(jīng)濟(jì)出版社2001.8access2024應(yīng)用設(shè)計(jì)教程高等教育出版社2

附錄：主窗體代碼：OptionCompareDatabaseOptionExplicitConstconNumButtons=8ConstconFontWeightBold=700ConstconFontWeightNormal=400PrivateSubBox23_Click()EndSubPrivateSubcmdExit_Click()CloseCurrentDatabaseEndSubSubcmdExit_GotFocus()DimintOptionAsInteger'IftheExitButtonhasreceivedthefocus,turnoffthefocusonallthemenuoptionsForintOption=1ToconNumButtonsMe("Option"&intOption).Visible=FalseMe("OptionLabel"&intOption).FontWeight=conFontWeightNormalNextintOptionExitLabel.FontUnderline=TrueEndSubPrivateSubcmdExit_LostFocus()ExitLabel.FontUnderline=FalseEndSubPrivateSubcmdExit_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ExitLabel.FontWeight=conFontWeightBoldEndSubPrivateSubcmdExit_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ExitLabel.FontWeight=conFontWeightNormalEndSubPrivateSubForm_Open(CancelAsInteger)'Minimizethedatabasewindowandinitializetheform.OnErrorGoToForm_Open_Err'Minimizethedatabasewindow.DoCmd.SelectObjectacForm,"Switchboard",TrueDoCmd.Minimize'Movetotheswitchboardpagethatismarkedasthedefault.Me.Filter="[ItemNumber]=0AND[Argument]='默認(rèn)'"Me.FilterOn=TrueForm_Open_Exit:ExitSubForm_Open_Err:MsgBoxErr.DescriptionResumeForm_Open_ExitEndSubPrivateSubForm_Current()'Updatethecaptionandfillinthelistofoptions.Me.Caption=Nz(Me![ItemText],"")FillOptionsEndSubPrivateSubFillOptions()'Fillintheoptionsforthisswitchboardpage.'Thenumberofbuttonsontheform.DimdbsAsDatabaseDimrstAsRecordsetDimstrSQLAsStringDimintOptionAsInteger'Setthefocustothefirstbuttonontheform,'andthenhideallofthebuttonsontheform'butthefirst.Youcan'thidethefieldwiththefocus.Me![Option1].Visible=TrueMe![Command1].Enabled=TrueMe![Command1].SetFocusWithMe![OptionLabel1].Visible=True.FontWeight=conFontWeightBoldEndWithForintOption=2ToconNumButtonsMe("Option"&intOption).Visible=FalseMe("OptionLabel"&intOption).Visible=FalseMe("OptionLabel"&intOption).FontWeight=conFontWeightNormalMe("Command"&intOption).Enabled=FalseNextintOption'OpenthetableofSwitchboardItems,andfind'thefirstitemforthisSwitchboardPage.Setdbs=CurrentDb()strSQL="SELECT*FROM[SwitchboardItems]"strSQL=strSQL&"WHERE[ItemNumber]>0AND[SwitchboardID]="&Me![SwitchboardID]strSQL=strSQL&"ORDERBY[ItemNumber];"Setrst=dbs.OpenRecordset(strSQL)'IftherearenooptionsforthisSwitchboardPage,'displayamessage.Otherwise,fillthepagewiththeitems.If(rst.EOF)ThenMe![OptionLabel1].Caption="Therearenoitemsforthisswitchboardpage"ElseWhile(Not(rst.EOF))Me("OptionLabel"&rst![ItemNumber]).Visible=TrueMe("OptionLabel"&rst![ItemNumber]).Caption=rst![ItemText]Me("Command"&rst![ItemNumber]).Enabled=Truerst.MoveNextWendEndIf'Closetherecordsetandthedatabase.rst.Closedbs.CloseEndSubPrivateFunctionHandleFocus(intBtnAsInteger)'Thisfunctioniscalledwhenamenuoptionreceivesthefocus.'intBtnindicateswhichbuttonwasclicked.DimintOptionAsIntegerOnErrorGoToHandleMouseOver_ErrForintOption=1ToconNumButtons'Showthatthismenuoptionhasthefocus...IfintOption=intBtnThenMe("Option"&intOption).Visible=TrueMe("OptionLabel"&intOption).FontWeight=conFontWeightBoldMe("command"&intBtn).SetFocus'...andturnoffthefocusontheotheroptionsElseMe("Option"&intOption).Visible=FalseMe("OptionLabel"&intOption).FontWeight=conFontWeightNormalEndIfNextintOptionHandleMouseOver_Exit:ExitFunctionHandleMouseOver_Err:MsgBox"執(zhí)行該命令時(shí)出錯(cuò)。",vbCriticalResumeHandleMouseOver_ExitEndFunctionPrivateFunctionHandleButtonClick(intBtnAsInteger)'Thisfunctioniscalledwhenabuttonisclicked.'intBtnindicateswhichbuttonwasclicked.'Constantsforthecommandsthatcanbeexecuted.ConstconCmdGotoSwitchboard=1ConstconCmdOpenFormAdd=2ConstconCmdOpenFormBrowse=3ConstconCmdOpenReport=4ConstconCmdCustomizeSwitchboard=5ConstconCmdExitApplication=6ConstconCmdRunMacro=7ConstconCmdRunCode=8'Anerrorthatisspecialcased.ConstconErrDoCmdCancelled=2501DimdbsAsDatabaseDimrstAsRecordsetOnErrorGoToHandleButtonClick_Err'FindtheitemintheSwitchboardItemstable'thatcorrespondstothebuttonthatwasclicked.Setdbs=CurrentDb()Setrst=dbs.OpenRecordset("SwitchboardItems",dbOpenDynaset)rst.FindFirst"[SwitchboardID]="&Me![SwitchboardID]&"AND[ItemNumber]="&intBtn'Ifnoitemmatches,reporttheerrorandexitthefunction.If(rst.NoMatch)ThenMsgBox"讀取SwitchboardItems表時(shí)出錯(cuò)。"rst.Closedbs.CloseExitFunctionEndIfSelectCaserst![Command]'Gotoanotherswitchboard.CaseconCmdGotoSwitchboardMe.Filter="[ItemNumber]=0AND[SwitchboardID]="&rst![Argument]'OpenaforminAddmode.CaseconCmdOpenFormAddDoCmd.OpenFormrst![Argument],,,,acAdd'Openaform.CaseconCmdOpenFormBrowseDoCmd.OpenFormrst![Argument]'Openareport.CaseconCmdOpenReportDoCmd.OpenReportrst![Argument],acPreview'CustomizetheSwitchboard.CaseconCmdCustomizeSwitchboard'HandlethecasewheretheSwitchboardManager'isnotinstalled(e.g.MinimalInstall).OnErro