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

附程序源代码： 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