tablescan.dpr

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· DPR 代码 · 共 61 行

program tableScan;

uses
  Forms,Sysutils, DBTAbles,
  main in 'main.pas' {TableScanner},
  Euro2000_db in 'Euro2000_db.pas',
  Status in 'Status.pas' {FormStatus},
  euro2000_local in 'euro2000_local.pas',
  euro2000_redata in 'euro2000_redata.pas',
  logdisp in 'logdisp.pas' {disp_form};

{$R *.RES}

function VerificaAlias: boolean;
Var
   dirprg, dirmulti, direuro2000, dirredata, dirlocaldata: String ;
   variato : Boolean ;
begin
     Variato := False ;
     Dirprg := ExtractFileDir(ParamStr(0)) ;
     DirMulti := DirPrg + '\data' ;
     DirEuro2000 := DirPrg + '\data\az00' ;
     DirReData := DirPrg + '\localdata\redata' ;
     DirLocalData := DirPrg + '\localdata' ;
     If not Session.IsAlias('e2_multi') then
      begin
        Session.AddStandardAlias('e2_multi',dirMulti,'') ;
        variato := True ;
      end ;
     If not Session.IsAlias('e2_local') then
      begin
        Session.AddStandardAlias('e2_local',dirlocaldata,'') ;
        variato := True ;
      end ;
     If not Session.IsAlias('e2_redata') then
      begin
        Session.AddStandardAlias('e2_redata',dirRedata,'') ;
        variato := True ;
      end ;
     If not Session.IsAlias('euro2000') then
      begin
        Session.AddStandardAlias('euro2000',dirEuro2000,'') ;
        variato := True ;
      end ;
     If Variato then
      begin
        session.SaveConfigFile ;
      end ;

end;

begin
  Application.Initialize;
  VerificaAlias ;
  Application.Title := 'TableScanner';
  Application.CreateForm(TTableScanner, TableScanner);
  Application.CreateForm(TFormStatus, FormStatus);
  Application.CreateForm(Tdisp_form, disp_form);
  Application.Run;
end.