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

1、2021-5-15管理信息系统：李国红主讲1 6.2.2 科目查询与修改科目查询与修改 n1、数据表的结构：同、数据表的结构：同kjkm.dbf n2、科目查询与修改表单界面、科目查询与修改表单界面设计设计 n3、科目查询与修改功能目标、科目查询与修改功能目标 n指定指定查询条件查询条件 n查询与修改查询与修改操作操作 n退出：退出：thisform.release n4、功能的实现、功能的实现 2021-5-15管理信息系统：李国红主讲2 查询与修改表单界面 返回 2021-5-15管理信息系统：李国红主讲3 指定查询条件 n表单的表单的load与与unload事件事件 nload：定义：定

2、义public xiangmu(4),bijiao(7) ncombo1与与combo2关联的数据源关联的数据源 nrowsourcetype：5-数组数组 nrowsource：xiangmu、biaojiao nstyle：2-下拉列表框下拉列表框 n表单的表单的init事件事件 ncombo1和和combo2的的interactivechange事件事件 ntext2的数据类型和输入掩码的数据类型和输入掩码 ntext1和和text2的的click事件事件 2021-5-15管理信息系统：李国红主讲4 查询与修改 ncursor1的的filter属性属性 n表单初始运行后，表格中不含数据

3、：表单初始运行后，表格中不含数据：.f. ncombo2的的controlsource属性属性 nbj：“”、“=” n宏替换宏替换 n month(rq)=val(thisform.text2.value) .and. allt(kmbh)=subs(kmbh1,4*i-3,4) n go bottom n sz1(i)=iif(eof(),0,ye) n i=i+1 n enddo n sele 2 o month(rq)=val(thisform.text2.value) .and. allt(kmbh)=kmbh1 o go bottom o ljs1=iif(eof(),0,ye)

4、o sele 2 ofields xm,hc,bys,ljs osyb+allt(thisform.text1.value)+- +allt(thisform.text2.value)+.dbf oclose databases oset safety on oset exact off oset talk on 2021-5-15管理信息系统：李国红主讲57 2021-5-15管理信息系统：李国红主讲58 6.7 账务处理与报表系统的菜单设计账务处理与报表系统的菜单设计 o 1、功能模块、功能模块 2021-5-15管理信息系统：李国红主讲59 o 2、菜单规划与设计、菜单规划与设计 202

5、1-5-15管理信息系统：李国红主讲60 o 2、菜单规划与设计、菜单规划与设计 2021-5-15管理信息系统：李国红主讲61 o 菜单设计 o 2、菜单规划与设计、菜单规划与设计 2021-5-15管理信息系统：李国红主讲62 o 2、菜单规划与设计、菜单规划与设计 2021-5-15管理信息系统：李国红主讲63 o 3、报表设计、报表设计 n 创建与修改报表：创建与修改报表：modi report 报表文件名报表文件名 n 预览报表：预览报表：report form 报表主名报表主名.frx for 条件条件 preview n 打印报表：打印报表：report form 报表主名报表主

6、名.frx for 条件条件 to printer o 4、查询设计、查询设计 n 创建与修改查询：创建与修改查询：modi query 查询文件名查询文件名 n 执行查询：执行查询：do 查询主文件名查询主文件名.qpr o 5、菜单的运行、菜单的运行 n 执行执行菜单，生成菜单，生成：生成扩展名为：生成扩展名为.mpr的可执行菜单文件的可执行菜单文件 n 执行菜单：执行菜单：do 菜单文件主名菜单文件主名.mpr 2021-5-15管理信息系统：李国红主讲64 6.8 mis操作维护设计与实现操作维护设计与实现 o 1、在、在zwcl数据库中建立数据库中建立mima.dbf表表 字段名字段

7、名类型类型宽度宽度含义含义 czy字符型字符型16操作员操作员 mm字符型字符型16密码密码 返回:用户登录 2021-5-15管理信息系统：李国红主讲65 o 2、增加操作员、增加操作员 n设计表单设计表单 ntext2、text3的的 passwordchar：* n退出：退出：thisform.release n确定：确定： 2021-5-15管理信息系统：李国红主讲66 oset exact on oopen database zwcl ouse mima oif len(allt(thisform.text1.value)0 o rowsource: mima.czy; o styl

8、e: 2-下拉列表框下拉列表框; o controlsource: mima.czy ntext1： o passwordchar: * 2021-5-15管理信息系统：李国红主讲69 o form1.load: open database zwcl o form1.init: thisform.text1.setfocus o form1.unload: close database o combo1.click: thisform.text1.setfocus o 退出退出.click: thisform.release o 确定确定.clik: 2021-5-15管理信息系统：李国红主讲

9、70 oset exact on ouse mima oloca for allt(czy)=allt(bo1.value) and allt(mm)=allt(thisform.text1.value) oif found() o dele o rowsource: mima.czy; o style: 2-下拉列表框下拉列表框; o controlsource: mima.czy ntext1、text2、text3： o passwordchar: * 2021-5-15管理信息系统：李国红主讲72 o form1.load: open database zwcl o form1.ini

10、t: thisform.text1.setfocus o form1.unload: close database o combo1.click: thisform.text1.setfocus o 退出退出.click: thisform.release o 确定确定.clik: 2021-5-15管理信息系统：李国红主讲73 oset exact on ouse mima olocate for allt(czy)=allt(bo1.value) oif allt(thisform.text1.value)=allt(mm) o if thisform.text2.value=thisfo

11、rm.text3.value o if len(allt(thisform.text2.value)0 o replace mm with allt(thisform.text2.value) o messagebox(密码修改成功密码修改成功,请牢记新密码请牢记新密码!,0+48) o thisform.text1.value=space(0) o thisform.text2.value=space(0) o thisform.text3.value=space(0) o thisform.refresh o thisform.text1.setfocus o else &text2中未输

12、入字符或输入的是空格字符串中未输入字符或输入的是空格字符串 o messagebox(请输入新密码请输入新密码,注意密码不能全为空格注意密码不能全为空格!,0+48) o thisform.text2.setfocus o endif 2021-5-15管理信息系统：李国红主讲74 o else &text2与与text3中内容不相同中内容不相同 o messagebox(新密码不一致新密码不一致,请重新输入请重新输入!,0+48) o thisform.text2.value=space(0) o thisform.text3.value=space(0) o thisform.refres

13、h o thisform.text2.setfocus o endif oelse &text1中的内容与密码表中所选操作员的密码不匹配中的内容与密码表中所选操作员的密码不匹配 o messagebox(原密码不对原密码不对,请重新输入请重新输入!,0+48) o thisform.text1.value=space(0) o thisform.text2.value=space(0) o thisform.text3.value=space(0) othisform.refresh o thisform.text1.setfocus oendif oset exact off 2021-5-

14、15管理信息系统：李国红主讲75 2021-5-15管理信息系统：李国红主讲76 6.9 mis用户登录的设计与实现用户登录的设计与实现 1、主程序（、主程序（main.prg）: o do setup.prg &初始化环境初始化环境 o do form 账务处理与报表系统登录账务处理与报表系统登录.scx o read events &控制事件循环控制事件循环 o if mimaok=1 &mimaok是公共变量是公共变量 o do 账务处理与报表系统账务处理与报表系统.mpr o read events &控制事件循环控制事件循环 o endif o do cleanup.prg &退出之

15、前退出之前,恢复环境设置恢复环境设置 退出时执行退出时执行 clear events 2021-5-15管理信息系统：李国红主讲77 2、初始化环境设置（、初始化环境设置（setup.prg）: o modify command setup.prg o 工具工具菜单菜单“选项选项”shift + shift + 确定确定 命令窗口出现环境的命令窗口出现环境的setset命令命令 复制到复制到 setup.prgsetup.prg文件。文件。 o 保存。保存。 2021-5-15管理信息系统：李国红主讲78 3、账务处理与报表系统登录、账务处理与报表系统登录.scx o 假设假设zwcl.dbc

16、中含中含: nmima.dbf o form1.load： nopen database zwcl nuse mima o form1.init： nthisform.text1.setfocus o form1.unload： nclose database nclear events 2021-5-15管理信息系统：李国红主讲79 o combo1的属性：的属性： nrowsourcetypoe: 6-字段字段 nrowsource: mima.czy nstyle: 2-下拉列表框下拉列表框 ncontrolsource: mima.czy o text1的属性：的属性： npasswo

17、rdchar: * o combo1.click： nthisform.text1.value= nthisform.refresh nthisform.text1.setfocus 2021-5-15管理信息系统：李国红主讲80 确定确定.click： oset exact on opublic mimaok oloca for allt(czy)=allt(thisform.combo1.value) and allt(mm)=allt(thisform.text1.value) oif found() o mimaok=1 o wait 欢迎使用账务处理与报表系统欢迎使用账务处理与报表系

18、统! windows at 15,60 timeout 15 oelse o mimaok=0 o messagebox(密码不对密码不对!,0+48) oendif othisform.release oset exact off 2021-5-15管理信息系统：李国红主讲81 4、恢复环境设置（、恢复环境设置（cleanup.prg） o cleanup.prg： o set sysmenu to default o set talk on o set safety on o close all o clear all o clear windows o cancel o 恢复环境设置恢复环境设置 o 恢复系统菜单恢复系统菜单 o 在屏幕上显示命令执行结果在屏幕上显示命令执行结果 o 对对vfp文件设置安全保护文件设置安全保护 o 关闭所有类型的文件关闭所有类型的文件 o 清除所有的内存变量清除所有的内存变量 o 清除所有窗口清除所有窗口 o 终止程序运行，使控制转到终止程序运行，使控制转到 操作系统状态操作系统状态 2021-5-15管理信息系统：李国红主讲8