财务管理系统应用程序设计Word格式文档下载.docx

资源描述

财务管理系统应用程序设计Word格式文档下载.docx

《财务管理系统应用程序设计Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《财务管理系统应用程序设计Word格式文档下载.docx（19页珍藏版）》请在冰豆网上搜索。

财务管理系统应用程序设计Word格式文档下载.docx

字段名

类型

长度

序号

文本

收入

货币

自动

支出　

日期

日期/时间

经手人

合计

货币/计算

New表

程序结构图

程序流程图:

附程序源代码:

programxmjl;

uses

Forms,

windows,

mainin'

main.pas'

{Form1},

dmin'

dm.pas'

{dm2:

TDataModule},

aboutin'

about.pas'

{AboutBox},

reportin'

report.pas'

{qr1:

TQuickRep},

logosrcin'

logosrc.pas'

{logo},

loginin'

{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.

unitlogosrc;

interface

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,jpeg,ExtCtrls;

type

Tlogo=class（TForm）

Image1:

TImage;

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Tlogo;

implementation

{$R*.dfm}

unitlogin;

Dialogs,StdCtrls,Mask,Buttons;

Tdenglu=class（TForm）

BitBtn1:

TBitBtn;

BitBtn2:

ComboBox1:

TComboBox;

MaskEdit1:

TMaskEdit;

Label1:

TLabel;

Label2:

procedureBitBtn2Click（Sender:

TObject）;

procedureFormCreate（Sender:

procedureBitBtn1Click（Sender:

denglu:

Tdenglu;

usesdm,main;

procedureTdenglu.BitBtn2Click（Sender:

application.Terminate;

end;

procedureTdenglu.FormCreate（Sender:

withdm2.ADOTable1do

begin

open;

first;

whilenoteofdo

combobox1.Items.Add（fields[0].Value）;

next;

combobox1.ItemIndex:

=0;

procedureTdenglu.BitBtn1Click（Sender:

iflocate（'

us'

combobox1.Text,[]）then

ifmaskedit1.text=fields[1].Valuethen

hide;

withtform1.Create（self）do

showmodal;

application.Terminate;

unitmain;

Dialogs,ComCtrls,ToolWin,Menus,DBActns,ActnList,DB,

ExtCtrls,StdCtrls,Mask,DBCtrls,ImgList,Buttons,Grids,DBGrids;

TForm1=class（TForm）

PageControl1:

TPageControl;

StatusBar1:

TStatusBar;

TabSheet1:

TTabSheet;

TabSheet2:

TabSheet3:

TabSheet5:

MainMenu1:

TMainMenu;

N1:

TMenuItem;

N2:

N4:

N5:

N8:

N9:

N10:

N12:

N13:

N14:

N15:

N16:

N17:

N18:

DataSource1:

TDataSource;

ActionList1:

TActionList;

DataSetFirst1:

TDataSetFirst;

DataSetPrior1:

TDataSetPrior;

DataSetNext1:

TDataSetNext;

DataSetLast1:

TDataSetLast;

DataSetInsert1:

TDataSetInsert;

DataSetDelete1:

TDataSetDelete;

DataSetEdit1:

TDataSetEdit;

DataSetPost1:

TDataSetPost;

Panel1:

TPanel;

Panel2:

Label3:

Label4:

Label5:

DBEdit1:

TDBEdit;

DBEdit2:

DBEdit9:

DBEdit10:

DBEdit11:

Panel3:

BitBtn3:

BitBtn4:

ImageList1:

TImageList;

BitBtn5:

BitBtn10:

Label25:

Label26:

Panel4:

BitBtn6:

BitBtn7:

BitBtn8:

BitBtn9:

BitBtn11:

BitBtn12:

BitBtn13:

Panel8:

DBGrid1:

TDBGrid;

Panel9:

Label27:

Label28:

Edit1:

TEdit;

BitBtn14:

BitBtn15:

Panel13:

DBGrid3:

Panel14:

Label59:

Label60:

ComboBox3:

Edit3:

BitBtn18:

BitBtn19:

BitBtn21:

Timer1:

TTimer;

Label6:

DBEdit3:

Panel5:

Label7:

Label8:

Label9:

Label10:

Label11:

Label12:

Label13:

Label14:

DBEdit4:

DBEdit5:

DBEdit6:

DBEdit7:

DBEdit8:

DBEdit12:

TabSheet4:

Panel6:

GroupBox1:

TGroupBox;

SpeedButton1:

TSpeedButton;

DBGrid2:

DBEdit13:

DBEdit14:

DBNavigator1:

TDBNavigator;

Label15:

Label16:

DataSource2:

procedureN9Click（Sender:

procedureN10Click（Sender:

procedureN12Click（Sender:

procedureN8Click（Sender:

procedureN14Click（Sender:

procedureN5Click（Sender:

procedureBitBtn5MouseUp（Sender:

TObject;

Button:

TMouseButton;

Shift:

TShiftState;

X,Y:

Integer）;

procedurefilldata（sender:

tcombobox）;

proceduresearch（f1:

tcombobox;

t1:

tedit）;

proceduredispall;

procedureFormActivate（Sender:

procedureBitBtn14Click（Sender:

procedureBitBtn15Click（Sender:

procedureBitBtn13Click（Sender:

procedureBitBtn17Click（Sender:

procedureBitBtn21Click（Sender:

procedureTimer1Timer（Sender:

procedureBitBtn11MouseUp（Sender:

procedureBitBtn18Click（Sender:

procedureSpeedButton1Click（Sender:

Form1:

TForm1;

usesabout,dm,report,login;

procedureTForm1.N9Click（Sender:

tabsheet2.Show;

procedureTForm1.N10Click（Sender:

tabsheet3.Show;

procedureTForm1.N12Click（Sender:

tabsheet5.Show;

procedureTForm1.N8Click（Sender:

tabsheet1.Show;

procedureTForm1.N14Click（Sender:

procedureTForm1.N5Click（Sender:

withtaboutbox.Create（self）do

ShowModal;

procedureTForm1.BitBtn5MouseUp（Sender:

dbedit1.Text:

=inttostr（dm2.adoquery1.RecordCount+1）;

dbedit2.SetFocus;

procedureTForm1.filldata（sender:

iCount:

Integer;

//将从数据模块中取得的数据库表的字段名填入ComboBox中

sender.Items.Clear;

//首先清空ComboBox中Items的值

foriCount:

=0toDM2.ADOQuery1.Fields.Count-2do

sender.Items.Add（DM2.ADOQuery1.Fields[iCount].FieldName）;

//加入字段名

DM2.ADOQuery1.Next;

//向下移动到下一个字段

sender.ItemIndex:

=0;

//设置表单刚出现时ComboBox的值为第一个

procedureTForm1.search（f1:

//自定义过程search（在数据库中搜寻指定条件的数据）

SearchField:

string;

//要查找的字段名

SearchValue:

//要查找的字段值

SearchField:

=Trim（f1.Text）;

//将ComboBox的值赋给SearchField

SearchValue:

+Trim（t1.Text）+'

;

//将Edit的值赋给SearchField

withDM2.ADOQuery1do

close;

//先关闭数据模块中的ADOQuery

sql.Clear;

//清空ADOQuery中的SQL值

sql.Add（'

select*fromxmbwhere'

+SearchField+'

like'

SearchValue+'

）;

//进行数据查询的SQL语句（SearchFidel和SearchValue

//分别赋到SQL语句中

Dm2.ADOQuery1.Open;

//打开数据模块中的ADOQuery

procedureTForm1.FormActivate（Sender:

filldata（combobox1）;

filldata（combobox3）;

procedureTForm1.BitBtn14Click（Sender:

search（combobox1,edit1）;

procedureTForm1.BitBtn15Click（Sender:

dispall;

procedureTForm1.dispall;

withdm2.ADOQuery1do

sql.clear;

select*fromxmb'

procedureTForm1.BitBtn13Click（Sender:

ifMessageDlg（'

你确信要删除记录?

mtwarning,[mbok,mbcancel],0）=mrok

then

DM2.ADOQuery1.Delete;

procedureTForm1.BitBtn17Click（Sender:

procedureTForm1.BitBtn21Click（Sender:

withtqr1.Create（self）do

Preview;

procedureTForm1.Timer1Timer（Sender:

statusbar1.Panels[3].Text:

=timetostr（now）;

statusbar1.Panels[4].Text:

=formatdatetime（'

yyyy年MM月dd日'

now）;

procedureTForm1.BitBtn11MouseUp（Sender:

dbedit12.SetFocus;

procedureTForm1.BitBtn18Click（Sender:

search（combobox3,edit3）;

procedureTForm1.SpeedButton1Click（Sender:

delete*fromxmb'

ExecSQL;

展开阅读全文