《财务管理系统及财务知识分析程序》由会员分享,可在线阅读,更多相关《财务管理系统及财务知识分析程序(17页珍藏版)》请在金锄头文库上搜索。
1、财务管理系统应用程序设计本程序设计的是一个小型商店每天记的流水帐管理程序,没有具体到销售的每一样商品,只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。封面:在启动主程序之前显示一个软件封面,停留大约二秒钟,用于说明本软件的功能版本信息,消除用户等待主程序启动的焦虑(一般用于主程序启动需要较长时间的软件中)登录界面:登录界面产生一个用户的下拉列表,用户可选择相应的用户名称,输入对应的
2、密码进入,选择“取消”终止程序运行。防止用户以外的人看到密码,密码输入框内的密码用“”屏蔽。主窗口:主窗口是本软件的核心,百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单,实现功能的切换和数据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。打印窗口:实现所要打印的数据输出之前的预览,可以通过上面的一排功能按钮调整预览效果。关于窗口:一个小对话框,显示的是本软件的说明信息。添加记录:该标签页由上面的一组数据明细和下面的控制按钮组成,输入框前的文本提示输入框内存储的内容,输入框内是我们要输入的数据信息,下方的“第一条”,“上一条”,“下一条”,“最后一条”用于浏
3、览数据,右下方的两个按钮用于数据的添加和存储。编辑记录:该标签页和“添加记录”很相似,增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现,防止用户误删数据。查询信息:由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段,然后在右边的文本框内输入要查询的内容,单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询,可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。打印数据:界面和“查询信息”标签相似,增加了一个“打印数据”按钮。这样,既可以打印全部信息,又可以只打印查询出来的信息,所打印的数据就是下方数据表格中的数据。管
4、理功能:包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户,修改用户登录口令。初始化功能将清空数据表。二、数据库的结构设计本程序用到了两个数据表,一个是记的流水帐表,另一个是用户表,全部存在于一个ACCESS2000数据库中(XMJL.MDB)。下面来说明一下数据表的数据结构XMB表字段名类型长度序号文本10收入货币自动支出货币自动日期日期/时间自动经手人文本8合计货币/计算自动New表字段名类型长度Us文本50Ps文本50程序结构图打印管理模块打印模块查询模块修改模块录入模块程序主界面登录界面软件封面用户管理初始化New数据库打印数据数据查询数据修改数据录入XMB数据库用户主程序身
5、份验证程序流程图:附程序源代码: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 *.resbegin Application.Initialize; logo:=tlogo.Create(application); log
6、o.Show; logo.Update; Application.CreateForm(Tdm2, dm2); Application.CreateForm(Tdenglu, denglu); sleep(1000); logo.Hide; logo.Free; Application.Run;end.unit logosrc;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls;type Tlogo = class(TFo
7、rm) Image1: TImage; private Private declarations public Public declarations end;var logo: Tlogo;implementation$R *.dfmend.unit login;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Buttons;type Tdenglu = class(TForm) BitBtn1: TBitBtn;
8、 BitBtn2: TBitBtn; ComboBox1: TComboBox; MaskEdit1: TMaskEdit; Label1: TLabel; Label2: TLabel; procedure BitBtn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private Private declarations public Public declarations end;var denglu: Tdenglu;impl
9、ementation uses dm,main;$R *.dfmprocedure Tdenglu.BitBtn2Click(Sender: TObject);begin application.Terminate;end;procedure Tdenglu.FormCreate(Sender: TObject);begin with dm2.ADOTable1 do begin open; first; while not eof do begin combobox1.Items.Add(fields0.Value ); next; end; combobox1.ItemIndex :=0;
10、 end;end;procedure Tdenglu.BitBtn1Click(Sender: TObject);begin with dm2.ADOTable1 do begin if locate(us,combobox1.Text,) then begin if maskedit1.text=fields1.Value then begin hide; with tform1.Create(self) do showmodal; end; application.Terminate ; end; end;end;end.unit main;interfaceuses Windows, M
11、essages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB, ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids;type TForm1 = class(TForm) PageControl1: TPageControl; StatusBar1: TStatusBar; TabSheet1: TTabSheet; TabSheet
12、2: TTabSheet; TabSheet3: TTabSheet; TabSheet5: TTabSheet; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; Da
13、taSource1: TDataSource; ActionList1: TActionList; DataSetFirst1: TDataSetFirst; DataSetPrior1: TDataSetPrior; DataSetNext1: TDataSetNext; DataSetLast1: TDataSetLast; DataSetInsert1: TDataSetInsert; DataSetDelete1: TDataSetDelete; DataSetEdit1: TDataSetEdit; DataSetPost1: TDataSetPost; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit9