财务管理系统附程序源代码

附程序源代码：
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(fields[0].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=fields[1].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;
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;
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 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;
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.Fields[iCount].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 ''' +
SearchV alue + ''''); //进行数据查询的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.Panels[3].Text :=timetostr(now);
statusbar1.Panels[4].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.V alue -
ADOQuery1DSDesigner3.value ; end;
end.
unit report;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB;
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;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
SummaryBand1: TQRBand;
QRSysData1: TQRSysData;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRSysData2: TQRSysData;
QRLabel10: TQRLabel;
QRSysData3: TQRSysData; private
public
end;
var
qr1: Tqr1;
implementation
uses dm;
{$R *.DFM}
unit about;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
V ersion: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
end.。