订单管理信息系统设计

第1章系统分析TOC\o"1-5"\h\z\o"CurrentDocument"系统建设的目标 1可行性分析 1需求分析 2系统组织结构图 2系统总体数据流程 3管理业务流程图 错误！未定义书签。数据流程 5系统数据字典 11第2章系统设计\o"CurrentDocument"系统设计的原则 11系统数据库设计 12代码设计 14用户界面设计 15\o"CurrentDocument"第3章系统实施 1.\o"CurrentDocument"登陆连接代码 17销售窗口代码 18系统使用说明书 20参考文献错.误.！.未.定.义.书.签.。参考文献辽宁工业大学课程设计说明书（论 文）辽宁工业大学课程设计说明书（论 文）#5客3户信息浏览界面设置55订4单信息管理界面设置:JForsl[3回区- : : : :_:单价…Itxt产品单价 ］一增加下单,日期「xtT单日或.:JForsl[3回区- : : : :_:单价…Itxt产品单价 ］一增加下单,日期「xtT单日或.数量…|txt产品数量,；…；…订单总额…「xt订单总额；编号|txt客户编停7名.称...Itxt客户名称屈母|txt邮编张址…|txt送货施址.[txt/2-品名称联系人.」txt联系人:…备注…Itxt备注[J- ■ {-I订单编号…『xt订单编号一；产品编号…|txt产品编耳一Q（■-.I.]F[I：nr^!lffin-i—r-r-r-I-VIr「el」、L二关系.电话.…Itxt联系电话首记录上一个下一个末记录?第3章系统实施3.登1陆连接代码1）“确定”按钮的 Click事件代码：SETEXACTONTHISFORM.i=THISFORM.i+1IFEMPTY（ALLTRIM（账号））MESSAGEBOX（“请输入账号名称"，48,"□□□□□□ ”）THISFORM.txt账号.SetFocusELSESELECTUserInfoLOCATEFORALLTRIM（账号）=ALLTRIM（THISFORM.txt账号.VALUE）IFFOUND（）.AND.ALLTRIM（密码） 二ALLTRIM（THISFORM.txt密码.VALUE）CUser二账号IsAdmin=管理THISFORM.RELEASE（）DOFORMLOGOELSEIFTHISRORM.i<3MESSAGEBOX（"账号或密码错误，请重新输入 ",48,"□□□□□□ ”）THISFORM.txt账号.VALUE=""THISFORM.txt密码.VALUE二〃〃THISFORM.txt账号.SetFocusELSEMESSAGEBOX（"密码错误3次,□□□□□□ ",48,"□□□□□□ ”）THISFORM.RELEASECLEAREVENTSQUITENDIFENDIFENDIFSETEXACTOFF2)“取消”按钮的 Click事件代码LOCALYNYN二MESSAGEBOX(〃确定退出 ",4+32,"□□□□□□ ”)IFYN=6THISFORM.RELEASECLEAREVENTSQUITENDIF产品信息窗口代码(1)Unload□□□□□□：IFTHISFORM.FormMode="cSelect"ReturnTHISFORM.SelectedproENDIF(2)DblClick事件代码如下：IFTHISFORM.FormMode="cSelect"THISFORM.SelectedPro=ALLTRIM(THIS.VALUE)THISFORM.ReleaseENDIF□3)Cmdser按钮的Click□□□□□□ :SelTJ=".T."IF.NOT.EMPTY(ALLTRIM(THISFORM.txt产品编号.Value))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt产品编号.Value)+"'$编ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt产品名称.VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt产品名称.Value)+"'$品名"ENDIFSELECTProductInfoSETFILTERTOSETFILTERTO&SelTJTHISFORM.Refresh(4)“退出”代码如下：YN二MESSAGEBOX("确定退出 "，4+32,“订单管理系统")IFYN=6IFTHISFORM.FormMode="cSelect"THISFORM.SelectedPro="0000000000"ENDIFTHISFORM.ReleaseENDIF客户信息浏览窗口代码□□□□□□□ Click事件代码：SelTJ=".T."IF.NOT.EMPTY(ALLTRIM(THISFORM.txt编号.Value))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt编号.Value)+"'$编号"ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt名称.VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt名称.Value)+"'$名称"ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt联系人.VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt联系人.Value)+"'$联系人ENDIFSELECTClientInfoSETFILTERTOSETFILTERTO&SelTJTHISFORM.Refresh□2)“打印”按钮的 Click事件代码：REPORTFORMClientInfoPreviewFOR&SelTJ3.4订单信息管理界面设置⑴“增加”按钮的 Click事件代码：SELECTOrderInfoTHISFORM.OldRecord=RECNO()APPENDBLANKTHISFORM.txt下单日期 .VALUE=DATE()THISFORM.txt订单总额 .VALUE=0THISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.Refresh(2)“修改”按钮的 Click事件代码：SELECTOrderInfoTHISFORM.OldRecord=RECNO()THISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.ReFresh□□□□□□ Click事件代码：LOCALYNYN=Messagebox(“确定删除 “，4+32,“订单管理系统 ”)IFYN=6

SELECTOrderInfoDELETEPACKIfEof().AND.BOF()ORRECCOUNT()=0THISFORM.INITELSEIFBOF()SkipElseIfEof()SKip-1EndIFEndIFENDIFENDIFTHISFORM.Refresh□□□□□□ Click事件代码：REPORTFORMOrderInfoPreviewFORALLTRIM(订单编号)=ALLTRIM(THISFORM.txt订单编号.Value)□□□□□□ Click事件代码：LOCALOK,YNOK=.T.DOCASECASEEMPTY(ALLTRIM(THISFORM.txt订单编号.Value))MESSAGEBOX("订单编号不能为空 “，48,“订单管理系统”)THISFORM.txt订单编号.SetFocusOK=.F.CASEEMPTY(ALLTRIM(THISFORM.txt产品编号.Value))MESSAGEBOX(“产品编号不能为空 “，48,“订单管理系统”)THISFORM.txt产品编号.SetFocusOK=.F.CASETHISFORM.txt产品数量.Value=0TOC\o"1-5"\h\zMESSAGEBOX（“产品数量不能为空 “，48,“订单管理系统 ”）THISFORM.txt产品数量.SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt客户编号 .Value））MESSAGEBOX（“客户编号不能为空 “，48,“订单管理系统 ”）THISFORM.txt客户编号.SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt联系人.Value））MESSAGEBOX（"联系人不能为空 ”,48,“订单管理系统 ”）THISFORM.txt联系人.SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt联系电话.Value））MESSAGEBOX（"联系电话不能为空 "，48,“订单管理系统 "）THISFORM.txt联系电话.SetFocusOK=.F.EndCaseIFOK=.T.YN二MESSAGEBOX（“确定保存记录 “，4+32,“订单管理系统 "）IFYN=6SELECTOrderInfoIFTABLEUPDATE（.F.）=.F.MESSAGEBOX（“订单编号错误“，48,“订单管理系统“）THISFORM.txt订单编号.SetFocusElseTHISFORM.bModify=.F.THISFORM.bBrowse=.F.THISFORM.ModeControlEndIfEndIfTHISFORM.MonthView.Visible=.F.THISFORM.RefreshENDIF□□□□□□□ Click事件代码：LocalOKYN二MESSAGEBOX("确定取消 "，4+32,"订单管理系统")IFYN=6SELECTOrderInfoTABLEREVERT(.F.)IFBOF().AND.EOF()ORRECCOUNT()=0THISFORM.INITELSEGOTHISFORM.OldRecordTHISFORM.bModify=.F.THISFORM.bBrowse=.F.THISFORM.ModeControlENDIFTHISFORM.MonthView.Visibl