inventory.~dpr

文件包含程序源原文件

program Inventory;

uses
  Forms,
  Windows,
  Main in 'source\Main.pas' {frmMain},
  InvQuery in 'source\InvQuery.pas' {frmBalance},
  InvoiceList in 'source\InvoiceList.pas' {frmInvoiceList},
  InvDM in 'source\InvDM.pas' {dm_Inventory: TDataModule},
  InvDef in 'source\InvDef.pas',
  tabFrm in 'source\tabFrm.pas' {TabForm},
  InvSetParams in 'source\InvSetParams.pas' {frmParams},
  InvIOID in 'source\InvIOID.pas' {frmIOID},
  TuneInvQty in 'source\TuneInvQty.pas' {frmTuneInvQty},
  OtherIn in 'source\OtherIn.pas' {frmOtherIn},
  ListFrm in 'source\ListFrm.pas' {ListForm},
  InvHistory in 'source\InvHistory.pas' {frmInvHistory},
  IOQryFrm in 'source\IOQryFrm.pas' {frmIOQry},
  InvCondQry in 'source\InvCondQry.pas' {frmBalQryCond},
  MatOUT in 'source\MatOUT.pas' {frmMatOUT},
  InvHisReport in 'source\InvHisReport.pas' {frmHisReport},
  MatGuageInfo in 'source\MatGuageInfo.pas' {frmMatGuageInfo},
  PaperParamsDef in 'source\PaperParamsDef.pas' {frmPaperParamsDef},
  InvBomCheck in 'source\InvBomCheck.pas' {frmBomCheck},
  InvDiaEd in 'source\Invdiaed.pas' {frmEdit},
  OtherMatOut in 'source\OtherMatOut.pas' {frmOtherMatOut},
  QryMaterial in 'source\QryMaterial.pas' {frmMaterialQry},
  QryDeliveryList in 'source\QryDeliveryList.pas' {frmDeliveriedList},
  Inv_UnDeliveryOnTime in 'source\Inv_UnDeliveryOnTime.pas' {frmUnDelivery},
  InvDataExpImp in 'source\InvDataExpImp.pas' {frmDataExpImp},
  InvReport in 'source\InvReport.pas' {frmReport},
  dpconst in 'source\dpconst.pas',
  MatBalaIn in 'source\MatBalaIn.pas' {frmMatBalaIn},
  OutInvSelect in 'source\OutInvSelect.pas' {frmOutInvSelect},
  QryOrderDelivery in 'source\QryOrderDelivery.pas' {frmDeliveryOrder},
  MatIN in 'source\MatIN.pas' {frmMatIN},
  InvPassword in 'source\InvPassword.pas' {frmPassword},
  InvUserPrivilege in 'source\InvUserPrivilege.pas' {frmUser},
  InSuplier in 'source\InSuplier.pas' {frmInSuplier},
  InvAccount in 'source\InvAccount.pas' {frmInvAccount},
  InvMoldStk in 'source\InvMoldStk.pas' {frmMoldInv},
  InvAccountAge in 'source\InvAccountAge.pas' {frmAccountAge},
  InvMoldExpense in 'source\InvMoldExpense.pas' {frmInvMoldExp};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmInvMoldExp, frmInvMoldExp);
  frmMain.hide;
  Application.CreateForm(Tdm_Inventory, dm_Inventory);   
  frmPassword := TfrmPassword.Create(Application);
  frmPassword.ShowModal;

  if frmPassword.ModalResult<>2 then
  begin
    frmMain.FUserID := frmPassword.edtUserID.Value;
    frmMain.FLoginUserPrivilege := frmPassword.FUserPrivilege;
    frmPassword.Release;
    frmMain.Show;
    frmMain.settingUserFunction;

  if not dm_Inventory.DBConnected then begin
    Application.MessageBox('Failed in connecting the database.   ' + #13 +
        'Application is forced to terminate.', 'Database connection error', MB_OK + MB_ICONERROR);
    Application.Terminate;
    Exit;
  end;
  if frmMain.IniData.warningdays <3 then begin
    Application.CreateForm(TfrmUnDelivery, frmUnDelivery);
    with frmUnDelivery do
    begin
      frmUnDelivery.show;
    end;
  end;
  Application.Run;

  end
  else begin
    Application.Terminate;
    exit;
  end; 
end.