📄 kqjtx.dfm
字号:
ImageIndex = 2
object Label9: TLabel
Left = 12
Top = 11
Width = 120
Height = 12
Caption = '门禁数据库文件位置:'
end
object Image2: TImage
Left = 501
Top = 0
Width = 26
Height = 26
Cursor = crHandPoint
Picture.Data = {
07544269746D61705E060000424D5E0600000000000036040000280000001800
0000170000000100080000000000280200000000000000000000000100000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000C0DCC000F0C8A40000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000F0FBFF00A4A0
A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00070707070707070707070707070707070707070707070707000000000000
0000000000000000000007070707070707070000030303030303030303030303
0303000707070707070700FF0003030303030303030303030303030007070707
070700FBFF00030303030303030303030303030300070707070700FFFBFF0003
03030303030303030303030303000707070700FBFFFBFF000303030303030303
0303030303030007070700FFFBFFFBFF00030303030303030303030303030300
070700FBFFFBFFFBFF000303030303030303030303030303000700FFFBFFFBFF
FBFF0003030303030303030303030303030000FBFFFBFFFBFFFBFF0000000000
0000000000000000000000FFFBFFFBFFFBFFFBFFFBFFFBFFFBFF000707070707
070700FBFFFBFFFBFFFBFFFBFFFBFFFBFFFB000707070707070700FFFBFFFBFF
FBFFFBFFFBFFFBFFFBFF000707070707070700FBFFFBFFFB0000000000000000
0000000707070707070700FFFBFFFBFF00070707070707070707070700000000
0007070000000000070707070707070707070707070000000007070707070707
0707070707070707070707070707000000070707070707070707070707070007
0707070707000700000707070707070707070707070707000707070700070707
0007070707070707070707070707070700000000070707070707070707070707
0707070707070707070707070707070707070707070707070707070707070707
07070707070707070707}
Transparent = True
OnClick = Image2Click
end
object Label8: TLabel
Left = 13
Top = 307
Width = 12
Height = 12
Caption = '从'
end
object Label10: TLabel
Left = 143
Top = 307
Width = 12
Height = 12
Caption = '到'
end
object DBGrid1: TDBGrid
Left = 12
Top = 31
Width = 517
Height = 265
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'cardno'
Title.Alignment = taCenter
Title.Caption = '卡片编号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clHighlight
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'iodate'
Title.Alignment = taCenter
Title.Caption = '日期'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clHighlight
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end
item
Expanded = False
FieldName = 'iotime'
Title.Alignment = taCenter
Title.Caption = '时间'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clHighlight
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Visible = True
end>
end
object DateTimePicker1: TDateTimePicker
Left = 29
Top = 302
Width = 107
Height = 20
CalAlignment = dtaLeft
Date = 37379.9251895023
Time = 37379.9251895023
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object DateTimePicker2: TDateTimePicker
Left = 157
Top = 302
Width = 108
Height = 20
CalAlignment = dtaLeft
Date = 37379.9254009144
Time = 37379.9254009144
DateFormat = dfLong
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object EditDB: TEdit
Left = 132
Top = 5
Width = 365
Height = 20
TabOrder = 3
OnChange = EditDBChange
end
object BitBtnQuery: TBitBtn
Left = 270
Top = 301
Width = 75
Height = 22
Caption = '查询'
TabOrder = 4
OnClick = BitBtnQueryClick
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888888888888888800000888880000080F000888880F00080F000888880F
0008000000080000000800F000000F00000800F000800F00000800F000800F00
00088000000000000088880F00080F0008888800000800000888888000888000
88888880F08880F0888888800088800088888888888888888888}
end
object BitBtnSaveTo: TBitBtn
Left = 364
Top = 301
Width = 141
Height = 22
Caption = '保存到考勤数据库'
Enabled = False
TabOrder = 5
OnClick = BitBtnSaveToClick
Glyph.Data = {
26050000424D26050000000000003604000028000000100000000F0000000100
080000000000F000000000000000000000000001000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
A400000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070700000000
0000000000000000000707000303000000000000070700030007070003030000
0000000007070003000707000303000000000000070700030007070003030000
0000000000000003000707000303030303030303030303030007070003030000
0000000000000303000707000300070707070707070700030007070003000707
0707070707070003000707000300070707070707070700030007070003000707
0707070707070003000707000300070707070707070700000007070003000707
0707070707070007000707000000000000000000000000000007070707070707
07070707070707070707}
end
end
end
object BitBtn3: TBitBtn
Left = 231
Top = 372
Width = 105
Height = 25
Caption = '退出 (&Q)'
TabOrder = 1
Kind = bkClose
end
object OpenDialog1: TOpenDialog
Filter = '文本文件 (*.txt)|*.TXT'
Left = 484
Top = 65535
end
object ADOConnection1: TADOConnection
ConnectionTimeout = 30
LoginPrompt = False
Mode = cmRead
Provider = 'MSDASQL.1'
Left = 452
Top = 65535
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 372
Top = 65535
end
object ADOQuery1: TADOQuery
AutoCalcFields = False
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <
item
Name = 'date1'
DataType = ftDateTime
Value = Null
end
item
Name = 'date2'
DataType = ftDateTime
Value = Null
end>
SQL.Strings = (
'select cardno,iodate,iotime from iodata where iodate >= :date1 a' +
'nd iodate <= :date2 order by iodate,iotime')
Left = 412
Top = 65535
end
object OpenDialog2: TOpenDialog
Filter = 'Microsoft Access (*.mdb)|*.mdb'
Left = 520
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -