pclient.dpr

进销存以及BOM管理,SQl Server数据库程序

program Pclient;

uses
  Forms,
  Windows,
  Base in 'Source\ancestor\Base.pas' {frmBase},
  MDIbase in 'Source\ancestor\MDIbase.pas' {frmMDIbase},
  Abort in 'Source\Login\Abort.pas' {frmabout},
  Boot in 'Source\Login\Boot.pas' {frmboot},
  DatabaseLink in 'Source\Login\DatabaseLink.pas' {frmdatabaselink},
  Flash in 'Source\Login\Flash.pas' {frmflash},
  Login in 'Source\Login\Login.pas' {frmlogin},
  main in 'Source\Login\main.pas' {frmmain},
  uchangepwd in 'Source\Login\uchangepwd.pas' {frmchangepwd},
  Data in 'Global\Data.pas' {DataM: TDataModule},
  Global in 'Global\Global.pas',
  usearch in 'Global\usearch.pas' {frmsearch},
  createaccount in 'Source\Login\createaccount.pas' {frmcreateaccount},
  uchangeuser in 'Source\Login\uchangeuser.pas' {frmchangeuser},
  ucomponey in 'Source\Login\ucomponey.pas' {frmcomponey},
  uchangedb in 'Source\Login\uchangedb.pas' {frmchangedb},
  ubaseinfo in 'Source\ancestor\ubaseinfo.pas' {frmBaseinfo},
  uitem in 'Source\baseinfo\uitem.pas' {frmitem},
  ubaseinfo_e in 'Source\ancestor\ubaseinfo_e.pas' {frmBaseinfo_e},
  uitem_e in 'Source\baseinfo\uitem_e.pas' {frmitem_e},
  utablefield in 'Source\Login\utablefield.pas' {frmtablefield},
  uitemtype in 'Source\baseinfo\uitemtype.pas' {frmitemtype},
  ufieldproperty in 'Source\baseinfo\ufieldproperty.pas' {frmfieldproperty},
  uitemtype_e in 'Source\baseinfo\uitemtype_e.pas' {frmitemtype_e},
  uunit in 'Source\baseinfo\uunit.pas' {frmunit},
  uunit_e in 'Source\baseinfo\uunit_e.pas' {frmunit_e},
  uitemimage in 'Source\baseinfo\uitemimage.pas' {frmitemimage},
  ubom in 'Source\baseinfo\ubom.pas' {frmBaseBOM},
  uProductFilter in 'Source\baseinfo\uProductFilter.pas' {frmProductFilter},
  uproducebill in 'Source\baseinfo\uproducebill.pas' {frmproducebill},
  uproducebill_e in 'Source\baseinfo\uproducebill_e.pas' {frmproducebill_e},
  uMaterielDecompose in 'Source\baseinfo\uMaterielDecompose.pas' {frmMaterielDecompose};

{$R *.res}

var
  rTime:Real;

begin
    frmFlash:=TfrmFlash.Create(application);
    frmFlash.Show;
    frmFlash.Update;
    rtime:=gettickCount div 1000;
    while (gettickCount div 1000)<(rtime+2) do
      application.ProcessMessages;

    Application.Initialize;
    frmFlash.Hide;
    frmFlash.Free;
    Application.CreateForm(Tfrmmain, frmmain);
  Application.Run;
end.