public
{ Public-Deklarationen }
procedure SQLUpdate;
procedure sSql(
Sql :
String);
end;
var
DM: TDM;
implementation
uses Unit2, Unit1, Unit7, Unit6, Unit4, Unit3;
{$R *.DFM}
procedure TDM.SQLUpdate;
var ID :
Array[1..9]
of Integer;
begin
ID[1] := IBQuery1ID.AsInteger;
ID[2] := IBTable1ID.AsInteger;
ID[3] := IBQuery2ID.AsInteger;
ID[4] := IBTable2ID.AsInteger;
ID[5] := IBQuery3ID.AsInteger;
ID[6] := IBTable3ID.AsInteger;
ID[7] := IBTable4ID.AsInteger;
ID[8] := IBTable5ID.AsInteger;
ID[9] := IBTable6ID.AsInteger;
if IBTransaction1.InTransaction
then
begin
IBTransaction1.Commit;
IBTransaction1.StartTransaction;
IBQuery1.Open;
IBTable1.Open;
IBQuery2.Open;
IBTable2.Open;
IBQuery3.Open;
IBTable3.Open;
IBTable4.Open;
IBTable5.Open;
IBTable6.Open;
IBQuery4.Open;
end;
IBQuery1.Locate('
ID', ID[1], [loCaseInsensitive]);
IBTable1.Locate('
ID', ID[2], [loCaseInsensitive]);
IBQuery2.Locate('
ID', ID[3], [loCaseInsensitive]);
IBTable2.Locate('
ID', ID[4], [loCaseInsensitive]);
IBQuery3.Locate('
ID', ID[5], [loCaseInsensitive]);
IBTable3.Locate('
ID', ID[6], [loCaseInsensitive]);
IBTable4.Locate('
ID', ID[7], [loCaseInsensitive]);
IBTable5.Locate('
ID', ID[8], [loCaseInsensitive]);
IBTable6.Locate('
ID', ID[9], [loCaseInsensitive]);
Form2.Anzeige;
Form3.Anzeige;
Form4.Anzeige;
Form6.Anzeige;
Form7.Anzeige;
end;
procedure TDM.sSql(
Sql :
String);
begin
IBSQL1.SQL.Clear;
IBSQL1.SQL.Text :=
Sql;
IBSQL1.ExecQuery;
end;