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; |