| 70,7 → 70,6 |
|---|
| DisplayText: Boolean); |
| procedure ADOTable1ZUHAUSEGetText(Sender: TField; var Text: string; |
| DisplayText: Boolean); |
| procedure ADOTable1BeforeScroll(DataSet: TDataSet); |
| private |
| function GueltigeZeile: boolean; |
| protected |
| 309,11 → 308,6 |
|---|
| ReorgDataSet; |
| end; |
| |
| procedure TForm1.ADOTable1BeforeScroll(DataSet: TDataSet); |
| begin |
| if (DataSet.State = dsInsert) and (not ADOTable1TAG.IsNull) then Dataset.Post; |
| end; |
| |
| procedure TForm1.ADOTable1BERSTUNDENGetText(Sender: TField; var Text: string; |
| DisplayText: Boolean); |
| begin |
| 382,7 → 376,6 |
|---|
| test.Open; |
| if test.RecordCount = 0 then |
| begin |
| |
| ADOTable1TAG.AsDateTime := Date; |
| ADOTable1KOMMEN.AsString := TimeToStr(Time); |
| ADOTable1FREIER_TAG.AsBoolean := (DayOfWeek(Date) = 1{Sunday}) or |