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

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

2、一一個用戶的下下拉列表，用用戶可選擇相相應(yīng)的用戶名名稱，輸入對對應(yīng)的密碼進(jìn)進(jìn)入，選擇“取消”終止程序運(yùn)運(yùn)行。防止用用戶以外的人人看到密碼，密密碼輸入框內(nèi)內(nèi)的密碼用“”屏蔽。主窗口：主窗口口是本軟件的的核心，百分分之九十的功功能代碼都在在這里實現(xiàn)。主主窗口上方是是一組下拉菜菜單，實現(xiàn)功功能的切換和和數(shù)據(jù)的處理理。下面一組組標(biāo)簽頁實現(xiàn)現(xiàn)相應(yīng)的功能能。最下方的的狀態(tài)條顯示示當(dāng)前的時間間和日期。打印窗口：實現(xiàn)現(xiàn)所要打印的的數(shù)據(jù)輸出之之前的預(yù)覽，可可以通過上面面的一排功能能按鈕調(diào)整預(yù)預(yù)覽效果。關(guān)于窗口：一個個小對話框，顯顯示的是本軟軟件的說明信信息。添加記錄：該標(biāo)標(biāo)簽頁由上面面的一組數(shù)據(jù)據(jù)明細(xì)和下面面的

3、控制按鈕鈕組成，輸入入框前的文本本提示輸入框框內(nèi)存儲的內(nèi)內(nèi)容，輸入框框內(nèi)是我們要要輸入的數(shù)據(jù)據(jù)信息，下方方的“第一條”，“上一條”，“下一條”，“最后一條”用于瀏覽數(shù)數(shù)據(jù)，右下方方的兩個按鈕鈕用于數(shù)據(jù)的的添加和存儲儲。編輯記錄：該標(biāo)標(biāo)簽頁和“添加記錄”很相似，增增加了一個“刪除記錄”按鈕和“修改記錄”按鈕。刪除除記錄前會有有一個刪除確確認(rèn)對話框出出現(xiàn)，防止用用戶誤刪數(shù)據(jù)據(jù)。查詢信息：由上上面的一組查查詢組件和下下面的數(shù)據(jù)表表格組成。首首先在下拉框框中選擇要查查詢的字段，然然后在右邊的的文本框內(nèi)輸輸入要查詢的的內(nèi)容，單擊擊“查詢”按鈕即可在在下面的數(shù)據(jù)據(jù)表格中顯示示所需要的信信息。支持模模糊查詢

4、，可可以只輸入查查詢信息的一一部分。單擊擊“全部”按鈕將顯示示全部記錄。打印數(shù)據(jù)：界面面和“查詢信息”標(biāo)簽相似，增增加了一個“打印數(shù)據(jù)”按鈕。這樣樣，既可以打打印全部信息息，又可以只只打印查詢出出來的信息，所所打印的數(shù)據(jù)據(jù)就是下方數(shù)數(shù)據(jù)表格中的的數(shù)據(jù)。管理功能：包括括用戶管理和和系統(tǒng)初始化化功能。用戶戶管理我們可可以增加和刪刪除用戶，修修改用戶登錄錄口令。初始始化功能將清清空數(shù)據(jù)表。二、數(shù)據(jù)庫的結(jié)結(jié)構(gòu)設(shè)計本程序用到了兩兩個數(shù)據(jù)表，一一個是記的流流水帳表，另另一個是用戶戶表，全部存存在于一個AACCESSS2000數(shù)數(shù)據(jù)庫中（XXMJL.MMDB）。下下面來說明一一下數(shù)據(jù)表的的數(shù)據(jù)結(jié)構(gòu)XMB表字

5、段名類型長度序號文本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ù)庫用戶主程序身份驗證程序流程圖：用戶管理初始化New數(shù)據(jù)庫打印數(shù)據(jù)數(shù)據(jù)查詢數(shù)據(jù)修改數(shù)據(jù)錄入XMB數(shù)據(jù)庫用戶主程序身份驗證附程序源代碼：programm xmjll;uses Formss, windoows, main in mmain.p

6、pas Form11, dm inn dm.pas dm2: TDattaModuule, aboutt in aboutt.pas AbooutBoxx, reporrt in repoort.paas qqr1: TTQuickkRep, logossrc inn loggosrc.pas logoo, loginn in loginn.pas dennglu;$R *.rresbegin Appliicatioon.Iniitialiize; logo:=tloggo.Creeate(aappliccationn); logo.Show; logo.Updatte; Appliicati

7、oon.CreeateFoorm(Tddm2, ddm2); Appliicatioon.CreeateFoorm(Tddengluu, dennglu); sleepp(10000); logo.Hide; logo.Free; Appliicatioon.Runn;end.unit loogosrcc;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, jjpeg, ExtCttrls;type Tlogoo = c

8、llass(TTForm) Imaage1: TImagge; privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var logo: Tloggo;implemeentatiion$R *.ddfmend.unit loogin;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, SStdCtrrls, MMask, Buttoon

9、s;type Tdengglu = classs(TForrm) BittBtn1: TBittBtn; BittBtn2: TBittBtn; CommboBoxx1: TCComboBBox; MasskEditt1: TMMaskEddit; Labbel1: TLabeel; Labbel2: TLabeel; proocedurre BittBtn2CClick(Sendeer: TOObjectt); proocedurre ForrmCreaate(Seender: TObjject); proocedurre BittBtn1CClick(Sendeer: TOObjectt)

10、; privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var dengllu: Tddengluu;implemeentatiion usess dm,mmain;$R *.ddfmproceduure Tddengluu.BitBBtn2Cllick(SSenderr: TObbject);begin appliicatioon.Terrminatte;end;proceduure Tddengluu.FormmCreatte(Sennder: TObjeect);begin withh dm2.ADO

11、Taable1 do beegin oopen; ffirst; whilee not eof ddo beggin comboobox1.Itemss.Add(fieldds0.Valuee ); next; endd; commboboxx1.IteemIndeex :=00; endd;end;proceduure Tddengluu.BitBBtn1Cllick(SSenderr: TObbject);begin withh dm2.ADOTaable1 do begiin iff locaate(uus,coomboboox1.Teext,) theen beginn if mask

12、eedit1.text=fieldds1.Valuee thenn beginn hide; with tformm1.Creeate(sself) do shhowmoddal; end; appliicatioon.Terrminatte ; end; end;end;end.unit maain;interfaaceuses Windoows, MMessagges, SSysUtiils, VVariannts, CClassees, Grraphiccs, Coontrolls, Foorms, Dialoogs, CComCtrrls, TToolWiin, Meenus, DBA

13、cttns, AActnLiist, DDB, ExtCttrls, StdCttrls, Mask, DBCttrls, ImgLiist, BButtonns, Grrids, DBGriids;type TFormm1 = cclass(TFormm) PaggeConttrol1: TPaggeConttrol; StaatusBaar1: TTStatuusBar; TabbSheett1: TTTabSheeet; TabbSheett2: TTTabSheeet; TabbSheett3: TTTabSheeet; TabbSheett5: TTTabSheeet; MaiinM

14、enuu1: TMMainMeenu; N1: TMennuItemm; N2: TMennuItemm; N4: TMennuItemm; N5: TMennuItemm; N8: TMennuItemm; N9: TMennuItemm; N100: TMeenuIteem; N122: TMeenuIteem; N133: TMeenuIteem; N144: TMeenuIteem; N155: TMeenuIteem; N166: TMeenuIteem; N177: TMeenuIteem; N188: TMeenuIteem; DattaSourrce1: TDataaSourc

15、ce; ActtionLiist1: TActiionLisst; DattaSetFFirst11: TDaataSettFirstt; DattaSetPPrior11: TDaataSettPriorr; DattaSetNNext1: TDattaSetNNext; DattaSetLLast1: TDattaSetLLast; DattaSetIInsertt1: TDDataSeetInseert; DattaSetDDeletee1: TDDataSeetDeleete; DattaSetEEdit1: TDattaSetEEdit; DattaSetPPost1: TDatta

16、SetPPost; Pannel1: TPaneel; Pannel2: TPaneel; Labbel1: TLabeel; Labbel2: TLabeel; Labbel3: TLabeel; Labbel4: TLabeel; Labbel5: TLabeel; DBEEdit1: TDBEEdit; DBEEdit2: TDBEEdit; DBEEdit9: TDBEEdit; DBEEdit100: TDBBEdit; DBEEdit111: TDBBEdit; Pannel3: TPaneel; BittBtn1: TBittBtn; BittBtn2: TBittBtn; Bi

17、ttBtn3: TBittBtn; BittBtn4: TBittBtn; ImaageLisst1: TTImageeList; BittBtn5: TBittBtn; BittBtn100: TBiitBtn; Labbel25: TLabbel; Labbel26: TLabbel; Pannel4: TPaneel; BittBtn6: TBittBtn; BittBtn7: TBittBtn; BittBtn8: TBittBtn; BittBtn9: TBittBtn; BittBtn111: TBiitBtn; BittBtn122: TBiitBtn; BittBtn133:

18、TBiitBtn; Pannel8: TPaneel; DBGGrid1: TDBGGrid; Pannel9: TPaneel; Labbel27: TLabbel; CommboBoxx1: TCComboBBox; Labbel28: TLabbel; Ediit1: TTEdit; BittBtn144: TBiitBtn; BittBtn155: TBiitBtn; Pannel13: TPannel; DBGGrid3: TDBGGrid; Pannel14: TPannel; Labbel59: TLabbel; Labbel60: TLabbel; CommboBoxx3: T

19、CComboBBox; Ediit3: TTEdit; BittBtn188: TBiitBtn; BittBtn199: TBiitBtn; BittBtn211: TBiitBtn; Timmer1: TTimeer; Labbel6: TLabeel; DBEEdit3: TDBEEdit; Pannel5: TPaneel; Labbel7: TLabeel; Labbel8: TLabeel; Labbel9: TLabeel; Labbel10: TLabbel; Labbel11: TLabbel; Labbel12: TLabbel; Labbel13: TLabbel; La

20、bbel14: TLabbel; DBEEdit4: TDBEEdit; DBEEdit5: TDBEEdit; DBEEdit6: TDBEEdit; DBEEdit7: TDBEEdit; DBEEdit8: TDBEEdit; DBEEdit122: TDBBEdit; TabbSheett4: TTTabSheeet; Pannel6: TPaneel; GrooupBoxx1: TGGroupBBox; SpeeedButtton1: TSpeeedButtton; DBGGrid2: TDBGGrid; DBEEdit133: TDBBEdit; DBEEdit144: TDBBE

21、dit; DBNNavigaator1: TDBNNavigaator; Labbel15: TLabbel; Labbel16: TLabbel; DattaSourrce2: TDataaSourcce; proocedurre N9CClick(Sendeer: TOObjectt); proocedurre N100Clickk(Sendder: TTObjecct); proocedurre N122Clickk(Sendder: TTObjecct); proocedurre N8CClick(Sendeer: TOObjectt); proocedurre N144Clickk(

22、Sendder: TTObjecct); proocedurre N5CClick(Sendeer: TOObjectt); proocedurre BittBtn5MMouseUUp(Sennder: TObjeect; BButtonn: TMoouseBuutton; SShift: TShiiftStaate; XX, Y: Integger); proocedurre fillldataa(sendder:tccombobbox); proocedurre seaarch(ff1:tcoomboboox;t1:teditt); proocedurre disspall; prooce

23、durre ForrmActiivate(Sendeer: TOObjectt); proocedurre BittBtn144Clickk(Sendder: TTObjecct); proocedurre BittBtn155Clickk(Sendder: TTObjecct); proocedurre BittBtn133Clickk(Sendder: TTObjecct); proocedurre BittBtn177Clickk(Sendder: TTObjecct); proocedurre BittBtn211Clickk(Sendder: TTObjecct); proocedu

24、rre Timmer1Tiimer(SSenderr: TObbject); proocedurre BittBtn111MouseeUp(Seender: TObjject; Buttoon: TMMouseBButtonn; SShift: TShiiftStaate; XX, Y: Integger); proocedurre BittBtn188Clickk(Sendder: TTObjecct); proocedurre SpeeedButtton1CClick(Sendeer: TOObjectt); privaate PPrivatte decclarattions publii

25、c PPublicc decllaratiions end;var Form11: TFoorm1;implemeentatiion uses abouut,dm,reporrt,loggin;$R *.ddfmproceduure TFForm1.N9Cliick(Seender: TObjject);begin tabssheet22.Showw;end;proceduure TFForm1.N10Cllick(SSenderr: TObbject);begin tabssheet33.Showw;end;proceduure TFForm1.N12Cllick(SSenderr: TOb

26、bject);begin tabbsheett5.Shoow;end;proceduure TFForm1.N8Cliick(Seender: TObjject);begin tabbsheett1.Shoow;end;proceduure TFForm1.N14Cllick(SSenderr: TObbject);begin appllicatiion.Teerminaate ;end;proceduure TFForm1.N5Cliick(Seender: TObjject);begin withh tabooutboxx.Creaate(seelf) ddo ShowwModall ;e

27、nd;proceduure TFForm1.BitBttn5MouuseUp(Sendeer: TOObjectt; Buttton: TMousseButtton; Shiftt: TShhiftSttate; X, Y: Inteeger);begin dbeddit1.TText:=inttoostr(ddm2.addoquerry1.ReecordCCount+1); dbeddit2.SSetFoccus;end;proceduure TFForm1.fillddata(ssenderr:tcommboboxx);var iCounnt: Inntegerr; /將從數(shù)據(jù)模模塊中取得

28、的的數(shù)據(jù)庫表的的字段名填入入CombooBox中begin sendeer.Iteems.Cllear; /首先清空CComboBBox中Ittems的值值 for iiCountt := 00 to DDM2.ADDOQuerry1.Fiields.Countt - 2 do beginn sennder.IItems.Add(DDM2.ADDOQuerry1.FiieldsiCounnt.FiieldNaame); /加加入字段名 DM22.ADOQQuery11.Nextt; /向下移移動到下一個個字段 end; sendeer.IteemIndeex := 0; /設(shè)置表單單剛出現(xiàn)時C

29、ComboBBox的值為為第一個end;proceduure TFForm1.searcch(f1:tcombbobox;t1:teedit); /自自定義過程ssearchh(在數(shù)據(jù)庫庫中搜尋指定定條件的數(shù)據(jù)據(jù))var SearcchFielld: sttring; /要要查找的字段段名 SearcchValuue: sttring; /要要查找的字段段值begin SearcchFielld := Trim(f1.Teext); /將CoomboBoox的值賦給給SearcchFielld SearcchValuue := % + Trimm(t1.TText) + %; /將Ediit的

30、值賦給給SearcchFielld witth DM22.ADOQQuery11 do beggin cclose; /先先關(guān)閉數(shù)據(jù)模模塊中的ADDOQuerry ssql.Cllear; /清清空ADOQQuery中中的SQL值值 ssql.Addd(seelect * froom xmbb wherre + SearrchFieeld + likke + SearrchVallue + ); /進(jìn)行數(shù)據(jù)查查詢的SQLL語句（SeearchFFidel和和SearcchValuue / 分別賦到到SQL語句句中 endd; DDm2.ADDOQuerry1.Oppen; /打開數(shù)據(jù)模模塊中的

31、ADDOQuerryend;proceduure TFForm1.FormAActivaate(Seender: TObjject);begin fillldata(comboobox1); fillldata(comboobox3); tabssheet11.Showw;end;proceduure TFForm1.BitBttn14Cllick(SSenderr: TObbject);begin seaarch(ccombobbox1,eedit1);end;proceduure TFForm1.BitBttn15Cllick(SSenderr: TObbject);begin dispa

32、all;end;proceduure TFForm1.dispaall;begin with dm2.AADOQueery1 ddo beggin cclose; ssql.cllear; ssql.Addd(seelect * froom xmbb); oopen; endd;end;proceduure TFForm1.BitBttn13Cllick(SSenderr: TObbject);begin if MMessaggeDlg(你確信要要刪除記錄?,mtwwarninng,mbbok,mbbcanceel,0)=mrokk then DM22.ADOQQuery11.Deleete;

33、end;proceduure TFForm1.BitBttn17Cllick(SSenderr: TObbject);begin disppall;end;proceduure TFForm1.BitBttn21Cllick(SSenderr: TObbject);begin witth tqrr1.Creeate(sself) do Prrevieww;end;proceduure TFForm1.Timerr1Timeer(Sennder: TObjeect);begin stattusbarr1.Pannels33.Texxt :=ttimetoostr(nnow); stattusba

34、rr1.Pannels44.Texxt :=fformattdatettime(yyyy年年MM月ddd日,noow);end;proceduure TFForm1.BitBttn11MoouseUpp(Sendder: TTObjecct; Buutton: TMouuseButtton; Shiftt: TShhiftSttate; X, Y: Inteeger);begin dbeedit122.SetFFocus;end;proceduure TFForm1.BitBttn18Cllick(SSenderr: TObbject);begin seaarch(ccombobbox3,ee

35、dit3);end;proceduure TFForm1.SpeeddButtoon1Cliick(Seender: TObjject);begin withh dm2.ADOQuuery1 do beegin closee; sql.CClear; sql.AAdd(ddeletee * frrom xmmb); ExecSSQL; closee; sql.CClear; sql.AAdd(sselectt * frrom xmmb); open; ennd;end;end.unit dmm;interfaaceuses SysUttils, Classses, AADODB, DB;typ

36、e Tdm2 = claass(TDDataMoodule) ADOOConneectionn1: TAADOConnnectiion; ADOOQueryy1: TAADOQueery; ADOOQueryy1DSDeesigneer: TWWideSttringFField; ADOOQueryy1DSDeesigneer2: TTBCDFiield; ADOOQueryy1DSDeesigneer3: TTBCDFiield; ADOOQueryy1DSDeesigneer4: TTDateTTimeFiield; ADOOQueryy1DSDeesigneer5: TTWideSStr

37、inggFieldd; ADOOQueryy1totaal: TCCurrenncyFieeld; ADOOTablee1: TAADOTabble; proocedurre ADOOQueryy1CalccFieldds(DattaSet: TDattaSet); privaate PPrivatte decclarattions publiic PPublicc decllaratiions end;var dm2: Tdm2;implemeentatiion$R *.ddfmproceduure Tddm2.ADDOQuerry1CallcFiellds(DaataSett: TDaataSett);begin adoqquery11totall.Valuue :=AADOQueery1DSSDesiggner2.Valuee - AADOQueery1DSSDesiggner3.valuee ;end;end.unit reeport;interfaaceuses Wiindowss, SyssUtilss, Messsagess, Claasses, Grapphics, Conttrols, StdCttrls, ExtCttrls, Formss, QuiickRptt, QRCCtrls, DB, ADODBB;type Tq