财务管理系统应用程序设计

财务管理系统应用程序设计

财务管理系统应用程序设计

本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。

一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。

封面：在启动主程序之前显示一个软件封面，停留大约二秒钟，用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑（一般用于主程序启动需要较长时间的软件中）

登录界面：登录界面产生一个用户的下拉列表，用户可选择相应的用户名称，输入对应的密码进入，选择“取消”终止程序运行。防止用户以外的人看到密码，密码输入框内的密码用“＊”屏蔽。

主窗口：主窗口是本软件的核心，百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单，实现功能的切换和数据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。

打印窗口：实现所要打印的数据输出之前的预览，可以通过上面的一排功能按钮调整预览效果。

关于窗口：一个小对话框，显示的是本软件的说明信息。

添加记录：该标签页由上面的一组数据明细和下面的控制按钮组成，输入框前的文本提示输入框内存储的内容，输入框内是我们要输入的数据信息，下方的“第一条”，“上一条”，“下一条”，“最后一条”用于浏览数据，右下方的两个按钮用于数据的添加和存储。

编辑记录：该标签页和“添加记录”很相似，增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现，防止用户误删数据。

查询信息：由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段，然后在右边的文本框内输入要查询的内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。

打印数据：界面和“查询信息”标签相似，增加了一个“打印数据”按钮。这样，既可以打印全部信息，又可以只打印查询出来的信息，所打印的数据就是下方数据表格中的数据。

管理功能：包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户，修改用户登录口令。初始化功能将清空数据表。

二、数据库的结构设计

本程序用到了两个数据表，一个是记的流水帐表，另一个是用户表，全部存在于一个ACCESS2000数据库中（XMJL.MDB）。下面来说明一下数据表的数据结构

XMB表

字段名类型长度

序号文本10

收入货币自动

支出货币自动

日期日期/时间自动

经手人文本8

合计货币/计算自动

New表

字段名类型长度

Us 文本50

Ps 文本50

程序结构图

软件封

登录界

程序主

录入修改查询打印管理

打印

程序流程图：

附程序源代码：

program xmjl; uses Forms, windows,

main in 'main.pas' {Form1},

dm in 'dm.pas' {dm2: TDataModule},

用户 主程序

身

XMB 数据库

数据

数据数据打印

New

用户

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

{ Public declarations }

end;

var

logo: Tlogo;

implementation

{$R *.dfm}

end.

unit login;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, Buttons;

type

Tdenglu = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ComboBox1: TComboBox;

MaskEdit1: TMaskEdit;

Label1: TLabel;

Label2: TLabel;