账务处理与报表MIS的设计与实现.ppt
《账务处理与报表MIS的设计与实现.ppt》由会员分享,可在线阅读,更多相关《账务处理与报表MIS的设计与实现.ppt(84页珍藏版)》请在沃文网上搜索。
1、2023/10/216.2.2 科目查询与修改科目查询与修改n1、数据表的结构:同、数据表的结构:同Kjkm.dbfn2、科目查询与修改表单界面、科目查询与修改表单界面设计设计n3、科目查询与修改功能目标、科目查询与修改功能目标n指定指定查询条件查询条件n查询与修改查询与修改操作操作n退出:退出:thisform.releasen4、功能的实现、功能的实现2023/10/2管理信息系统:李国红主讲2查询与修改表单界面返回2023/10/2管理信息系统:李国红主讲3指定查询条件 n表单的表单的Load与与Unload事件事件nLoad:定义:定义Public xiangmu(4),bijiao(
2、7)nCombo1与与Combo2关联的数据源关联的数据源nRowSourceType:5-数组数组nRowSource:xiangmu、biaojiaonStyle:2-下拉列表框下拉列表框n表单的表单的Init事件事件 nCombo1和和Combo2的的InteractiveChange事件事件 nText2的数据类型和输入掩码的数据类型和输入掩码 nText1和和Text2的的Click事件事件 2023/10/2管理信息系统:李国红主讲4查询与修改 nCursor1的的Filter属性属性n表单初始运行后,表格中不含数据:表单初始运行后,表格中不含数据:.F.nCombo2的的Cont
3、rolSource属性属性nbj:“”、“=”n宏替换宏替换&bj.:、=n“查询查询”按钮的按钮的Click事件事件 n表格只读表格只读n选择不同项目时对应的不同条件选择不同项目时对应的不同条件tjnCursor1的的filter属性设置为属性设置为tjn根据根据Combo1是否是否“期初余额期初余额”,为,为Text2或或Text1设置焦点设置焦点n刷新表单刷新表单2023/10/2管理信息系统:李国红主讲5n本节结束本节结束2023/10/2管理信息系统:李国红主讲66.2.3 科目删除科目删除 n1、表的结构:同、表的结构:同Kjkm.dbfn2、界面、界面设计设计n3、相关功能、相关
4、功能n选择选择列表项列表项n删除功能删除功能的实现的实现n实现退出功能实现退出功能n单击单击Text1,内容被清空,内容被清空n单击单击Combo1,Text1获得焦点获得焦点2023/10/2管理信息系统:李国红主讲7删除科目界面下拉列表框,下拉列表框,Style属性为属性为22023/10/2管理信息系统:李国红主讲8列表项列表项n表单的表单的Load过程:过程:public shuzu(4)nCombo1下拉列表框对应的数据源类型、数据下拉列表框对应的数据源类型、数据源以及用于保存所选列表项的变量源以及用于保存所选列表项的变量nRowSourceType:5-数组数组nRowSource
5、:shuzunControlSource:xuanxiann表单的表单的Init过程过程bo1.listindex=2nthisform.text1.setfocus2023/10/2管理信息系统:李国红主讲9“删除删除”按钮的按钮的Click事件事件ndo casen case xuanxiang=科目编号科目编号 n ziduan=kmbhn case xuanxiang=科目名称科目名称n ziduan=kmmc n case xuanxiang=借贷方向借贷方向n ziduan=jdfxn case xuanxiang=期初余额期初余额n ziduan=qcyenendcase2023
6、/10/2管理信息系统:李国红主讲10“删除删除”按钮的按钮的Click事件事件nuse kjkmnif ziduanqcyen locate for allt(&ziduan)=allt(thisform.text1.value)n if found()n dele for allt(&ziduan)=allt(thisform.text1.value)n packn thisform.text1.value=space(0)n elsen messagebox(没找到相关记录没找到相关记录!,0+48,提示提示)n endifnelsen locate for&ziduan.=val(th
7、isform.text1.value)n if found()n dele for&ziduan.=val(thisform.text1.value)n packn thisform.text1.value=space(0)n elsen messagebox(没找到相关记录没找到相关记录!,0+48,提示提示)n endifnendifnusenthisform.text1.setfocus2023/10/2管理信息系统:李国红主讲11利用比较运算符和宏替换的删除设计利用比较运算符和宏替换的删除设计2023/10/2管理信息系统:李国红主讲12数据删除数据删除以科目删除为例以科目删除为例n设
8、计表单设计表单nCombo1的设置:的设置:RowsourceType:1-值值;RowSource:科目编号,科目名称,借贷方向,科目编号,科目名称,借贷方向,期初余额期初余额;Style:2-下拉列表框下拉列表框nCombo2的设置:的设置:RowsourceType:1-值值;RowSource:、=、,;ControlSource:ysf;Style:2-下拉列表下拉列表框框nForm1的的Init过程代码:过程代码:nTmbo1.listindex=2nTmbo2.listindex=3nThisform.setfocusn删除按钮的删除按钮的Click过程代码过程代码n宏替换函数:
9、宏替换函数:&变量变量.2023/10/2管理信息系统:李国红主讲13nuse kjkmndo casen case allt(bo1.value)=科目编号n ziduan=kmbhn case allt(bo1.value)=科目名称n ziduan=kmmcn case allt(bo1.value)=借贷方向n ziduan=jdfx n case allt(bo1.value)=期初余额n ziduan=qcyenendc nif allt(bo1.value)期初余额n locate for&ziduan.&ysf.allt(thisform.text1.value)n if fo
10、und()n delete for&ziduan.&ysf.allt(thisform.text1.value)n packn elsen 2023/10/2管理信息系统:李国红主讲14nmessagebox(无符合条件的记录!,0+48,提示)n endifnelse n locate for&ziduan.&ysf.val(thisform.text1.value)n if found()n delete for&ziduan.&ysf.val(thisform.text1.value)n packn elsen messagebox(无符合条件的记录!,0+48,提示)n endif n
11、endifnuse2023/10/2管理信息系统:李国红主讲15n本节结束本节结束2023/10/2管理信息系统:李国红主讲166.2.4 记录定位及信息提示框记录定位及信息提示框n记录定位功能的实现记录定位功能的实现n首记录、上一条、下一条、末记录首记录、上一条、下一条、末记录n信息提示框的运用与表示信息提示框的运用与表示nMessagebox(“提示信息提示信息”,m+n,“提示提示”)2023/10/2管理信息系统:李国红主讲172023/10/2管理信息系统:李国红主讲186.3 记账凭证输入处理记账凭证输入处理n1.1.概述概述n记账凭证是登记账薄的直接依据,分为收款凭证、记账凭证是
12、登记账薄的直接依据,分为收款凭证、付款凭证和转账凭证付款凭证和转账凭证3类,但输入记账凭证采用统一类,但输入记账凭证采用统一的记账凭证的输入屏幕格式。的记账凭证的输入屏幕格式。n输入数据的正确是保证账内数据正确的关键,也是输入数据的正确是保证账内数据正确的关键,也是由记账凭证正确生成会计报表、账薄数据的关键。由记账凭证正确生成会计报表、账薄数据的关键。n功能演示功能演示n2.2.功能实现功能实现n建立建立记账凭证表文件记账凭证表文件jzpzfb.dbf和和jzpzzb.dbf。表中表中的字段包括的字段包括pzh、rq、fjzs、sh、zd;pzh、zy、km、jd、je等。其中等。其中sh字段
13、的值后三位为字段的值后三位为_#$表示已登账,由表示已登账,由程序自动处理;其余字段的值通过表单界面输入。程序自动处理;其余字段的值通过表单界面输入。2023/10/2管理信息系统:李国红主讲196.3 记账凭证输入处理记账凭证输入处理n设计设计凭证输入表单凭证输入表单。主表的数据在表格中输入,附表的。主表的数据在表格中输入,附表的数据在文本框中输入,其中,日期和附件张数文本框应分数据在文本框中输入,其中,日期和附件张数文本框应分别设置成日期型和数值型数据的文本框,别设置成日期型和数值型数据的文本框,借贷和科目通达借贷和科目通达下拉列表选择输入下拉列表选择输入(科目必须是(科目必须是kjkm.
14、dbf表中存在的科表中存在的科目编号)目编号)。n编程。应考虑:必须指定科目、借贷;输入金额不能为编程。应考虑:必须指定科目、借贷;输入金额不能为0;借贷必须平衡;须输入制单人;各命令按钮在必要的;借贷必须平衡;须输入制单人;各命令按钮在必要的时候变为灰色,需要的时候变成可用状态。时候变为灰色,需要的时候变成可用状态。n记账凭证输入的记账凭证输入的基本过程基本过程、程序流程程序流程。n用用VFP实现记账凭证处理。实现记账凭证处理。准备工作准备工作、命令按钮代码命令按钮代码、其他辅助功能其他辅助功能。2023/10/2管理信息系统:李国红主讲20记账凭证数据表的结构记账凭证数据表的结构2023/
15、10/2管理信息系统:李国红主讲21记账凭证用户输入表单记账凭证用户输入表单2023/10/2管理信息系统:李国红主讲22记账凭证输入基本过程kmbhkmbhkmmckmmcqcyeqcyejdfxjdfx1001库存现金30.0011002银行存款900.0011403原材料200.0016051其他业务收入100.002pzhrqfjzsshzd001109/28/102zd000001001209/30/101zd000001pzhzykmjdje0011购原材料购原材料1403借借35422.701001贷贷35422.700012其他收入其他收入1001借借1000.00001260
16、51贷贷1000.002023/10/2管理信息系统:李国红主讲23输输入入记记账账凭凭证证流流程程图图转“记账凭证及相关处理”2023/10/2管理信息系统:李国红主讲24准备工作n建立数据环境建立数据环境n添加添加kjkm、jzpzfb、jzpzzb、建立表间关系、建立表间关系n文本框、表格与数据表建立关联文本框、表格与数据表建立关联n日期、附件张数文本框设置日期、附件张数文本框设置n日期文本框:日期型,日期文本框:日期型,Value属性为属性为。n附件张数文本框:数值型,掩码为附件张数文本框:数值型,掩码为99。n辅助功能的实现辅助功能的实现nForm1的的BufferMode:2-开放
17、式。开放式。n命令按钮状态方法程序:命令按钮状态方法程序:buttonstatus1、buttonstatus2、buttonstatus3nForm1.load、unload、Init事件事件nText6.InteractiveChange事件事件2023/10/2管理信息系统:李国红主讲25用用VFPVFP实现记账凭证处理实现记账凭证处理“新增凭证新增凭证”按钮的按钮的ClickClick过程过程(1/2)(1/2)nif len(allt(thisform.text6.value)0&如果如果Text6中输入了凭证号中输入了凭证号n sele(thisform.dataenvironme
18、nt.cursor_JZPZFB.alias)&选择选择jzpzfb工作区工作区n locate for allt(pzh)=allt(thisform.text6.value)&查查jzpzfb中有无匹配凭证号中有无匹配凭证号n if.not.found()&如果输入至如果输入至Text6中的凭证号是一个新的凭证号中的凭证号是一个新的凭证号n thisform.buttonstatus2&“输入分录输入分录”、“取消取消”按钮有效,其余按钮无按钮有效,其余按钮无效效n append blank&在在jzpzfb中追加一条空记录中追加一条空记录n thisform.text1.value=th
19、isform.text6.value&Text1自动取自动取Text6中的值中的值n thisform.text6.value=space(0)&Text6中的内容清空中的内容清空n thisform.text6.readonly=.t.&Text6的的ReadOnly属性设置为属性设置为.t.n thisform.text2.value=date()&Text2中自动取值为系统当前日期中自动取值为系统当前日期n thisform.refresh&刷新表单刷新表单 返回记账凭证及相关处理2023/10/2管理信息系统:李国红主讲26用用VFPVFP实现记账凭证处理实现记账凭证处理“新增凭证新增
20、凭证”按钮的按钮的ClickClick过程过程(2/2)(2/2)nelse&如果输入至如果输入至Text6中的凭证号已存在于中的凭证号已存在于jzpzfb中中n thisform.buttonstatus1&“新增凭证新增凭证”、“关闭关闭”按钮有效,其余按钮无按钮有效,其余按钮无效效n =messagebox(已存在此凭证号的凭证已存在此凭证号的凭证!,48)&提示对话框提示对话框n thisform.text6.setfocus&Text6文本框获得焦点文本框获得焦点n endifnelse&如果如果Text6中还未输入凭证号中还未输入凭证号n thisform.buttonstatus
21、1&“新增凭证新增凭证”、“关闭关闭”按钮有效,其余按钮无按钮有效,其余按钮无效效n =messagebox(请输入新增凭证的凭证号请输入新增凭证的凭证号!,48)&提示对话框提示对话框n thisform.text6.setfocus&Text6文本框获得焦点文本框获得焦点nendif2023/10/2管理信息系统:李国红主讲27用用VFPVFP实现记账凭证处理实现记账凭证处理“输入分录输入分录”按钮的按钮的ClickClick过程过程nsele(thisform.dataenvironment.cursor_JZPZZB.alias)nappe blanknreplace pzh with
22、 thisform.text1.valuenthisform.grid1.refreshnthisform.buttonstatus32023/10/2管理信息系统:李国红主讲28用用VFPVFP实现记账凭证处理实现记账凭证处理“确定确定”按钮的按钮的ClickClick过程过程(1/3)(1/3)n sele(thisform.dataenvironment.cursor_JZPZZB.alias)n set filter to allt(pzh)=allt(thisform.text1.value)n locate for len(allt(km)=0n if.not.found()n l
23、ocate for len(allt(jd)=0n if.not.found()n locate for je=0.00n if.not.found()n sum je to je_jie for allt(jd)=借借n sum je to je_dai for allt(jd)=贷贷n if je_jie=je_dai 2023/10/2管理信息系统:李国红主讲29用用VFPVFP实现记账凭证处理实现记账凭证处理“确定确定”按钮的按钮的ClickClick过程过程(2/3)(2/3)n if len(allt(thisform.text5.value)0n sele(thisform.da
24、taenvironment.cursor_JZPZFB.alias)n =tableupdate(.t.)n sele(thisform.dataenvironment.cursor_JZPZZB.alias)n =tableupdate(.t.)n thisform.refreshn thisform.buttonstatus1n thisform.text6.setfocusn thisform.text6.readonly=.f.n elsen =messagebox(请输入制单人请输入制单人!,48)n thisform.text5.setfocusn thisform.buttons
25、tatus3n thisform.text6.readonly=.t.n endif 2023/10/2管理信息系统:李国红主讲30用用VFPVFP实现记账凭证处理实现记账凭证处理“确定确定”按钮的按钮的ClickClick过程过程(3/3)(3/3)n elsen =messagebox(借贷不平衡借贷不平衡!,48)n thisform.grid1.column_JE.setfocus n endifn elsen =messagebox(金额不能为金额不能为0!,48)n thisform.grid1.column_JE.setfocusn endifn elsen =messagebo
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
20 积分
下载 | 加入VIP,下载更划算! |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 账务 处理 报表 MIS 设计 实现