Firebird Field Description

[Lost Soul]

Firebird de Kayıt açıklamasını öğrenme.

Kod: Tümünü seç

//ibdb: TpFIBDatabase;
//ibtr: TpFIBTransaction;
//qsor: TpFIBDataSet;
//meho: Tmemo;
procedure TForm1.dosyaChange(Sender: TObject);
begin
  with ibdb do
  Begin
    Close;
    DatabaseName:=dosya.FileName;
    try
      Open;
    except
      exit;
    end;
  End;
  with TStringlist.Create do
  Begin
    meho.Lines.Clear;
      qsor.Close;
      qsor.SelectSQL.Clear;
      qsor.SelectSQL.add
      ('select RDB$FIELD_NAME,RDB$RELATION_NAME,RDB$DESCRIPTION from RDB$RELATION_FIELDS');

//      qsor.SelectSQL.Add('select * from '+Strings[i]+ ' where 1=3');
      qsor.Open;
      qsor.First;
      while not qsor.Eof do
      Begin
        if
          (Pos('$',qsor.FieldByName('RDB$RELATION_NAME').AsString)=0) and
          (Pos('$',qsor.FieldByName('RDB$FIELD_NAME'   ).AsString)=0) and
          (Trim(qsor.FieldByName('RDB$DESCRIPTION').AsString)<>'') then

        Add(
        qsor.FieldByName('RDB$RELATION_NAME').AsString+ '-'+
        qsor.FieldByName('RDB$FIELD_NAME').AsString+ '-'+
        qsor.FieldByName('RDB$DESCRIPTION').AsString);
        qsor.Next;
      End;
    meho.Lines.Text:=text;
    free;
  End;

end;

Peki bu nerde işimize yarar.
Mesela dinamik sorgularda girdde kayıt listelerken field description'u başlık olarak kullanabilirsiniz