lbjxc.dpr

天涯進銷存系統

program LBJXC;

uses
  Forms,
  Windows,
  Registry,
  SysUtils,
  Controls,
  uMain in 'uMain.pas' {frmMain},
  ActnMenus in 'ActnMenus.pas',
  Tools in 'Tools.pas',
  uConst in 'uConst.pas',
  uPublicvar in 'uPublicvar.pas',
  XPActnCtrls in 'XPActnCtrls.pas',
  uDeskTop in 'uDeskTop.pas' {frmDesktop},
  uDataMo in 'uDataMo.pas' {dmData: TDataModule},
  uEmployee in 'uEmployee.pas' {frmEmployee},
  uFind in 'uFind.pas' {frmFind},
  uPrintview in 'uPrintview.pas' {frmPrintview},
  uFilialeinfo in 'uFilialeinfo.pas' {frmFilialeinfo},
  uProviderinfo in 'uProviderinfo.pas' {frmProviderinfo},
  uWelcome in 'uWelcome.pas' {frmWelcome},
  uClientinfo in 'uClientinfo.pas' {frmClientinfo},
  uStorage in 'uStorage.pas' {frmStorage},
  uDate in 'uDate.pas' {frmDate},
  uBaseData in 'uBaseData.pas' {frmBaseData},
  uRemoveOutPut in 'uRemoveOutPut.pas' {frmRemoveOutPut},
  uSelectProvider in 'uSelectProvider.pas' {frmSelectProvider},
  uSelectClient in 'uSelectClient.pas' {frmSelectClient},
  uSelectPartMoveEdit in 'uSelectPartMoveEdit.pas' {frmSelectPartMoveEdit},
  uPartinfo in 'uPartinfo.pas' {frmPartinfo},
  uSelectSaleBill in 'uSelectSaleBill.pas' {frmSelectSaleBill},
  uSelectSaleOrder in 'uSelectSaleOrder.pas' {frmSelectSaleOrder},
  uRemoveInPut in 'uRemoveInPut.pas' {frmRemoveInPut},
  uInitializeInPut in 'uInitializeInPut.pas' {frmInitializeInPut},
  uPartsMove in 'uPartsMove.pas' {frmPartsMove},
  uReimbureseParts in 'uReimbureseParts.pas' {frmReimbureseParts},
  uPartOutPutStock in 'uPartOutPutStock.pas' {frmPartOutPutStock},
  uStockOrder in 'uStockOrder.pas' {frmStockOrder},
  uSelectStockOrder in 'uSelectStockOrder.pas' {frmSelectStockOrder},
  uSaleOrder in 'uSaleOrder.pas' {frmSaleOrder},
  uSelectPart in 'uSelectPart.pas' {frmSelectPart},
  uSelectOutPutReimburse in 'uSelectOutPutReimburse.pas' {frmSelectOutPutReimburse},
  uInPutReimburse in 'uInPutReimburse.pas' {frmInPutReimburse},
  uOutPutReimburse in 'uOutPutReimburse.pas' {frmOutPutReimburse},
  uSelectPartEdit in 'uSelectPartEdit.pas' {frmSelectPartEdit},
  uStorageCheck in 'uStorageCheck.pas' {frmStorageCheck},
  uSelectPaymentType in 'uSelectPaymentType.pas' {frmSelectPaymentType},
  uStorageRedressal in 'uStorageRedressal.pas' {frmStorageRedressal},
  uStoragePart in 'uStoragePart.pas' {frmStoragePart},
  uStoragePartsRes in 'uStoragePartsRes.pas' {frmStoragePartsRes},
  uPartDepotPlace in 'uPartDepotPlace.pas' {frmPartDepotPlace},
  uDepartment in 'uDepartment.pas' {frmDepartment},
  uStockInPut in 'uStockInPut.pas' {frmStockInPut},
  uSaleBill in 'uSaleBill.pas' {frmSaleBill},
  uAccept in 'uAccept.pas' {frmAccept},
  uSelectStorage in 'uSelectStorage.pas' {frmSelectStorage},
  uMonthAccBook in 'uMonthAccBook.pas' {frmMonthAccBook},
  uCashdayAccBook in 'uCashdayAccBook.pas' {frmCashdayAccBook},
  uDayAccBook in 'uDayAccBook.pas' {frmDayAccBook},
  uBankDayAccBook in 'uBankDayAccBook.pas' {frmBankDayAccBook},
  uYearAccBook in 'uYearAccBook.pas' {frmYearAccBook},
  uAccountPayable in 'uAccountPayable.pas' {frmAccountPayable},
  uPartOutputReimburseRep in 'uPartOutputReimburseRep.pas' {frmPartOutputReimburseRep},
  uAccountReceivable in 'uAccountReceivable.pas' {frmAccountReceivable},
  uSaleOrderRep in 'uSaleOrderRep.pas' {frmSaleOrderRep},
  uRemoveOutPutRep in 'uRemoveOutPutRep.pas' {frmRemoveOutPutRep},
  uStockOrderRep in 'uStockOrderRep.pas' {frmStockOrderRep},
  uRemoveInPutRep in 'uRemoveInPutRep.pas' {frmRemoveInPutRep},
  uPartInputReimburseRep in 'uPartInputReimburseRep.pas' {frmPartInputReimburseRep},
  uPartSalegainRep in 'uPartSalegainRep.pas' {frmPartSalegainRep},
  uUserSetup in 'uUserSetup.pas' {frmUserSetup},
  uUserEditPassword in 'uUserEditPassword.pas' {frmUserEditPassword},
  uSelectDepotPartMove in 'uSelectDepotPartMove.pas' {frmSelectDepotPartMove},
  uSelectStockBill in 'uSelectStockBill.pas' {frmSelectStockBill},
  uSelectInPutReimburse in 'uSelectInPutReimburse.pas' {frmSelectInPutReimburse},
  uSelectStorageCheck in 'uSelectStorageCheck.pas' {frmSelectStorageCheck},
  uSelectAccept in 'uSelectAccept.pas' {frmSelectAccept},
  uSelectInitializeInPut in 'uSelectInitializeInPut.pas' {frmSelectInitializeInPut},
  uSelectPayment in 'uSelectPayment.pas' {frmSelectPayment},
  uNewUser in 'uNewUser.pas' {frmNewUser},
  uSysinfoEdit in 'uSysinfoEdit.pas' {frmSysinfoEdit},
  uSelectAcc in 'uSelectAcc.pas' {frmSelectAcc},
  uDeleteAccount in 'uDeleteAccount.pas' {frmDeleteAccount},
  uPayment in 'uPayment.pas' {frmPayment},
  uSelectAccountinfo in 'uSelectAccountinfo.pas' {frmSelectAccountinfo},
  uSelectBillinfo in 'uSelectBillinfo.pas' {frmSelectBillinfo},
  uPartinputRep in 'uPartinputRep.pas' {frmPartinputRep},
  uPartoutputRep in 'uPartoutputRep.pas' {frmPartoutputRep},
  uSaleSettlement in 'uSaleSettlement.pas' {frmSaleSettlement},
  uCreateAccount in 'uCreateAccount.pas' {frmCreateAccount},
  uUserlogin in 'uUserlogin.pas' {frmUserlogin},
  Connectsql in 'Connectsql.pas' {ConnectsqlForm};

var
  Reg :TRegistry;
  InterBaseDataPath:string;
  isSetupInterBase6,isSetupInterBase5: Boolean;


{$R *.res}

begin
  //是否安装InterBase数据库
  //InterBase5
 { Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\InterBase Corp\InterBase\CurrentVersion', True);
    InterBaseDataPath:=Reg.ReadString('ServerDirectory');
    Reg.CloseKey;
    Reg.Free;
  except
    Application.MessageBox('读写文件错误。','错误信息',$10);
    Reg.CloseKey;
    Reg.Free;
    Halt;
  end;
  isSetupInterBase5:=FileExists(InterBaseDataPath+'ibserver.exe');
  //InterBase6
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    Reg.OpenKey('SOFTWARE\Borland\InterBase\CurrentVersion', True);
    InterBaseDataPath:=Reg.ReadString('ServerDirectory');
    Reg.CloseKey;
    Reg.Free;
  except
    Application.MessageBox('读写文件错误。','错误信息',$10);
    Reg.CloseKey;
    Reg.Free;
    Halt;
  end;
  isSetupInterBase6:=FileExists(InterBaseDataPath+'ibserver.exe');
  if (isSetupInterBase6=False) and (isSetupInterBase5=False) Then
  begin
    Application.MessageBox('您没有安装InterBase5.0或更高版本的数据库。','提示信息', $30);
    Application.Terminate;
    Halt;
  end;
  }
  Application.Initialize;
  Application.Title := '天涯进销存管理系统';
  frmSelectAcc:=TfrmSelectAcc.Create(Application);
  frmSelectAcc.ShowModal;
  if not frmselectacc.YesSet then
  begin
       frmSelectAcc.Free;
       application.Terminate;
       exit;
  end;
  frmSelectAcc.Free;
  frmWelcome:=TfrmWelcome.Create(Application);
  frmWelcome.Show;
  frmWelcome.Update;
  Application.CreateForm(TdmData, dmData); 
  frmUserlogin:=TfrmUserlogin.Create(Application);
  frmUserlogin.ShowModal;
  if frmuserlogin.isexit then
     begin
          dmdata.Free;
          frmUserlogin.Free;
          application.Terminate;
          exit;
     end;
  frmUserlogin.Free;
  Application.CreateForm(TfrmMain, frmMain);
  frmWelcome.Hide;
  frmWelcome.Free;
  UserLogonkey(FrmMain, 'FrmMain');
  Application.Run;
end.