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:

rocedure Tfrm_Verwalt.btstandaendernClick(Sender: TObject);
var sqlstatement:String;
  von: TDateTime;
  bis: TDateTime;
  timeVon: TTime;
  timeBis: TTime;
begin
dmMEsse.IBTransaction1.CommitRetaining;

von := trunc(DateTimePicker1.Date) + frac(StrToDateTime(meoeffnung.Text));
bis := trunc(DateTimePicker2.Date) + frac(StrToDateTime(meschliessung.Text));

sqlstatement := 'UPDATE DMESSE SET STANDOEFFNUNG=''' + DateTimeToStr(von)+
                ''', STANDSCHLIESSUNG=''' + DateTimeToStr(bis) +
                '''WHERE ID=1;';
  try
    begin
      with dmMesse.IBSQL1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add(sqlstatement);
          ExecQuery;
          dmMesse.IBTransaction1.CommitRetaining;
        end;
      end
  except
    begin
      dmMEsse.IBTransaction1.RollbackRetaining;
    end
  end;
end;