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, 辣,文^论'文.网http://www.751com.cn 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}