1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  DbDS.Close;
  DbDS.SelectSQL.Text := 'select RDB$RELATION_NAME from rdb$relations order by RDB$RELATION_NAME';
  DbDS.Open;
  DbDS.First;
  i := 0;
  while not DbDS.Eof do begin
    i := i + 1;
    DetailDS.Close;
    DetailDS.SelectSQL.Text := 'select count (*) AS ANZAHL from '+DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    DetailDS.Open;
    TableName := DbDS.FieldByName ('RDB$RELATION_NAME').AsString;
    Anzahl := DetailDS.FieldByName ('ANZAHL').AsString;
    if pos ('$',TableName) = 0 then begin
      if StrToInt (Anzahl) <> 0 then
        Memo1.Lines.Add(Tablename + blanks (20-length (TableName))  + '  '+ Anzahl)
      else
        Memo2.Lines.Add(Tablename + blanks (20-length (TableName))  + '  '+ Anzahl);
    end;
    DbDS.Next;
  end;
end;                    

1:

select RDB$RELATION_NAME from rdb$relations order by RDB$RELATION_NAME                    

1:
2:
3:
4:
5:
6:

SELECT RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE ((RDB$SYSTEM_FLAG = 0) OR
(RDB$SYSTEM_FLAG IS NULL)) AND
(RDB$VIEW_SOURCE IS NULL)
ORDER BY RDB$RELATION_NAME                    

1:
2:
3:
4:

SELECT RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE (RDB$VIEW_SOURCE IS NULL)
ORDER BY RDB$RELATION_NAME                    

1:
2:
3:
4:

IBE$AUTO_FIELDS
IBE$CATEGS                     
IBE$CHAMPS                     
...                    

1:
2:

select * from rdb$relations where NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%')
ORDER BY RDB$RELATION_NAME                    

1:

select * from rdb$relation_fields where rdb$relation_name = 'tabelle1';                    

1:

select rdb$field_name from rdb$relation_fields                    

1:
2:

select RDB$RELATION_NAME, rdb$field_name from rdb$relation_fields where NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%')
ORDER BY RDB$RELATION_NAME                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

select
    f.RDB$RELATION_NAME, f.rdb$field_name,
    s.rdb$field_length
from
    rdb$relation_fields f, rdb$fields s
where
     NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 'RDB$%') and
     s.rdb$field_name = f.rdb$field_source
ORDER BY RDB$RELATION_NAME                    

1:
2:
3:
4:
5:
6:
7:
8:

select
 f.rdb$field_name, s.RDB$Field_Length, s.RDB$field_type, s.RDB$description, 
 f.rdb$character_set_name
from
 rdb$relation_fields f, rdb$fields s
where
 NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 
 'RDB$%') and s.rdb$field_name = f.rdb$field_source                    

1:

Unbekannte Spalte: F                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

select
 f.rdb$field_name,
 s.RDB$Field_Length, s.RDB$field_type, s.RDB$description, 
 c.rdb$character_set_name
from
 rdb$relation_fields f, rdb$fields s , rdb$character_sets c
where
 NOT (RDB$RELATION_NAME LIKE 'IBE$%') AND NOT (RDB$RELATION_NAME LIKE 
 'RDB$%') and s.rdb$field_name = f.rdb$field_source and
 c.rdb$character_set_id = s.rdb$character_set_id;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

select
 f.rdb$field_name, s.RDB$Field_Length, s.RDB$field_type, s.RDB$description, 
 f.rdb$null_flag, lc.rdb$constraint_type

from
 rdb$relation_fields f, rdb$fields s, rdb$relation_constraints lc

where
 NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND
 NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND
 s.rdb$field_name = f.rdb$field_source  AND
 lc.rdb$relation_name = f.rdb$relation_name                    

1:
2:
3:
4:
5:
6:

RDB$Field_Name | RDB$Field_Length | RDB$Field_Type | RDB$DESCRIPTION | RDB$NULL_FLAG | RDB$CONTRAINT_TYPE

ID | 2 | 7 | Null | 1 | NOT NULL
ID | 2 | 7 | Null | 1 | NOT NULL
ID | 2 | 7 | Null | 1 | PRIMARY KEY
ID | 2 | 7 | Null | 1 | FOREIGN KEY                    

1:

group by RDB$FIELD_NAME                    

1:
2:
3:
4:
5:
6:
7:
8:

/* Table: TABELLE1, Owner: SYSDBA */
CREATE TABLE "TABELLE1"
(
  "ID"  SMALLINT NOT NULL,
  "NAME"  CHAR(30) NOT NULL,
  "ALTER"  SMALLINT,
 PRIMARY KEY ("ID")
);                    

1:

select count (rdb$constraint_type) where rdb$relation_name = <relation_name> and rdb§relation_type ='PRIMARY_KEY';                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

SET TERM ^ ;

CREATE PROCEDURE "Tabelleninfo" (
    TABELLE CHAR(32))
RETURNS (
    NAME CHAR(32),
    FIELDLEN SMALLINT,
    FTYPE CHAR(16),
    NULLFLAG CHAR(8),
    ISPK CHAR(12),
    ISFK CHAR(12),
    DESCRIP VARCHAR(128))
AS
DECLARE VARIABLE TTYPE SMALLINT;
DECLARE VARIABLE TANZ SMALLINT;
begin
  for
  select
      f.rdb$field_name, s.RDB$Field_Length, s.RDB$field_type,
      s.RDB$description, f.rdb$null_flag
  from
     rdb$relation_fields f, rdb$fields s 
  where
     f.rdb$relation_name = :tabelle and
     NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND
     NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND
     s.rdb$field_name = f.rdb$field_source
  into
     :name, :Fieldlen, :ttype, :Descrip, :NullFlag
     do
     begin
        if (:ttype = 7) then ftype = 'SmallInt';
        if (:ttype = 16) then ftype = 'BigInt';
        if (:ttype = 14) then ftype= 'Char';
        if (:ttype = 37) then ftype= 'Varchar';
/*       for select
             count (rdb$constraint_type)
           from
              rdb$relation_constraints
          where
              rdb$relation_name = :TABELLE and
              RDB$CONSTRAINT_TYPE = 'PRIMARY_KEY'
          into
              :TANZ
          do
          begin
              if (:TANZ = 1) then
              begin
                  ISPK = 'PRIMARY_KEY' ;
              end
              else
              begin
                  ISPK = '';
              end
          end  */
       suspend;
     end
end
^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE "Tabelleninfo" TO SYSDBA;                    

1:

 select * from "Tabelleninfo"( <tabellenname>;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

SET TERM ^ ;

CREATE PROCEDURE "Tabelleninfo" (
    TABELLE CHAR(32))
RETURNS (
    NAME CHAR(32),
    FIELDLEN SMALLINT,
    FTYPE CHAR(16),
    NULLFLAG CHAR(8),
    ISPK CHAR(12),
    ISFK CHAR(12),
    DESCRIP VARCHAR(128))
AS
DECLARE VARIABLE TTYPE SMALLINT;
DECLARE VARIABLE TANZ SMALLINT;
begin
  for
  select
      f.rdb$field_name, s.RDB$Field_Length, s.RDB$field_type,
      s.RDB$description, f.rdb$null_flag
  from
     rdb$relation_fields f, rdb$fields s 
  where
     f.rdb$relation_name = :tabelle and
     NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND
     NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND
     s.rdb$field_name = f.rdb$field_source
  into
     :name, :Fieldlen, :ttype, :Descrip, :NullFlag
     do
     begin
        if (:ttype = 7) then ftype = 'SmallInt';
        if (:ttype = 16) then ftype = 'BigInt';
        if (:ttype = 14) then ftype= 'Char';
        if (:ttype = 37) then ftype= 'Varchar';
        for select
             count (rdb$constraint_type)
           from
              rdb$relation_constraints c
          where
              c.rdb$relation_name = :TABELLE and
              c.RDB$CONSTRAINT_TYPE = 'PRIMARY KEY' and
              c.rdb$index_name in( select
                                       rdb$index_name
                                   from
                                       rdb$index_segments
                                   where rdb$field_name = :name )
          into
              :TANZ
          do
          begin
              if (:TANZ = 1) then
              begin
                  ISPK = 'PRIMARY KEY' ;
              end
              else
              begin
                  ISPK = '';
              end
          end
       suspend;
     end
end
^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE "Tabelleninfo" TO SYSDBA;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

SELECT f.rdb$field_name as FieldName,
 s.RDB$Field_Length as FieldLength, 
 s.RDB$field_type as FieldType, 
 f.rdb$null_flag as NullFlag 

FROM   rdb$relation_fields f, rdb$fields s 

WHERE  
 NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND 
 NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND 
 s.rdb$field_name = f.rdb$field_source                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

SELECT f.rdb$field_name as FieldName,
 s.RDB$Field_Length as FieldLength, 
 s.RDB$field_type as FieldType, 
 f.rdb$null_flag as NullFlag 

FROM   rdb$relation_fields f, rdb$fields s 

WHERE 
 f.rdb$relation_name = 'Tabelle1'  and 
 NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND 
 NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND 
 s.rdb$field_name = f.rdb$field_source                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

SELECT f.rdb$field_name as FieldName,
 s.RDB$Field_Length as FieldLength, 
 s.RDB$field_type as FieldType, 
 f.rdb$null_flag as NullFlag 

FROM   rdb$relation_fields f, rdb$fields s 

WHERE 
 Upper(f.rdb$relation_name) = Upper('Tabelle1')  and 
 NOT (f.RDB$RELATION_NAME LIKE 'IBE$%') AND 
 NOT (f.RDB$RELATION_NAME LIKE 'RDB$%') AND 
 s.rdb$field_name = f.rdb$field_source