吉林师范大学计算机学院PB电子教案：6.ppt

第6章 小型财务软件 本章介绍一个小型财务软件，可用于单位或个人财务收支管理。其主要特点： (1)使用Access 2002数据库，便于维护管理，可设置密码； (2)收支类型可随时定义和修改，输入或修改基本收支数据时，可从弹出菜单中直接选取收支类型，提高效率； (3)以表格和饼图两种形式输出统计信息。 本章涉及的主要技术包括：下拉列表项的自动添加、下拉数据窗口的使用、数据颜色控制、“Set Carry on”功能的实现、汇总信息的表格和图形显示等。 6.1.1 系统功能与主菜单 6.1.2 多文档界面框架窗口与应用程序对象代码 6.1.3 数据库与表 6.1.1 系统功能与主菜单 本系统用于单位或个人财务收支管理。主要功能包括：收支类型定义，基本收支数据输入或修改，按年度和收支类型制作统计表、统计图。 建立目标jtsz.pbt、对象库xxcw.pbl和应用程序对象jtsz。 下面根据功能要求，设计一个如图6.1所示的系统菜单m_main，并对各项进行编码。 6.1.2 多文档界面框架窗口与应用程序对象代码 建立一个MDI框架窗口，取名为w_main，。 打开应用程序对象jtsz，对它的open事件编写代码： 6.1.3 数据库与表 系统采用Access 2002数据库。在Access 2002中，建立一个数据库文件xxcw.mdb，在里面1定义jtsz和dic_szlx两个表。 其中，jtsz用来存放收支基本信息，dic_szlx存放收支类型定义。 结构如下： 表6.1 jtsz表结构 表6.2 dic_szlx表结构 6.2 数据维护和查询 程序运行后，当用户选择“维护查询”菜单的“基本信息”项时，打开一个窗口“w_d_in”，这个窗口用来对基本信息进行维护和查询。如果用户选择“维护查询”菜单的“收支项目”项，则打开窗口“w_szlx”，对收支类型信息进行维护。信息维护包括增、删、改等功能。下面重点介绍窗口w_d_in的设计及有关技术，w_szlx与w_d_in很相似，只作简单介绍。 6.2.1 收支类型的输入与文本颜色的控制 6.2.2 窗口w_d_in布局及部分代码 6.2.3 查询的实现 6.2.4 Set Carry on功能的实现 6.2.5 数据有效性检验 6.2.6其它功能 6.2.7 收支类型维护窗口(本节从略) 6.2.1 收支类型的输入与文本颜色的控制 为了便于对收支类型信息进行维护，并且在对基本信息维护时利用下拉数据窗口输入收支类型，需要针对表dic_szlx建立一个数据窗口对象d_szlx。该数据窗口对象通过上移标题带隐蔽标题，设置字体、颜色等属性。 针对表jtsz设计一个数据窗口对象d_jbxx。其中，szlx的Edit属性使用了下拉数据窗口（DropDownDW）d_szlx，总结区分别求出收入金额和支出金额的合计。 如图6.3所示 图6.3 数据窗口对象d_jbxx布局和属性 6.2.2 窗口w_d_in布局及部分代码 1．窗口布局 2．open事件代码 3．closequery事件代码 6.2.3 查询的实现 在本窗口w_d_in中，可按收支类型、年份（或年月）进行查询。当下拉列表ddlb_1或ddlb_2的选项发生改变时，产生selectionchanged（或modified）事件，通过代码Parent.TriggerEvent(“u_serch”)触发窗口用户事件u_serch实现查询。 给用户事件u_serch编写如下代码： 窗口中“全部”命令按钮用来清除ddlb_1和ddlb_2内容并进行过滤，以显示全部记录。 6.2.4 Set Carry on功能的实现 相当于FoxPro中的Set Carry on功能。 6.2.5 数据有效性检验 在窗口w_d_in中，对数据窗口控件的dw_1的itemfocuschanged事件编写如下代码，与此相关，在dw_1的retrieveend事件（ 数据检索结束时产生）中编写如下代码 6.2.6其它功能 1、在窗口w_d_in的数据窗口控件dw_1中，当前记录改变时，产生rowfocuschanged事件，通过代码 sle_2.text=string(dw_1.GetRow()) 可以显示当前记录号。 2、数据窗口中发生数据库错误，产生dberror事件，下面程序段根据错误代码显示相应的信息，跳过系统错误信息提示。 3、数据窗口的数据项未通过合法性检查时，产生itemerror事件，通过代码 MessageBox(数据错误,数