第6章账务处理与报表MIS的设计与实现祥解.ppt

* 《管理信息系统》：李国红主讲 * 2、菜单规划与设计 * 《管理信息系统》：李国红主讲 * 3、报表设计 创建与修改报表：modi report 报表文件名 预览报表：report form 报表主名.frx for 条件 preview 打印报表：report form 报表主名.frx for 条件 to printer 4、查询设计 创建与修改查询：modi query 查询文件名 执行查询：do 查询主文件名.qpr 5、菜单的运行 执行[菜单，生成]：生成扩展名为.mpr的可执行菜单文件 执行菜单：Do 菜单文件主名.mpr * 《管理信息系统》：李国红主讲 * 6.8 MIS操作维护设计与实现 1、在zwcl数据库中建立mima.dbf表 字段名 类型 宽度 含义 czy 字符型 16 操作员 mm 字符型 16 密码 返回:用户登录 * 《管理信息系统》：李国红主讲 * 2、增加操作员 设计表单 Text2、Text3的PasswordChar：* 退出：thisform.release 确定： * 《管理信息系统》：李国红主讲 * set exact on open database zwcl use mima if 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 else 密码表中无与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.text1.setfocus else Text2中未输入字符或输入的是空格字符串 messagebox(请输入密码,注意不能全为空格!!!,0+48) thisform.text2.setfocus endif * 《管理信息系统》：李国红主讲 * else Text2与Text3中的内容不相同 messagebox(密码不一致,请重新输入!!!,0+48) thisform.text2.value=space(0) thisform.text3.value=space(0) thisform.text2.setfocus endif endif else Text1中未输入字符或输入的是空格字符串 messagebox(请输入操作员代码,注意不能全为空格!!!,0+48) thisform.text2.value=space(0) thisform.text3.value=space(0) thisform.text1.setfocus endif close database set exact off * 《管理信息系统》：李国红主讲 * 3、删除操作员 设计表单 Combo1： RowSourceType: 6-字段; RowSource: mima.czy; Style: 2-下拉列表框; ControlSource: mima.czy Text1： PasswordChar: * * 《管理信息系统》：李国红主讲 * Form1.Load: open database zwcl Form1.Init: thisform.text1.setfocus Form1.Unload: close database Combo1.Cl