storagesystem.dpr

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

program StorageSystem;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {FrmMain},
  Welcome in 'Welcome.pas' {WelcomeForm},
  UnitAbout in 'UnitAbout.pas' {FrmAbout},
  LoginUnit in 'LoginUnit.pas' {FrmLogin},
  DMUnit in 'DMUnit.pas' {DM: TDataModule},
  PasswordUnit in 'PasswordUnit.pas' {FrmPassword},
  PowerSet in 'PowerSet.pas' {PowerSetForm},
  EditPower in 'EditPower.pas' {EditPowerForm},
  SystemSetUnit in 'SystemSetUnit.pas' {FrmSystemSet},
  UnitDayReport in 'UnitDayReport.pas' {FrmDayReport},
  UnitOrderBill_Add in 'UnitOrderBill_Add.pas' {FrmOrderBill_Add},
  UnitClientPrice in 'UnitClientPrice.pas' {FrmClientPrice},
  UnitOrderBill_Edit in 'UnitOrderBill_Edit.pas' {FrmOrderBill_Edit},
  UnitClientPrice_Edit in 'UnitClientPrice_Edit.pas' {FrmClientPrice_Edit},
  UnitBalance in 'UnitBalance.pas' {FrmBalance},
  UnitOrderBill in 'UnitOrderBill.pas' {FrmOrderBill};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '嘉俊仓库出单管理系统';
  WelcomeForm:=TWelcomeForm.Create(Application);
  WelcomeForm.Show;
  WelcomeForm.Update;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrmPassword, FrmPassword);
  Application.CreateForm(TPowerSetForm, PowerSetForm);
  Application.CreateForm(TEditPowerForm, EditPowerForm);
  Application.CreateForm(TFrmSystemSet, FrmSystemSet);
  Application.CreateForm(TFrmOrderBill_Add, FrmOrderBill_Add);
  Application.CreateForm(TFrmOrderBill_Edit, FrmOrderBill_Edit);
  Application.CreateForm(TFrmClientPrice_Edit, FrmClientPrice_Edit);
  Application.CreateForm(TFrmBalance, FrmBalance);
  WelcomeForm.Hide;
  WelcomeForm.Close;
  FrmMain.Show;
  Application.HintPause:=1000;
  Application.Run;
end.