物流信息系统课程设计2017

《物流信息系统课程设计2017》由会员分享，可在线阅读，更多相关《物流信息系统课程设计2017（105页珍藏版）》请在装配图网上搜索。

1、成 绩武汉轻工大学经济与管理理学院 物流信信息系统统课程设设计报告告题 目 物物流信息息系统课课程设计计报告 姓 名 学学 号 专业年级 物流管管理15501指导教师 黄键 职职 称 年 月月 日教师评语：指导教师_（签名）年 月 日目 录目录一课程设设计的序序言3二课程设设计的内内容及其其步骤4 （一一）建立立数据库库4（二）主程程序.6.（三）主菜菜单.7（四）建立立工具栏栏.7.（五）建立立loggo表单单.8.（六）表单单基本信信息表ssysttem.15.（七）表表单rkkd（入入库单）.19.（八）出库单ckd.25.（九）器材明细表表单qcmx.scx.35（十）浏览览修改表表单

2、lllxg.scxx. .411（十一）修修改总数数据库表表单xggmaiin.555（十二）个个人工具具卡表单单grggj. 588（十三）创创建本地地视图lll_ggjk.600（十四）创建建修改个个人工具具卡表单单grggjk .661（十五）建立立报表.644.（十六）连编编.67（十七）制作作安装盘盘.668三课程设设计的总总结和感感想711一、设计的的序言设计目的：物流信息息系统课课程设计计为学生生提供了了一个既既动手又又动脑，独独立实践践的机会会。培养养学生“物流信信息系统统”课程所所学知识识的综合合应用，分分析和解解决企业业物流信信息系统统实际问问题的能能力。设计要求由教师布置

3、置课程设设计的思思路，提提供设计计资料，学学生根据据资料，结结合企业业物流系系统的相相关知识识，对资资料进行行深入分分析，独独立完成成物流信信息系统统课程设设计。设计内容：1根据企企业库房房需求进进行分析析。2利用VVFP进进行软件件设计。 二、课程设设计的内内容及其其步骤（一）建立立数据库库1、新新建数据据库1550800900003郑郑万芳，保保存到ee：1550800900003郑郑万芳 目录下下。2、在数据据库中新新建表ssystten（.dbff），五五个字段段：fzzr、bbgy、jjhy、ccly、mmimaa，其标标题分别别为：负负责人、保保管员、计计划员、材材料员、密密码。3

4、、新建表表maiin（.dbbf）： cckbhh c(10), rrq dd(8),qccmc c(116),ggxxh cc(200),llb cc(6),dww c(4), djj n(8,22),ppzbhh c(10),rkksl n(88,2),rkkje n(110,22), ckssl nn(8,2), ckkje n(110,22),ggcmcc c(30),bzz c(6),clyy c(6),bgyy c(6),jhyy c(6),llrr c(6),fzrr c(6),lh c(66),yyt cc(200),qqu cc(2),jiia cc(2),haao cc(2

5、),kuu c(2)。其其标题分分别为：出库编编号，日日期，器器材名称称，规格格型号，类类别，单单位，单单价，凭凭证编号号，入库库数量，入入库金额额，出库库数量，出出库金额额，工程程名称，班班组，材材料员，保保管员，计计划员，领领料人，负负责人，料料号，用用途，区区，架，号号，库。说说明：cc-字符符型；dd-日期期型；nn-数值值型，括括号内为为字节长长度，逗逗号后面面的数值值为几位位小数。4、新建表表grggjk（.dbbf）: ckbbh cc(100), rq d(88),qqcmcc c(16),gggxh c(220),lb c(66),ddw cc(4), ddj nn(8,2)

6、, ckksl n(88,2), cckjee n(10,2),bz c(66),jjhy c(66),lllr c(66)。其其标题分分别为：出库编编号，日日期，器器材名称称，规格格型号，类类别，单单位，单单价，出出库数量量，出库库金额，班班组，计计划员，领领料人。完成后（二）主程程序seet ttalkk offf &关闭闭对话模模式set ssafee offf&关闭对对话框set sstatt offf&不不显示提提示对话话框set ddelee onn &不处处理已删删除的记记录set ccentt onn&设设定日期期格式年年为4位位数set cconss onn &激激活从程程序

7、中向向 Viisuaal FFoxPPro 主窗口口或活动动的用户户自定义义窗口的的输出set ddatee too annsi &设设置日期期格式set sstatt baar oon &打开状状态栏set ccoloor tto &设定定配色方方案set ssysmmenuu offf &关闭系系统主菜菜单closee alll &关闭各各种类型型的文件件RELEAASE WINNDOWW 常用用 &关关闭常用用工具栏栏if modd(daay(ddatee(),2)=0 &偶数日日期_SSCREEEN.bacckcoolorr=rggb(880,1180,1500) &窗窗口背景景颜色M

8、MODIIFY WINNDOWW SCCREEEN TTITLLE 库库房管理理应用软软件 vver 2.11 为为齐;鲁鲁石化检检修公司司机泵车车间编制制 今天是是：+dtooc(ddatee()+ +cdoow(ddatee()elsse &奇奇数日期期_SCCREEEN.bbackkcollor=rgbb(800,1550,1180) &窗口口背景颜颜色MOODIFFY WWINDDOW SCRREENN TIITLEE 库房房管理应应用软件件 veer 22.1 ; 软件件编制者者：王永永成 今今天是：+ddtocc(daate()+ +ccdoww(daate()eendiifZOO

9、OM WINNDOWW SCCREEEN MMAX &主窗窗口最大大化_SSCREEEN.conntroolboox=.f. &去掉掉主窗口口控制按按钮deeacttivaate winndoww 项项目管理理器 &关闭闭项目管管理器mmypaath=lefft(ssys(16),raat(,syss(166) &确确定程序序所在的的位置sset deffa tto (myppathh) &设设置当前前路径sset patth tto ddataa;foorm;picc &指指明路径径opeen ddataabasse kkfgll &打开开数据库库do forrm llogoo &运运行表单

10、单loggoreead eveentss &占用进进程，启启动事件件处理qquitt &退退出（三）主菜菜单操作(BBR器材材入库 命令令：doo foorm rkdd器材出出库 命令：do forrm cckd-退出 命命令：CCleaa evventt编辑(BRR编辑浏浏览出入入库单 命令令：doo foorm llxxg浏览个个人工具具卡 命命令：ddo fformm grrgjkk修修改个人人工具卡卡 命令令：doo foorm grggjk-基基本设置置 命令令：doo foorm sysstenn游戏(BRR猜数游游戏 命命令：ddo fformm cssyx身体体状态测测试 命令

11、令：doo foorm stccs-心灵灵感应 命令：do forrm xxlgyy退出(BBR 命命令Cllea（四）建立立工具栏栏1、点击击“文件”“新新建”按钮，选选择“类”，出现新新建类对对话框。2、类名输输入郑郑万芳kkuf，派生生于选择择tooolbbar，存储储于：“e:1500809900003郑万万芳郑郑万芳kkuf.vcxx”，按确定按钮，出出现类设设计器。3、跟建立立表单一一样，如如图5-2，我们建立88个命令令按钮，其其tooolttipttextt分别别为：器器材入库库，器材材出库，修修改，浏浏览，查查找器材材，身体体状态测测试，猜猜数游戏戏，退出出。给按按钮加上上图

12、片、文文字（例例如：猜字字）。在在各自的的cllickk方法法程序中中输入相相应的命命令（如如：doo foorm rkdd），现现在还没没建立这这些表单单，可以以在建完完以后再再输。（五）建立立loggo表单单（1）新建建表单llogoo，tiitleebarr为0-关闭，hheigght=1155，wiidthh=2222。其其iniit过程程：usse ssysttenTThissforrm.LLabeel1.widdth =0TThissforrm.LLabeel3.Lefft =thiisfoorm.widdthppubllic tbss,bggy1,clyy1,jjhy11,fzz

13、r1tthissforrm.ttop=0thhisfformm.leeft=0bggy1=bgyyclyy1=cclyjjhy11=jhhyfzzr1=fzrr（2）Laabell1的ccapttionn为“欢欢迎使用用库房管管理软件件”，透透明，楷楷体，112号，黄黄色。（3）Laabell2的ccapttionn为“输输入密码码”，透透明，黑黑体，112号，绿绿色。（44）Laabell3的ccapttionn为“软软件作者者：武汉汉轻工大大学 郑郑万芳”，透透明，白白色。（5）文本本框的NNamee为txxtpaasswwordd，paasswworccharr为*。（66）计时时器ti

14、imerr1，iinteervaal=2200。其timeer过程程：iff thhisfformm.toop1600 &判断断labbel11的宽度度是否大大于1660 TThissforrm.LLabeel1.widdth =0 &laabell1的宽宽度设为为0Ellse Thiisfoorm.Labbel11.wiidthh = Thiisfoorm.Labbel11.wiidthh +116 &宽宽度增加加16EEndIIf*以以下作用用是让llabeel3向向左移动动If Thiisfoorm.Labbel33.Leeft =3 =meessaagebbox(你不不是合法法用户！你

15、不能能使用！,64,提示示窗口) tthissforrm.rreleeasee Cleea eevennt elsse =mmesssageeboxx(口口令不正正确！请请重新输输入！,644,提提示窗口口)thhisfformm.txxtpaasswwordd.vaaluee=tthissforrm.ttxtppasssworrd.ssetffocuus()enndiffENDDIF（8）命令令按钮ccancell，退出出。其cclicck过程程：thhisfformm.reeleaaseCCleaa evventt出现的问题题：点击确定按按钮，出出现一个个程序错错误的提提升，显显示文件件不

16、存在在以及找找不到变变量解决方案：因为对对vfpp软件操操作不够够精通，暂暂时没有有想到解解决方案案。望老老师见谅谅。（六）表单单 基本本信息表表sysstemm（1）表表单的“ccapttionn”为“基基本信息息”，“wwinddowttypee”为11-模式式（2） 建立标签“llabeel1labbel55”、文文本框“ttextt1ttextt5”和和命令按按钮“ccommmandd1”。（3）右击击表单选选择“数数据环境境”（图图6-11）。（4）填加加表syysteen.ddbf。（图图6-22）（5） 、textt1ttextt5的“cconttrollsouurcee”分别别

17、选择ssystten.fzrr、syysteen.jjhy、ssystten.clyy、syysteen.bbgy、ssystten.mimm（6）、llabeel1labbel55的caaptiion为为：负责责人、计计划员、材材料员、保保管员、密密码。（7） 、commmandd1.ccilcck为：thiisfoorm.relleasse。（8）、ttextt5的“iinpuutmaask”为为：“XXXXXXXX”，“ppasssworrdchhar”为为：“*”。出出现的问问题：Text11-4无无法输入入数据，基基本信息息表不能能正常使使用。解决方案：因为对对vfpp软件的的使用不

18、不够精通通，所以以对该出出现的问问题无法法解决，望望老师见见谅。（七）表单单rkdd（入库库单）（11）、我我们用一一些标签签和线条条建立（如如图6-3）表表单rkkd，你你可以根根据自己己单位的的情况设设计。其其“tiitleebarr”为：0-关关闭（2）、建建立177个文本本框（由由于我在在设计时时进行过过修改，删删掉了一一些文本本框，所所以现在在不连续续），其其“baacksstylle”为为：0-透明、“bbordderccoloor”为为：0-无(没没有“0-无无”这个选选项，只只有颜色色的选择择，如下下图：)其“conntroolsoourcce”分分别为：texxt9为为bgy

19、y1，ttextt12为为fzrr1，ttextt17为为clyy1，其其它的均均与其nnamee相同（例例：teext11为teext11.）。（3）、组组合框ccombbo2，“bbordderccoloor”为为：0-无(没没有“0-无无”这个选选项，同同上)，“cconttrollsouurcee”为ccbo11，“rrowssourrce”为为：“钢钢材,管管件,配配件,工工器具,量具,杂品,消耗品品,油料料,劳保保,阀门门”，“rrowssourrcettypee”为：1-值值。（4）、命命令按钮钮commmannd1（确确定）的的cliick过过程为：tiss=meessaage

20、bbox(保存存入库单单？,4+664,提示窗窗口)if tiss=6iif !useed(maiin)usee mmainnelsseseele maiinenndiffAPPPENDD BBLANNKreepl lbb wwithh cbbo1rrepll rrq wwithh daate()reepl pzzbh wiith texxt4rrepll ggcmcc wwithh teext55reppl yt witth ttextt6reepl lhh wiith texxt133reppl qcmmc wwithh teext119reepl gggxh wiith texxt200

21、reppl dw witth ttextt7reepl rkksl witth ttextt8reepl djj wwithh ttextt10rrepll rrkjee wwithh ttextt11rrepll jjhy wiith teext223reepl bggy witth bgyyreppl fzrr wwithh ffzrrrepll lllr wiith cllyusseteext220=teext113=teext44=texxt8=0.000teext110=00.000texxt111=0.00ttextt1=yyearr(daate()ttextt2=mmontth(

22、ddatee()texxt3=dayy(daate()tthissforrm.ccbo22.seetfoocussthiisfoorm.reffresshenndiff（5）、命命令按钮钮commmannd2（退退出）的的cliick过过程：uusetthissforrm.rreleeasee（6）、表表单foorm11的innit过过程： puubliic ttextt1,ttextt2,ttextt3,ttextt4,ttextt5,ttextt6,ttextt7,ttextt8,ttextt10,texxt111,; teext119,ttextt20,texxt233,cbbo1,te

23、xxt9,texxt133texxt5=ttextt6=teext77=texxt133=texxt177=texxt199=texxt200=texxt233=texxt122=texxt9=ttextt4=teext88=0.00ttextt10=0.000teext111=00.000texxt1=yeaar(ddatee()texxt2=monnth(datte()teext33=daay(ddatee()cboo1= thiisfoorm.cboo2.ssetffocuus（7）、表表单foorm11的deestrroy过过程：rreleeasee teext11,teext22,t

24、eext33,teext44,teext55,teext66,teext77,teext88,teext110,ttextt11,; texxt199,teext220,ttextt23,cboo1,ttextt9,ttextt13出现的问题题：1. 点击组合框框1的下下拉箭头头，无法法选择2. 点击确定命命令后，弹弹出是否保保存入库库单，选择择“是”，出现现以下程程序错误误，显示示文件不不存在解决方案：因为对对vfpp软件的的使用不不够精通通，所以以对出现现的问题题无法解解决，望望老师见见谅。（八）出库库单ckkd 最最初我设设计的出出库单象象入库单单一样，一一次只能能开一种种材料，由由于在

25、车车间使用用就改成成现在这这样。图图7-11（1）、文文本框ttextt1的“ddateeforrmatt”为：144-汉语语；“ttapsttop”（如下图：）为：.F.假；“value”为：=date()。其他略。（2）、建建立表格格Griid1。右右击Grrid11选择生生成器选选择maain表表，选定定如下字字段：qqcmcc、gggxh、ddw、ddj、ccksll、ckkje、llb，按按确定按按钮。（图图7-22）（3） 、修改表格格Griid1。“ddeleetemmarkk”为：.FF.-假假；“rrecoordmmarkk”为：.FF.-假假；“rrecoordssourr

26、ce”为为：（无无）（去去掉mmainn）；“sccrolllbaars”为为：22-垂直直。CCombbo1的的“roowsoourcce”为为：一一班,二二班,三三班,四四班,五五班,六六班,办办公室；“rrowssourrcettypee”为：1-值。（4）、表单的init过程：public bz1,bh1,llr1*建立临时表lscreat cursor ls ( ckbh c(10), rq d(8),qcmc c(16),ggxh c(20),dw c(4), ; dj n(8,2), cksl n(8,2), ckje n(10,2),gcmc c(30),bz c(6),; y

27、t c(20),cly c(6),bgy c(6),jhy c(6),llr c(6),fzr c(6),lb c(6)with thisform.grid1.recordsource=ls.column1.controlsource=ls.qcmc.column2.controlsource=ls.ggxh.column3.controlsource=ls.dw.column4.controlsource=ls.dj.column5.controlsource=ls.cksl.column6.controlsource=ls.ckje.column7.controlsource=ls.lbe

28、ndwith（5）、打打印按钮钮的ciilckk过程：bz11=thhisfformm.coomboo1.vvaluuebhh1=aalltt(thhisfformm.teext55.vaaluee)lllr1=alllt(tthissforrm.ttextt6.vvaluue)sselee lssmesssaggeboox(请用BB5纸！,116,提示信信息)REPPORTT FOORM ckddan.frxx TTO PPRINNTERR thhisfformm.reefreesh（66）、保保存按钮钮的ciilckk过程：bz11=thhisfformm.coomboo1.vvaluue

29、bhh1=aalltt(thhisfformm.teext55.vaaluee)rqq1=ddatee()lllr11=alllt(thiisfoorm.texxt6.vallue)gcmmc1=alllt(tthissforrm.ttextt3.vvaluue)yyt1=alllt(tthissforrm.ttextt4.vvaluue)*检查输输入是否否有效sselee lsscouunt forr !ddeleetedd() to zsiif zzs=00meessaagebbox(至少少要有一一条记录录才能保保存！,166,提提示信息息)retturnnenddifiif eemptt

30、y(bbz1)meessaagebbox(请填填写班组组,116,提示信信息)reeturrnenndiffloccat forr lss.ckksl=0iff fooundd()messsaggeboox(请填写写数量,166,提提示信息息)retturnnenddif*加入到到正式表表中goo toopdoo whhilee !eeof()iinseert intto mmainn (cckbhh,rqq,qccmc,ggxxh,ddw,ddj,ccksll,ckkje,gcmmc,yyt,lllr,jhyy,lbb,bzz) ; vallue (bhh1,rrq1,ls.qcmmc,ll

31、s.gggxhh,lss.dww,lss.djj,lss.ckksl,ls.ckjje,ggcmcc1,lls.yyt,lllr11,jhhy1,ls.lb,bz11) if alllt(lls.llb)=工器器具 iinseert intto ggrgjjk (ckkbh,rq,qcmmc,gggxhh,dww,djj,ckksl,ckjje,lllr,jhyy) ; vallue (bhh1,rrq1,ls.qcmmc,lls.gggxhh,lss.dww,lss.djj,lss.ckksl,ls.ckjje,lllr11,jhhy1) eendiif skiipennddoozapp（6

32、）、退退出按钮钮的ciilckk过程：tt=0thhisfformm.reeleaase（7）、GGridd1下的的Collumnn1下的的Texxt1的的DbllCliick过过程：ddo fformm qccmx selle llsthhis.vallue=maiin.qqcmccwitth tthissforrm.ggridd1.collumnn2.ttextt1.vvaluue=mmainn.gggxh.coolummn3.texxt1.vallue=maiin.ddw.collumnn4.ttextt1.vvaluue=mmainn.djj .collumnn5.ttextt1.vv

33、aluue=00 .coolummn6.texxt1.vallue=0.collumnn7.ttextt1.vvaluue=mmainn.lbbenddwitththhisfformm.reefreeshtthissforrm.ggridd1.ccoluumn55.teext11.seetfoocussthiisfoorm.reffressh（8）、GGridd1下的的Collumnn5下的的Texxt1的的LosstFoocuss过程：if thiis.vvaluueccksll1 ss=alllt(sstr(ckssl1) meessaagebbox(开票票数量不不能大于于库存数数量+ss

34、,16,提示示信息) thhisfformm.grrid11.coolummn5.texxt1.vallue=0 thhisfformm.grrid11.coolummn5.texxt1.settfoccus reetueendiif thiisfoorm.griid1.collumnn6.ttextt1.vvaluue=lls.ccksll*lss.djjthiisfoorm.griid1.reffressh（9）、GGridd1的rrighhtciilckk过程：selle llsdoo tjjia.mprr &调调用tjjia菜菜单thhisfformm.grrid11.reefrees

35、htthissforrm.ggridd1.ssetffocuus 附附加：建建立tjjia菜菜单（11）、新新建快捷捷菜单（2）、“填填加一条条”的过程内容为为：loocatt foor lls.ccksll=0iif ffounnd()meessaagebbox(请填填写数量量,116,提示信信息)reeturrnenndiffapppendd bllankk（3）、“删删除选定定一条”的的过程程内容容为：iif mmesssageeboxx( 是否真真的删除除该行？,336,提示信信息)=6delleenndiff（4）、生生成为ttjiaa。出现的问题题：1. 点击保存命命令，出出现以下

36、下程序错错误，显显示文件件不存在在2. 点击退出命命令，出出现以下下程序错错误解决方案：因为对对vfpp软件的的使用不不够精通通，所以以对以上上出现的的错误无无法给出出解决方方案，望望老师见见谅。（九） 器材明细表表表单qqcmxx.sccx（1）建立立标签（按按其caaptiion内内容）：“在上上面的文文本框中中输入”，“器器材名称称或规格格型号”，“库库存数量量：”，“库库存金额额：”，“器器 材 明 细细 表”，“库库”，“区区”，“架架”，“号号”，“器器材名称称：”，“规规格型号号：”，“单单位：”，“单单价：”。（2）建立文本框：ku,qu,jia,hao,qcmc,ggxh,d

37、w,dj（以上文本框的controlsource分别为：“main.+其名”），text7，text8，text10。（3）建立立命令按按钮coommaand115（图图8-22） （4） 建立表格GGridd1，右右击选择择“生成成器”，选选择表mmainn的如下下字段：rq,qcmmc,gggxhh,rkkbh（前前面设置置的表mmainn里没有有rkbbh字段段）,rrksll,rkkje,ckbbh,ccksll,ckkje,lb。其其它属性性在这里里就不一一一介绍绍了。（5）foorm11.innit:tbss.hiide &在运运行此表表单时隐隐藏快捷捷图标ppubllic cks

38、sl1 &定义全全局变量量（6）foorm.desstrooy：ttbs.shoow &在关闭闭此表单单时显示示快捷图图标（7）teext110.iinteeracctivvechhangge：llocaate forr alllt(qcmmc)=alllt(tthiss.vaaluee)iff fooundd()go reccn()thhisfformm.reefreesheelseeloocatte ffor alllt(tthiss.vaaluee)$aalltt(gggxh)iff fooundd()go reccn()thhisfformm.reefreeshenddifeendii

39、f （8）ccommmandd1.cclicck：tthissforrm.ccommmandd2.eenabbledd=.tt. tthissforrm.ccommmandd5.eenabbledd=.tt.iff !RRECNN()=1 skiip -1 elsse go 1 thiis.eenabbledd=.ff. mmannd4.enaableed=.f.enddiftthissforrm.rrefrreshh （9）coommaand22.cllickk：thhisfformm.coommaand11.ennablled=.t.mmannd4.enaableed=.t.iif !eo

40、ff() skkip 1 ellse goo boottoom thiis.eenabbledd=.ff. mmannd5.enaableed=.f.enddiftthissforrm.rrefrreshh （10）ccommmandd3.cclicck：TTHISSFORRM.RRELEEASEE（11）ccommmandd4.cclicck：tthissforrm.ccommmandd2.eenabbledd=.tt.thhisfformm.coommaand55.ennablled=.t. go 1 thiis.eenabbledd=.ff.thhisfformm.coommaand11

41、.ennablled=.f.thiisfoorm.reffressh （12）ccommmandd5.cclicck：tthissforrm.ccommmandd1.eenabbledd=.tt.thhisfformm.coommaand44.ennablled=.t. ggo bbotttom thhis.enaableed=.f.tthissforrm.ccommmandd2.eenabbledd=.ff.thhisfformm.reefreesh （13）ggridd1.rrefrreshh：thhisfformm.grrid11.reecorrdsoourcce=selle mmain

42、n.rqq,qccmc,ggxxh,ppzbhh,rkksl,rkjje,cckbhh,ckksl,ckjje,llb ffromm maain intto ccurss teemp;whheree alllt(qcmmc)=alllt(thiisfoorm.qcmmc.vvaluue) .annd. alllt(gggxhh)=alllt(tthissforrm.gggxhh.vaaluee) selle ttemppsumm rkksl to sl11summ ckksl to sl22summ rkkje to je11summ ckkje to je22ckssl1=sl11-sll2

43、thhisfformm.teext77.vaaluee=sll1-ssl2tthissforrm.ttextt8.vvaluue=jje1-je22 seele maiin出现的问题题：1. 点击“运行行”，立马马出现程程序错误误解决方案：因为对对vfpp软件的的使用不不够精通通，所以以对以上上问题无无法解决决，望老老师见谅谅。（十） 浏览修改表表单lllxg.scxx（1）、建建立选择择按钮组组Opttionngrooup11。BuuttoonCoountt=3.（2）、建建立选择择按钮组组Opttionngrooup22。BuuttoonCoountt=111.（3）、建建立表格格Grii

44、d1。DDeleeteMMarkk=.F.-假；ReccorddSouurceeTyppe=0-表表。（44）、建建立形状状Shaape11、Shhapee2，选选择背景景颜色。（5）、建立组合框Combo1。ControlSounrce=rq1；RowSounrce=select rq distinct from main into cursor combo1；RowSounrceType=3-SQL语句。（6）、建立组合框Combo2。ControlSounrce=rq2；RowSounrce=select rq distinct from main into cursor combo2；

45、RowSounrceType=3-SQL语句。（7）、建立组合框Combo3。ControlSounrce=bz1；RowSounrce=一班,二班,三班,四班,五班,六班,办公室；RowSounrceType=1-值。（8）、建立Command1。Caption=修改；command1.click：do form xgmain。（9）、建建立Coommaand22。Caaptiion=打印印；ccommmandd2.cclicck：mmesssageeboxx(请请用A44纸！,166,提提示信息息)DDO CCASEE CASSE TTHISSFORRM.OOPTIIONGGROUUP1.

46、VALLUE=1 THIISFOORM.OPTTIONNGROOUP11.opptioon1.cliick() repportt foorm dymmainn.frrx tto pprinnterr &打打印报表表dymmainn CCASEE THHISFFORMM.OPPTIOONGRROUPP1.VVALUUE=22 TTHISSFORRM.OOPTIIONGGROUUP1.opttionn2.cclicck() rrepoort forrm ddyrkk.frrx tto pprinnterr &打印印报表ddarkk CCASEE THHISFFORMM.OPPTIOONGRROUP

47、P1.VVALUUE=33 TTHISSFORRM.OOPTIIONGGROUUP1.opttionn3.cclicck() rrepoort forrm ddyckk.frrx tto pprinnterr &打打印报表表dycckenndcaase thiisfoorm.reffressh（10）、建建立Coommaand33。Caaptiion=退出出；ccommmandd3.cclicck：tthissforrm.rreleeasee（11）、建建立Coommaand44。Caaptiion=清除除选择；coommaand44.cllickk：thhisfformm.coomboo1.

48、vvaluue=thhisfformm.coomboo2.vvaluue=thhisfformm.coomboo3.vvaluue=THHISFFORMM.OPPTIOONGRROUPP2.iinteeracctivvechhangge()（12）、建建立Coommaand55。Caaptiion=显示示；ccommmandd5.cclicck：TTHISSFORRM.OOPTIIONGGROUUP2.intteraactiivecchannge()（13）、CCombbo2.intteraactiivecchannge：iff cttod(mbo11.vaaluee)cctodd(thhis.vallue)waait winndoww att 166,288 后后面的日日期要大大于前面面的日期期！请修修改。reetuenddif（14）、选选择菜单单栏的“表表单”下下的“新新建方法法程序”，填填加如下下方法程程序：mmyfiieldd1、m