财务管理系统附程序源代码.docx
《财务管理系统附程序源代码.docx》由会员分享，可在线阅读，更多相关《财务管理系统附程序源代码.docx（19页珍藏版）》请在冰豆网上搜索。
财务管理系统附程序源代码
附程序源代码：
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'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.
unitlogosrc;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,jpeg,ExtCtrls;
type
Tlogo=class（TForm）
Image1:
TImage;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
logo:
Tlogo;
implementation
{$R*.dfm}
end.
unitlogin;
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;
procedureBitBtn2Click（Sender:
TObject）;
procedureFormCreate（Sender:
TObject）;
procedureBitBtn1Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
denglu:
Tdenglu;
implementation
usesdm,main;
{$R*.dfm}
procedureTdenglu.BitBtn2Click（Sender:
TObject）;
begin
application.Terminate;
end;
procedureTdenglu.FormCreate（Sender:
TObject）;
begin
withdm2.ADOTable1do
begin
open;
first;
whilenoteofdo
begin
combobox1.Items.Add（fields[0].Value）;
next;
end;
combobox1.ItemIndex:
=0;
end;
end;
procedureTdenglu.BitBtn1Click（Sender:
TObject）;
begin
withdm2.ADOTable1do
begin
iflocate（'us',combobox1.Text,[]）then
begin
ifmaskedit1.text=fields[1].Valuethen
begin
hide;
withtform1.Create（self）do
showmodal;
end;
application.Terminate;
end;
end;
end;
end.
unitmain;
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;
procedureN9Click（Sender:
TObject）;
procedureN10Click（Sender:
TObject）;
procedureN12Click（Sender:
TObject）;
procedureN8Click（Sender:
TObject）;
procedureN14Click（Sender:
TObject）;
procedureN5Click（Sender:
TObject）;
procedureBitBtn5MouseUp（Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer）;
procedurefilldata（sender:
tcombobox）;
proceduresearch（f1:
tcombobox;t1:
tedit）;
proceduredispall;
procedureFormActivate（Sender:
TObject）;
procedureBitBtn14Click（Sender:
TObject）;
procedureBitBtn15Click（Sender:
TObject）;
procedureBitBtn13Click（Sender:
TObject）;
procedureBitBtn17Click（Sender:
TObject）;
procedureBitBtn21Click（Sender:
TObject）;
procedureTimer1Timer（Sender:
TObject）;
procedureBitBtn11MouseUp（Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer）;
procedureBitBtn18Click（Sender:
TObject）;
procedureSpeedButton1Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
usesabout,dm,report,login;
{$R*.dfm}
procedureTForm1.N9Click（Sender:
TObject）;
begin
tabsheet2.Show;
end;
procedureTForm1.N10Click（Sender:
TObject）;
begin
tabsheet3.Show;
end;
procedureTForm1.N12Click（Sender:
TObject）;
begin
tabsheet5.Show;
end;
procedureTForm1.N8Click（Sender:
TObject）;
begin
tabsheet1.Show;
end;
procedureTForm1.N14Click（Sender:
TObject）;
begin
application.Terminate;
end;
procedureTForm1.N5Click（Sender:
TObject）;
begin
withtaboutbox.Create（self）do
ShowModal;
end;
procedureTForm1.BitBtn5MouseUp（Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer）;
begin
dbedit1.Text:
=inttostr（dm2.adoquery1.RecordCount+1）;
dbedit2.SetFocus;
end;
procedureTForm1.filldata（sender:
tcombobox）;
var
iCount:
Integer;//将从数据模块中取得的数据库表的字段名填入ComboBox中
begin
sender.Items.Clear;//首先清空ComboBox中Items的值
foriCount:
=0toDM2.ADOQuery1.Fields.Count-2do
begin
sender.Items.Add（DM2.ADOQuery1.Fields[iCount].FieldName）;//加入字段名
DM2.ADOQuery1.Next;//向下移动到下一个字段
end;
sender.ItemIndex:
=0;//设置表单刚出现时ComboBox的值为第一个
end;
procedureTForm1.search（f1:
tcombobox;t1:
tedit）;//自定义过程search（在数据库中搜寻指定条件的数据）
var
SearchField:
string;//要查找的字段名
SearchValue:
string;//要查找的字段值
begin
SearchField:
=Trim（f1.Text）;//将ComboBox的值赋给SearchField
SearchValue:
='%'+Trim（t1.Text）+'%';//将Edit的值赋给SearchField
withDM2.ADOQuery1do
begin
close;//先关闭数据模块中的ADOQuery
sql.Clear;//清空ADOQuery中的SQL值
sql.Add（'select*fromxmbwhere'+SearchField+'like'''+
SearchValue+''''）;//进行数据查询的SQL语句（SearchFidel和SearchValue
//分别赋到SQL语句中
end;
Dm2.ADOQuery1.Open;//打开数据模块中的ADOQuery
end;
procedureTForm1.FormActivate（Sender:
TObject）;
begin
filldata（combobox1）;
filldata（combobox3）;
tabsheet1.Show;
end;
procedureTForm1.BitBtn14Click（Sender:
TObject）;
begin
search（combobox1,edit1）;
end;
procedureTForm1.BitBtn15Click（Sender:
TObject）;
begin
dispall;
end;
procedureTForm1.dispall;
begin
withdm2.ADOQuery1do
begin
close;
sql.clear;
sql.Add（'select*fromxmb'）;
open;
end;
end;
procedureTForm1.BitBtn13Click（Sender:
TObject）;
begin
ifMessageDlg（'你确信要删除记录?
',mtwarning,[mbok,mbcancel],0）=mrok
then
DM2.ADOQuery1.Delete;
end;
procedureTForm1.BitBtn17Click（Sender:
TObject）;
begin
dispall;
end;
procedureTForm1.BitBtn21Click（Sender:
TObject）;
begin
withtqr1.Create（self）do
Preview;
end;
procedureTForm1.Timer1Timer（Sender:
TObject）;
begin
statusbar1.Panels[3].Text:
=timetostr（now）;
statusbar1.Panels[4].Text:
=formatdatetime（'yyyy年MM月dd日',now）;
end;
procedureTForm1.BitBtn11MouseUp（Sender:
TObject;Button:
TMouseButton;
Shift:
TShiftState;X,Y:
Integer）;
begin
dbedit12.SetFocus;
end;
procedureTForm1.BitBtn18Click（Sender:
TObject）;
begin
search（combobox3,edit3）;
end;
procedureTForm1.SpeedButton1Click（Sender:
TObject）;
begin
withdm2.ADOQuery1do
begin
close;
sql.Clear;
sql.Add（'delete*fromxmb'）;
ExecSQL;
close;
sql.Clear;
sql.Add（'select*fromxmb'）;
open;
end;
end;
end.
unitdm;
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;
procedureADOQuery1CalcFields（DataSet:
TDataSet）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
dm2:
Tdm2;
implementation
{$R*.dfm}
procedureTdm2.ADOQuery1CalcFields（DataSet:
TDataSet）;
begin
adoquery1total.Value:
=ADOQuery1DSDesigner2.Value-
ADOQuery1DSDesigner3.value;
end;
end.
unitreport;
interface
usesWindows,SysUtils,Messages,Classes,Graphics,Controls,
StdCtrls,ExtCtrls,Forms,QuickRpt,QRCtrls,DB,ADODB;
type
Tqr1=class（TQuickRep）
ColumnHeaderBand1:
TQRBand;
TitleBand1:
TQRBand;
QRLabel1:
TQRLabel;
DetailBand1:
TQRBand;
QRLabel2:
TQRLabel;
QRLabel3:
TQRLabel;
QRLabel4:
TQRLabel;
QRLabel5:
TQRLabel;
QRLabel6:
TQRLabel;
QRLabel7:
TQRLabel;
QRDBText1:
TQRDBText;
QRDBText2:
TQRDBText;
QRDBText3:
TQRDBText;
QRDBText4:
TQRDBText;
QRD
升级会员 