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

附程序源代码：

programxmjl;

uses

Forms,

windows,

maininmain.pas{Form1},

dmindm.pas{dm2:TDataModule},

aboutinabout.pas{AboutBox},

reportinreport.pas{qr1:TQuickRep},

logosrcinlogosrc.pas{logo},

logininlogin.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;

with