Subversion Repositories delphiutils

Rev

Rev 79 | 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
81 daniel-mar 125 
    BeforeScroll = ADOTable1BeforeScroll
78 daniel-mar 126 
    OnNewRecord = ADOTable1NewRecord
127 
    TableName = 'TAGE'
128 
    Left = 312
129 
    Top = 16
130 
    object ADOTable1WOCHENTAG: TStringField
131 
      DisplayLabel = ' '
132 
      DisplayWidth = 2
133 
      FieldKind = fkCalculated
134 
      FieldName = 'WOCHENTAG'
135 
      ReadOnly = True
136 
      OnGetText = ADOTable1WOCHENTAGGetText
137 
      Size = 2
138 
      Calculated = True
139 
    end
140 
    object ADOTable1TAG: TWideStringField
141 
      DisplayWidth = 10
142 
      FieldName = 'TAG'
143 
      OnChange = ADOTable1TAGChange
144 
      OnGetText = ADOTable1TAGGetText
145 
      OnSetText = ADOTable1TAGSetText
146 
      Size = 10
147 
    end
148 
    object ADOTable1FREIER_TAG: TBooleanField
149 
      DisplayLabel = 'Frei'
150 
      DisplayWidth = 6
151 
      FieldName = 'FREIER_TAG'
152 
    end
153 
    object ADOTable1KOMMEN: TWideStringField
154 
      DisplayLabel = 'Kommen'
155 
      DisplayWidth = 8
156 
      FieldName = 'KOMMEN'
157 
      OnGetText = ADOTable1KOMMENGetText
158 
      OnSetText = ADOTable1KOMMENSetText
159 
      Size = 8
160 
    end
161 
    object ADOTable1PAUSE_START: TWideStringField
162 
      DisplayLabel = 'Pause'
163 
      DisplayWidth = 8
164 
      FieldName = 'PAUSE_START'
165 
      OnGetText = ADOTable1PAUSE_STARTGetText
166 
      OnSetText = ADOTable1PAUSE_STARTSetText
167 
      Size = 8
168 
    end
169 
    object ADOTable1PAUSE_ENDE: TWideStringField
170 
      DisplayLabel = 'Ende'
171 
      DisplayWidth = 8
172 
      FieldName = 'PAUSE_ENDE'
173 
      OnGetText = ADOTable1PAUSE_ENDEGetText
174 
      OnSetText = ADOTable1PAUSE_ENDESetText
175 
      Size = 8
176 
    end
177 
    object ADOTable1GEHEN: TWideStringField
178 
      DisplayLabel = 'Gehen'
179 
      DisplayWidth = 9
180 
      FieldName = 'GEHEN'
181 
      OnGetText = ADOTable1GEHENGetText
182 
      OnSetText = ADOTable1GEHENSetText
183 
      Size = 8
184 
    end
185 
    object ADOTable1SONSTIGER_ABZUG: TWideStringField
186 
      DisplayLabel = 'Sonst. Abzug'
187 
      DisplayWidth = 10
188 
      FieldName = 'SONSTIGER_ABZUG'
189 
      OnGetText = ADOTable1SONSTIGER_ABZUGGetText
190 
      OnSetText = ADOTable1SONSTIGER_ABZUGSetText
191 
      Size = 8
192 
    end
193 
    object ADOTable1ZUHAUSE: TWideStringField
194 
      DisplayLabel = 'Arb. zuhause'
195 
      DisplayWidth = 11
196 
      FieldName = 'ZUHAUSE'
197 
      OnGetText = ADOTable1ZUHAUSEGetText
198 
      OnSetText = ADOTable1ZUHAUSESetText
199 
      Size = 8
200 
    end
201 
    object ADOTable1BERSTUNDEN: TIntegerField
202 
      DisplayLabel = #220'berstunden heute'
203 
      DisplayWidth = 15
204 
      FieldName = #220'BERSTUNDEN'
205 
      OnGetText = ADOTable1BERSTUNDENGetText
206 
    end
207 
    object ADOTable1BERSTUNDEN_SALDO: TIntegerField
208 
      DisplayLabel = #220'berstunden ges.'
209 
      DisplayWidth = 16
210 
      FieldName = #220'BERSTUNDEN_SALDO'
211 
      OnGetText = ADOTable1BERSTUNDEN_SALDOGetText
212 
    end
79 daniel-mar 213 
    object ADOTable1BEMERKUNG: TStringField
214 
      DisplayLabel = 'Bemerkung'
215 
      DisplayWidth = 30
216 
      FieldName = 'BEMERKUNG'
217 
      Size = 100
218 
    end
78 daniel-mar 219 
    object ADOTable1USERNAME: TStringField
220 
      FieldName = 'USERNAME'
221 
      Visible = False
222 
      Size = 100
223 
    end
224 
  end
225 
  object DataSource1: TDataSource
226 
    DataSet = ADOTable1
227 
    Left = 344
228 
    Top = 16
229 
  end
230 
end