starstock.dpr

小型库存管理,希望有帮助,小型库存管理,希望有帮助

program StarStock;

uses
  Forms,
  Windows,
  Dialogs,
  sysutils,
  Controls,
  MAIN in 'MAIN.PAS' {frmMain},
  about in 'about.pas' {AboutBox},
  FMLoginU in 'FMLoginU.pas' {FMLogin},
  FMDBU in 'FMDBU.pas' {fmDB: TDataModule},
  FMBaseU in 'FMBaseU.pas' {FMBase},
  FMSingleU in 'FMSingleU.pas' {FMSingle},
  FMUserU in 'FMUserU.pas' {FMUser},
  FmSearchU in 'FmSearchU.pas' {FmSearch},
  FMUserMenuU in 'FMUserMenuU.pas' {FMUserMenu},
  FMBaseQryU in 'FMBaseQryU.pas' {FMBaseQry},
  FMCustParaU in 'FMCustParaU.pas' {FMCustPara},
  uRegCount in 'uRegCount.pas' {frmRegCount},
  MsgU in 'MsgU.PAS',
  uRepPreview in 'uRepPreview.pas' {frmRepPreview},
  uRepForm in 'uRepForm.pas' {frmRepForm},
  FMMulU in 'FMMulU.pas' {FMMul},
  FMBizMulU in 'FMBizMulU.pas' {FMBizMul},
  FMTsSaleReturnU in 'FMTsSaleReturnU.pas' {FMTsSaleReturn},
  RepTsLostU in 'RepTsLostU.pas' {RepTsLost},
  FMEmployeeU in 'FMEmployeeU.pas' {FMEmployee},
  FMCustomerU in 'FMCustomerU.pas' {FMCustomer},
  FMSupplierU in 'FMSupplierU.pas' {FMSupplier},
  FMClassU in 'FMClassU.pas' {FMClass},
  FMItemU in 'FMItemU.pas' {FMItem},
  FMTsCheckstockU in 'FMTsCheckstockU.pas' {FMTsCheckstock},
  FMTsReturnU in 'FMTsReturnU.pas' {FMTsReturn},
  FMTsSaleU in 'FMTsSaleU.pas' {FMTsSale},
  FMTsLostU in 'FMTsLostU.pas' {FMTsLost},
  FMTsBegstockU in 'FMTsBegstockU.pas' {FMTsBegstock},
  RepTsReceiveU in 'RepTsReceiveU.pas' {RepTsReceive},
  FMQryAllStockU in 'FMQryAllStockU.pas' {FMQryAllStock},
  FMQryReceiveU in 'FMQryReceiveU.pas' {FMQryReceive},
  FMQryMonthU in 'FMQryMonthU.pas' {FMQryMonth},
  FMTsReceiveU in 'FMTsReceiveU.pas' {FMTsReceive},
  FMQryStockU in 'FMQryStockU.pas' {FMQryStock},
  FMQryMonthDataU in 'FMQryMonthDataU.pas' {FMQryMonthData};

{$R *.RES}

var
  strCount :string ;
begin
  Application.Initialize;
  {if Findwindow(nil,'仓库之星') <> 0 then
   begin
      MessageDlg('程序已在执行中, 请勿重复执行!', mtInformation,[mbOk], 0);
      Application.Terminate;
   end; }
  Application.Title := '仓库之星';
  strCount :=GetCount ;
  if (strCount='0')  then
   begin
      Application.MessageBox('您已经超过试用期,请注册.','提示',MB_OK+MB_ICONWARNING);
      Application.CreateForm(TfrmRegCount, frmRegCount);
  end
  else
   begin
   if strCount<>'999' then
     begin
      strCount := IntToStr(StrToInt(strCount)-1);
      SetCount(PSEncrypt(strCount));
      Application.MessageBox(PChar('您还可以试用:'+strCount+'次.'),'提示',MB_OK+MB_ICONWARNING);
      Application.CreateForm(TfmDB, fmDB);
      Application.CreateForm(TfrmMain, frmMain);
    end
   else
     begin
      Application.CreateForm(TfmDB, fmDB);
      Application.CreateForm(TfrmMain, frmMain);
     end ;
   end ;
  Application.BringToFront ;
  Application.Run;
end.