Subversion Repositories delphiutils

Rev

Rev 78 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 78 Rev 79
Line 1... Line 1...
1 
object Form1: TForm1
 1 
object Form1: TForm1
2 
  Left = 0
 2 
  Left = 0
3 
  Top = 0
 3 
  Top = 0
4 
  Caption = 'Digitale Zeiterfassung'
 4 
  Caption = 'Digitale Zeiterfassung'
5 
  ClientHeight = 485
 5 
  ClientHeight = 485
6 
  ClientWidth = 852
 6 
  ClientWidth = 908
7 
  Color = clBtnFace
 7 
  Color = clBtnFace
8 
  Font.Charset = DEFAULT_CHARSET
 8 
  Font.Charset = DEFAULT_CHARSET
9 
  Font.Color = clWindowText
 9 
  Font.Color = clWindowText
10 
  Font.Height = -11
 10 
  Font.Height = -11
11 
  Font.Name = 'Tahoma'
 11 
  Font.Name = 'Tahoma'
Line 17... Line 17...
17 
  PixelsPerInch = 96
 17 
  PixelsPerInch = 96
18 
  TextHeight = 13
 18 
  TextHeight = 13
19 
  object wwDBGrid1: TwwDBGrid
 19 
  object wwDBGrid1: TwwDBGrid
20 
    Left = 0
 20 
    Left = 0
21 
    Top = 50
 21 
    Top = 50
22 
    Width = 852
 22 
    Width = 908
23 
    Height = 435
 23 
    Height = 435
24 
    ControlType.Strings = (
 24 
    ControlType.Strings = (
25 
      'FREIER_TAG;CheckBox;Wahr;Falsch')
 25 
      'FREIER_TAG;CheckBox;Wahr;Falsch')
26 
    Selected.Strings = (
 26 
    Selected.Strings = (
27 
      'WOCHENTAG'#9'2'#9' '
 27 
      'WOCHENTAG'#9'2'#9' '#9'T'#9
28 
      'TAG'#9'10'#9'TAG'
 28 
      'TAG'#9'10'#9'TAG'#9#9
29 
      'FREIER_TAG'#9'6'#9'Frei'
 29 
      'FREIER_TAG'#9'6'#9'Frei'#9#9
30 
      'KOMMEN'#9'8'#9'Kommen'
 30 
      'KOMMEN'#9'8'#9'Kommen'#9#9
31 
      'PAUSE_START'#9'8'#9'Pause'
 31 
      'PAUSE_START'#9'8'#9'Pause'#9#9
32 
      'PAUSE_ENDE'#9'8'#9'Ende'
 32 
      'PAUSE_ENDE'#9'8'#9'Ende'#9#9
33 
      'GEHEN'#9'9'#9'Gehen'
 33 
      'GEHEN'#9'9'#9'Gehen'#9#9
34 
      'SONSTIGER_ABZUG'#9'10'#9'Sonst. Abzug'
 34 
      'SONSTIGER_ABZUG'#9'10'#9'Sonst. Abzug'#9#9
35 
      'ZUHAUSE'#9'11'#9'Arb. zuhause'
 35 
      'ZUHAUSE'#9'11'#9'Arb. zuhause'#9#9
36 
      #220'BERSTUNDEN'#9'15'#9#220'berstunden heute'
 36 
      #220'BERSTUNDEN'#9'15'#9#220'berstunden heute'#9'T'#9
37 
      #220'BERSTUNDEN_SALDO'#9'16'#9#220'berstunden ges.')
 37 
      #220'BERSTUNDEN_SALDO'#9'16'#9#220'berstunden ges.'#9'T'#9
- 
 
 38 
      'BEMERKUNG'#9'30'#9'Bemerkung'#9'F')
38 
    IniAttributes.Delimiter = ';;'
 39 
    IniAttributes.Delimiter = ';;'
39 
    TitleColor = clBtnFace
 40 
    TitleColor = clBtnFace
40 
    FixedCols = 0
 41 
    FixedCols = 0
41 
    ShowHorzScrollBar = True
 42 
    ShowHorzScrollBar = True
42 
    Align = alClient
 43 
    Align = alClient
Line 54... Line 55...
54 
    OnCalcCellColors = wwDBGrid1CalcCellColors
 55 
    OnCalcCellColors = wwDBGrid1CalcCellColors
55 
  end
 56 
  end
56 
  object Panel1: TPanel
 57 
  object Panel1: TPanel
57 
    Left = 0
 58 
    Left = 0
58 
    Top = 0
 59 
    Top = 0
59 
    Width = 852
 60 
    Width = 908
60 
    Height = 50
 61 
    Height = 50
61 
    Align = alTop
 62 
    Align = alTop
62 
    TabOrder = 1
 63 
    TabOrder = 1
63 
    ExplicitWidth = 827
 - 
 
64 
    DesignSize = (
 64 
    DesignSize = (
65 
      852
 65 
      908
66 
      50)
 66 
      50)
67 
    object Label1: TLabel
 67 
    object Label1: TLabel
68 
      Left = 208
 68 
      Left = 208
69 
      Top = 12
 69 
      Top = 10
70 
      Width = 81
 70 
      Width = 81
71 
      Height = 13
 71 
      Height = 13
72 
      Caption = 'Regelarbeitszeit:'
 72 
      Caption = 'Regelarbeitszeit:'
73 
    end
 73 
    end
74 
    object Label2: TLabel
 74 
    object Label2: TLabel
75 
      Left = 208
 75 
      Left = 208
76 
      Top = 27
 76 
      Top = 25
77 
      Width = 12
 77 
      Width = 12
78 
      Height = 13
 78 
      Height = 13
79 
      Caption = '...'
 79 
      Caption = '...'
80 
    end
 80 
    end
81 
    object Button1: TButton
 81 
    object Button1: TButton
82 
      Left = 610
 82 
      Left = 666
83 
      Top = 12
 83 
      Top = 12
84 
      Width = 53
 84 
      Width = 53
85 
      Height = 24
 85 
      Height = 24
86 
      Anchors = [akTop, akRight]
 86 
      Anchors = [akTop, akRight]
87 
      Caption = 'Reorg'
 87 
      Caption = 'Reorg'
88 
      TabOrder = 0
 88 
      TabOrder = 0
89 
      TabStop = False
 89 
      TabStop = False
90 
      OnClick = Button1Click
 90 
      OnClick = Button1Click
91 
      ExplicitLeft = 585
 - 
 
92 
    end
 91 
    end
93 
    object DBNavigator1: TDBNavigator
 92 
    object DBNavigator1: TDBNavigator
94 
      Left = 669
 93 
      Left = 725
95 
      Top = 12
 94 
      Top = 12
96 
      Width = 168
 95 
      Width = 168
97 
      Height = 25
 96 
      Height = 25
98 
      DataSource = DataSource1
 97 
      DataSource = DataSource1
99 
      VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
 98 
      VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
100 
      Anchors = [akTop, akRight]
 99 
      Anchors = [akTop, akRight]
101 
      TabOrder = 1
 100 
      TabOrder = 1
102 
      ExplicitLeft = 644
 - 
 
103 
    end
 101 
    end
104 
    object ComboBox1: TComboBox
 102 
    object ComboBox1: TComboBox
105 
      Left = 24
 103 
      Left = 16
106 
      Top = 16
 104 
      Top = 12
107 
      Width = 169
 105 
      Width = 177
108 
      Height = 21
 106 
      Height = 21
109 
      Style = csDropDownList
 107 
      Style = csDropDownList
110 
      ItemHeight = 13
 108 
      ItemHeight = 13
111 
      TabOrder = 2
 109 
      TabOrder = 2
112 
      OnChange = ComboBox1Change
 110 
      OnChange = ComboBox1Change
Line 209... Line 207...
209 
      DisplayLabel = #220'berstunden ges.'
 207 
      DisplayLabel = #220'berstunden ges.'
210 
      DisplayWidth = 16
 208 
      DisplayWidth = 16
211 
      FieldName = #220'BERSTUNDEN_SALDO'
 209 
      FieldName = #220'BERSTUNDEN_SALDO'
212 
      OnGetText = ADOTable1BERSTUNDEN_SALDOGetText
 210 
      OnGetText = ADOTable1BERSTUNDEN_SALDOGetText
213 
    end
 211 
    end
- 
 
 212 
    object ADOTable1BEMERKUNG: TStringField
- 
 
 213 
      DisplayLabel = 'Bemerkung'
- 
 
 214 
      DisplayWidth = 30
- 
 
 215 
      FieldName = 'BEMERKUNG'
- 
 
 216 
      Size = 100
- 
 
 217 
    end
214 
    object ADOTable1USERNAME: TStringField
 218 
    object ADOTable1USERNAME: TStringField
215 
      FieldName = 'USERNAME'
 219 
      FieldName = 'USERNAME'
216 
      Visible = False
 220 
      Visible = False
217 
      Size = 100
 221 
      Size = 100
218 
    end
 222 
    end