Subversion Repositories delphiutils

Rev

Rev 78 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
78 daniel-mar 1
object Form1: TForm1
2
  Left = 0
3
  Top = 0
4
  Caption = 'Digitale Zeiterfassung'
5
  ClientHeight = 485
79 daniel-mar 6
  ClientWidth = 908
78 daniel-mar 7
  Color = clBtnFace
8
  Font.Charset = DEFAULT_CHARSET
9
  Font.Color = clWindowText
10
  Font.Height = -11
11
  Font.Name = 'Tahoma'
12
  Font.Style = []
13
  OldCreateOrder = False
14
  Position = poScreenCenter
15
  OnClose = FormClose
16
  OnShow = FormShow
17
  PixelsPerInch = 96
18
  TextHeight = 13
19
  object wwDBGrid1: TwwDBGrid
20
    Left = 0
21
    Top = 50
79 daniel-mar 22
    Width = 908
78 daniel-mar 23
    Height = 435
24
    ControlType.Strings = (
25
      'FREIER_TAG;CheckBox;Wahr;Falsch')
26
    Selected.Strings = (
79 daniel-mar 27
      'WOCHENTAG'#9'2'#9' '#9'T'#9
28
      'TAG'#9'10'#9'TAG'#9#9
29
      'FREIER_TAG'#9'6'#9'Frei'#9#9
30
      'KOMMEN'#9'8'#9'Kommen'#9#9
31
      'PAUSE_START'#9'8'#9'Pause'#9#9
32
      'PAUSE_ENDE'#9'8'#9'Ende'#9#9
33
      'GEHEN'#9'9'#9'Gehen'#9#9
34
      'SONSTIGER_ABZUG'#9'10'#9'Sonst. Abzug'#9#9
35
      'ZUHAUSE'#9'11'#9'Arb. zuhause'#9#9
36
      #220'BERSTUNDEN'#9'15'#9#220'berstunden heute'#9'T'#9
37
      #220'BERSTUNDEN_SALDO'#9'16'#9#220'berstunden ges.'#9'T'#9
38
      'BEMERKUNG'#9'30'#9'Bemerkung'#9'F')
78 daniel-mar 39
    IniAttributes.Delimiter = ';;'
40
    TitleColor = clBtnFace
41
    FixedCols = 0
42
    ShowHorzScrollBar = True
43
    Align = alClient
44
    DataSource = DataSource1
45
    KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
46
    TabOrder = 0
47
    TitleAlignment = taLeftJustify
48
    TitleFont.Charset = DEFAULT_CHARSET
49
    TitleFont.Color = clWindowText
50
    TitleFont.Height = -11
51
    TitleFont.Name = 'Tahoma'
52
    TitleFont.Style = []
53
    TitleLines = 1
54
    TitleButtons = False
55
    OnCalcCellColors = wwDBGrid1CalcCellColors
56
  end
57
  object Panel1: TPanel
58
    Left = 0
59
    Top = 0
79 daniel-mar 60
    Width = 908
78 daniel-mar 61
    Height = 50
62
    Align = alTop
63
    TabOrder = 1
64
    DesignSize = (
79 daniel-mar 65
      908
78 daniel-mar 66
      50)
67
    object Label1: TLabel
68
      Left = 208
79 daniel-mar 69
      Top = 10
78 daniel-mar 70
      Width = 81
71
      Height = 13
72
      Caption = 'Regelarbeitszeit:'
73
    end
74
    object Label2: TLabel
75
      Left = 208
79 daniel-mar 76
      Top = 25
78 daniel-mar 77
      Width = 12
78
      Height = 13
79
      Caption = '...'
80
    end
81
    object Button1: TButton
79 daniel-mar 82
      Left = 666
78 daniel-mar 83
      Top = 12
84
      Width = 53
85
      Height = 24
86
      Anchors = [akTop, akRight]
87
      Caption = 'Reorg'
88
      TabOrder = 0
89
      TabStop = False
90
      OnClick = Button1Click
91
    end
92
    object DBNavigator1: TDBNavigator
79 daniel-mar 93
      Left = 725
78 daniel-mar 94
      Top = 12
95
      Width = 168
96
      Height = 25
97
      DataSource = DataSource1
98
      VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
99
      Anchors = [akTop, akRight]
100
      TabOrder = 1
101
    end
102
    object ComboBox1: TComboBox
79 daniel-mar 103
      Left = 16
104
      Top = 12
105
      Width = 177
78 daniel-mar 106
      Height = 21
107
      Style = csDropDownList
108
      ItemHeight = 13
109
      TabOrder = 2
110
      OnChange = ComboBox1Change
111
    end
112
  end
113
  object ADOConnection1: TADOConnection
114
    LoginPrompt = False
115
    Provider = 'SQLOLEDB.1'
116
    Left = 280
117
    Top = 16
118
  end
119
  object ADOTable1: TADOTable
120
    Connection = ADOConnection1
121
    CursorType = ctStatic
122
    BeforePost = ADOTable1BeforePost
123
    AfterPost = ADOTable1AfterPost
124
    AfterDelete = ADOTable1AfterDelete
125
    OnNewRecord = ADOTable1NewRecord
126
    TableName = 'TAGE'
127
    Left = 312
128
    Top = 16
129
    object ADOTable1WOCHENTAG: TStringField
130
      DisplayLabel = ' '
131
      DisplayWidth = 2
132
      FieldKind = fkCalculated
133
      FieldName = 'WOCHENTAG'
134
      ReadOnly = True
135
      OnGetText = ADOTable1WOCHENTAGGetText
136
      Size = 2
137
      Calculated = True
138
    end
139
    object ADOTable1TAG: TWideStringField
140
      DisplayWidth = 10
141
      FieldName = 'TAG'
142
      OnChange = ADOTable1TAGChange
143
      OnGetText = ADOTable1TAGGetText
144
      OnSetText = ADOTable1TAGSetText
145
      Size = 10
146
    end
147
    object ADOTable1FREIER_TAG: TBooleanField
148
      DisplayLabel = 'Frei'
149
      DisplayWidth = 6
150
      FieldName = 'FREIER_TAG'
151
    end
152
    object ADOTable1KOMMEN: TWideStringField
153
      DisplayLabel = 'Kommen'
154
      DisplayWidth = 8
155
      FieldName = 'KOMMEN'
156
      OnGetText = ADOTable1KOMMENGetText
157
      OnSetText = ADOTable1KOMMENSetText
158
      Size = 8
159
    end
160
    object ADOTable1PAUSE_START: TWideStringField
161
      DisplayLabel = 'Pause'
162
      DisplayWidth = 8
163
      FieldName = 'PAUSE_START'
164
      OnGetText = ADOTable1PAUSE_STARTGetText
165
      OnSetText = ADOTable1PAUSE_STARTSetText
166
      Size = 8
167
    end
168
    object ADOTable1PAUSE_ENDE: TWideStringField
169
      DisplayLabel = 'Ende'
170
      DisplayWidth = 8
171
      FieldName = 'PAUSE_ENDE'
172
      OnGetText = ADOTable1PAUSE_ENDEGetText
173
      OnSetText = ADOTable1PAUSE_ENDESetText
174
      Size = 8
175
    end
176
    object ADOTable1GEHEN: TWideStringField
177
      DisplayLabel = 'Gehen'
178
      DisplayWidth = 9
179
      FieldName = 'GEHEN'
180
      OnGetText = ADOTable1GEHENGetText
181
      OnSetText = ADOTable1GEHENSetText
182
      Size = 8
183
    end
184
    object ADOTable1SONSTIGER_ABZUG: TWideStringField
185
      DisplayLabel = 'Sonst. Abzug'
186
      DisplayWidth = 10
187
      FieldName = 'SONSTIGER_ABZUG'
188
      OnGetText = ADOTable1SONSTIGER_ABZUGGetText
189
      OnSetText = ADOTable1SONSTIGER_ABZUGSetText
190
      Size = 8
191
    end
192
    object ADOTable1ZUHAUSE: TWideStringField
193
      DisplayLabel = 'Arb. zuhause'
194
      DisplayWidth = 11
195
      FieldName = 'ZUHAUSE'
196
      OnGetText = ADOTable1ZUHAUSEGetText
197
      OnSetText = ADOTable1ZUHAUSESetText
198
      Size = 8
199
    end
200
    object ADOTable1BERSTUNDEN: TIntegerField
201
      DisplayLabel = #220'berstunden heute'
202
      DisplayWidth = 15
203
      FieldName = #220'BERSTUNDEN'
204
      OnGetText = ADOTable1BERSTUNDENGetText
205
    end
206
    object ADOTable1BERSTUNDEN_SALDO: TIntegerField
207
      DisplayLabel = #220'berstunden ges.'
208
      DisplayWidth = 16
209
      FieldName = #220'BERSTUNDEN_SALDO'
210
      OnGetText = ADOTable1BERSTUNDEN_SALDOGetText
211
    end
79 daniel-mar 212
    object ADOTable1BEMERKUNG: TStringField
213
      DisplayLabel = 'Bemerkung'
214
      DisplayWidth = 30
215
      FieldName = 'BEMERKUNG'
216
      Size = 100
217
    end
78 daniel-mar 218
    object ADOTable1USERNAME: TStringField
219
      FieldName = 'USERNAME'
220
      Visible = False
221
      Size = 100
222
    end
223
  end
224
  object DataSource1: TDataSource
225
    DataSet = ADOTable1
226
    Left = 344
227
    Top = 16
228
  end
229
end