| 0,0 → 1,225 |
|---|
| object Form1: TForm1 |
| Left = 0 |
| Top = 0 |
| Caption = 'Digitale Zeiterfassung' |
| ClientHeight = 485 |
| ClientWidth = 852 |
| Color = clBtnFace |
| Font.Charset = DEFAULT_CHARSET |
| Font.Color = clWindowText |
| Font.Height = -11 |
| Font.Name = 'Tahoma' |
| Font.Style = [] |
| OldCreateOrder = False |
| Position = poScreenCenter |
| OnClose = FormClose |
| OnShow = FormShow |
| PixelsPerInch = 96 |
| TextHeight = 13 |
| object wwDBGrid1: TwwDBGrid |
| Left = 0 |
| Top = 50 |
| Width = 852 |
| Height = 435 |
| ControlType.Strings = ( |
| 'FREIER_TAG;CheckBox;Wahr;Falsch') |
| Selected.Strings = ( |
| 'WOCHENTAG'#9'2'#9' ' |
| 'TAG'#9'10'#9'TAG' |
| 'FREIER_TAG'#9'6'#9'Frei' |
| 'KOMMEN'#9'8'#9'Kommen' |
| 'PAUSE_START'#9'8'#9'Pause' |
| 'PAUSE_ENDE'#9'8'#9'Ende' |
| 'GEHEN'#9'9'#9'Gehen' |
| 'SONSTIGER_ABZUG'#9'10'#9'Sonst. Abzug' |
| 'ZUHAUSE'#9'11'#9'Arb. zuhause' |
| #220'BERSTUNDEN'#9'15'#9#220'berstunden heute' |
| #220'BERSTUNDEN_SALDO'#9'16'#9#220'berstunden ges.') |
| IniAttributes.Delimiter = ';;' |
| TitleColor = clBtnFace |
| FixedCols = 0 |
| ShowHorzScrollBar = True |
| Align = alClient |
| DataSource = DataSource1 |
| KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert] |
| TabOrder = 0 |
| TitleAlignment = taLeftJustify |
| TitleFont.Charset = DEFAULT_CHARSET |
| TitleFont.Color = clWindowText |
| TitleFont.Height = -11 |
| TitleFont.Name = 'Tahoma' |
| TitleFont.Style = [] |
| TitleLines = 1 |
| TitleButtons = False |
| OnCalcCellColors = wwDBGrid1CalcCellColors |
| end |
| object Panel1: TPanel |
| Left = 0 |
| Top = 0 |
| Width = 852 |
| Height = 50 |
| Align = alTop |
| TabOrder = 1 |
| ExplicitWidth = 827 |
| DesignSize = ( |
| 852 |
| 50) |
| object Label1: TLabel |
| Left = 208 |
| Top = 12 |
| Width = 81 |
| Height = 13 |
| Caption = 'Regelarbeitszeit:' |
| end |
| object Label2: TLabel |
| Left = 208 |
| Top = 27 |
| Width = 12 |
| Height = 13 |
| Caption = '...' |
| end |
| object Button1: TButton |
| Left = 610 |
| Top = 12 |
| Width = 53 |
| Height = 24 |
| Anchors = [akTop, akRight] |
| Caption = 'Reorg' |
| TabOrder = 0 |
| TabStop = False |
| OnClick = Button1Click |
| ExplicitLeft = 585 |
| end |
| object DBNavigator1: TDBNavigator |
| Left = 669 |
| Top = 12 |
| Width = 168 |
| Height = 25 |
| DataSource = DataSource1 |
| VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel] |
| Anchors = [akTop, akRight] |
| TabOrder = 1 |
| ExplicitLeft = 644 |
| end |
| object ComboBox1: TComboBox |
| Left = 24 |
| Top = 16 |
| Width = 169 |
| Height = 21 |
| Style = csDropDownList |
| ItemHeight = 13 |
| TabOrder = 2 |
| OnChange = ComboBox1Change |
| end |
| end |
| object ADOConnection1: TADOConnection |
| LoginPrompt = False |
| Provider = 'SQLOLEDB.1' |
| Left = 280 |
| Top = 16 |
| end |
| object ADOTable1: TADOTable |
| Connection = ADOConnection1 |
| CursorType = ctStatic |
| BeforePost = ADOTable1BeforePost |
| AfterPost = ADOTable1AfterPost |
| AfterDelete = ADOTable1AfterDelete |
| OnNewRecord = ADOTable1NewRecord |
| TableName = 'TAGE' |
| Left = 312 |
| Top = 16 |
| object ADOTable1WOCHENTAG: TStringField |
| DisplayLabel = ' ' |
| DisplayWidth = 2 |
| FieldKind = fkCalculated |
| FieldName = 'WOCHENTAG' |
| ReadOnly = True |
| OnGetText = ADOTable1WOCHENTAGGetText |
| Size = 2 |
| Calculated = True |
| end |
| object ADOTable1TAG: TWideStringField |
| DisplayWidth = 10 |
| FieldName = 'TAG' |
| OnChange = ADOTable1TAGChange |
| OnGetText = ADOTable1TAGGetText |
| OnSetText = ADOTable1TAGSetText |
| Size = 10 |
| end |
| object ADOTable1FREIER_TAG: TBooleanField |
| DisplayLabel = 'Frei' |
| DisplayWidth = 6 |
| FieldName = 'FREIER_TAG' |
| end |
| object ADOTable1KOMMEN: TWideStringField |
| DisplayLabel = 'Kommen' |
| DisplayWidth = 8 |
| FieldName = 'KOMMEN' |
| OnGetText = ADOTable1KOMMENGetText |
| OnSetText = ADOTable1KOMMENSetText |
| Size = 8 |
| end |
| object ADOTable1PAUSE_START: TWideStringField |
| DisplayLabel = 'Pause' |
| DisplayWidth = 8 |
| FieldName = 'PAUSE_START' |
| OnGetText = ADOTable1PAUSE_STARTGetText |
| OnSetText = ADOTable1PAUSE_STARTSetText |
| Size = 8 |
| end |
| object ADOTable1PAUSE_ENDE: TWideStringField |
| DisplayLabel = 'Ende' |
| DisplayWidth = 8 |
| FieldName = 'PAUSE_ENDE' |
| OnGetText = ADOTable1PAUSE_ENDEGetText |
| OnSetText = ADOTable1PAUSE_ENDESetText |
| Size = 8 |
| end |
| object ADOTable1GEHEN: TWideStringField |
| DisplayLabel = 'Gehen' |
| DisplayWidth = 9 |
| FieldName = 'GEHEN' |
| OnGetText = ADOTable1GEHENGetText |
| OnSetText = ADOTable1GEHENSetText |
| Size = 8 |
| end |
| object ADOTable1SONSTIGER_ABZUG: TWideStringField |
| DisplayLabel = 'Sonst. Abzug' |
| DisplayWidth = 10 |
| FieldName = 'SONSTIGER_ABZUG' |
| OnGetText = ADOTable1SONSTIGER_ABZUGGetText |
| OnSetText = ADOTable1SONSTIGER_ABZUGSetText |
| Size = 8 |
| end |
| object ADOTable1ZUHAUSE: TWideStringField |
| DisplayLabel = 'Arb. zuhause' |
| DisplayWidth = 11 |
| FieldName = 'ZUHAUSE' |
| OnGetText = ADOTable1ZUHAUSEGetText |
| OnSetText = ADOTable1ZUHAUSESetText |
| Size = 8 |
| end |
| object ADOTable1BERSTUNDEN: TIntegerField |
| DisplayLabel = #220'berstunden heute' |
| DisplayWidth = 15 |
| FieldName = #220'BERSTUNDEN' |
| OnGetText = ADOTable1BERSTUNDENGetText |
| end |
| object ADOTable1BERSTUNDEN_SALDO: TIntegerField |
| DisplayLabel = #220'berstunden ges.' |
| DisplayWidth = 16 |
| FieldName = #220'BERSTUNDEN_SALDO' |
| OnGetText = ADOTable1BERSTUNDEN_SALDOGetText |
| end |
| object ADOTable1USERNAME: TStringField |
| FieldName = 'USERNAME' |
| Visible = False |
| Size = 100 |
| end |
| end |
| object DataSource1: TDataSource |
| DataSet = ADOTable1 |
| Left = 344 |
| Top = 16 |
| end |
| end |