財務管理系統(tǒng)及財務知識分析程序

1、財務治理系統(tǒng)應用程序設計本程序設計的是一個小型商店每天記的流水帳治理程序，沒有具體到銷售的每一樣商品，只是記載了每一筆的收入和支出情況。通過簡單擴充就能夠成為一個完整的商店銷售治理系統(tǒng)。下面來講一下本程序的各個模塊的功能及數(shù)據(jù)庫的結(jié)構(gòu)。一、本程序由封面、登錄界面、主窗口、打印窗口及關(guān)于窗口五部分組成。主窗口又由增添記錄、編輯記錄、查詢信息、打印數(shù)據(jù)、治理功能組成。封面：在啟動主程序之前顯示一個軟件封面，停留大約二秒鐘，用于講明本軟件的功能版本信息，消除用戶等待主程序啟動的焦慮（一般用于主程序啟動需要較長時刻的軟件中）登錄界面：登錄界面產(chǎn)生一個用戶的下拉列表，用戶可選擇相應的用戶名稱，輸入對應的

2、密碼進入，選擇“取消”終止程序運行。防止用戶以外的人看到密碼，密碼輸入框內(nèi)的密碼用“”屏蔽。主窗口：主窗口是本軟件的核心，百分之九十的功能代碼都在那個地點實現(xiàn)。主窗口上方是一組下拉菜單，實現(xiàn)功能的切換和數(shù)據(jù)的處理。下面一組標簽頁實現(xiàn)相應的功能。最下方的狀態(tài)條顯示當前的時刻和日期。打印窗口：實現(xiàn)所要打印的數(shù)據(jù)輸出之前的預覽，能夠通過上面的一排功能按鈕調(diào)整預覽效果。關(guān)于窗口：一個小對話框，顯示的是本軟件的講明信息。添加記錄：該標簽頁由上面的一組數(shù)據(jù)明細和下面的操縱按鈕組成，輸入框前的文本提示輸入框內(nèi)存儲的內(nèi)容，輸入框內(nèi)是我們要輸入的數(shù)據(jù)信息，下方的“第一條”，“上一條”，“下一條”，“最后一條”用

3、于掃瞄數(shù)據(jù)，右下方的兩個按鈕用于數(shù)據(jù)的添加和存儲。編輯記錄：該標簽頁和“添加記錄”專門相似，增加了一個“刪除記錄”按鈕和“修改記錄”按鈕。刪除記錄前會有一個刪除確認對話框出現(xiàn)，防止用戶誤刪數(shù)據(jù)。查詢信息：由上面的一組查詢組件和下面的數(shù)據(jù)表格組成。首先在下拉框中選擇要查詢的字段，然后在右邊的文本框內(nèi)輸入要查詢的內(nèi)容，單擊“查詢”按鈕即可在下面的數(shù)據(jù)表格中顯示所需要的信息。支持模糊查詢，能夠只輸入查詢信息的一部分。單擊“全部”按鈕將顯示全部記錄。打印數(shù)據(jù)：界面和“查詢信息”標簽相似，增加了一個“打印數(shù)據(jù)”按鈕。如此，既能夠打印全部信息，又能夠只打印查詢出來的信息，所打印的數(shù)據(jù)確實是下方數(shù)據(jù)表格中的

4、數(shù)據(jù)。治理功能：包括用戶治理和系統(tǒng)初始化功能。用戶治理我們能夠增加和刪除用戶，修改用戶登錄口令。初始化功能將清空數(shù)據(jù)表。二、數(shù)據(jù)庫的結(jié)構(gòu)設計本程序用到了兩個數(shù)據(jù)表，一個是記的流水帳表，另一個是用戶表，全部存在于一個ACCESS2000數(shù)據(jù)庫中（XMJL.MDB）。下面來講明一下數(shù)據(jù)表的數(shù)據(jù)結(jié)構(gòu)XMB表字段名類型長度序號文本10收入貨幣自動支出貨幣自動日期日期/時刻自動經(jīng)手人文本8合計貨幣/計算自動New表字段名類型長度Us文本50Ps文本50程序結(jié)構(gòu)圖打印治理模塊打印模塊查詢模塊修改模塊錄入模塊程序主界面登錄界面軟件封面用戶治理初始化New數(shù)據(jù)庫打印數(shù)據(jù)數(shù)據(jù)查詢數(shù)據(jù)修改數(shù)據(jù)錄入XMB數(shù)據(jù)庫用戶

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);

6、 logo.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

7、(TForm) 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: TBit

8、Btn; 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;

9、implementation 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

10、:=0; 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 Window

11、s, Messages, 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; TabS

12、heet2: 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

13、; DataSource1: TDataSource; ActionList1: TActionList; DataSetFirst1: TDataSetFirst; DataSetPrior1: TDataSetPrior; DataSetNext1: TDataSetNext; DataSetLast1: TDataSetLast; DataSetInsert1: TDataSetInsert; DataSetDelete1: TDataSetDelete; DataSetEdit1: TDataSetEdit; DataSetPost1: TDataSetPost; Panel1: TP

14、anel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; Panel3: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; ImageList1: TImage

15、List; BitBtn5: TBitBtn; BitBtn10: TBitBtn; Label25: TLabel; Label26: TLabel; Panel4: TPanel; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; Panel8: TPanel; DBGrid1: TDBGrid; Panel9: TPanel; Label27: TLabel; ComboBox1:

16、TComboBox; Label28: TLabel; Edit1: TEdit; BitBtn14: TBitBtn; BitBtn15: TBitBtn; Panel13: TPanel; DBGrid3: TDBGrid; Panel14: TPanel; Label59: TLabel; Label60: TLabel; ComboBox3: TComboBox; Edit3: TEdit; BitBtn18: TBitBtn; BitBtn19: TBitBtn; BitBtn21: TBitBtn; Timer1: TTimer; Label6: TLabel; DBEdit3:

17、TDBEdit; Panel5: TPanel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit12: TDBEdit; TabSheet4: TTabSheet; Panel6: TPa

18、nel; GroupBox1: TGroupBox; SpeedButton1: 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: T

19、Object); procedure N8Click(Sender: 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); pro

20、cedure dispall; procedure FormActivate(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: TOb

21、ject); procedure BitBtn11MouseUp(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,

22、dm,report,login;$R *.dfmprocedure 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: TObject);begin tabsheet1.Show;end;proced

23、ure 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: TShiftState; X, Y: Integer);begin dbedit1.Text:=inttostr(d

24、m2.adoquery1.RecordCount+1); dbedit2.SetFocus;end;procedure TForm1.filldata(sender:tcombobox);var iCount: Integer; /將從數(shù)據(jù)模塊中取得的數(shù)據(jù)庫表的字段名填入ComboBox中begin sender.Items.Clear; /首先清空ComboBox中Items的值 for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do begin sender.Items.Add(DM2.ADOQuery1.FieldsiCount.Fiel

25、dName); /加入字段名 DM2.ADOQuery1.Next; /向下移動到下一個字段 end; sender.ItemIndex := 0; /設置表單剛出現(xiàn)時ComboBox的值為第一個end;procedure TForm1.search(f1:tcombobox;t1:tedit); /自定義過程search(在數(shù)據(jù)庫中搜尋指定條件的數(shù)據(jù))var SearchField: string; /要查找的字段名 SearchValue: string; /要查找的字段值begin SearchField := Trim(f1.Text); /將ComboBox的值賦給SearchFie

26、ld SearchValue := % + Trim(t1.Text) + %; /將Edit的值賦給SearchField with DM2.ADOQuery1 do begin close; /先關(guān)閉數(shù)據(jù)模塊中的ADOQuery sql.Clear; /清空ADOQuery中的SQL值 sql.Add(select * from xmb where + SearchField + like + SearchValue + ); /進行數(shù)據(jù)查詢的SQL語句（SearchFidel和SearchValue / 分不賦到SQL語句中 end; Dm2.ADOQuery1.Open; /打開數(shù)據(jù)模

27、塊中的ADOQueryend;procedure TForm1.FormActivate(Sender: TObject);begin filldata(combobox1); filldata(combobox3); tabsheet1.Show;end;procedure TForm1.BitBtn14Click(Sender: TObject);begin search(combobox1,edit1);end;procedure TForm1.BitBtn15Click(Sender: TObject);begin dispall;end;procedure TForm1.dispal

28、l;begin with dm2.ADOQuery1 do begin close; sql.clear; sql.Add(select * from xmb); open; end;end;procedure TForm1.BitBtn13Click(Sender: TObject);begin if MessageDlg(你確信要刪除記錄?,mtwarning,mbok,mbcancel,0)=mrok then DM2.ADOQuery1.Delete;end;procedure TForm1.BitBtn17Click(Sender: TObject);begin dispall;en

29、d;procedure TForm1.BitBtn21Click(Sender: TObject);begin with tqr1.Create(self) do Preview;end;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;

30、Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin dbedit12.SetFocus;end;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); E

31、xecSQL; close; sql.Clear; sql.Add(select * from xmb); open; end;end;end.unit dm;interfaceuses SysUtils, Classes, ADODB, DB;type Tdm2 = class(TDataModule) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOQuery1DSDesigner: TWideStringField; ADOQuery1DSDesigner2: TBCDField; ADOQuery1DSDesigner3

32、: TBCDField; ADOQuery1DSDesigner4: TDateTimeField; ADOQuery1DSDesigner5: TWideStringField; ADOQuery1total: TCurrencyField; ADOTable1: TADOTable; procedure ADOQuery1CalcFields(DataSet: TDataSet); private Private declarations public Public declarations end;var dm2: Tdm2;implementation$R *.dfmprocedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet);begin adoquery1total.Value :=ADOQuery1DSDesigner2.Value - ADOQuery1DSDesigner3.value ;end;end.unit report;interfaceuses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADOD