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

附程序源代码：

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}

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.