Subversion Repositories delphiutils

Rev

Rev 80 | Rev 83 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 80 Rev 81
Line 68... Line 68...
68
      DisplayText: Boolean);
68
      DisplayText: Boolean);
69
    procedure ADOTable1SONSTIGER_ABZUGGetText(Sender: TField; var Text: string;
69
    procedure ADOTable1SONSTIGER_ABZUGGetText(Sender: TField; var Text: string;
70
      DisplayText: Boolean);
70
      DisplayText: Boolean);
71
    procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
71
    procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string;
72
      DisplayText: Boolean);
72
      DisplayText: Boolean);
-
 
73
    procedure ADOTable1BeforeScroll(DataSet: TDataSet);
73
  private
74
  private
74
    function GueltigeZeile: boolean;
75
    function GueltigeZeile: boolean;
75
  protected
76
  protected
76
    procedure ReorgDataSet;
77
    procedure ReorgDataSet;
77
    procedure ReorgAll;
78
    procedure ReorgAll;
Line 306... Line 307...
306
  end;
307
  end;
307
 
308
 
308
  ReorgDataSet;
309
  ReorgDataSet;
309
end;
310
end;
310
 
311
 
-
 
312
procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet);
-
 
313
begin
-
 
314
  if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post;
-
 
315
end;
-
 
316
 
311
procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
317
procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string;
312
  DisplayText: Boolean);
318
  DisplayText: Boolean);
313
begin
319
begin
314
  Text := MinutenZuHF(ADOTable1BERSTUNDEN);
320
  Text := MinutenZuHF(ADOTable1BERSTUNDEN);
315
end;
321
end;
Line 374... Line 380...
374
    test.Close;
380
    test.Close;
375
    test.SQL.Text := 'select * from TAGE where TAG = ''' + DateToStr(Date) + ''' and USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
381
    test.SQL.Text := 'select * from TAGE where TAG = ''' + DateToStr(Date) + ''' and USERNAME = ''' + SQL_Escape(ComboBox1.Text) + '''';
376
    test.Open;
382
    test.Open;
377
    if test.RecordCount = 0 then
383
    if test.RecordCount = 0 then
378
    begin
384
    begin
-
 
385
 
379
      ADOTable1TAG.AsDateTime := Date;
386
      ADOTable1TAG.AsDateTime := Date;
380
      ADOTable1KOMMEN.AsString := TimeToStr(Time);
387
      ADOTable1KOMMEN.AsString := TimeToStr(Time);
381
      ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or
388
      ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or
382
                                       (DayOfWeek(Date) = 7{Saturday});
389
                                       (DayOfWeek(Date) = 7{Saturday});
383
    end;
390
    end;