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

procedure TBuchMain.lade_Tabelle(DBTname: TTable; tabname, dbtreiber: String);
begin
  DBTname.active :=  false;
    DBTname.TableName := tabname;
    DBTname.DatabaseName := dbtreiber;
    DBTname.Database.LoginPrompt := false;   // ??
  DBTname.Active := true;
  CoBoxAdd(extractfilename(DBTname.TableName));
end;					

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

  if fFehler = - 1 then
    try
      with Datenmodul.IBDatabase do
        begin
          Connected := false;
          Params.Clear;
          Params.Add('user_name=SYSDBA');
          Params.Add('password=masterkey');
          DatabaseName := fDateiname;
          Connected := true;
        end;
    except
      on E: Exception do
        fFehler := 4;
    end;					

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

      if fFehler = - 1 then
        with Datenmodul.IBDatabase do
          begin
            DatabaseName := fDateiname;
            Params.Clear;
            Params.Add('user "SYSDBA"');
            Params.Add('password "masterkey"');
            Params.Add('page_size 8192');
            try
              CreateDatabase;
            except
              on E: Exception do
                fFehler := 2;
            end;
          end;