账务处理与报表MIS的设计与实现.ppt

《账务处理与报表MIS的设计与实现.ppt》由会员分享，可在线阅读，更多相关《账务处理与报表MIS的设计与实现.ppt（84页珍藏版）》请在三一办公上搜索。

1、2023/1/30,管理信息系统：李国红主讲,1,6.2.2 科目查询与修改,1、数据表的结构：同Kjkm.dbf2、科目查询与修改表单界面设计3、科目查询与修改功能目标指定查询条件查询与修改操作退出：thisform.release4、功能的实现,2023/1/30,管理信息系统：李国红主讲,2,查询与修改表单界面,返回,2023/1/30,管理信息系统：李国红主讲,3,指定查询条件,表单的Load与Unload事件Load：定义Public xiangmu(4),bijiao(7)Combo1与Combo2关联的数据源RowSourceType：5-数组RowSource：xiangmu、

2、biaojiaoStyle：2-下拉列表框表单的Init事件 Combo1和Combo2的InteractiveChange事件 Text2的数据类型和输入掩码 Text1和Text2的Click事件,2023/1/30,管理信息系统：李国红主讲,4,查询与修改,Cursor1的Filter属性表单初始运行后，表格中不含数据：.F.Combo2的ControlSource属性bj：“”、“=”宏替换&bj.：、=“查询”按钮的Click事件 表格只读选择不同项目时对应的不同条件tjCursor1的filter属性设置为tj根据Combo1是否“期初余额”，为Text2或Text1设置焦点刷新表

3、单,2023/1/30,管理信息系统：李国红主讲,5,本节结束,2023/1/30,管理信息系统：李国红主讲,6,6.2.3 科目删除,1、表的结构：同Kjkm.dbf2、界面设计3、相关功能选择列表项删除功能的实现实现退出功能单击Text1，内容被清空单击Combo1，Text1获得焦点,2023/1/30,管理信息系统：李国红主讲,7,删除科目界面,下拉列表框，Style属性为2,2023/1/30,管理信息系统：李国红主讲,8,列表项,表单的Load过程：public shuzu(4)Combo1下拉列表框对应的数据源类型、数据源以及用于保存所选列表项的变量RowSourceType：5

4、-数组RowSource：shuzuControlSource：xuanxian表单的Init过程bo1.listindex=2thisform.text1.setfocus,2023/1/30,管理信息系统：李国红主讲,9,“删除”按钮的Click事件,do case case xuanxiang=科目编号 ziduan=kmbh case xuanxiang=科目名称 ziduan=kmmc case xuanxiang=借贷方向 ziduan=jdfx case xuanxiang=期初余额 ziduan=qcyeendcase,2023/1/30,管理信息系统：李国红主讲,10,“删除

5、”按钮的Click事件,use kjkmif ziduanqcye locate for allt(&ziduan)=allt(thisform.text1.value)if found()dele for allt(&ziduan)=allt(thisform.text1.value)pack thisform.text1.value=space(0)else messagebox(没找到相关记录!,0+48,提示)endifelse locate for&ziduan.=val(thisform.text1.value)if found()dele for&ziduan.=val(this

6、form.text1.value)pack thisform.text1.value=space(0)else messagebox(没找到相关记录!,0+48,提示)endifendifusethisform.text1.setfocus,2023/1/30,管理信息系统：李国红主讲,11,利用比较运算符和宏替换的删除设计,2023/1/30,管理信息系统：李国红主讲,12,数据删除以科目删除为例,设计表单Combo1的设置：RowsourceType:1-值；RowSource：科目编号，科目名称，借贷方向，期初余额；Style：2-下拉列表框Combo2的设置：RowsourceType

7、:1-值；RowSource：=、,；ControlSource：ysf；Style：2-下拉列表框Form1的Init过程代码：Tmbo1.listindex=2Tmbo2.listindex=3Thisform.setfocus删除按钮的Click过程代码宏替换函数：&变量.,2023/1/30,管理信息系统：李国红主讲,13,use kjkmdo case case allt(bo1.value)=科目编号 ziduan=kmbh case allt(bo1.value)=科目名称 ziduan=kmmc case allt(bo1.value)=借贷方向 ziduan=jdfx cas

8、e allt(bo1.value)=期初余额 ziduan=qcyeendc if allt(bo1.value)期初余额 locate for&ziduan.&ysf.allt(thisform.text1.value)if found()delete for&ziduan.&ysf.allt(thisform.text1.value)pack else,2023/1/30,管理信息系统：李国红主讲,14,messagebox(无符合条件的记录!,0+48,提示)endifelse locate for&ziduan.&ysf.val(thisform.text1.value)if foun

9、d()delete for&ziduan.&ysf.val(thisform.text1.value)pack else messagebox(无符合条件的记录!,0+48,提示)endif endifuse,2023/1/30,管理信息系统：李国红主讲,15,本节结束,2023/1/30,管理信息系统：李国红主讲,16,6.2.4 记录定位及信息提示框,记录定位功能的实现首记录、上一条、下一条、末记录信息提示框的运用与表示Messagebox(“提示信息”,m+n,“提示”),2023/1/30,管理信息系统：李国红主讲,17,2023/1/30,管理信息系统：李国红主讲,18,6.3 记账

10、凭证输入处理,1.概述记账凭证是登记账薄的直接依据，分为收款凭证、付款凭证和转账凭证3类，但输入记账凭证采用统一的记账凭证的输入屏幕格式。输入数据的正确是保证账内数据正确的关键，也是由记账凭证正确生成会计报表、账薄数据的关键。功能演示2.功能实现建立记账凭证表文件jzpzfb.dbf和jzpzzb.dbf。表中的字段包括pzh、rq、fjzs、sh、zd；pzh、zy、km、jd、je等。其中sh字段的值后三位为_#$表示已登账，由程序自动处理；其余字段的值通过表单界面输入。,2023/1/30,管理信息系统：李国红主讲,19,6.3 记账凭证输入处理,设计凭证输入表单。主表的数据在表格中输入

11、，附表的数据在文本框中输入，其中，日期和附件张数文本框应分别设置成日期型和数值型数据的文本框，借贷和科目通达下拉列表选择输入（科目必须是kjkm.dbf表中存在的科目编号）。编程。应考虑：必须指定科目、借贷；输入金额不能为0；借贷必须平衡；须输入制单人；各命令按钮在必要的时候变为灰色，需要的时候变成可用状态。记账凭证输入的基本过程、程序流程。用VFP实现记账凭证处理。准备工作、命令按钮代码、其他辅助功能。,2023/1/30,管理信息系统：李国红主讲,20,记账凭证数据表的结构,2023/1/30,管理信息系统：李国红主讲,21,记账凭证用户输入表单,2023/1/30,管理信息系统：李国红主

12、讲,22,记账凭证输入基本过程,2023/1/30,管理信息系统：李国红主讲,23,输入记账凭证流程图,转“记账凭证及相关处理”,2023/1/30,管理信息系统：李国红主讲,24,准备工作,建立数据环境添加kjkm、jzpzfb、jzpzzb、建立表间关系文本框、表格与数据表建立关联日期、附件张数文本框设置日期文本框：日期型，Value属性为。附件张数文本框：数值型，掩码为99。辅助功能的实现Form1的BufferMode：2-开放式。命令按钮状态方法程序：buttonstatus1、buttonstatus2、buttonstatus3Form1.load、unload、Init事件Te

13、xt6.InteractiveChange事件,2023/1/30,管理信息系统：李国红主讲,25,用VFP实现记账凭证处理“新增凭证”按钮的Click过程(1/2),if len(allt(thisform.text6.value)0&如果Text6中输入了凭证号 sele(thisform.dataenvironment.cursor_JZPZFB.alias)&选择jzpzfb工作区 locate for allt(pzh)=allt(thisform.text6.value)&查jzpzfb中有无匹配凭证号 if.not.found()&如果输入至Text6中的凭证号是一个新的凭证号

14、thisform.buttonstatus2&“输入分录”、“取消”按钮有效，其余按钮无效 append blank&在jzpzfb中追加一条空记录 thisform.text1.value=thisform.text6.value&Text1自动取Text6中的值 thisform.text6.value=space(0)&Text6中的内容清空 thisform.text6.readonly=.t.&Text6的ReadOnly属性设置为.t.thisform.text2.value=date()&Text2中自动取值为系统当前日期 thisform.refresh&刷新表单,返回记账凭证

15、及相关处理,2023/1/30,管理信息系统：李国红主讲,26,用VFP实现记账凭证处理“新增凭证”按钮的Click过程(2/2),else&如果输入至Text6中的凭证号已存在于jzpzfb中 thisform.buttonstatus1&“新增凭证”、“关闭”按钮有效，其余按钮无效=messagebox(已存在此凭证号的凭证!,48)&提示对话框 thisform.text6.setfocus&Text6文本框获得焦点 endifelse&如果Text6中还未输入凭证号 thisform.buttonstatus1&“新增凭证”、“关闭”按钮有效，其余按钮无效=messagebox(请输入

16、新增凭证的凭证号!,48)&提示对话框 thisform.text6.setfocus&Text6文本框获得焦点endif,2023/1/30,管理信息系统：李国红主讲,27,用VFP实现记账凭证处理“输入分录”按钮的Click过程,sele(thisform.dataenvironment.cursor_JZPZZB.alias)appe blankreplace pzh with thisform.text1.valuethisform.grid1.refreshthisform.buttonstatus3,2023/1/30,管理信息系统：李国红主讲,28,用VFP实现记账凭证处理“确定

17、”按钮的Click过程(1/3),sele(thisform.dataenvironment.cursor_JZPZZB.alias)set filter to allt(pzh)=allt(thisform.text1.value)locate for len(allt(km)=0 if.not.found()locate for len(allt(jd)=0 if.not.found()locate for je=0.00 if.not.found()sum je to je_jie for allt(jd)=借 sum je to je_dai for allt(jd)=贷 if je_

18、jie=je_dai,2023/1/30,管理信息系统：李国红主讲,29,用VFP实现记账凭证处理“确定”按钮的Click过程(2/3),if len(allt(thisform.text5.value)0 sele(thisform.dataenvironment.cursor_JZPZFB.alias)=tableupdate(.t.)sele(thisform.dataenvironment.cursor_JZPZZB.alias)=tableupdate(.t.)thisform.refresh thisform.buttonstatus1 thisform.text6.setfocu

19、s thisform.text6.readonly=.f.else=messagebox(请输入制单人!,48)thisform.text5.setfocus thisform.buttonstatus3 thisform.text6.readonly=.t.endif,2023/1/30,管理信息系统：李国红主讲,30,用VFP实现记账凭证处理“确定”按钮的Click过程(3/3),else=messagebox(借贷不平衡!,48)thisform.grid1.column_JE.setfocus endif else=messagebox(金额不能为0!,48)thisform.grid

20、1.column_JE.setfocus endif else=messagebox(指定借或贷!,48)thisform.grid1.column_JD.setfocus endif else=messagebox(请指定科目!,48)thisform.grid1.column_KM.setfocus endif,2023/1/30,管理信息系统：李国红主讲,31,用VFP实现记账凭证处理“取消”按钮的Click过程,sele(thisform.dataenvironment.cursor_JZPZFB.alias)=tablerevert(.t.)sele(thisform.dataenv

21、ironment.cursor_JZPZZB.alias)=tablerevert(.t.)thisform.refreshthisform.buttonstatus1thisform.text6.readonly=.f.thisform.text6.setfocus,2023/1/30,管理信息系统：李国红主讲,32,用VFP实现记账凭证处理“关闭”按钮的Click过程,a=messagebox(真的想退出吗?,4+48,提示)if a=6 thisform.releaseendif,if messagebox(真的想退出吗?,4+48,提示)=6 thisform.releaseendif

22、,返回记账凭证及相关处理,2023/1/30,管理信息系统：李国红主讲,33,其他辅助功能,防止手工修改Text1、Text2、Column_PZH、Text4中的值ReadOnly设置为：.T.-真防止对已审核凭证进行更改Text3、Text5、Grid1的When过程允许正常输入与修改操作：Text6.GotFocus防止修改状态下执行新增凭证和关闭操作Text3、Text5、textZY、ComboKM、ComboJD、ComboJE的InteractiveChange事件使输入凭证号更方便Text6.Click：this.value=space(0),2023/1/30,管理信息系统：

23、李国红主讲,34,本节小结,2023/1/30,管理信息系统：李国红主讲,35,本节结束！,2023/1/30,管理信息系统：李国红主讲,36,6.4 登记现金日记账,不要求,2023/1/30,管理信息系统：李国红主讲,37,6.5 登记总账处理,总账即总分类账，是按照一级科目设立账户，以货币为计量单位，连续核算整个企业各种资金占用、资金来源、资金增减变动及其结余的总括情况的一种分类账。登记总账的依据是：会计科目表（kjkm.dbf）、记账凭证附表（jzpzfb.dbf）、记账凭证主表（jzpzzb.dbf）。会计科目：KJKM(kmbh,kmmc,jdfx,qcye)记账凭证附表：JZPZ

24、FB(pzh,rq,fjzs,sh,zd)记账凭证主表：JZPZZB(pzh,zy,km,jd,je)总账：ZZ(rq,zzh,kmbh,kmmc,jffs,dffs,jdfx,ye)功能演示基本过程及程序流程相关命令与函数及程序,2023/1/30,管理信息系统：李国红主讲,38,登记总账基本过程,1区zz,2区jzpz,3区kjkm,转登记总账处理,4区jzpzfb,2023/1/30,管理信息系统：李国红主讲,39,登记总账流程图,转登记总账处理,2023/1/30,管理信息系统：李国红主讲,40,相关命令与函数,set filter to set filt to len(allt(sh

25、)!=0 and right(allt(sh),3)!=_#$set filt to len(allt(kmbh)=4set filt to allt(kmbh)=kmbh1set filt to rq=rq1.and.zzh=zzh1sum to for sum je to jffs1 for left(km,4)=kmbh1.and.jd=借sum je to dffs1 for left(km,4)=kmbh1.and.jd=贷do whileloop（exit）enddogo top、go bottom、skipeof()、found()qcs1=iif(eof(),qcye1,ye)

26、,转登记总账处理,2023/1/30,管理信息系统：李国红主讲,41,登记总账程序djzz.prg,set talk offset exact onopen database zwclsele 1use zzsele 2use jzpzset filt to len(allt(sh)!=0 and right(allt(sh),3)!=_#$go toppzh1=pzhgo bottompzh2=pzhzzh1=汇+allt(pzh1)+-+allt(pzh2),2023/1/30,管理信息系统：李国红主讲,42,登记总账程序djzz.prg,rq1=rqgo topsele 3use kjk

27、mset filt to len(allt(kmbh)=4go topdo while.not.eof()kmbh1=allt(kmbh)kmmc1=kmmc jdfx1=jdfx qcye1=qcye sele jzpz loca for left(km,4)=allt(kmbh1),2023/1/30,管理信息系统：李国红主讲,43,登记总账程序djzz.prg,if.not.found()sele kjkm skip loop endif sum je to jffs1 for left(km,4)=kmbh1.and.jd=借 sum je to dffs1 for left(km,4

28、)=kmbh1.and.jd=贷 sele zz set filt to allt(kmbh)=kmbh1 go bottom qcs1=iif(eof(),qcye1,ye)ye1=iif(jdfx1=1,qcs1+jffs1-dffs1,qcs1-jffs1+dffs1),2023/1/30,管理信息系统：李国红主讲,44,登记总账程序djzz.prg,appe blan repl rq with rq1,zzh with zzh1 repl kmbh with kmbh1,kmmc with kmmc1 repl jffs with jffs1,dffs with dffs1 repl

29、jdfx with jdfx1,ye with ye1 sele kjkm skipenddo,2023/1/30,管理信息系统：李国红主讲,45,sele 4 use jzpzfbrepl sh with allt(sh)+_#$for len(allt(sh)!=0.and.right(allt(sh),3)!=_#$=messagebox(生成总账结束!,48,提示)sele zzset filt to rq=rq1.and.zzh=zzh1brow noeditclose database set exact offset talk onretu,2023/1/30,管理信息系统：李国

30、红主讲,46,2023/1/30,管理信息系统：李国红主讲,47,6.6 损益表数据自动生成及输出,损益表（syb.dbf）中的数据由总账表（zz.dbf）中取得。总账：ZZ(rq,zzh,kmbh,kmmc,jffs,dffs,jdfx,ye)损益表：SYB(xm,hc,bys,ljs,kmbh,bz)损益表数据生成原理：确定会计期间，预置syb.dbf表中的有关内容，kmbh长度取1、4、8分别处理，由程序依据总账表的数据自动生成损益表文件中的本月数和本年累计数。通过VFP6.0的报表生成器完成损益表的输出，也可通过建立查询在屏幕上输出有关内容。,2023/1/30,管理信息系统：李国红主

31、讲,48,总账表部分数据,损益表部分数据,2023/1/30,管理信息系统：李国红主讲,49,生成损益表表单,use zzgo bottthisform.text1.value=allt(str(year(rq)thisform.text2.value=allt(str(month(rq)use,表单的Init过程代码:,2023/1/30,管理信息系统：李国红主讲,50,损益表数据自动生成及输出N-S图,2023/1/30,管理信息系统：李国红主讲,51,生成损益表代码,set talk offset exact onset safety offsele 1use zzset filter

32、to year(rq)=val(thisform.text1.value)and month(rq)=val(thisform.text2.value)go topsele 2use sybrepl all bys with 0,ljs with 0go top&以便从损益表的首记录开始,以下求本月数,2023/1/30,管理信息系统：李国红主讲,52,do while.not.eof()kmbh1=allt(kmbh)&kmbh1为syb表当前记录的kmbh(去掉前后空格)length=len(kmbh1)&length为syb表当前记录的kmbh去掉前后空格后的长度 do case cas

33、e length=8 declare sz(2)&数组sz表示本月数 sele 1&总账表工作区 i=1 do while ibz=d,dffs-jffs,jffs-dffs)else sz(i)=0 endif i=i+1 enddo sele 2&损益表工作区 repl bys with sz(1)+sz(2),2023/1/30,管理信息系统：李国红主讲,53,case length=4 sele 1&总账表工作区 loca for allt(kmbh)=kmbh1 if found()bys1=iif(b-bz=d,dffs-jffs,jffs-dffs)else bys1=0 end

34、if sele 2&损益表工作区 repl bys with bys1 case length=1 r=recn()sum bys to bys1 for bz=d sum bys to bys2 for bz=j go r repl bys with bys1-bys2 endc skipendd,2023/1/30,管理信息系统：李国红主讲,54,go top month(rq)=val(thisform.text2.value).and.allt(kmbh)=subs(kmbh1,4*i-3,4)go bottom sz1(i)=iif(eof(),0,ye)i=i+1 enddo se

35、le 2&损益表工作区 repl ljs with sz1(1)+sz1(2),2023/1/30,管理信息系统：李国红主讲,55,case length=4 sele 1 month(rq)=val(thisform.text2.value).and.allt(kmbh)=kmbh1 go bottom ljs1=iif(eof(),0,ye)sele 2&损益表工作区 repl ljs with ljs1 case length=1 r=recn()sum ljs to ljs1 for bz=d sum ljs to ljs2 for bz=j go r repl ljs with lj

36、s1-ljs2 endc skipendd,2023/1/30,管理信息系统：李国红主讲,56,copy to syb+allt(thisform.text1.value)+-+allt(thisform.text2.value)+.dbf;fields xm,hc,bys,ljs syb+allt(thisform.text1.value)+-+allt(thisform.text2.value)+.dbfclose databasesset safety onset exact offset talk on,2023/1/30,管理信息系统：李国红主讲,57,2023/1/30,管理信息系

37、统：李国红主讲,58,6.7 账务处理与报表系统的菜单设计,1、功能模块,2023/1/30,管理信息系统：李国红主讲,59,2、菜单规划与设计,2023/1/30,管理信息系统：李国红主讲,60,2、菜单规划与设计,2023/1/30,管理信息系统：李国红主讲,61,菜单设计,2、菜单规划与设计,2023/1/30,管理信息系统：李国红主讲,62,2、菜单规划与设计,2023/1/30,管理信息系统：李国红主讲,63,3、报表设计创建与修改报表：modi report 报表文件名预览报表：report form 报表主名.frx for 条件 preview打印报表：report form

38、报表主名.frx for 条件 to printer4、查询设计创建与修改查询：modi query 查询文件名执行查询：do 查询主文件名.qpr5、菜单的运行执行菜单，生成：生成扩展名为.mpr的可执行菜单文件执行菜单：Do 菜单文件主名.mpr,2023/1/30,管理信息系统：李国红主讲,64,6.8 MIS操作维护设计与实现,1、在zwcl数据库中建立mima.dbf表,返回:用户登录,2023/1/30,管理信息系统：李国红主讲,65,2、增加操作员设计表单Text2、Text3的PasswordChar：*退出：thisform.release确定：,2023/1/30,管理信息

39、系统：李国红主讲,66,set exact onopen database zwcluse mimaif len(allt(thisform.text1.value)0&输入的操作员密码不全为空格 locate for allt(czy)=allt(thisform.text1.value)if found()messagebox(已有此操作员,请重新输入!,0+48)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text1.setfocus els

40、e&密码表中无与Text1中匹配的内容 if allt(thisform.text2.value)=allt(thisform.text3.value)if len(allt(thisform.text2.value)0 appe blank repl czy with allt(thisform.text1.value)repl mm with allt(thisform.text2.value)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.tex

41、t1.setfocus else&Text2中未输入字符或输入的是空格字符串 messagebox(请输入密码,注意不能全为空格!,0+48)thisform.text2.setfocus endif,2023/1/30,管理信息系统：李国红主讲,67,else&Text2与Text3中的内容不相同 messagebox(密码不一致,请重新输入!,0+48)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text2.setfocus endif endifelse&Text1中未输入字符或输入的是空格字符串

42、messagebox(请输入操作员代码,注意不能全为空格!,0+48)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.text1.setfocusendifclose databaseset exact off,2023/1/30,管理信息系统：李国红主讲,68,3、删除操作员设计表单Combo1：RowSourceType:6-字段;RowSource:mima.czy;Style:2-下拉列表框;ControlSource:mima.czyText1：PasswordChar:*,2023/1/30,管理

43、信息系统：李国红主讲,69,Form1.Load:open database zwcl Form1.Init:thisform.text1.setfocus Form1.Unload:close databaseCombo1.Click:thisform.text1.setfocus 退出.Click:thisform.release 确定.Clik:,2023/1/30,管理信息系统：李国红主讲,70,set exact onuse mimaloca for allt(czy)=allt(bo1.value)and allt(mm)=allt(thisform.text1.value)if

44、found()dele&为找到的那条记录加上逻辑删除标记 pack&物理删除带逻辑删除标记的记录 thisform.text1.value=space(0)thisform.refresh messagebox(删除成功!,0+48)else messagebox(密码不对,不能删除!,0+48)thisform.text1.value=space(0)endifthisform.text1.setfocusset exact off,2023/1/30,管理信息系统：李国红主讲,71,4、修改密码设计表单，建数据环境Combo1：RowSourceType:6-字段;RowSource:mi

45、ma.czy;Style:2-下拉列表框;ControlSource:mima.czyText1、Text2、Text3：PasswordChar:*,2023/1/30,管理信息系统：李国红主讲,72,Form1.Load:open database zwcl Form1.Init:thisform.text1.setfocus Form1.Unload:close databaseCombo1.Click:thisform.text1.setfocus 退出.Click:thisform.release 确定.Clik:,2023/1/30,管理信息系统：李国红主讲,73,set exac

46、t onuse mimalocate for allt(czy)=allt(bo1.value)if allt(thisform.text1.value)=allt(mm)if thisform.text2.value=thisform.text3.value if len(allt(thisform.text2.value)0 replace mm with allt(thisform.text2.value)messagebox(密码修改成功,请牢记新密码!,0+48)thisform.text1.value=space(0)thisform.text2.value=space(0)thi

47、sform.text3.value=space(0)thisform.refresh thisform.text1.setfocus else&Text2中未输入字符或输入的是空格字符串 messagebox(请输入新密码,注意密码不能全为空格!,0+48)thisform.text2.setfocus endif,2023/1/30,管理信息系统：李国红主讲,74,else&Text2与Text3中内容不相同 messagebox(新密码不一致,请重新输入!,0+48)thisform.text2.value=space(0)thisform.text3.value=space(0)this

48、form.refresh thisform.text2.setfocus endifelse&Text1中的内容与密码表中所选操作员的密码不匹配 messagebox(原密码不对,请重新输入!,0+48)thisform.text1.value=space(0)thisform.text2.value=space(0)thisform.text3.value=space(0)thisform.refresh thisform.text1.setfocusendifset exact off,2023/1/30,管理信息系统：李国红主讲,75,2023/1/30,管理信息系统：李国红主讲,76,

49、6.9 MIS用户登录的设计与实现,1、主程序（main.prg）:do setup.prg&初始化环境do form 账务处理与报表系统登录.scxread events&控制事件循环if mimaOk=1&mimaOk是公共变量 do 账务处理与报表系统.mpr read events&控制事件循环endifdo cleanup.prg&退出之前,恢复环境设置,退出时执行Clear events,2023/1/30,管理信息系统：李国红主讲,77,2、初始化环境设置（setup.prg）:Modify command setup.prg 工具菜单“选项”Shift+确定命令窗口出现环境的S

50、ET命令 复制到setup.prg文件。保存。,2023/1/30,管理信息系统：李国红主讲,78,3、账务处理与报表系统登录.scx,假设zwcl.dbc中含:mima.dbfForm1.Load：open database zwcluse mimaForm1.Init：thisform.text1.setfocusForm1.Unload：close databaseclear events,2023/1/30,管理信息系统：李国红主讲,79,Combo1的属性：RowsourceTypoe:6-字段Rowsource:mima.czyStyle:2-下拉列表框ControlSource: