WebSVN – delphiutils – Diff – /trunk/Zeiterfassung/ZeiterfassungMain.dfm


object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Digitale Zeiterfassung'
  ClientHeight = 485
  ClientWidth = 908
  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 = 908
    Height = 435
    ControlType.Strings = (
      'FREIER_TAG;CheckBox;Wahr;Falsch')
    Selected.Strings = (
      'WOCHENTAG'#9'2'#9' '#9'T'#9
      'TAG'#9'10'#9'TAG'#9#9
      'FREIER_TAG'#9'6'#9'Frei'#9#9
      'KOMMEN'#9'8'#9'Kommen'#9#9
      'PAUSE_START'#9'8'#9'Pause'#9#9
      'PAUSE_ENDE'#9'8'#9'Ende'#9#9
      'GEHEN'#9'9'#9'Gehen'#9#9
      'SONSTIGER_ABZUG'#9'10'#9'Sonst. Abzug'#9#9
      'ZUHAUSE'#9'11'#9'Arb. zuhause'#9#9
      #220'BERSTUNDEN'#9'15'#9#220'berstunden heute'#9'T'#9
      #220'BERSTUNDEN_SALDO'#9'16'#9#220'berstunden ges.'#9'T'#9
      'BEMERKUNG'#9'30'#9'Bemerkung'#9'F')
    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 = 908
    Height = 50
    Align = alTop
    TabOrder = 1
 
    DesignSize = (
      908
      50)
    object Label1: TLabel
      Left = 208
      Top = 10
      Width = 81
      Height = 13
      Caption = 'Regelarbeitszeit:'
    end
    object Label2: TLabel
      Left = 208
      Top = 25
      Width = 12
      Height = 13
      Caption = '...'
    end
    object Button1: TButton
      Left = 666
      Top = 12
      Width = 53
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'Reorg'
      TabOrder = 0
      TabStop = False
      OnClick = Button1Click
 
    end
    object DBNavigator1: TDBNavigator
      Left = 725
      Top = 12
      Width = 168
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
      Anchors = [akTop, akRight]
      TabOrder = 1
 
    end
    object ComboBox1: TComboBox
      Left = 16
      Top = 12
      Width = 177
      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 ADOTable1BEMERKUNG: TStringField
      DisplayLabel = 'Bemerkung'
      DisplayWidth = 30
      FieldName = 'BEMERKUNG'
      Size = 100
    end
    object ADOTable1USERNAME: TStringField
      FieldName = 'USERNAME'
      Visible = False
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 344
    Top = 16
  end
end

Rev 78	Rev 79
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'
12	Font.Style = []	12	Font.Style = []
13	OldCreateOrder = False	13	OldCreateOrder = False
14	Position = poScreenCenter	14	Position = poScreenCenter
15	OnClose = FormClose	15	OnClose = FormClose
16	OnShow = FormShow	16	OnShow = FormShow
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
43	DataSource = DataSource1	44	DataSource = DataSource1
44	KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]	45	KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
45	TabOrder = 0	46	TabOrder = 0
46	TitleAlignment = taLeftJustify	47	TitleAlignment = taLeftJustify
47	TitleFont.Charset = DEFAULT_CHARSET	48	TitleFont.Charset = DEFAULT_CHARSET
48	TitleFont.Color = clWindowText	49	TitleFont.Color = clWindowText
49	TitleFont.Height = -11	50	TitleFont.Height = -11
50	TitleFont.Name = 'Tahoma'	51	TitleFont.Name = 'Tahoma'
51	TitleFont.Style = []	52	TitleFont.Style = []
52	TitleLines = 1	53	TitleLines = 1
53	TitleButtons = False	54	TitleButtons = False
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
113	end	111	end
114	end	112	end
115	object ADOConnection1: TADOConnection	113	object ADOConnection1: TADOConnection
116	LoginPrompt = False	114	LoginPrompt = False
117	Provider = 'SQLOLEDB.1'	115	Provider = 'SQLOLEDB.1'
118	Left = 280	116	Left = 280
119	Top = 16	117	Top = 16
120	end	118	end
121	object ADOTable1: TADOTable	119	object ADOTable1: TADOTable
122	Connection = ADOConnection1	120	Connection = ADOConnection1
123	CursorType = ctStatic	121	CursorType = ctStatic
124	BeforePost = ADOTable1BeforePost	122	BeforePost = ADOTable1BeforePost
125	AfterPost = ADOTable1AfterPost	123	AfterPost = ADOTable1AfterPost
126	AfterDelete = ADOTable1AfterDelete	124	AfterDelete = ADOTable1AfterDelete
127	OnNewRecord = ADOTable1NewRecord	125	OnNewRecord = ADOTable1NewRecord
128	TableName = 'TAGE'	126	TableName = 'TAGE'
129	Left = 312	127	Left = 312
130	Top = 16	128	Top = 16
131	object ADOTable1WOCHENTAG: TStringField	129	object ADOTable1WOCHENTAG: TStringField
132	DisplayLabel = ' '	130	DisplayLabel = ' '
133	DisplayWidth = 2	131	DisplayWidth = 2
134	FieldKind = fkCalculated	132	FieldKind = fkCalculated
135	FieldName = 'WOCHENTAG'	133	FieldName = 'WOCHENTAG'
136	ReadOnly = True	134	ReadOnly = True
137	OnGetText = ADOTable1WOCHENTAGGetText	135	OnGetText = ADOTable1WOCHENTAGGetText
138	Size = 2	136	Size = 2
139	Calculated = True	137	Calculated = True
140	end	138	end
141	object ADOTable1TAG: TWideStringField	139	object ADOTable1TAG: TWideStringField
142	DisplayWidth = 10	140	DisplayWidth = 10
143	FieldName = 'TAG'	141	FieldName = 'TAG'
144	OnChange = ADOTable1TAGChange	142	OnChange = ADOTable1TAGChange
145	OnGetText = ADOTable1TAGGetText	143	OnGetText = ADOTable1TAGGetText
146	OnSetText = ADOTable1TAGSetText	144	OnSetText = ADOTable1TAGSetText
147	Size = 10	145	Size = 10
148	end	146	end
149	object ADOTable1FREIER_TAG: TBooleanField	147	object ADOTable1FREIER_TAG: TBooleanField
150	DisplayLabel = 'Frei'	148	DisplayLabel = 'Frei'
151	DisplayWidth = 6	149	DisplayWidth = 6
152	FieldName = 'FREIER_TAG'	150	FieldName = 'FREIER_TAG'
153	end	151	end
154	object ADOTable1KOMMEN: TWideStringField	152	object ADOTable1KOMMEN: TWideStringField
155	DisplayLabel = 'Kommen'	153	DisplayLabel = 'Kommen'
156	DisplayWidth = 8	154	DisplayWidth = 8
157	FieldName = 'KOMMEN'	155	FieldName = 'KOMMEN'
158	OnGetText = ADOTable1KOMMENGetText	156	OnGetText = ADOTable1KOMMENGetText
159	OnSetText = ADOTable1KOMMENSetText	157	OnSetText = ADOTable1KOMMENSetText
160	Size = 8	158	Size = 8
161	end	159	end
162	object ADOTable1PAUSE_START: TWideStringField	160	object ADOTable1PAUSE_START: TWideStringField
163	DisplayLabel = 'Pause'	161	DisplayLabel = 'Pause'
164	DisplayWidth = 8	162	DisplayWidth = 8
165	FieldName = 'PAUSE_START'	163	FieldName = 'PAUSE_START'
166	OnGetText = ADOTable1PAUSE_STARTGetText	164	OnGetText = ADOTable1PAUSE_STARTGetText
167	OnSetText = ADOTable1PAUSE_STARTSetText	165	OnSetText = ADOTable1PAUSE_STARTSetText
168	Size = 8	166	Size = 8
169	end	167	end
170	object ADOTable1PAUSE_ENDE: TWideStringField	168	object ADOTable1PAUSE_ENDE: TWideStringField
171	DisplayLabel = 'Ende'	169	DisplayLabel = 'Ende'
172	DisplayWidth = 8	170	DisplayWidth = 8
173	FieldName = 'PAUSE_ENDE'	171	FieldName = 'PAUSE_ENDE'
174	OnGetText = ADOTable1PAUSE_ENDEGetText	172	OnGetText = ADOTable1PAUSE_ENDEGetText
175	OnSetText = ADOTable1PAUSE_ENDESetText	173	OnSetText = ADOTable1PAUSE_ENDESetText
176	Size = 8	174	Size = 8
177	end	175	end
178	object ADOTable1GEHEN: TWideStringField	176	object ADOTable1GEHEN: TWideStringField
179	DisplayLabel = 'Gehen'	177	DisplayLabel = 'Gehen'
180	DisplayWidth = 9	178	DisplayWidth = 9
181	FieldName = 'GEHEN'	179	FieldName = 'GEHEN'
182	OnGetText = ADOTable1GEHENGetText	180	OnGetText = ADOTable1GEHENGetText
183	OnSetText = ADOTable1GEHENSetText	181	OnSetText = ADOTable1GEHENSetText
184	Size = 8	182	Size = 8
185	end	183	end
186	object ADOTable1SONSTIGER_ABZUG: TWideStringField	184	object ADOTable1SONSTIGER_ABZUG: TWideStringField
187	DisplayLabel = 'Sonst. Abzug'	185	DisplayLabel = 'Sonst. Abzug'
188	DisplayWidth = 10	186	DisplayWidth = 10
189	FieldName = 'SONSTIGER_ABZUG'	187	FieldName = 'SONSTIGER_ABZUG'
190	OnGetText = ADOTable1SONSTIGER_ABZUGGetText	188	OnGetText = ADOTable1SONSTIGER_ABZUGGetText
191	OnSetText = ADOTable1SONSTIGER_ABZUGSetText	189	OnSetText = ADOTable1SONSTIGER_ABZUGSetText
192	Size = 8	190	Size = 8
193	end	191	end
194	object ADOTable1ZUHAUSE: TWideStringField	192	object ADOTable1ZUHAUSE: TWideStringField
195	DisplayLabel = 'Arb. zuhause'	193	DisplayLabel = 'Arb. zuhause'
196	DisplayWidth = 11	194	DisplayWidth = 11
197	FieldName = 'ZUHAUSE'	195	FieldName = 'ZUHAUSE'
198	OnGetText = ADOTable1ZUHAUSEGetText	196	OnGetText = ADOTable1ZUHAUSEGetText
199	OnSetText = ADOTable1ZUHAUSESetText	197	OnSetText = ADOTable1ZUHAUSESetText
200	Size = 8	198	Size = 8
201	end	199	end
202	object ADOTable1BERSTUNDEN: TIntegerField	200	object ADOTable1BERSTUNDEN: TIntegerField
203	DisplayLabel = #220'berstunden heute'	201	DisplayLabel = #220'berstunden heute'
204	DisplayWidth = 15	202	DisplayWidth = 15
205	FieldName = #220'BERSTUNDEN'	203	FieldName = #220'BERSTUNDEN'
206	OnGetText = ADOTable1BERSTUNDENGetText	204	OnGetText = ADOTable1BERSTUNDENGetText
207	end	205	end
208	object ADOTable1BERSTUNDEN_SALDO: TIntegerField	206	object ADOTable1BERSTUNDEN_SALDO: TIntegerField
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
219	end	223	end
220	object DataSource1: TDataSource	224	object DataSource1: TDataSource
221	DataSet = ADOTable1	225	DataSet = ADOTable1
222	Left = 344	226	Left = 344
223	Top = 16	227	Top = 16
224	end	228	end
225	end	229	end

Subversion Repositories delphiutils

delphiutils/trunk/Zeiterfassung/ZeiterfassungMain.dfm – Rev 78 → 79