project1.dpr

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

program Project1;

uses
  Forms,
  LoginUnit in 'LoginUnit.pas' {LoginForm},
  LogoUnit in 'LogoUnit.pas' {LogoForm},
  DMUnit in 'DMUnit.pas' {DM: TDataModule},
  EditUserUnit in 'EditUserUnit.pas' {EditUserForm},
  FunctionUnit in 'FunctionUnit.pas',
  OperInfoUnit in 'OperInfoUnit.pas' {OperInfoForm},
  GoodsInfoUnit in 'GoodsInfoUnit.pas' {GoodsInfoForm},
  GoodsSelectUnit in 'GoodsSelectUnit.pas' {GoodsSelectForm},
  depotInputUnit in 'depotInputUnit.pas' {depotInputfrm},
  aboutboxunit in 'aboutboxunit.pas' {AboutBox},
  ChangePasswordUnit in 'ChangePasswordUnit.pas' {ChgPwdForm},
  GoodsEdUnit in 'GoodsEdUnit.pas' {GoodsEditForm},
  PrograssUnit in 'PrograssUnit.pas' {PrograssForm},
  DepotEditUnit in 'DepotEditUnit.pas' {DepotEditForm},
  YWYEditUnit in 'YWYEditUnit.pas' {YWYEditForm},
  YWYInfoUnit in 'YWYInfoUnit.pas' {YWYInfoForm},
  depotOutputUnit in 'depotOutputUnit.pas' {depotOutputfrm},
  MainUnit in 'MainUnit.pas' {MainForm},
  QueryDepotUnit in 'QueryDepotUnit.pas' {QueryDepotForm},
  QueryDepotOutputUnit in 'QueryDepotOutputUnit.pas' {QueryDepotOutputForm},
  PrintckchUnit in 'PrintckchUnit.pas' {PrintckchForm},
  QueryMonthUnit in 'QueryMonthUnit.pas' {QueryMonthForm},
  PrintBassUnit in 'PrintBassUnit.pas' {PrintBassForm},
  PrintckUnit in 'PrintckUnit.pas' {PrintckForm},
  PrintMonthUnit in 'PrintMonthUnit.pas' {PrintMonthForm},
  PrintUnit in 'PrintUnit.pas' {PrintForm};

{$R *.res}

begin
  Application.Initialize;
  //显示Logo窗口
  LogoForm := TLogoForm.Create(Application);
  LogoForm.AlphaBlend := false;
  LogoForm.Show;
  LogoForm.Update;
  application.ProcessMessages;

  //创建主窗口
  Application.Title := '仓库产品管理系统';
  Application.CreateForm(TDM, DM);
  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.