rsgl.dpr

人事管理源码 Delphi+ADO+Acce

program RSGL;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainForm},
  ModeUnit in 'ModeUnit.pas' {ModeForm},
  dataunit in 'dataunit.pas' {dataform: TDataModule},
  browunit in 'browunit.pas' {browform},
  viewunit in 'viewunit.pas' {ViewForm},
  barunit in 'barunit.pas' {barform},
//  dxGrClms in 'C:\Program Files\Developer Express Inc\ExpressQuantumGrid\Delphi 6\Sources\dxGrClms.pas',
  EditListunit in 'EditListunit.pas' {EditListform},
  SearchUnit in 'SearchUnit.pas' {SearchForm},
  MovUnit in 'MovUnit.pas' {MovForm},
  Starunit in 'Starunit.pas' {StarForm},
  EditDWunit in 'EditDWunit.pas' {EditDWForm},
  Aboutunit in 'Aboutunit.pas' {AboutForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '大型轴承事业部人事管理系统';
  starform := tstarform.create(application);
  starform.Show;
  starform.Update;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(Tdataform, dataform);
  Application.CreateForm(TModeForm, ModeForm);
  Application.CreateForm(Tbrowform, browform);
  Application.CreateForm(TViewForm, ViewForm);
  Application.CreateForm(TSearchForm, SearchForm);
  Application.CreateForm(TEditListform, EditListform);
  Application.CreateForm(Tbarform, barform);
  Application.CreateForm(TMovForm, MovForm);
  starform.Hide;
  starform.Free;
  Application.Run;
end.