课程设计实验报告产品订单管理系统修订

1、数据库课程设计产品订单管理系统二零一二年五月目录一、引言1二、开发环境1三、需求分析 13.1按客户分类订单管理子系统 13.2其他信息子系统 23.3预览报表子系统 2四、概念结构设计定单 24.2子系统ER模型图 34.21订单的职员实体一一关系 34. 2 2产品订单系统产品实体一一关系 34.23产品订单系统订单实体一一关系 44.2 4产品订单系统订单明细实体一一关系 54.25产品订单系统付费实体一一关系 54.26产品订单系统付费方式实体一一关系 64.27产品订单系统客户实体一一关系 64.2 8产品订单系统我的公司信息实体关系 7五、数据字典（比较多，不一一列出） 7六、系统

2、详细设计 86.1数据库表的设计 86.2由表生成各种窗口 136.3生成报表17七、详细设计代表性的 SQL语句及结果 187. 1 .按职员分类的销售额子查询 187. 2按客户分类的销售额子查询 18八、设计细节展示 198. 1发票窗体设计 198. 2结果展示198. 3按产品分类销售额窗体设计 208. 4结果展示20九、关键技术及体会 20十、课程设计总结21附录：主窗体代码： 22亠、引言订单管理是每所公司或工厂必须面对的工作， 特别这几年，我国加入WTO 随着国家政策的调整，给企业的订单管理，商品的进存销都带来了不少冲击。 但 一直以来用传统人手方式管理文件档案，这种管理方式

3、存在许多缺点：效率低， 保密性差，另外随着进货数量的增加，这必然增加了订单管理者的工作量和劳动 强度。同时，将产生大量的文件和数据，这给订单信息的查找，更新和维护都带 来了不少困难。据调查，目前我国还有相当一部分企业的订单还停留在纸介质的 基础上，尤其小型工厂或企业对订单的管理更是落后。这样的管理机制已经不能适应时代发展的需求，其管理方法将浪费人力物力。随着科技的不断提高，计算 机科学与技术日渐成熟，这种传统的手工管理模式必然被以计算机为物质基础的 信息管理方式所取代。二、开发环境CPUIn tel Pen tium双核 2.70GHz内存： 2G开发软件： Microsoft office

4、access 2003操作系统：Microsoft window XP professional版本 2002 Service Pack 3三、需求分析我公司为加强订单管理，准备开发一个订单管理系统，该系统包括按客户 分类订单管理子系统，其他信息子系统，预览报表子系统。下面是经需求调查并初步归纳出的相关存储要求：如下所示3.1按客户分类订单管理子系统a. 订购情况：订单标识，职员标识，产品，单价，数量，折扣，总计等信息b. 付费情况：包括订单标识，付费方式，付费日期，付费金额，持卡人姓名，信用卡号等信息c. 预览发票：包括订单标识，发票日期，发票金额，付款条款等信息。3.2其他信息子系统a.

5、职员情况：包括职员姓，名，职务，电话号，邮件地址等信息b. 公司信息：包括公司全称，地址，邮编，营业税率，电话号，传真号等c. 产品情况：包括产品标识，产品名称，产品单价等。d. 付费方式：包括付费方式标识，付费方式，是否使用信用卡等。e. 装运方式：包括装运方式标识，装运方式。3.3预览报表子系统a. 按客户情况：包括客户姓名，电话号，传真号，公司名称等b. 按应收账款：包括客户姓名，当前应收账款，30-60天后应收账款，61-90天后应收账款，大于90天后应收账款，余额等信息。c. 按客户分类销售额：包括公司名称，单位总计，总销售额，营业税，运费总计， 发票上的金额等信息。e. 按职员分类

6、销售额报表：包括职员姓名，单位总数，总销售额等信息。f. 按产品分类销售额：包括产品名称，单位总计，总销售额等信四、概念结构设计定单4.1整体ER模型图5 / 28产品订单系统按客户分类的订单其他信息预览报表订购付费发票职员公司信息产品付费方式运装方式客户职员产品客户应收分类分类分类账款销售销售销售额额额新增 修改查找修改 新增修改 查找 新增修改查找 新增 修改查找4.2子系统ER模型图4.21订单的职员实体关系职员标职务职员实体电子邮分机工作电家庭电话4. 2 2产品订单系统产品实体一一关系产品名称产品标识jT单价A1店口产口口实体4.23产品订单系统订单实体一一关系收货方订单标地址收货方

7、识城市收货方 省/自治 区职员标识订购日期订单编号客户标识收货方电话订单标识收货万邮编亠1rf订购日 期IX收货方国家运费发货日 期营业税 率装运方 式标识4.2 4产品订单系统订单明细实体一一关系4.26产品订单系统付费方式实体一一关系是否使用 信用卡9 / 28付费方式付费方式标识付费方式实体4.27产品订单系统客户实体一一关系客户标 识公司名 称联系人 姓账单邮 联系人寄地址jf - _名M, 1 _ / F客户标 识r 7、X.F7/J*J1TjT1备注薜繚愍客户f 省/自b实体电子邮治区JFJ/ II件地址匚/邮政编7i传真号码码国家/电弧号地区丿1联系人码职务4.2 8产品订单系统

8、我的公司信息实体一一关系我公司信息实体厂地区/电 话默认发默 认 支传 真省、自城设 置营 业/国号票付号治市标税国码说条码区识率豕明款、Jl_五、数据字典（比较多，不一一列出）羽订莖字段名称数据类型ShipCity文本ShipStatcOrFrovine u文*ShipPostaiCode文本ShipCountry文本ShLpFhoneNuntier文本ShipDate日朋/时间Shi nnlngMethcidl D数字h a字段名称数据类型V PayaientlD自动编号OrderlD数宇PaymcntAjnount货币PiymerLtDate日期/时间Credit Car dNuntbe

9、r文*CardholdersName文本CreditCardExnDate_日期/时间字段宦性宇段名称数据类型讲 CustoierlD自动编号CompanyNaine文本Co:ntactLa.stNoe文本Coiitact?irstlTaiiLe文本BillingAd?已注文圧City文本StateOrProvinc?文本3融公司信息字段名称数抿类型SetupID自动编号SalesTairRateCompanyManieAddressCitySt at eOr Pro vinceFostaLCode六、系统详细设计6.1数据库表的设计本系统表一共有一张，分别为“ Switchboad Item

10、s ”、“产品”、“订单”、“订单 明细”、“付费”、“付费方式”、“客户”、“我的公司信息”、“职员”、“装运方式” o表6-1:表p 1二Switch be ord home产品订单订苴明jS表口付蠡方耳盲户口5法运方式表 6-2 Switchboad Items项目编号 坯目文寧 甜令竖数” |隸血时虽10主切换宜祓ositU11谕入/鱼巻按寄户他的3扌宝春八灯直的订丄1X諭A7盍巷其他估总1 213预览抿表1 311也更改切淇西核頃目52；0苗体切凑画迺21術入/鱼虐职员3肛罠2x徧A7直隹我CH公町倍总3莪的仝刮信息3输入/咨雀产弗3(=品24谕入/色査山费心式3伺费方式2b輸入/杳

11、隹嗑运方世3煙运方我20邀叵1叨磁面板1 1窘U 艮表切渙面恆031预览石产呵丟扯弄4 B尸列養3；2预蚯应收恢软分期播衷4应收巾崔隸分期33预黄按宕户曲姿餡匡農耐4提宮戸井捋说宵軍34 ”隱换职员时喪钿性師扌4挫职員灯戎的售3b前览捜立品劳典祸程安砒4摻产品井黑梢習辛36逅回主叨鰹面扳1 1卡000记录：N 1呃宾丄9序b Z卜&記開达狂1注：表6-2 “Switchboard Items ”主要用于对主界面的设置，包括“Switchboard ID”、“项目编号”、“项目文字”、“命令”，“参数”。表6-3产品13 / 28：3产品产品标识.L品咅祢球榄球球尔Is球球球棍球篮tts排亠咼玻

12、棒台绳曲垒123456 7 89011 1单价”碎加埶字段45. 95乩6512. 953. 256. 7545. 55& 75127. 459. 6517. 8515. 50注：表6-3 “产品“主要用于储存产 品信息包括产品标 识、产品名称、单 件等三项信息表6-4订单表6-5订单明细表订臨i記缺飯卜*1 1AA酣葩刘躺2011/肌返A2灯蜩百苗去愎军12/3/1132A-孑人鳥百货畀芳ajiE/ViBffiA.-4人丄疽输百苛車立门呢仗5： 25A2( 12/4/251451i JyE2赠圈加逗2O12/Z/1122盖|gU昭E当敕军201ZM/1 333肌口帕哄豹芒201刃询4+4二

13、tq人丄为商百苗幸力2门沏11呵jy-10百制歩楼军旷2/#： 2硼土|E11車力.2(12/2/18 55 tg1?魅幅鹘王平2013/2/251r壮乂走号卑吕*日2(12/3/26 222t-30人人廟百按厳BB2f?心卜昭jx了订羊 _订甲匪缩页识+订事换识*产品际识 趙駐* 单价球 环 琢 孜 球 环-琢琰-姣夫走琢頊克瓦士环夫 H搽挖穢棍球榄域璃尔球尔璃觀榄棍筝榄减尔蜉球 堪缰萤懂曰塔锲足瑕高锋高珈曲桃曲高橄足鬲足盥 1 - - - 7 1 二2亠戈 2 3 % g7 4- h E E asLOD45.55sa9.65LOOk95204D1人日5iaYSS20札価5012.ybLOG

14、45.55100030-9,65406.7?9045.55IQ17.35305.6590+ 17. HhmTB+?530*5.6570Y1Z.951006.7!5SD12.95ID20.00K20JJ0%30.00K50.0C%35,OCX10.0DS20.0C112.00SZ3J3DSSa.OOK0.023. 0C%32.00%33JJD*30. OC% 业Q滋 10.00% o.ora12.(J Cl5.00S#/28民n K 1 箱压 *i f咎之注：表6-4 “订单”及表6-5“订单明细表”主要用于查看订单的基本内容。“定 单”主要包括“订单标识”、“客户标识”、“职员标识”、“订单编

15、号”、“收 货方名称”、“收货方地址”、“收货方城市”、“收货方省/自治区”、“收货方邮政编码”、“收货方国家”、“收货方电话”、“发货日期”、“装运方 式标识”、“运费”、“营业税额”；“订单明细”主要包括“订单明细标识”、 “点单标识”、“产品标识”、“数量”“单价”、“折扣”等。表6-6付费a tea_ _样赏站沽 I羊扛卜-寸色生報 河聖匕期 ，信年卡m ，持垠丸1印二d：- 112,20. &53C122i|=|5 2/ OOtl. 03.2411年2戸1玄日3 3“沁恥殆201241.504 4104. 30蛊01茫4取丄日6 5甲前年3启咒口6 K 乩师 132 F3 71P14

16、C1 W3011 于小师201 l/l ?J7 134. n!2Q1再4月1日4旳1痂朗王木用201S/S/15 EV 34.0201142194012:i丰201 ./10/15354.Sd她猝萌11日曲削聒切61將j说如1.4竝堆1011肚甜2012-2 lEH叫珂V14.30201222591313：13S+10Z01Z*Sfl2 阳* fir?)I書：|；i *-iirTiX 用卡.：i擾i亍塔用- 交通银行信用卡 二通餵if亍洁用卡|歸 m，ill WAxzCi ”，砂注:表6-6 “付费”只要用于查看付费方式、金额和日期。只要包括“付费标识”、 “订单标识”、“付费金额”、“付费日

17、期”、“信用卡号”、“持卡人”、“信 用卡到期日”、“信用卡权限”、“付费方式标识”。表6-7付费方式B角昔方式标付费方式于是否使用信用卡f:阴支票No邑2工商银行信用卡Yes于3现金No44交il银行信用卡JYes（新惠注:表 6-7用信用卡”付费方式”主要包括“付费方式标识”、“付费方式”、表6-8客户“是否使前 百目駆邸涮-詈敷魄瞬価金嗣* -畸一輻M -体訓Will M朗百贾王4酣碎北忌北京100097韭匸北亲1QD08717 T114002ft ft 理售售夫斛肓用品田 I 字禰猾 鳩 1：T1OD037 牛注：表6-8 “客户”主要用于查看客户的基本信息表6-9我公司信息17 /

18、28注：表6-9 “我的公司信息”主要用于查看公司的基本信息表6-10职员1111&33 33弓4 34工肓曲话-奇虫黃辛為朋寻 I宅予邮佯*| 训销鱼 僭春 uci rarnX,i 1 iul. l -jri IASJSQkillffisin*-. .n.羽于代賽匸呦 AUfjplnas Ina. co誚红煙hU J Ul - J Liri-b 1 r XfcjAliCl-11JJ- C亠ijiax詁工 &i *uj 1 j jki._ -. -_ *Jv u-iJ2?*Jl i* 髓丄車無 心 酌 卜卜|Si图63产品窗口图6-4按客户分类的订单图6-5打印发票窗口# / 28图6-6订单

19、分类窗口_ X角订草兮结匚応腹员标识订单标识120. DOSZ0. 00%30. 00%6595jin50. OOS& 3, 644. 00366.00 Y 346.5056.5013装运迭项I营田兑订宇总计应忖金額|1HS：第荃坝（共6骑制卜；酝图6-7订单明细窗口品球.器 球球夫 夫球时球殊+ 幘球妹榄保环榄琲诵尔球邙碼和揽梅F 呦劇篮撇曲霓橄足玻高翅高玻曲轍曲亠L 圉R单价-c.65 i.9S 5. 65 IT.E53.655.65 12. 95 45. 口55.759.65Y5.75 15. 55 IT. S3Y5.&5忆明折扣r | 层计too0.DO%Y3j gju. no5020

20、.0t386.00toe30.00乎輕6一50却50.00*56 一茹4UJ5.UOS454. 11?1010.00XV86. 352)12.0099. 449015.00%5S3.33too20. DO%，辛3用狀.oaIPW亿cm5.10,0030E3, 0(J%40弓讥OWYlS. 009040. 00%2,459.7010弧00% 137.3032.00% 115 .邮9025.00%rmn!nn nrwwW i* nrn rn图6-8 付费窗口Fa|忖隶- X记农：w 第1顶供1顶】卜N | 丁曰薛廷 茂零19 / 28图6-9付费方式窗口21 / 28救认聚隸 货劃后天內时款。岌票

21、说明感谢您在本处司定?图6-10我的公司信息窗口我的公司信恳蠶警碍昨和卅“通如亦际些电话号码 (0Z3) 8688989传專号冯如Z3) aeseese图6-11职员窗口图612装运方式23 / 28图613装运信息邑裟运肯息6.3生成报表按产品分类销售额生成的报表注:输入开始和结束日期点预览后七、详细设计代表性的SQL语句及结果7. 1 按职员分类的销售额子查询SELECTDISTINCTROW订单.EmployeelD,订单.OrderDate,订单.Freightcharge,订 单.SalesTaxRate,Sum(CLng(Quantity*UnitPrice*(1-Discount

22、)*1OO)/1OO) AS 总 销售额，Sum(订单明细表.Quantity) AS单位总数FROM订单LEFT JOINT单明细表 ON订单.OrderID =订单明细表.OrderID GROUP BY 订单.EmployeeID,订单.OrderDate,订单.Freightcharge,订 单.SalesTaxRate;7. 2按客户分类的销售额子查询SELECTDISTINCTROW订单.CustomerID,订单.OrderDate,订单.FreightCharge,订 单.SalesTaxRate,Sum(CLng(Quantity*UnitPrice*(1-Discount)

23、*100)/100) AS 总销售额,Sum（订单明细表.Quantity） AS单位总计FROM订单LEFT JOINT单明细表 ON订单.OrderlD =订单明细表.OrderlD GROUP BY 订单.CustomerlD,订单.OrderDate,订单.Freightcharge,订 单.SalesTaxRate;丿八、设计细节展示8. 1发票窗体设计* H*发祭* ：mp* riro- mr一产.-r 伽 C严/ f r M 2Z ?住护咒戸烂 E *J. /.t (MrO d =脛o“即加厂&讹冲F冲叮 LE =B： f 加A皿rm - *农沪、尺苹兰-=班曲* 卞a d/Ti

24、d曲* r二衣的冬再隹尸 亍二卞送- i JY.、a咖厂.伽.r -杠曲 w厂 -我申、海住护*7 -=皿a 3曲匕幺：我愛总B痊W ?匕0上克工t,aista E*f /VSu&cru识Cur f R-Jf sltJj.H B 卷 iff三 ZX占c JJ ZZrg.愛 JSL护打卿0JT 曲rP/T 兰*4rf.rC刃?邛归r.盲豪宁丹dc7打供奇31 / 288. 2结果展示jt密也鹼-pjrxjtrf至十翩f Ji/9inff *歉胄jkm虑冲nW*XUff“、W卜:*靡序耳轉“号世誉吉輦HrKSTrfdwsS jSJT 龙jt如直虞直曲 F 4科冉百叶gl甜必畑林朝产血古*rrfDI

25、DOTWH20. Mli工他通9 Actim宜估JCLMB J1EB 叩1曲IM4 503U-B % 2 nEr5U50 AND SwitchboardID= &Me!SwitchboardlDstrSQL = strSQL & ” ORDER BY ItemNumber;Set rst = dbs.Ope nRecordset(strSQL)If there are no opti ons for this Switchboard Page,display a message. Otherwise, fill the page with the items.If (rst.EOF) Then

26、Me!OptionLabel1.Caption = There are no items for this switchboard pageElseWhile (Not (rst.EOF)Me(Optio nLabel & rst!ltemNumber).Visible = TrueMe(OptionLabel & rst!ltemNumber).Caption = rst!ltemTextMe(Comma nd & rst!ItemNumber).E nabled = True rst.MoveNextWendEnd IfClose the recordset and the databas

27、e.rst.Closedbs.CloseEnd SubPrivate Function Han dleFocus(i ntBt n As In teger)This function is called when a menu option receives the focus.in tBt n in dicates which butt on was clicked.Dim in tOpti on As In tegerOn Error GoTo Han dleMouseOver_ErrFor in tOpti on = 1 To conNu mButtonsShow that this m

28、enu optio n has the focus.If in tOptio n = in tBtn The nMe(Option & intOption).Visible = TrueMe(OptionLabel & intOption).FontWeight = conFontWeightBold Me(comma nd & in tBt n).SetFocus. and turn off the focus on the other opti onsElseMe(Option & intOption).Visible = FalseMe(Optio nLabel & in tOptio

29、n).Fo ntWeight = conFon tWeightNormal End IfNext in tOptionHan dleMouseOver_Exit:Exit FunctionHan dleMouseOver_Err:MsgBox 执行该命令时出错。, vbCriticalResume Han dleMouseOver_ExitEnd FunctionPrivate Fun ction Han dleButto nClick( in tBt n As In teger)This fun ctio n is called whe n a butt on is clicked.in t

30、Bt n in dicates which butt on was clicked.Con sta nts for the comma nds that can be executed.Co nst co nCmdGotoSwitchboard = 1Const con CmdOpe nF ormAdd = 2Const con CmdOpe nFo rmBrowse = 3Const con CmdOpe nReport = 4Const con CmdCustomizeSwitchboard = 5Const con CmdExitApplicati on = 6Const con Cmd

31、R unM acro = 7Con st c on CmdRu nCode = 8An error that is special cased.Const con ErrDoCmdCa ncelled = 2501Dim dbs As DatabaseDim rst As RecordsetOn Error GoTo Han dleButto nClick_ErrFind the item in the Switchboard Items tablethat corresp onds to the butt on that was clicked.Set dbs = Curre ntDb()S

32、et rst = dbs.Ope nRecordset(Switchboard Items, dbOpe nDyn aset)rst.Fi ndFirst SwitchboardlD= & Me!SwitchboardlD & AND ltemNumber= & in tBtn If no item matches, report the error and exit the fun ctio n.If (rst.NoMatch) The nMsgBox 读取 Switchboard Items 表时出错。”rst.Closedbs.CloseExit FunctionEnd IfSelect Case rst!Comma ndGo to ano ther switchboard.Case con CmdGotoSwitchboardMe.Filter = ItemNumber = 0 AND SwitchboardID= & rst!Argume ntOpen a form in Add mode.Case con CmdOpe nFo rmAddDoCmd.Ope nForm rst!Argume nt, , , , acAddOpe n a form.Case con CmdOpe nFo rmBr