《Delphi财务管理系统设计与开发(论文+源代码）》由会员分享，可在线阅读，更多相关《Delphi财务管理系统设计与开发(论文+源代码）（16页珍藏版）》请在金锄头文库上搜索。
1、财务管理系统应用程序设计本程序设计的是一个小型商店每天记的流水帐管理程序，没有具 体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过 简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本 程序的各个模块的功能及数据库的结构。一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五 部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、 管理功能组成。封面：在启动主程序之前显示一个软件封面，停留大约二秒钟， 用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑 （一般用于主程序启动需要较长时间的软件中）登录界面：登录界面产生一个用户的下拉列表，用户可选择相应 的用户
2、名称，输入对应的密码进入，选择“取消”终止程序运行。防 止用户以外的人看到密码，密码输入框内的密码用“大”屏蔽。主窗口：主窗口是本软件的核心，百分之九十的功能代码都在这 里实现。主窗口上方是一组下拉菜单，实现功能的切换和数据的处理。 下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和 日期。打印窗口：实现所要打印的数据输出之前的预览，可以通过上面 的一排功能按钮调整预览效果。关于窗口：一个小对话框，显示的是本软件的说明信息。添加记录：该标签页由上面的一组数据明细和下面的控制按钮组 成，输入框前的文本提示输入框内存储的内容，输入框内是我们要输 入的数据信息，下方的“第一条”，“上一条”
3、，“下一条”，“最后一条” 用于浏览数据，右下方的两个按钮用于数据的添加和存储。编辑记录：该标签页和“添加记录”很相似，增加了一个“删除 记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话 框出现，防止用户误删数据。查询信息：由上面的一组查询组件和下面的数据表格组成。首先 在下拉框中选择要查询的字段，然后在右边的文本框内输入要查询的 内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。 支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将 显示全部记录。打印数据：界面和“查询信息”标签相似，增加了一个“打印数 据”按钮。这样，既可以打印全部信息，又可以只打印查询出来
4、的信 息，所打印的数据就是下方数据表格中的数据。管理功能：包括用户管理和系统初始化功能。用户管理我们可以 增加和删除用户，修改用户登录口令。初始化功能将清空数据表。二、数据库的结构设计本程序用到了两个数据表，一个是记的流水帐表，另一个是用户 表，全部存在于一个ACCESS2000数据库中（XMJL.MDB）。下面来说明一下数据表的数据结构XMB表字段名类型长度序号文本10收入货币自动支出货币自动日期日期/时间自动经手人文本8合计货币/计算自动New表字段名类型长度Us文本50Ps文本50程序结构图程序流程图:附程序源代码:program xmjl;usesForms, windows, mai
5、n in main.pas (Forml, 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 *.resbeginApplication.Initialize; logo:=tlogo.Create(application);logo.Show;logo.Update;Application.CreateForm(Tdm2, dm2);A
6、pplication.CreateForm(Tdenglu, denglu); sleep(1000);logo.Hide;logo.Free;Application.Run;end.unit logosrc;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls;typeTlogo = class(TForm)Imagel: TImage;private( Private declarations public( Public
7、 declarations end;varlogo: Tlogo;implementation$R *.dfmend.unit login;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Mask, Buttons;typeTdenglu = class(TForm)BitBtn1: TBitBtn;BitBtn2: TBitBtn;ComboBox1: TComboBox;MaskEdit1: TMaskEdit;Label1:
8、TLabel;Label2: TLabel;procedure BitBtn2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject);private( Private declarations public( Public declarations end;vardenglu: Tdenglu;implementation uses dm,main;$R *.dfmprocedure Tdenglu.BitBtn2Click(Sender: TO
9、bject); beginapplication.Terminate;end;procedure Tdenglu.FormCreate(Sender: TObject);beginwith dm2.ADOTable1 dobeginopen;first;while not eof dobegincombobox1.Items.Add(fields0.Value ); next;end;combobox1.ItemIndex :=0;end;end;procedure Tdenglu.BitBtn1Click(Sender: TObject); beginwith dm2.ADOTable1 d
10、obeginif locate(us,combobox1.Text,) then beginif maskedit1.text=fields1.Value then begin hide;with tform1.Create(self) do showmodal;end;application.Terminate ;end;end;end;end.unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin,
11、 Menus, DBActns, ActnList, DB, ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids;typeTForm1 = class(TForm)PageControl1: TPageControl;StatusBar1: TStatusBar;TabSheet1: TTabSheet;TabSheet2: TTabSheet;TabSheet3: TTabSheet;TabSheet5: TTabSheet;MainMenu1: TMainMenu;N1: TMenuItem;N2: TMe
12、nuItem;N4: TMenuItem;N5: TMenuItem;N8: TMenuItem;N9: TMenuItem;N10: TMenuItem;N12: TMenuItem;N13: TMenuItem;N14: TMenuItem;N15: TMenuItem;N16: TMenuItem;N17: TMenuItem;N18: TMenuItem;DataSource1: TDataSource;ActionList1: TActionList;DataSetFirst1: TDataSetFirst;DataSetPrior1: TDataSetPrior;DataSetNe
13、xt1: 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;
14、DBEdit9: TDBEdit;DBEdit10: TDBEdit;DBEdit11: TDBEdit;Panel3: TPanel;BitBtn1: TBitBtn;BitBtn2: TBitBtn;BitBtn3: TBitBtn;BitBtn4: TBitBtn;ImageList1: TImageList;BitBtn5: TBitBtn;BitBtn10: TBitBtn;Label25: TLabel;Label26: TLabel;Panel4: TPanel;BitBtn6: TBitBtn;BitBtn7: TBitBtn;BitBtn8: TBitBtn;BitBtn9:
15、 TBitBtn;BitBtnll: TBitBtn;BitBtn12: TBitBtn;BitBtn13: TBitBtn;Panel8: TPanel;DBGridl: TDBGrid;Panel9: TPanel;Label27: TLabel;ComboBoxl: TComboBox;Label28: TLabel;Edit1: TEdit;BitBtn14: TBitBtn;BitBtn15: TBitBtn;Panel13: TPanel;DBGrid3: TDBGrid;Panel14: TPanel;Label59: TLabel;Label60: TLabel;ComboBox3: TComboBox;Edit3:
