【财务知识】财务管理系统应用程序设计.doc

【财务知识】财务管理系统应用程序设计 财务管理系统应用程序设计 本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。 一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。 封面：在启动主程序之前显示一个软件封面，停留大约二秒钟，用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑（一般用于主程序启动需要较长时间的软件中） 登录界面：登录界面产生一个用户的下拉列表，用户可选择相应的用户名称，输入对应的密码进入，选择“取消”终止程序运行。防止用户以外的人看到密码，密码输入框内的密码用“＊”屏蔽。 主窗口：主窗口是本软件的核心，百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单，实现功能的切换和数据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。 打印窗口：实现所要打印的数据输出之前的预览，可以通过上面的一排功能按钮调整预览效果。 关于窗口：一个小对话框，显示的是本软件的说明信息。 添加记录：该标签页由上面的一组数据明细和下面的控制按钮组成，输入框前的文本提示输入框内存储的内容，输入框内是我们要输入的数据信息，下方的“第一条”，“上一条”，“下一条”，“最后一条”用于浏览数据，右下方的两个按钮用于数据的添加和存储。 编辑记录：该标签页和“添加记录”很相似，增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现，防止用户误删数据。 查询信息：由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段，然后在右边的文本框内输入要查询的内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。 打印数据：界面和“查询信息”标签相似，增加了一个“打印数据”按钮。这样，既可以打印全部信息，又可以只打印查询出来的信息，所打印的数据就是下方数据表格中的数据。 管理功能：包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户，修改用户登录口令。初始化功能将清空数据表。 二、数据库的结构设计 本程序用到了两个数据表，一个是记的流水帐表，另一个是用户表，全部存在于一个ACCESS2000数据库中（XMJL.MDB）。下面来说明一下数据表的数据结构 XMB表 字段名 类型 长度 序号 文本 10 收入 货币 自动 支出　 货币 自动 日期 日期/时间 自动 经手人 文本 8 合计 货币/计算 自动 New表 字段名 类型 长度 Us 文本 50 Ps 文本 50 程序结构图 打印管理模块打印模块查询模块修改模块录入模块程序主界面登录界面软件封面 打印 管理模块 打印模块 查询模块 修改模块 录入模块 程序主界面 登录界面 软件封面 用户管理初始化New数据库打印数据数据查询数据修改数据录入XMB数据库用户主程序身份验证程序流程图： 用户管理 初始化 New 数据库 打印数据 数据查询 数据修改 数据录入 XMB数据库 用户 主程序 身份验证 附程序源代码： program xmjl; uses Forms, windows, main in 'main.pas' {Form1}, dm in 'dm.pas' {dm2: TDataModule}, about in 'about.pas' {AboutBox}, report in 'report.pas' {qr1: TQuickRep}, logosrc in 'logosrc.pas' {logo}, login in 'login.pas' {denglu}; {$R *.res} begin Application.Initialize; logo:=tlogo.Create(application); logo.Show; logo.Update; Application.CreateForm(Tdm2, dm2); Application.CreateForm(Tdenglu, denglu); sleep(1000); logo.Hide; logo.Free; Application.Run; end. unit logosrc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,