📄 unit5.dfm
字号:
object Form5: TForm5
Left = 72
Top = 243
Width = 679
Height = 216
Caption = 'Form5'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 232
Top = 152
Width = 72
Height = 13
Caption = #35831#36873#25321#26102#38388#27573
end
object Label2: TLabel
Left = 424
Top = 144
Width = 15
Height = 13
Caption = 'TO'
end
object CheckBox1: TCheckBox
Left = 0
Top = 16
Width = 73
Height = 17
Caption = #36141#36135#21333#20301
TabOrder = 0
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 0
Top = 56
Width = 73
Height = 17
Caption = #36865#36135#22320#22336
TabOrder = 1
OnClick = CheckBox2Click
end
object CheckBox3: TCheckBox
Left = 0
Top = 96
Width = 65
Height = 17
Caption = #38144#21806#21592
TabOrder = 2
OnClick = CheckBox3Click
end
object CheckBox4: TCheckBox
Left = 312
Top = 16
Width = 65
Height = 17
Caption = #21457#36135#20154
TabOrder = 3
OnClick = CheckBox4Click
end
object CheckBox5: TCheckBox
Left = 312
Top = 56
Width = 73
Height = 17
Caption = #21697#31181#31867#21035
TabOrder = 4
OnClick = CheckBox5Click
end
object CheckBox6: TCheckBox
Left = 312
Top = 96
Width = 73
Height = 17
Caption = #20986#20179#21697#31181
TabOrder = 5
OnClick = CheckBox6Click
end
object CheckBox7: TCheckBox
Left = 0
Top = 136
Width = 81
Height = 17
Caption = #25215#36816#36710#21495
TabOrder = 6
OnClick = CheckBox7Click
end
object Button1: TButton
Left = 592
Top = 152
Width = 75
Height = 25
Caption = #20986' '#20179' '#26597' '#35810
TabOrder = 7
OnClick = Button1Click
end
object outB: TDBLookupComboBox
Left = 80
Top = 16
Width = 145
Height = 21
Enabled = False
KeyField = 'OutB'
ListField = 'OutB'
ListSource = DataSource1
TabOrder = 8
OnClick = outBClick
end
object outl: TDBLookupComboBox
Left = 80
Top = 56
Width = 145
Height = 21
Enabled = False
KeyField = 'OUTL'
ListField = 'OUTL'
ListSource = DataSource1
TabOrder = 9
OnClick = outlClick
end
object outK: TDBLookupComboBox
Left = 80
Top = 96
Width = 145
Height = 21
Enabled = False
KeyField = 'OutK'
ListField = 'OutK'
ListSource = DataSource1
TabOrder = 10
OnClick = outKClick
end
object outj: TDBLookupComboBox
Left = 80
Top = 136
Width = 145
Height = 21
Enabled = False
KeyField = 'OutJ'
ListField = 'OutJ'
ListSource = DataSource1
TabOrder = 11
OnClick = outjClick
end
object outi: TDBLookupComboBox
Left = 392
Top = 16
Width = 145
Height = 21
Enabled = False
KeyField = 'OutI'
ListField = 'OutI'
ListSource = DataSource1
TabOrder = 12
OnClick = outiClick
end
object outd: TDBLookupComboBox
Left = 392
Top = 56
Width = 145
Height = 21
Enabled = False
KeyField = 'OutD'
ListField = 'OutD'
ListSource = DataSource1
TabOrder = 13
OnClick = outdClick
end
object outc: TDBLookupComboBox
Left = 392
Top = 96
Width = 145
Height = 21
Enabled = False
KeyField = 'OutC'
ListField = 'OutC'
ListSource = DataSource1
TabOrder = 14
OnClick = outcClick
end
object Button2: TButton
Left = 592
Top = 120
Width = 75
Height = 25
Caption = #20986#20179#31649#29702
TabOrder = 15
OnClick = Button2Click
end
object startime: TDateTimePicker
Left = 328
Top = 144
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 38626.4013002431
Time = 38626.4013002431
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 16
end
object endtime: TDateTimePicker
Left = 448
Top = 144
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 38626.4016915509
Time = 38626.4016915509
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 17
end
object Edit1: TEdit
Left = 392
Top = 96
Width = 145
Height = 21
CharCase = ecUpperCase
TabOrder = 18
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
'cess Database;Initial Catalog=jxc'
CursorType = ctStatic
TableName = 'OUT'
Left = 576
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 600
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Ac' +
'cess Database;Initial Catalog=jxc'
Parameters = <>
SQL.Strings = (
'')
Left = 600
Top = 32
end
object frDBDataSet1: TfrDBDataSet
DataSet = ADOQuery1
Left = 632
Top = 32
end
object frReport1: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
RebuildPrinter = False
Left = 632
Top = 64
ReportForm = {19000000}
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -