program StockMS;

uses
  Forms,
  SysUtils,
  NeoForm in 'public\NEOFORM.pas' {GBKPForm},
  StockMain in 'StockMain.pas' {GBKPFrmStockMain},
  calendarFun in 'E:\rd\稅控開票系統200507\calendarFun.pas',
  Base in 'public\Base.pas' {frmBase},
  InfoBase in 'public\InfoBase.pas' {frmInfoBase},
  StockDataModel in 'StockDataModel.pas' {StockDM: TDataModule},
  QueryBase in 'public\QueryBase.pas' {frmQueryBase},
  BaseFrame in 'public\BaseFrame.pas' {BaseFrameF: TFrame},
  DailogBase in 'public\DailogBase.pas' {frmDailogBase},
  ChangePWD in 'public\ChangePWD.pas' {frmChangePWD},
  Global in 'public\Global.pas',
  ImportBase in 'public\ImportBase.pas' {frmImportBase},
  Login in 'Login.pas' {FrmLogin},
  PublicFunction in 'public\PublicFunction.pas',
  PublicParameter in 'public\PublicParameter.pas',
  DeviceType in 'DeviceType.pas' {frmDeviceType},
  ProSeriseMan in 'ProSeriseMan.pas' {frmBProSeriseMan},
  GBarCodes in 'public\GBarCodes.pas' {frmGBarCodes},
  Shipment in 'Shipment.pas' {FrmShipment},
  OrderToBarCode in 'OrderToBarCode.pas' {FrmOrderToBarCode},
  BarCodeQuery in 'BarCodeQuery.pas' {FrmBarCodeQuery},
  BoxIncome in 'BoxIncome.pas' {FrmBoxIncome},
  User in 'User.pas' {frmBUser},
  SetParameter in 'SetParameter.pas' {FrmSetParameter},
  DevhardOptions in 'DevhardOptions.pas' {FrmDevhardOptions};

{$R *.res}

begin
  Application.Initialize;
  gCurrDirectory := ExtractFilePath(Application.ExeName); //當前程序目錄 'D:\ZEM初始化管理系統\'
  Application.Title := '條碼打印系統';
  Application.CreateForm(TStockDM, StockDM);
  Application.CreateForm(TGBKPFrmStockMain, GBKPFrmStockMain);
  Application.Run;
end.