2022年财务管理系统及财务知识分析程序 .pdf

《2022年财务管理系统及财务知识分析程序 .pdf》由会员分享，可在线阅读，更多相关《2022年财务管理系统及财务知识分析程序 .pdf（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、财务管理系统应用程序设计本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品， 只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。封面：在启动主程序之前显示一个软件封面，停留大约二秒钟，用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑（一般用于主程序启动需要较长时间的软件中）登录界面： 登录界面产生一个用户的下拉列表，用户可选择相应的用户名称，输入对

2、应的密码进入，选择“取消”终止程序运行。防止用户以外的人看到密码，密码输入框内的密码用“”屏蔽。主窗口：主窗口是本软件的核心， 百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单， 实现功能的切换和数据的处理。下面一组标签页实现相应的功能。 最下方的状态条显示当前的时间和日期。打印窗口： 实现所要打印的数据输出之前的预览，可以通过上面的一排功能按钮调整预览效果。关于窗口：一个小对话框，显示的是本软件的说明信息。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 17 页添加记录：该标签页由上面的一组数据明细和下面的控制按钮组成，输入

3、框前的文本提示输入框内存储的内容，输入框内是我们要输入的数据信息， 下方的“第一条”， “上一条”， “下一条”， “最后一条”用于浏览数据，右下方的两个按钮用于数据的添加和存储。编辑记录：该标签页和“添加记录”很相似，增加了一个“删除记录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现，防止用户误删数据。查询信息： 由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段， 然后在右边的文本框内输入要查询的内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。打印数据：界面和“查询

4、信息”标签相似，增加了一个“打印数据”按钮。这样，既可以打印全部信息，又可以只打印查询出来的信息，所打印的数据就是下方数据表格中的数据。管理功能： 包括用户管理和系统初始化功能。用户管理我们可以增加和删除用户，修改用户登录口令。初始化功能将清空数据表。二、数据库的结构设计本程序用到了两个数据表， 一个是记的流水帐表， 另一个是用户表，全部存在于一个ACCESS2000数据库中（ XMJL.MDB ） 。下面来说明一下数据表的数据结构精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 17 页XMB 表字段名类型长度序号文本10 收入货币自动

5、支出货币自动日期日期/时间自动经手人文本8 合计货币/计算自动New 表字段名类型长度Us 文本50 Ps 文本50 程序结构图软件封面登录界面程序主界面录入模块修改模块查询模块打印模块管理模块打印精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 17 页程序流程图：附程序源代码：program xmjl; uses Forms, windows, main in main.pas Form1, dm in dm.pas dm2: TDataModule, about in about.pas AboutBox, report in re

6、port.pas qr1: TQuickRep, logosrc in logosrc.pas logo, login in login.pas denglu; $R *.res begin Application.Initialize; 用户主程序身份验证XMB 数据库数据录入数据修改数据查询打印数据New 数据库用户管理初始化精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 17 页logo:=tlogo.Create(application); logo.Show; logo.Update; Application.CreateFo

7、rm(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

8、declarations public Public declarations end; var logo: Tlogo; implementation $R *.dfm end. unit login; interface uses 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 17 页Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Buttons; type Tdenglu = c

9、lass(TForm) BitBtn1: TBitBtn; 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

10、 end; var denglu: Tdenglu; implementation uses dm,main; $R *.dfm procedure 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 )

11、; next; end; combobox1.ItemIndex :=0; 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 17 页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(sel

12、f) do showmodal; end; application.Terminate ; end; end; end; end. unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, ToolWin, Menus, DBActns, ActnList, DB, ExtCtrls, StdCtrls, Mask, DBCtrls, ImgList, Buttons, Grids, DBGrids; type T

13、Form1 = class(TForm) PageControl1: TPageControl; StatusBar1: TStatusBar; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; TabSheet5: TTabSheet; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N4: TMenuItem; N5: TMenuItem; 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 17 页

14、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; DataSetNext1: TDataSetNext; Da

15、taSetLast1: 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; DBEdit

16、9: 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; 精选学习资料 - - - - - - - - - 名师归纳总结 -

17、 - - - - - -第 8 页，共 17 页BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; Panel8: TPanel; DBGrid1: TDBGrid; Panel9: TPanel; Label27: TLabel; ComboBox1: TComboBox; Label28: TLabel; Edit1: TEdit; BitBtn14: TBitBtn; BitBtn15: TBitBtn; Panel13

18、: TPanel; DBGrid3: TDBGrid; Panel14: TPanel; Label59: TLabel; Label60: TLabel; ComboBox3: TComboBox; Edit3: TEdit; BitBtn18: TBitBtn; BitBtn19: TBitBtn; BitBtn21: TBitBtn; Timer1: TTimer; Label6: TLabel; DBEdit3: TDBEdit; Panel5: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabe

19、l; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit12: TDBEdit; TabSheet4: TTabSheet; 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 17 页Panel6: TPanel; GroupBox1: TGroupBox; Spe

20、edButton1: TSpeedButton; DBGrid2: TDBGrid; DBEdit13: TDBEdit; DBEdit14: TDBEdit; DBNavigator1: TDBNavigator; Label15: TLabel; Label16: TLabel; DataSource2: TDataSource; procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N8Click(Sen

21、der: TObject); procedure N14Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure BitBtn5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure filldata(sender:tcombobox); procedure search(f1:tcombobox;t1:tedit); procedure dispall; procedure Form

22、Activate(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn17Click(Sender: TObject); procedure BitBtn21Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure BitBtn11Mouse

23、Up(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure BitBtn18Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; implementation uses about,dm,report,login; $R *.dfm 精选

24、学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 17 页procedure TForm1.N9Click(Sender: TObject); begin tabsheet2.Show; end; procedure TForm1.N10Click(Sender: TObject); begin tabsheet3.Show; end; procedure TForm1.N12Click(Sender: TObject); begin tabsheet5.Show; end; procedure TForm1.N8Click(Sender:

25、 TObject); begin tabsheet1.Show; end; procedure TForm1.N14Click(Sender: TObject); begin application.Terminate ; end; procedure TForm1.N5Click(Sender: TObject); begin with taboutbox.Create(self) do ShowModal ; end; procedure TForm1.BitBtn5MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftSt

26、ate; X, Y: Integer); begin dbedit1.Text:=inttostr(dm2.adoquery1.RecordCount+1); dbedit2.SetFocus; end; procedure TForm1.filldata(sender:tcombobox); var iCount: Integer; /将从数据模块中取得的数据库表的字段名填入ComboBox 中begin sender.Items.Clear; /首先清空ComboBox 中 Items 的值精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11

27、页，共 17 页for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do begin sender.Items.Add(DM2.ADOQuery1.FieldsiCount.FieldName); /加入字段名DM2.ADOQuery1.Next; /向下移动到下一个字段end; sender.ItemIndex := 0; /设置表单刚出现时ComboBox 的值为第一个end; procedure TForm1.search(f1:tcombobox;t1:tedit); /自定义过程search(在数据库中搜寻指定条件的数据) var Se

28、archField: string; /要查找的字段名SearchValue: string; /要查找的字段值begin SearchField := Trim(f1.Text); /将 ComboBox 的值赋给SearchField SearchValue := % + Trim(t1.Text) + %; /将 Edit 的值赋给SearchField with DM2.ADOQuery1 do begin close; /先关闭数据模块中的ADOQuery sql.Clear; /清空 ADOQuery 中的 SQL 值sql.Add(select * from xmb where

29、+ SearchField + like + SearchValue + ); /进行数据查询的SQL 语句（ SearchFidel 和 SearchValue / 分别赋到SQL 语句中end; Dm2.ADOQuery1.Open; /打开数据模块中的ADOQuery end; procedure TForm1.FormActivate(Sender: TObject); begin filldata(combobox1); filldata(combobox3); tabsheet1.Show; end; procedure TForm1.BitBtn14Click(Sender: T

30、Object); begin search(combobox1,edit1); end; procedure TForm1.BitBtn15Click(Sender: TObject); begin 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 17 页dispall; end; procedure TForm1.dispall; begin with dm2.ADOQuery1 do begin close; sql.clear; sql.Add(select * from xmb); open; end; end; proced

31、ure TForm1.BitBtn13Click(Sender: TObject); begin if MessageDlg( 你确信要删除记录?,mtwarning,mbok,mbcancel,0)=mrok then DM2.ADOQuery1.Delete; end; procedure TForm1.BitBtn17Click(Sender: TObject); begin dispall; end; procedure TForm1.BitBtn21Click(Sender: TObject); begin with tqr1.Create(self) do Preview; end

32、; procedure TForm1.Timer1Timer(Sender: TObject); begin statusbar1.Panels3.Text :=timetostr(now); statusbar1.Panels4.Text :=formatdatetime(yyyy年 MM 月 dd 日,now); end; procedure TForm1.BitBtn11MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin dbedit12.SetFocus; en

33、d; 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 17 页procedure TForm1.BitBtn18Click(Sender: TObject); begin search(combobox3,edit3); end; procedure TForm1.SpeedButton1Click(Sender: TObject); begin with dm2.ADOQuery1 do begin close; sql.Clear; sql.Add(delete * from xmb); ExecSQL; close; sql.C

34、lear; sql.Add(select * from xmb); open; end; end; end. unit dm; interface uses SysUtils, Classes, ADODB, DB; type Tdm2 = class(TDataModule) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOQuery1DSDesigner: TWideStringField; ADOQuery1DSDesigner2: TBCDField; ADOQuery1DSDesigner3: TBCDField; A

35、DOQuery1DSDesigner4: TDateTimeField; ADOQuery1DSDesigner5: TWideStringField; ADOQuery1total: TCurrencyField; ADOTable1: TADOTable; procedure ADOQuery1CalcFields(DataSet: TDataSet); private 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 17 页 Private declarations public Public declarations end;

36、 var dm2: Tdm2; implementation $R *.dfm procedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet); begin adoquery1total.Value :=ADOQuery1DSDesigner2.V alue - ADOQuery1DSDesigner3.value ; end; end. unit report; interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, F

37、orms, QuickRpt, QRCtrls, DB, ADODB; type Tqr1 = class(TQuickRep) ColumnHeaderBand1: TQRBand; TitleBand1: TQRBand; QRLabel1: TQRLabel; DetailBand1: TQRBand; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel; QRLabel6: TQRLabel; QRLabel7: TQRLabel; QRDBText1: TQRDBText; QR

38、DBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 17 页QRShape1: TQRShape; QRShape2: TQRShape; QRShape3: TQRShape; QRShape7: TQRShape; QRShape8: TQRShape; QRShape9: TQRShape; SummaryBand1:

39、TQRBand; QRSysData1: TQRSysData; QRLabel8: TQRLabel; QRLabel9: TQRLabel; QRSysData2: TQRSysData; QRLabel10: TQRLabel; QRSysData3: TQRSysData; private public end; var qr1: Tqr1; implementation uses dm; $R *.DFM end. unit about; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Std

40、Ctrls, Buttons, ExtCtrls; type TAboutBox = class(TForm) Panel1: TPanel; ProgramIcon: TImage; ProductName: TLabel; Version: TLabel; Copyright: TLabel; Comments: TLabel; OKButton: TButton; private 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 17 页 Private declarations public Public declarations end; var AboutBox: TAboutBox; implementation $R *.dfm end. 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 17 页，共 17 页