还剩13页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
进销存系统数据库设计方案
1.access2003自学教程中国经济出版社
2001.
82.access2003应用设计教程高等教育出版社2附录主窗体代码:Option CompareDatabase OptionExplicit ConstconNumButtons=8Const conFontWeightBold=700Const conFontWeightNormal=400Private SubBox23_Click End Sub PrivateSub cmdExit_Click CloseCurrentDatabaseEndSubSub cmdExit_GotFocus Dim intOption As Integer If the ExitButton hasreceived the focus,turn offthe focuson allthe menu options ForintOption=1To conNumButtonsMeOptionintOption.Visible=False MeOptionLabelintOption.FontWeight=conFontWeightNormal NextintOption ExitLabel.Fontunderline=True EndSub PrivateSub cmdExit_LostFocus ExitLabel.Fontunderline=False EndSub PrivateSub cmdExit_MouseDownButton As Integer,Shift As Integer,X AsSingle,Y AsSingle ExitLabel.FontWeight=conFontWeightBold EndSub PrivateSub cmdExit_MouseUpButton As Integer,Shift AsInteger,X AsSingle,Y AsSingle ExitLabel.FontWeight=conFontWeightNormal EndSub PrivateSub Form_OpenCancel AsInteger Minimizethe databasewindow andinitialize the form.On ErrorGoTo Form_Open_Err Minimizethe databasewindow.DoCmd.Selectobject acForm,Switchboard1,True DoCmd.Minimize Moveto theswitchboard pagethat ismarked asthe default.Me.Filter=[ItemNumber]=0AND[Argument]=默认,”Me.FilterOn=True Form_Open_Exit:Exit Sub Form_Open_Err:MsgBox Err.Description ResumeForm_Open_Exit EndSub PrivateSubForm_Current Update the captionand fillin thelist ofoptions.Me.Caption=NzMe![ltemText],,M,FillOptions EndSub PrivateSub FillOptionsFill in the optionsfor thisswitchboard page.The numberof buttons on the form.Dim dbsAs DatabaseDim rstAs RecordsetDim strSQLAs StringDim intOptionAsIntegerSet the focus tothe firstbutton on theform,1and thenhide allof the buttonsontheformbut the first.You canthide thefield withthe focus.Me![Optionl].Visible=True Me![Commandl].Enabled=True Me![Commandl].SetFocus WithMe![OptionLabell].Visible=True.FontWeight=conFontWeightBold EndWith ForintOption=2To conNumButtonsMeOptionintOption.Visible=False MeOptionLabelintOption.Visible=False MeOptionLabelintOption.FontWeight=conFontWeightNormal MeCommandintOption.Enabled=False NextintOption Openthe tableof Switchboard Items,and findthefirstitem for this Switchboard Page.Set dbs=CurrentDb strSQL=SELECT*FROM[Switchboard Items]strSQL=strSQLWHERE[ItemNumber]0AND[SwitchboardlD]=Me![SwitchboardlD]strSQL=strSQLORDER BY[ItemNumber];Set rst=dbs.OpenRecordsetstrSQL Ifthere areno optionsfor thisSwitchboardPage,display amessage.Otherwise,fill thepage withthe items.If rst.EOF ThenMe![OptionLabell].Caption=There areno itemsforthisswitchboard pageElse WhileNot rst.EOF MeOptionLabelrst![ltemNumber].Visible=True MeOptionLabelrst![ltemNumber].Caption=rst![ltemText]MeCommandrst![ItemNumber].Enabled=True rst.Move NextWend EndIf Close the recordset and the database.rst.Close dbs.Close EndSub PrivateFunction HandleFocusintBtnAsIntegerThis functionis calledwhen amenuoptionreceives thefocus.intBtn indicateswhich buttonwas clicked.DimintOptionAsIntegerOn ErrorGoTo HandleMouseOver_Err ForintOption=1To conNumButtonsShow thatthis menuoption hasthefocus...If intOption=intBtn ThenMeOptionintOption.Visible=True MeCOptionLabelintOption.FontWeight=conFontWeightBold MecommandintBtn.SetFocus andturn offthefocusontheother optionsElse MeOptionintOption.Visible=False MeCOptionLabelintOption.FontWeight=conFontWeightNormal EndIf NextintOption HandleMouseOver__Exit:Exit FunctionHandleMouseOver_Err:MsgBox”执行该命令时出错,vbCritical ResumeHandleMouseOver_Exit EndFunction PrivateFunction HandleButtonClickintBtnAsIntegerThis functionis calledwhen abutton isclicked.intBtn indicateswhich buttonwas clicked.Constants forthe commandsthat canbe executed.Const conCmdGotoSwitchboard=1Const conCmdOpenFormAdd=2Const conCmdOpenFormBrowse=3Const conCmdOpenReport=4Const conCmdCustomizeSwitchboard=5Const conCmdExitApplication=6Const conCmdRunMacro=7Const conCmdRunCode=81An errorthat isspecial cased.Const conErrDoCmdCancelled=2501Dim dbsAs DatabaseDim rstAs RecordsetOn ErrorGoTo HandleButtonClick_Err Findthe iteminthe Switchboard Itemstable thatcorresponds tothebuttonthat wasclicked.Set dbs=CurrentDb Setrst=dbs.OpenRecordsetSwitchboard Items,dbOpenDynaset rst.FindFirst[SwitchboardlD]=Me![SwitchboardlD]AND[ltemNumber]=intBtn Ifno itemmatches,report theerror andexit thefunction.If rst.NoMatch Then MsgBox”读取SwitchboardItems表时出错11rst.Close dbs.Close Exit Function EndIf SelectCase rst![Command]Go toanother switchboard.Case conCmdGotoSwitchboardMe.Filter=[ItemNumber]=0AND[SwitchboardlD]=rst![Argument]Open a form inAdd mode.Case conCmdOpenFormAddDoCmd.OpenForm rst![Argument],,,,acAdd Open aform.Case conCmdOpenFormBrowseDoCmd.OpenForm rst![Argument]Openareport.Case conCmdOpenReportDoCmd.OpenReport rst![Argument],acPreview Customizethe Switchboard.Case conCmdCustomizeSwitchboardHandle thecase wheretheSwitchboardManager isnot installede.g.Minimal Install.On ErrorResume NextApplication.Run ACWZMAIN.sbm_Entry HIf Err0ThenMsgBox”命令不可用”On ErrorGoTo0Updatetheform.Me.Filter=[ItemNumber]=0AND[Argument]=默认Me.Caption=NzMe![ltemText],3FillOptions Exitthe application.Case conCmdExitApplicationCloseCurrentDatabase Runa macro.Case conCmdRunMacroDoCmd.RunMacro rst![Argument]Run code.Case conCmdRunCodeApplication.Run rst![Argument]Any othercommand isunrecognized.Case Else MsgBox”未知选项”End SelectClosetherecordsetandthedatabase.rst.Close dbs.Close HandleButtonClick_Exit:ExitFunctionHandleButtonClick_Err:Iftheaction wascancelled bythe userfor somereason,dont displayan errormessage.Instead,resume onthe nextline.If Err=conErrDoCmdCancelled ThenResume NextElseMsgBox”执行该命令时出错,vbCritical ResumeHandleButtonClick_Exit EndIf EndFunction目录
58.
一、引言订单管理是每所公司或工厂必须面对的工作,特别这几年,我国加入WTO,随着国家政策的调整,给企业的订单管理,商品的进存销都带来了不少冲击但一直以来用传统人手方式管理文件档案,这种管理方式存在许多缺点效率低,保密性差,另外随着进货数量的增加,这必然增加了订单管理者的工作量和劳动强度同时,将产生大量的文件和数据,这给订单信息的查找,更新和维护都带来了不少困难据调查,目前我国还有相当一部分企业的订单还停留在纸介质的基础上,尤其小型工厂或企业对订单的管理更是落后这样的管理机制已经不能适应时代发展的需求,其管理方法将浪费人力物力随着科技的不断提高,计算机科学与技术日渐成熟,这种传统的手工管理模式必然被以计算机为物质基础的信息管理方式所取代
二、开发环境根据实际情况编制
三、需求分析我公司为加强订单管理,准备开发一个订单管理系统,该系统包括按客户分类订单管理子系统,其他信息子系统,预览报表子系统下面是经需求调查并初步归纳出的相关存储要求如下所示
9.1按客户分类订单管理子系统a.订购情况订单标识,职员标识,产品,单价,数量,折扣,总计等信息b.付费情况包括订单标识,付费方式,付费日期,付费金额,持卡人姓名,信用卡号等信息c.预览发票包括订单标识,发票日期,发票金额,付款条款等信息
9.2其他信息子系统a.职员情况包括职员姓,名,职务,电话号,邮件地址等信息b.公司信息包括公司全称,地址,邮编,营业税率,电话号,传真号等c.产品情况包括产品标识,产品名称,产品单价等d.付费方式包括付费方式标识,付费方式,是否使用信用卡等e.装运方式包括装运方式标识,装运方式
9.3预览报表子系统a.按客户情况包括客户姓名,电话号,传真号,公司名称等b.按应收账款包括客户姓名,当前应收账款,30-60天后应收账款,61-90天后应收账款,大于90天后应收账款,余额等信息c.按客户分类销售额包括公司名称,单位总计,总销售额,营业税,运费总计,发票上的金额等信息e.按职员分类销售额报表包括职员姓名,单位总数,总销售额等信息f.按产品分类销售额包括产品名称,单位总计,总销售额等信
四、概念结构设计定单
4.1整体ER模型图
4.2子系统ER模型图
4.21订单的职员实体一一关系
4.2222产品订单系统产品实体——关系
4.23产品订单系统订单实体一一关系
4.244产品订单系统订单明细实体一一关系
4.25产品订单系统付费实体一一关系
4.26产品订单系统付费方式实体一关系
4.27产品订单系统客户实体一一关系
4.288产品订单系统我的公司信息实体一一关系
五、数据字典(比较多,不一一列出)
六、系统详细设计
6.1数据库表的设计本系统表一共有十一张,分别为Switchboad Items”、“产品”、“订单”、“订单明细”、“付费”、“付费方式”、“客户”、“我的公司信息”、“职员”、“装运方式”表6-1表6-2Switchboad Items注表6-2u SwitchboardItems”主要用于对主界面的设置,包括“Switchboard ID”、“项目编号”、“项目文字”、“命令”,“参数”表6-3产品注表6-3”产品”主要用于储存产品信息包括产品标识、产品名称、单件等三项信息表6-4订单表6-5订单明细表注表6-4“订单”及表6-5订单明细表”主要用于查看订单的基本内容“定单”主要包括“订单标识”、“客户标识”、“职员标识”、“订单编号”、“收货方名称”、“收货方地址”、“收货方城市”、“收货方省/自治区”、“收货方邮政编码”、“收货方国家”、“收货方电话”、“发货日期”、“装运方式标识”、“运费”、“营业税额”;“订单明细”主要包括“订单明细标识”、“点单标识”、“产品标识”、“数量”“单价”、“折扣”等表6-6付费注表6-6“付费”只要用于查看付费方式、金额和日期只要包括“付费标识”、“订单标识”、“付费金额”、“付费日期”、“信用卡号”、“持卡人”、“信用卡到期日”、“信用卡权限”、“付费方式标识”表6-7付费方式注表6-7“付费方式”主要包括“付费方式标识”、“付费方式”、“是否使用信用卡”表6-8客户注表6-8“客户”主要用于查看客户的基本信息表6-9我公司信息注表6-9“我的公司信息”主要用于查看公司的基本信息表6-10职员表6T1装运方式
6.2由表生成各种窗口图6—1主切换面板图6-2按客户分类的订单图6—3产品窗口图6-4按客户分类的订单图6-5打印发票窗口图6-6订单分类窗口图6-7订单明细窗口图6-8付费窗口佟I6-9付费方式窗口图6-10我的公司信息窗口图6-11职员窗口图6—12装运方式图6—13装运信息
6.3生成报表按产品分类销售额生成的报表注输入开始和结束日期点预览后
七、详细设计代表性的SQL语句及结果
7.
1.按职员分类的销售额子查询SELECT DISTINCTROW订单..Employee订单.OrderDate,订单.Freightcharge,订单.SalesTaxRate,SumCLng[Quantity]*[UnitPrice]*l-[Discount]*100/100AS总销售额,Sum[订单明细表].Quantity AS单位总数FROM订单LEFT JOIN订单明细表ON订单.OrderlD=[订单明细表].OrderlD GROUPBY订单.EmployeelD,订单.OrderDate,订单.FreightCharge,订单.SalesTaxRate;
7.2按客户分类的销售额子查询SELECT DISTINCTROW订单.CustomerlD,订单.OrderDate,Freightcharge,订M.SalesTaxRate,SumCLng[Quantity]*[UnitPrice]*l-[Discount]*100/100AS总销售额,Sum[订单明细表]Quantity AS单位总计FROM订单LEFT JOIN订单明细表ON订单.OrderlD=[订单明细表].OrderlD GROUPBY订单.CustomerlD,订单.OrderDate,订单.Freightcharge,订M.SalesTaxRate;
八、设计细节展示
8.1发票窗体设计
8.2结果展示
8.3按产品分类销售额窗体设计
8.4结果展不
九、关键技术及体会本课程设计中主要用了表操作,查询操作,窗体设计,菜单与工具栏的使用等技术,开始只是模仿书上的例题进行练习,做了几次后,发现利用模板,或着使用数据导入导出,和wr d,e xc e1等结合使用会更加方便,快捷
十、课程设计总结在这次数据库实习的过程中,我们利用课下时间进行学习,对数据库的基本操作和感念有了大体的了解能够用用access设计一个简单的订单管理系统,其主要功能是查询与管理同时,这次实习培养了我们对数据库的兴趣,有助于我们以后对数据库有进一步的了解和学习,也给了我们一个动手实践的机会,使我们在理论付诸于实践的过程中有了新的能力上的提升参考文献。