財(cái)務(wù)管理系統(tǒng)應(yīng)用程序設(shè)計(jì)-無(wú)憂無(wú)慮畢設(shè)網(wǎng)

無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無(wú)憂無(wú)慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠(chéng)為您服務(wù)！ 財(cái)務(wù)管理系統(tǒng) 本程序設(shè)計(jì)的是一個(gè)小型商店每天記的流水帳管理程序，沒有具體到銷售的每一樣商品，只是記載了每一筆的收入和支出情況。經(jīng)過簡(jiǎn)單擴(kuò)充就可以成為一個(gè)完整的商店銷售管理系統(tǒng)。下面來(lái)說一下本程序的各個(gè)模塊的功能及數(shù)據(jù)庫(kù)的結(jié)構(gòu)。 一、本程序由封面、登錄界面、主窗口、打印窗口及關(guān)于窗口五部分 組成。主窗口又由增添記錄、編輯記錄、查詢信息、打印數(shù)據(jù)、管理功能組成。 封面：在啟動(dòng)主程序之前顯示一個(gè)軟件封面，停留大約二秒鐘，用于說明本軟件的功能版本信息，消除用戶等待主程序啟動(dòng)的焦慮（一般用于主程序啟動(dòng)需要較長(zhǎng)時(shí)間的軟件中） 登錄界面：登錄界面產(chǎn)生一個(gè)用戶的下拉列表，用戶可選擇相應(yīng)的用戶名稱，輸入對(duì)應(yīng)的密碼進(jìn)入，選擇“取消”終止程序運(yùn)行。防止用戶以外的人看到密碼，密碼輸入框內(nèi)的密碼用“”屏蔽。 主窗口：主窗口是本軟件的核心，百分之九十的功能代碼都在這里實(shí)現(xiàn)。主窗口上方是一組下拉菜單，實(shí)現(xiàn)功能的切換和數(shù) 據(jù)的處理。下面一組標(biāo)簽頁(yè)實(shí)現(xiàn)相應(yīng)的功能。最下方的狀態(tài)條顯示當(dāng)前的時(shí)間和日期。 打印窗口：實(shí)現(xiàn)所要打印的數(shù)據(jù)輸出之前的預(yù)覽，可以通過上面無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 的一排功能按鈕調(diào)整預(yù)覽效果。 關(guān)于窗口：一個(gè)小對(duì)話框，顯示的是本軟件的說明信息。 添加記錄：該標(biāo)簽頁(yè)由上面的一組數(shù)據(jù)明細(xì)和下面的控制按鈕組成，輸入框前的文本提示輸入框內(nèi)存儲(chǔ)的內(nèi)容，輸入框內(nèi)是我們要輸入的數(shù)據(jù)信息，下方的“第一條”，“上一條”，“下一條”，“最后一條”用于瀏覽數(shù)據(jù)，右下方的兩個(gè)按鈕用于數(shù)據(jù)的添加和存儲(chǔ)。 編輯記錄：該標(biāo)簽頁(yè)和“添加記錄”很相似，增加了一個(gè)“刪除記 錄”按鈕和“修改記錄”按鈕。刪除記錄前會(huì)有一個(gè)刪除確認(rèn)對(duì)話框出現(xiàn)，防止用戶誤刪數(shù)據(jù)。 查詢信息：由上面的一組查詢組件和下面的數(shù)據(jù)表格組成。首先在下拉框中選擇要查詢的字段，然后在右邊的文本框內(nèi)輸入要查詢的內(nèi)容，單擊“查詢”按鈕即可在下面的數(shù)據(jù)表格中顯示所需要的信息。支持模糊查詢，可以只輸入查詢信息的一部分。單擊“全部”按鈕將顯示全部記錄。 打印數(shù)據(jù)：界面和“查詢信息”標(biāo)簽相似，增加了一個(gè)“打印數(shù)據(jù)”按鈕。這樣，既可以打印全部信息，又可以只打印查詢出來(lái)的信息，所打印的數(shù)據(jù)就是下方數(shù)據(jù)表格中的數(shù)據(jù)。 管理功能：包 括用戶管理和系統(tǒng)初始化功能。用戶管理我們可以增加和刪除用戶，修改用戶登錄口令。初始化功能將清空數(shù)據(jù)表。 二、數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì) 本程序用到了兩個(gè)數(shù)據(jù)表，一個(gè)是記的流水帳表，另一個(gè)是用戶表，全部存在于一個(gè) ACCESS2000 數(shù)據(jù)庫(kù)中（ XMJL.MDB）。下面來(lái)無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 說明一下數(shù)據(jù)表的數(shù)據(jù)結(jié)構(gòu) 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： XMB 表 字段名 類型 長(zhǎng)度 序號(hào) 文本 10 收入 貨幣 自動(dòng) 支出 貨幣 自動(dòng) 日期 日期 /時(shí)間 自動(dòng) 經(jīng)手人 文本 8 合計(jì) 貨幣 /計(jì)算 自動(dòng) New 表 字段名 類型 長(zhǎng)度 Us 文本 50 Ps 文本 50 程序結(jié)構(gòu)圖 軟件封面 登錄界面 程序主界面 錄入模塊 修改模塊 查詢模塊 打印模 塊 管理模塊 打印 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 程序流程圖： 用戶 主程序 身份驗(yàn)證 XMB 數(shù)據(jù)庫(kù) 數(shù)據(jù)錄入 數(shù)據(jù)修改 數(shù)據(jù)查詢 打印數(shù)據(jù) New 數(shù)據(jù)庫(kù) 用戶管理 初始化 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 附程序源代碼： 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 *.res begin Application.Initialize； logo:=tlogo.Create(application)； logo.Show； logo.Update； Application.CreateForm(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 declarations public 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Public declarations end； var logo: Tlogo； implementation $R *.dfm end. unit login； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, Buttons； type Tdenglu = class(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 end； var denglu: Tdenglu； implementation uses dm,main； $R *.dfm 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 )； next； end； combobox1.ItemIndex :=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； interface 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 TForm1 = class(TForm) PageControl1: TPageControl； StatusBar1: TStatusBar； TabSheet1: TTabSheet； TabSheet2: 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； DataSource1: 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； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Label5: TLabel； DBEdit1: TDBEdit； DBEdit2: TDBEdit； 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: 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: TPanel； DBGrid3: TDBGrid； Panel14: TPanel； Label59: TLabel； Label60: TLabel； ComboBox3: TComboBox； Edit3: TEdit； BitBtn18: TBitBtn； BitBtn19: TBitBtn； BitBtn21: TBitBtn； Timer1: TTimer； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： Label6: TLabel； DBEdit3: 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: TPanel； 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: TObject)； 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)； procedure dispall； procedure FormActivate(Sender: TObject)； procedure BitBtn14Click(Sender: TObject)； procedure BitBtn15Click(Sender: TObject)； procedure BitBtn13Click(Sender: TObject)； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： procedure BitBtn17Click(Sender: TObject)； procedure BitBtn21Click(Sender: TObject)； procedure Timer1Timer(Sender: TObject)； 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,dm,report,login； $R *.dfm 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: TObject)； begin tabsheet1.Show； end； procedure TForm1.N14Click(Sender: TObject)； begin application.Terminate ； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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(dm2.adoquery1.RecordCount+1)； dbedit2.SetFocus； end； procedure TForm1.filldata(sender:tcombobox)； var iCount: Integer； /將從數(shù)據(jù)模塊中取得的數(shù)據(jù)庫(kù)表的字段名填入 ComboBox 中 begin sender.Items.Clear； /首先清空 ComboBox 中 Items 的值 for iCount := 0 to DM2.ADOQuery1.Fields.Count - 2 do begin sender.Items.Add(DM2.ADOQuery1.FieldsiCount.FieldName)； /加入字段名 DM2.ADOQuery1.Next； /向下移動(dòng)到下一個(gè)字段 end； sender.ItemIndex := 0； /設(shè)置表單剛出現(xiàn)時(shí) ComboBox 的值為第一個(gè) end； procedure TForm1.search(f1:tcombobox；t1:tedit)； /自定義過程 search(在數(shù)據(jù)庫(kù)中搜尋指定條件的數(shù)據(jù) ) var SearchField: string； /要查找的字段名 SearchValue: string； /要查找的字段值 begin SearchField := Trim(f1.Text)； /將 ComboBox 的值賦給 SearchField 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 + )； /進(jìn)行數(shù)據(jù)查詢的 SQL 語(yǔ)句（ SearchFidel 和 SearchValue / 分別賦到 SQL 語(yǔ)句中 end； Dm2.ADOQuery1.Open； /打開數(shù)據(jù)模塊中的 ADOQuery 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； 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.dispall； 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(你確信要?jiǎng)h除記錄 ?,mtwarning,mbok,mbcancel,0)=mrok then DM2.ADOQuery1.Delete； end； procedure TForm1.BitBtn17Click(Sender: TObject)； begin dispall； end； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 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)； ExecSQL； close； sql.Clear； sql.Add(select * from xmb)； open； end； end； end. unit dm； 無(wú)憂無(wú)慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： interface uses SysUtils, Classes, ADODB, DB； type Tdm2 = class(TDataModule) ADOConnection1: TADOConnection； ADOQuery1: TADOQuery； ADOQuery1DSDesigner: TWideStringField； ADOQuery1DSDesigner2: TBCDField； ADOQuery1DSDesigner3: 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 *.dfm procedure Tdm2.ADOQuery1CalcFields(DataSet: TDataSet)； begin adoquery1total.Value :=ADOQuery1DSDesigner2.Value - ADOQuery1DSDesigner3.value ； end； end. unit report； interface uses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrl