?? cardbyhandleeach.dfm
字號:
Top = 36
Width = 23
Height = 22
Caption = #28165
Flat = True
OnClick = SpeedButton1Click
end
object wwDBDateTimePicker3: TwwDBDateTimePicker
Left = 35
Top = 12
Width = 116
Height = 21
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'tIn3'
DataSource = DataSource1
Epoch = 1950
ButtonEffects.Flat = True
ShowButton = False
TabOrder = 0
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object wwDBDateTimePicker4: TwwDBDateTimePicker
Left = 35
Top = 36
Width = 116
Height = 21
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'tOut3'
DataSource = DataSource1
Epoch = 1950
ButtonEffects.Flat = True
ShowButton = False
TabOrder = 1
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
end
object GroupBox3: TGroupBox
Left = 199
Top = 102
Width = 185
Height = 65
Caption = #29677#20108
TabOrder = 4
object Label9: TLabel
Left = 8
Top = 16
Width = 26
Height = 13
Caption = #19978#29677
end
object Label10: TLabel
Left = 8
Top = 39
Width = 26
Height = 13
Caption = #19979#29677
end
object SpeedButton5: TSpeedButton
Tag = 21
Left = 152
Top = 12
Width = 23
Height = 22
Caption = #28165
Flat = True
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Tag = 22
Left = 152
Top = 36
Width = 23
Height = 22
Caption = #28165
Flat = True
OnClick = SpeedButton1Click
end
object wwDBDateTimePicker5: TwwDBDateTimePicker
Left = 35
Top = 12
Width = 116
Height = 21
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'tIn2'
DataSource = DataSource1
Epoch = 1950
ButtonEffects.Flat = True
ShowButton = False
TabOrder = 0
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object wwDBDateTimePicker6: TwwDBDateTimePicker
Left = 35
Top = 36
Width = 116
Height = 21
CalendarAttributes.Font.Charset = DEFAULT_CHARSET
CalendarAttributes.Font.Color = clWindowText
CalendarAttributes.Font.Height = -11
CalendarAttributes.Font.Name = 'MS Sans Serif'
CalendarAttributes.Font.Style = []
DataField = 'tOut2'
DataSource = DataSource1
Epoch = 1950
ButtonEffects.Flat = True
ShowButton = False
TabOrder = 1
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
end
object DBMemo1: TDBMemo
Left = 199
Top = 174
Width = 185
Height = 59
DataField = 'cMemo'
DataSource = DataSource1
TabOrder = 6
end
object DBMemo2: TDBMemo
Left = 33
Top = 237
Width = 352
Height = 36
DataField = 'cNote'
DataSource = DataSource1
Enabled = False
TabOrder = 7
end
object BitBtn1: TBitBtn
Left = 232
Top = 284
Width = 75
Height = 25
Caption = #30906#23450
TabOrder = 8
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 312
Top = 283
Width = 75
Height = 25
Cancel = True
Caption = #21462#28040
TabOrder = 9
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ADOQuery1: TADOQuery
Active = True
Connection = fDataMod.AdoCon
CursorType = ctStatic
BeforePost = ADOQuery1BeforePost
Parameters = <
item
Name = 'strDate'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = '2002/10/28'
end
item
Name = 'WorkerNo'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 8
Value = Null
end>
SQL.Strings = (
'Select * From DailyCard where convert(varchar(10),dDate,111)=:s' +
'trDate'
'And cWorkerNo=:WorkerNo')
Left = 336
Top = 48
object ADOQuery1dDate: TDateTimeField
FieldName = 'dDate'
end
object ADOQuery1cWorkerNo: TStringField
FieldName = 'cWorkerNo'
Size = 8
end
object ADOQuery1cWorkerName: TStringField
FieldName = 'cWorkerName'
Size = 8
end
object ADOQuery1cClassNo: TStringField
FieldName = 'cClassNo'
Size = 5
end
object ADOQuery1tIn1: TDateTimeField
FieldName = 'tIn1'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1tOut1: TDateTimeField
FieldName = 'tOut1'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1tIn2: TDateTimeField
FieldName = 'tIn2'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1tOut2: TDateTimeField
FieldName = 'tOut2'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1tIn3: TDateTimeField
FieldName = 'tIn3'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1tOut3: TDateTimeField
FieldName = 'tOut3'
DisplayFormat = 'yyyy-mm-dd hh:mm:ss'
end
object ADOQuery1iLaterTime: TIntegerField
FieldName = 'iLaterTime'
end
object ADOQuery1iLaterTimes: TIntegerField
FieldName = 'iLaterTimes'
end
object ADOQuery1iLeaveEarlyTime: TIntegerField
FieldName = 'iLeaveEarlyTime'
end
object ADOQuery1iLeaveEarlyTimes: TIntegerField
FieldName = 'iLeaveEarlyTimes'
end
object ADOQuery1iOverTime: TIntegerField
FieldName = 'iOverTime'
end
object ADOQuery1cNote: TStringField
FieldName = 'cNote'
Size = 100
end
object ADOQuery1cMemo: TMemoField
FieldName = 'cMemo'
BlobType = ftMemo
end
object ADOQuery1lChecked: TBooleanField
FieldName = 'lChecked'
end
object ADOQuery1cUser: TStringField
FieldName = 'cUser'
Size = 8
end
object ADOQuery1tUpdateTime: TDateTimeField
FieldName = 'tUpdateTime'
end
object ADOQuery1cAction: TStringField
FieldName = 'cAction'
Size = 4
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
OnStateChange = DataSource1StateChange
Left = 376
Top = 48
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -