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:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:

object DataMod: TDataMod
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 203
  Width = 383
  object DataBase: TpFIBDatabase
    Connected = True
    DBName = 'd:\8.0\db\GFGHDB.GDB'         <-------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    DBParams.Strings = (
      'lc_ctype=ISO8859_1'
      'user_name=SYSDBA'
      'password=masterkey'
      'sql_role_name=')
    DefaultTransaction = Transaction
    SQLDialect = 3
    Timeout = 0
    AliasName = 'GFGHDB'                            <-------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                                                 Wähle ich diesen Alias im OI aus kommt als Name E:\......

    Left = 16
    Top = 16
  end
  object KGdatensatz: TpFIBDataSet
    Database = DataBase
    Transaction = Transaction
    Options = [poTrimCharFields, poRefreshAfterPost, poStartTransaction, poAutoFormatFields, poAllowChangeSqls]
    BufferChunks = 32
    CachedUpdates = False
    UniDirectional = False
    UpdateRecordTypes = [cusUnmodified, cusModified, cusInserted]
    UpdateSQL.Strings = (
      'UPDATE KG8 SET '
      '    NR = ?NR,'
      '    BEZ = ?BEZ'
      ' WHERE     '
      '            ID = ?OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM KG8'
      'WHERE     '
      '            ID = ?OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO KG8('
      '    ID,'
      '    NR,'
      '    BEZ'
      ')'
      'VALUES('
      '    ?ID,'
      '    ?NR,'
      '    ?BEZ'
      ')')
    RefreshSQL.Strings = (
      'select * from KG8'
      ' WHERE '
      '    (    '
      '            KG8.ID = ?OLD_ID'
      '    )')
    SelectSQL.Strings = (
      'select * from KG8')
    Active = True
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    AutoUpdateOptions.GeneratorName = 'GEN_KG8_ID'
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    Left = 296
    Top = 16
    object KGdatensatzID: TFIBIntegerField
      FieldName = 'ID'
    end
    object KGdatensatzNR: TFIBIntegerField
      FieldName = 'NR'
    end
    object KGdatensatzBEZ: TFIBStringField
      FieldName = 'BEZ'
      Size = 25
      EmptyStrToNull = True
    end
  end
  object Transaction: TpFIBTransaction
    Active = True
    DefaultDatabase = DataBase
    TimeoutAction = TARollback
    Left = 96
    Top = 16
  end
  object KGsource: TDataSource
    DataSet = KGdatensatz
    Left = 184
    Top = 16
  end
  object KuSource: TDataSource
    DataSet = KuDatensatz
    Left = 184
    Top = 88
  end
  object KuDatensatz: TpFIBDataSet
    Database = DataBase
    Transaction = Transaction
    Options = [poTrimCharFields, poRefreshAfterPost, poStartTransaction, poAutoFormatFields, poAllowChangeSqls]
    BufferChunks = 32
    CachedUpdates = False
    UniDirectional = False
    UpdateRecordTypes = [cusUnmodified, cusModified, cusInserted]
    UpdateSQL.Strings = (
      'UPDATE KUNDE8 SET '
      '    IDKGH = ?IDKGH,'
      '    IDKGU = ?IDKGU,'
      '    NR = ?NR,'
      '    ANREDE = ?ANREDE,'
      '    NAME = ?NAME,'
      '    STRASSE = ?STRASSE,'
      '    ORT = ?ORT'
      ' WHERE     '
      '            ID = ?OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM KUNDE8'
      'WHERE     '
      '            ID = ?OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO KUNDE8('
      '    ID,'
      '    IDKGH,'
      '    IDKGU,'
      '    NR,'
      '    ANREDE,'
      '    NAME,'
      '    STRASSE,'
      '    ORT'
      ')'
      'VALUES('
      '    ?ID,'
      '    ?IDKGH,'
      '    ?IDKGU,'
      '    ?NR,'
      '    ?ANREDE,'
      '    ?NAME,'
      '    ?STRASSE,'
      '    ?ORT'
      ')')
    RefreshSQL.Strings = (
      'select * from KUNDE8'
      ' WHERE '
      '    (    '
      '            KUNDE8.ID = ?OLD_ID'
      '    )')
    SelectSQL.Strings = (
      'select * from KUNDE8')
    Active = True
    DataSource = KGsource
    DefaultFormats.DateTimeDisplayFormat = 'dd.mm.yyyy'
    AutoUpdateOptions.GeneratorName = 'GEN_KUNDE8_ID'
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    Left = 296
    Top = 88
    object KuDatensatzID: TFIBIntegerField
      FieldName = 'ID'
    end
    object KuDatensatzIDKGH: TFIBIntegerField
      FieldName = 'IDKGH'
    end
    object KuDatensatzIDKGU: TFIBIntegerField
      FieldName = 'IDKGU'
    end
    object KuDatensatzNR: TFIBIntegerField
      FieldName = 'NR'
    end
    object KuDatensatzANREDE: TFIBStringField
      FieldName = 'ANREDE'
      Size = 30
      EmptyStrToNull = True
    end
    object KuDatensatzNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object KuDatensatzSTRASSE: TFIBStringField
      FieldName = 'STRASSE'
      Size = 30
      EmptyStrToNull = True
    end
    object KuDatensatzORT: TFIBStringField
      FieldName = 'ORT'
      Size = 30
      EmptyStrToNull = True
    end
  end
end					

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

   repeat
       with frmOption do begin
           DBS.DatabaseName := edtSFHPath.Text;
           DBS.Params.Values['User_Name']  := edtSFHUser.Text;
           DBS.Params.Values['Password']   := edtSFHPasswd.Text;
           //weitere parameter
           //Lesen und entschlüsseln bzw Schreiben und verschlüsseln
           //der ini findet in TfrmOption statt
       end;
       try
           DBS.Open;
           ibtS.StartTransaction;
           LoopEnd      := True;
       except
           on E: EIBClientError do begin
               frmOption.Caption := E.Message;
             frmOption.ShowModal;
             if  frmOption.MOdalResult = mrCancel then
                 LoopEnd := True;
           end;
       end;
   until LoopEnd = True;