账务处理系统程序的设计参考的答案.pptVIP

账务处理系统 程序设计参考答案 FORM1.COMMAND2(退出)CLICK代码: SELE PZ REPL ALL ZY WITH ,KMM WITH ,JJE WITH 0,DJE WITH 0 RELE THISFORMSET FORM2.COMMAND1(确定)CLICK代码： THISFORMSET.FORM1.GRID1.COLUMN2.TEXT1.VALUE=KJKM.KMM THISFORMSET.FORM1.MC.VALUE=KJKM.MC THISFORM.HIDE FORM2.GRDKJKM.COLUMN1.TEXT1(科目码)DBLCLICK代码： FORM2.GRDKJKM.COLUMN2.TEXT1(科目名称)DBLCLICK代码： (代码与COMMAND1的CLICK代码相同) 5、凭证修改表单（ZW22.SCX） 6、查询记账凭证（ZW23.SCX）表单 数据环境：KJKM.DBF, PZM.DBF, PZMA.DBF 在数据环境中为KJKM表指定Order为KMM,Filter为 NOT MX 为表单添加新方法“XSPZ”，用来指定对应凭证颜色及凭证内容： DO CASE CASE PZMA.PZLX=收款 THISFORM.GRID1.BACKCOLOR=RGB(240,200,160) CASE PZMA.PZLX=付款 THISFORM.GRID1.BACKCOLOR=RGB(0,255,0) CASE PZMA.PZLX=转帐 THISFORM.GRID1.BACKCOLOR=RGB(160,200,240) ENDCASE SELE PZM SUM(PZM.JJE) TO A THISFORM.JFHJ.VALUE=A SUM(PZM.DJE) TO A THISFORM.DFHJ.VALUE=A GO TOP THISFORM.GRID1.COLUMN2.SETFOCUS() 表单的INIT代码： SELE PZM SET RELA TO KMM INTO KJKM SELECT PZMA GO TOP THISFORM.XSPZ COMBO1对象 Row Source为: SELE PZLX,PZBH FROM PZMA INTO CURS PZTMP Row Source Type为:3——SQL语句 ColumnCount : 2 Inter Active Change代码为： SELECT PZMA LOCA FOR PZLX=PZTMP.PZLX AND PZBH=PZTMP.PZBH THISFORM.XSPZ 表格对象GRID1 INIT代码： SELECT PZM SET FILT TO PZLX=PZMA.PZLX AND PZBH=PZMA.PZBH GO TOP THIS.REFRESH GRID1.Column2.text1 GotFocus代码( 会计科目列) THISFORM.MC.VALUE=KJKM.MC THIS.REFRESH “首张凭证”命令按钮CLICK代码： SELECT PZMA GO TOP THISFORM.XSPZ “下一张凭证”命令按钮CLICK代码： SELECT PZMA SKIP IF EOF() GO BOTT ENDIF THISFORM.XSPZ “上一张凭证”命令按钮CLICK代码： SELECT PZMA SKIP -1 IF BOF() GO TOP ENDIF THISFORM.XSPZ “末张凭证”命令按钮CLICK代码： SELECT PZMA GO BOTT THISFORM.XSPZ “退出”命令按钮CLICK代码： RELE THISFORM * * 1、科目维护表单（ZW11.SCX） FORM1 数据环境：KJKM.DBF (指定主控索引KMM) KMYE.DBF 两个表以独占方式打开 FORMSET INIT代码： PUBLIC KM1,N1,N2 THISFORMSET.FORM2.HIDE THISFORMSET.FORM3.HIDE THISFORMSET.FORM4.HIDE SET DELE ON FORM1：会计科目维护 COMMAND1 （新增）CLICK代码： THISFORMSET.FORM2.SHOW COMMAND2 （删除）CLICK代码： THISFORMSET.FORM4.SHOW THISFORMSET.FORM4.TEXT1.VALUE=KJKM.KMM THISFORMSET.FORM4.TEXT2.VALUE=KJKM.MC COMMAND3 （修改