BDE Alias 설정 코딩

출처:

http://blog.naver.com/PostView.nhn?blogId=timeofline&logNo=140098964103

BDE_Alias.ZIP

 

읽기, 추가, 삭제 포함.

 

예제를 만들어 소스화일과 같이 첨부한다.

다들 수고하고 감기 조심하자.

 

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    memo1: TMemo;

    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure value_loading(Aname : string);
    procedure value_writing;
    procedure ComboBox1Change(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
 RadioGroup1Click(Sender);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
 var
  CurrentAliases: TStringList;
begin
 case RadioGroup1.ItemIndex of
 0,2 : begin
        ComboBox1.Style := csDropDownList;
        CurrentAliases := TStringList.Create;
        try
         Session.GetAliasNames(CurrentAliases) ;
         ComboBox1.Items:= CurrentAliases;
        finally
         CurrentAliases.Free;
        end;

        IF ComboBox1.Items.Count > 0 then
         begin
          ComboBox1.ItemIndex := 0;
          ComboBox1.OnChange(Sender);
         end;
       end;
   1 : begin
        ComboBox1.Clear;
        ComboBox1.Items.Add('ERPDB');
        ComboBox1.SetFocus;
        ComboBox1.ItemIndex := 0;
        ComboBox1.SelectAll;
        ComboBox1.Style := csDropDown;
       end;
 end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Case RadioGroup1.ItemIndex of
 0, 2 : begin
        if ComboBox1.ItemIndex <> -1 then
        value_loading(ComboBox1.text);
        end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Case RadioGroup1.ItemIndex of
    0 : RadioGroup1.OnClick(Sender);
    1 : begin
         IF Trim(ComboBox1.Text) <> '' then
         value_writing
         else
          ShowMessage('Alias명 또는 Params List를 확인하세요');
        end;
    2 : begin
         IF ComboBox1.ItemIndex <> -1 then
         begin
          IF MessageDlg('Alias('+ComboBox1.Text+')를 정말 삭제하시겠습니까?' +#13#13+ '삭제된 Alias는 복구되지 않습니다.',mtWarning,mbOKCancel,0) = mrOK then
          begin
          Session.DeleteAlias(ComboBox1.Text);
          ShowMessage('Alias('+ComboBox1.Text+')가 삭제되었습니다.');
          RadioGroup1.OnClick(Sender);
          end;
         end else
          ShowMessage('삭제할 Alias가 선택되지 않았습니다.');
        end;
  end;
end;

procedure TForm1.value_loading(Aname : string);
var
  sMaybeAlias : string;
  ParamList : TStringList;
begin
 if ComboBox1.ItemIndex <> -1 then
 begin
  sMaybeAlias := ComboBox1.Text;
  if Session.isAlias(sMaybeAlias) then
  begin
    ParamList := TStringList.Create;
    try
     Session.GetAliasParams(sMaybeAlias, ParamList) ;
     //     ListBox1.Items := ParamList;
     memo1.Lines := ParamList;
    finally
     ParamList.Free;
    end;
  end
  else
  ShowMessage(sMaybeAlias) ;
 end;
end;

procedure TForm1.value_writing;
var NewAliasParams : TStringList;
    AliasName : string;
    i : Integer;
    s : string;
begin
  ComboBox1.text := Trim(ComboBox1.text);
  AliasName:=ComboBox1.text;

  IF Session.IsAlias(AliasName) then
  Case MessageDlg('이미 Alias : '+AliasName+' 가 존재합니다.'+#13#13+'삭제한 후 진행할까요?' +#13#13+ '삭제된 Alias는 복구되지 않습니다.',mtWarning,mbOKCancel,0) of
  mrOk     : Session.DeleteAlias(AliasName);
  mrCancel : Exit;
  end;

  NewAliasParams := TStringList.create;
  try
    for i := 0 to memo1.Lines.Count-1 do
    begin
     s := memo1.Lines.Strings[i];
     if (Trim(s) <> '') and (Trim(Copy(s,1,Pos('=',s)-1)) <> '') and (Trim(Copy(s, Pos('=',s)+1 , Length(s))) <> '') then
      NewAliasParams.Values[ Trim(Copy(s,1,Pos('=',s)-1)) ] := Trim(Copy(s, Pos('=',s)+1 , Length(s)));
    end;

    Session.AddAlias(AliasName, 'MSSQL', NewAliasParams) ;
    Session.SaveConfigFile;
    ShowMessage('Alias : '+ AliasName +' 이 정상적으로 등록되었습니다.');
    {
    NewAliasParams.Values['DATABASE NAME'] := 'DBname';
    NewAliasParams.Values['SERVER NAME'] := '192.168.0.1';
    NewAliasParams.Values['USER NAME'] := 'sa';
    NewAliasParams.Values['OPEN MODE'] := 'READ/WRITE';
    NewAliasParams.Values['SCHEMA CACHE SIZE'] := '8';
    NewAliasParams.Values['BLOB EDIT LOGGING'] := '';
    NewAliasParams.Values['LANGDRIVER'] := '';
    NewAliasParams.Values['SQLQRYMODE'] := '';
    NewAliasParams.Values['SQLPASSTHRU MODE'] := 'SHARED AUTOCOMMIT';
    NewAliasParams.Values['DATE MODE'] := '0';
    NewAliasParams.Values['SCHEMA CACHE TIME'] := '-1';
    NewAliasParams.Values['MAX QUERY TIME'] := '300';
    NewAliasParams.Values['MAX ROWS'] := '-1';
    NewAliasParams.Values['BATCH COUNT'] := '200';
    NewAliasParams.Values['ENABLE SCHEMA CACHE'] := 'FALSE';
    NewAliasParams.Values['SCHEMA CACHE DIR'] := '';
    NewAliasParams.Values['HOST NAME'] := '';
    NewAliasParams.Values['APPLICATION NAME'] := '';
    NewAliasParams.Values['NATIONAL LANG NAME'] := '';
    NewAliasParams.Values['ENABLE BCD'] := 'FALSE';
    NewAliasParams.Values['TDS PACKET SIZE'] := '4096';
    NewAliasParams.Values['BLOBS TO CACHE'] := '64';
    NewAliasParams.Values['BLOB SIZE'] := '32';
    Session.AddAlias(AliasName, 'MSSQL', NewAliasParams) ;
    Session.SaveConfigFile;
    }
  except
    on E: Exception do
    MessageDlg(E.Message, mtWarning, [mbOK], 0);
  end;
 NewAliasParams.Free;
end;

end.