hwtsc.dpr.svn-base

来自「一个用Delphi开发的ERP软件」· SVN-BASE 代码 · 共 74 行

program HwTSC;

uses
  ExceptionLog,
  Forms,
  Windows,
  Registry,
  Sysutils,
  TscMain in 'TscMain.pas' {TscMainForm},
  TSCDATA in 'TSCDATA.pas' {TSCDM: TDataModule},
  AlterComm in 'AlterComm.pas',
  TscPar in 'TscPar.pas' {TscParForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'HowWell Transaction Services Control';
  ARegPath:='\Software\HwERP5';

  //从注册表中读取缺省语种设置
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey(ARegPath, True);
    if not ValueExists('LanguageID') then
    begin
      WriteInteger('LanguageID',GetSystemDefaultLangID);
    end;
    ALanguageID:=ReadInteger('LanguageID');
  finally
    CloseKey;
    Free;
  end;

  try
    TSCDM:=TTSCDM.Create(Application);
    TSCDM.LangsADOC.Connected:=False;
    TSCDM.LangsADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Languages.dat;Persist Security Info=False';
    TSCDM.LangsADOC.Connected:=True;
  except
    ShowMsg(TSCDM.LangsADOC.Errors[0].Description,1);
    Application.Terminate;
  end;
  try
    TSCDM.SYSADOC.Connected:=False;
    TSCDM.SYSADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\HwSYS.hws;Persist Security Info=False';
    TSCDM.SYSADOC.Connected:=True;
  except
    ShowMsg(TSCDM.SYSADOC.Errors[0].Description,1);
    Application.Terminate;
  end;
  TSCDM.qryLangs.Close;
  TSCDM.qryLangs.SQL.Clear;
  TSCDM.qryLangs.SQL.Add('select * from Langs where LangNo='+''''+IntToStr(ALanguageID)+'''');
  TSCDM.qryLangs.Open;
  if TSCDM.qryLangs.IsEmpty then
  begin
    ALanguageID:=1033;
    TSCDM.qryLangs.Close;
    TSCDM.qryLangs.SQL.Clear;
    TSCDM.qryLangs.SQL.Add('select * from Langs where LangNo='+''''+IntToStr(ALanguageID)+'''');
    TSCDM.qryLangs.Open;
  end;
  ALangTable:=TSCDM.qryLangs.FieldByName('TableName').Value;
  AFontName:=TSCDM.qryLangs.FieldByName('FontName').Value;
  ACharset:=TSCDM.qryLangs.FieldByName('Charset').Value;
  TSCDM.qryLangs.Close;

  Application.CreateForm(TTscMainForm, TscMainForm);
  Application.ShowMainForm:=False;
  Application.Run;
end.