财务管理系统应用程序设计
本程序
设计的是一个小型商店每天记的流水帐管理程序, 没有具 体到销售的每一样商品,只是记载了每一笔的收入和支出情况.经过 简单扩充就可以成为一个完整的商店销售
管理系统. 下面来说一下本 程序的各个模块的功能及数据库的结构. 一,本程序由封面,登录界面,主窗口,打印窗口及关于窗口五 部分组成.主窗口又由增添记录,编辑记录,查询信息,打印数据, 管理功能组成. 封面:在启动主程序之前显示一个软件封面,停留大约二秒钟, 用于说明本软件的功能版本信息,消除用户等待主程序启动的焦虑 (一般用于主
程序启动需要较长时间的软件中) 登录界面:登录界面产生一个用户的下拉
列表,用户可选择相应 的用户名称,输入对应的密码进入,选择"取消"终止程序运行.防 止用户以外的人看到密码,密码输入框内的密码用"*"屏蔽. 主窗口:主窗口是本
软件的核心,百分之九十的功能代码都在这 里实现. 主窗口上方是一组下拉菜单, 实现功能的切换和数据的处理. 下面一组标签页实现相应的功能. 最下方的状态条显示当前的时间和 日期. 打印窗口:实现所要打印的数据输出之前的预览,可以通过上面 的一排功能按钮调整预览效果. 关于窗口:一个小对话框,显示的是本软件的说明信息.
添加记录: 该标签页由上面的一组数据明细和下面的控制按钮组 成,输入框前的文本提示输入框内存储的内容,输入框内是我们要输 入的数据信息,下方的"第一条""上一条""下一条""最后一条" , , , 用于浏览数据,右下方的两个按钮用于数据的添加和存储. 编辑记录:该标签页和"添加记录"很相似,增加了一个"删除 记录"按钮和"修改记录"按钮.删除记录前会有一个删除确认对话 框出现,防止用户误删数据. 查询信息:由上面的一组查询组件和下面的数据表格组成.首先 在下拉框中选择要查询的字段, 然后在右边的文本框内输入要查询的 内容, "查询" 单击 按钮即可在下面的数据表格中显示所需要的信息. 支持模糊
查询,可以只输入查询信息的一部分.单击"全部"按钮将 显示全部记录. 打印数据:界面和"查询信息"标签相似,增加了一个"打印数 据"按钮.这样,既可以打印全部信息,又可以只打印查询出来的信 息,所打印的数据就是下方数据表格中的数据. 管理功能:包括用户管理和
系统初始化功能.用户管理我们可以 增加和删除用户,修改用户登录口令.初始化功能将清空数据表. 二,数据库的结构设计 本程序用到了两个数据表,一个是记的流水帐表,另一个是用户 表,全部存在于一个 ACCESS2000 数据库中(XMJL.MDB) .下面来 说明一下数据表的数据结构
XMB 表 字段名 序号 收入 支出 日期 经手人 合
计 New 表 字段名 Us Ps 程序结构图
软件封面
类型 文本 货币 货币 日期/时间 文本 货币/计算
长度 10 自动 自动 自动 8 自动
类型 文本 文本
长度 50 50
登录界面
程序主界面
录入模块
修改模块
查询模块
打印模块
管理模块
打印
程序流程图:
用户
身份 验证
数据录入
主程序
用户管理 初始化
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, Dialogs, jpeg, ExtCtrls; type Tlogo = class(TForm) Image1: TImage; private { Private declarations } public