财务管理系统应用程序设计-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 财务管理系统 本程序设计的是一个小型商店每天记的流水帐管理程序，没有具体到销售的每一样商品，只是记载了每一笔的收入和支出情况。经过简单扩充就可以成为一个完整的商店销售管理系统。下面来说一下本程序的各个模块的功能及数据库的结构。 一、本程序由封面、登录界面、主窗口、打印窗口及关于窗口五部分 组成。主窗口又由增添记录、编辑记录、查询信息、打印数据、管理功能组成。 封面：在启动主程序之前显示一个软件封面，停留大约二秒钟，用于说明本软件的功能版本信息，消除用户等待主程序启动的焦虑（一般用于主程序启动需要较长时间的软件中） 登录界面：登录界面产生一个用户的下拉列表，用户可选择相应的用户名称，输入对应的密码进入，选择“取消”终止程序运行。防止用户以外的人看到密码，密码输入框内的密码用“”屏蔽。 主窗口：主窗口是本软件的核心，百分之九十的功能代码都在这里实现。主窗口上方是一组下拉菜单，实现功能的切换和数 据的处理。下面一组标签页实现相应的功能。最下方的状态条显示当前的时间和日期。 打印窗口：实现所要打印的数据输出之前的预览，可以通过上面无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 的一排功能按钮调整预览效果。 关于窗口：一个小对话框，显示的是本软件的说明信息。 添加记录：该标签页由上面的一组数据明细和下面的控制按钮组成，输入框前的文本提示输入框内存储的内容，输入框内是我们要输入的数据信息，下方的“第一条”，“上一条”，“下一条”，“最后一条”用于浏览数据，右下方的两个按钮用于数据的添加和存储。 编辑记录：该标签页和“添加记录”很相似，增加了一个“删除记 录”按钮和“修改记录”按钮。删除记录前会有一个删除确认对话框出现，防止用户误删数据。 查询信息：由上面的一组查询组件和下面的数据表格组成。首先在下拉框中选择要查询的字段，然后在右边的文本框内输入要查询的内容，单击“查询”按钮即可在下面的数据表格中显示所需要的信息。支持模糊查询，可以只输入查询信息的一部分。单击“全部”按钮将显示全部记录。 打印数据：界面和“查询信息”标签相似，增加了一个“打印数据”按钮。这样，既可以打印全部信息，又可以只打印查询出来的信息，所打印的数据就是下方数据表格中的数据。 管理功能：包 括用户管理和系统初始化功能。用户管理我们可以增加和删除用户，修改用户登录口令。初始化功能将清空数据表。 二、数据库的结构设计 本程序用到了两个数据表，一个是记的流水帐表，另一个是用户表，全部存在于一个 ACCESS2000 数据库中（ XMJL.MDB）。下面来无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 说明一下数据表的数据结构 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： XMB 表 字段名 类型 长度 序号 文本 10 收入 货币 自动 支出 货币 自动 日期 日期 /时间 自动 经手人 文本 8 合计 货币 /计算 自动 New 表 字段名 类型 长度 Us 文本 50 Ps 文本 50 程序结构图 软件封面 登录界面 程序主界面 录入模块 修改模块 查询模块 打印模 块 管理模块 打印 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 程序流程图： 用户 主程序 身份验证 XMB 数据库 数据录入 数据修改 数据查询 打印数据 New 数据库 用户管理 初始化 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 附程序源代码： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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； /将从数据模块中取得的数据库表的字段名填入 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； /向下移动到下一个字段 end； sender.ItemIndex := 0； /设置表单刚出现时 ComboBox 的值为第一个 end； procedure TForm1.search(f1:tcombobox；t1:tedit)； /自定义过程 search(在数据库中搜寻指定条件的数据 ) var SearchField: 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 + 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: 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(你确信要删除记录 ?,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； 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； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 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