train.dpr

铁路道口管理系统 开发源码 大家随便看看 呵呵

program Train;

uses
  SysUtils,
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {DModule1: TDataModule},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {UserOn},
  Unit9 in 'Unit9.pas' {NewUser},
  Unit10 in 'Unit10.pas' {changepass},
  Unit11 in 'Unit11.pas' {Form11},
  Unit12 in 'Unit12.pas' {Form12},
  Login in 'Login.pas' {LoginForm},
  displayChange in 'displayChange.pas';

{$R *.res}
var
  x,y:integer;
begin
x:=0;
y:=0;
  Application.Initialize;
  x:=screen.Width;
  y:=screen.Height;
  ChangeDisplay(1024,768);
  loginform:=tloginform.Create(nil);
  loginform.Show;
  loginform.Update ;
  Sleep(2000);
  Application.Title := '长春市道口安全管理系统';
  Application.CreateForm(TForm12, Form12);
  form12.X:=x;
  form12.y:=y;
  Application.CreateForm(TUserOn, UserOn);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDModule1, DModule1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TNewUser, NewUser);
  Application.CreateForm(Tchangepass, changepass);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm5, Form5);
  Application.Run;
end.