sale.dpr

安装完成后

program Sale;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainForm},
  SetupFormUnit in 'SetupFormUnit.pas' {SetupForm},
  SelectDirUnit in 'SelectDirUnit.pas' {SelectDir},
  AboutUnit in 'AboutUnit.pas' {AboutForm},
  LoginUnit in 'LoginUnit.pas' {LoginForm},
  LogoUnit in 'LogoUnit.pas' {LogoForm},
  FunctionUnit in 'FunctionUnit.pas',
  RightManageUnit in 'RightManageUnit.pas' {RightManageForm},
  BackUpUnit in 'BackUpUnit.pas' {BackUpForm},
  OperInfoUnit in 'OperInfoUnit.pas' {OperInfoForm},
  EditUserUnit in 'EditUserUnit.pas' {EditUserForm},
  GoodsInfoUnit in 'GoodsInfoUnit.pas' {GoodsInfoForm},
  GoodsEditUnit in 'GoodsEditUnit.pas' {GoodsEditForm},
  YWYInfoUnit in 'YWYInfoUnit.pas' {YWYInfoForm},
  YWYEditUnit in 'YWYEditUnit.pas' {YWYEditForm},
  ChartSaleUnit in 'ChartSaleUnit.pas' {ChartSaleForm},
  PrograssUnit in 'PrograssUnit.pas' {PrograssForm},
  ChartSaleSCUnit in 'ChartSaleSCUnit.pas' {ChartSaleSCForm},
  DepotInfoUnit in 'DepotInfoUnit.pas' {DepotInfoForm},
  DepotEditUnit in 'DepotEditUnit.pas' {DepotEditForm},
  GoodsSelectUnit in 'GoodsSelectUnit.pas' {GoodsSelectForm},
  MainInputTYUnit in 'MainInputTYUnit.pas' {MainInputTYfrm},
  DepotjhUnit in 'DepotjhUnit.pas' {DepotjhForm},
  DepotthUnit in 'DepotthUnit.pas' {DepotthForm},
  scjhUnit in 'scjhUnit.pas' {scjhForm},
  scthUnit in 'scthUnit.pas' {scthForm},
  xsthUnit in 'xsthUnit.pas' {xsthForm},
  DaySellUnit in 'DaySellUnit.pas' {DaySellForm},
  QueryBassUnit in 'QueryBassUnit.pas' {QueryBassForm},
  QueryYWYSellUnit in 'QueryYWYSellUnit.pas' {QueryYWYSellForm},
  QueryscSellUnit in 'QueryscSellUnit.pas' {QueryscSellForm},
  QueryspSellUnit in 'QueryspSellUnit.pas' {QueryspSellForm},
  QueryscjhUnit in 'QueryscjhUnit.pas' {QueryscjhForm},
  QueryckjhUnit in 'QueryckjhUnit.pas' {QueryckjhForm},
  QuerylskccxUnit in 'QuerylskccxUnit.pas' {QuerylskccxForm},
  QuerysckctjUnit in 'QuerysckctjUnit.pas' {QuerysckctjForm},
  QueryspjxcUnit in 'QueryspjxcUnit.pas' {QueryspjxcForm},
  PrintBassUnit in 'PrintBassUnit.pas' {PrintBassForm},
  PrintywyxsUnit in 'PrintywyxsUnit.pas' {PrintywyxsForm},
  PrintscxsUnit in 'PrintscxsUnit.pas' {PrintscxsForm},
  PrintspxsUnit in 'PrintspxsUnit.pas' {PrintspxsForm},
  PrintscjhUnit in 'PrintscjhUnit.pas' {PrintscjhForm},
  PrintckjhUnit in 'PrintckjhUnit.pas' {PrintckjhForm},
  PrintkctjUnit in 'PrintkctjUnit.pas' {PrintkctjForm},
  PrintlskcUnit in 'PrintlskcUnit.pas' {PrintlskcForm},
  PrintspjxcUnit in 'PrintspjxcUnit.pas' {PrintspjxcForm},
  QueryspfbUnit in 'QueryspfbUnit.pas' {QueryspfbForm},
  PrintspfbUnit in 'PrintspfbUnit.pas' {PrintspfbForm};

{$R *.res}

begin
  Application.Initialize;
  //显示Logo窗口
  LogoForm := TLogoForm.Create(Application);
  LogoForm.AlphaBlend := false;
  LogoForm.Show;
  LogoForm.Update;
  application.ProcessMessages;
  //创建主窗口
  Application.Title := '商品销售管理系统';
  Application.CreateForm(TMainForm, MainForm);
  MainForm.Show;
  MainForm.update;
  LogoForm.AlphaBlend := true;
  LogoForm.Update;
  //创建登录窗口
  Application.CreateForm(TLoginForm, LoginForm);
  while LogoForm.AlphaBlendValue > 15 do
  begin
    LogoForm.AlphaBlendValue := LogoForm.AlphaBlendValue - 5;
  end;
  //关闭logo窗口
  LogoForm.Close;
  LogoForm.Free;
  //显示登录窗口
  LoginForm.showmodal;
  LoginForm.free;
  Application.Run;

end.