📄 indata.dfm
字号:
object Edit4: TEdit
Left = 164
Top = 189
Width = 525
Height = 24
Ctl3D = True
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentCtl3D = False
ParentFont = False
TabOrder = 6
Text = 'Edit1'
end
object DateTimePicker1: TDateTimePicker
Left = 164
Top = 144
Width = 122
Height = 23
CalAlignment = dtaLeft
Date = 38643
Format = 'yyyy-M-d'
Time = 38643
DateFormat = dfLong
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 5
OnChange = DateTimePicker1Change
OnKeyPress = DateTimePicker1KeyPress
end
object Edit1: TEdit
Left = 231
Top = 99
Width = 78
Height = 24
Ctl3D = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentCtl3D = False
ParentFont = False
TabOrder = 3
Text = 'Edit1'
OnExit = Edit1Exit
OnKeyDown = Edit1KeyDown
OnKeyPress = Edit1KeyPress
OnKeyUp = Edit1KeyUp
end
object ComboBox2: TComboBox
Left = 164
Top = 99
Width = 58
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ItemHeight = 15
ParentFont = False
TabOrder = 2
OnChange = ComboBox2Change
OnKeyDown = ComboBox2KeyDown
OnKeyPress = ComboBox2KeyPress
end
object ComboBox1: TComboBox
Left = 494
Top = 99
Width = 128
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ItemHeight = 16
ItemIndex = 1
ParentFont = False
TabOrder = 4
Text = #23567#22411#27773#36710
OnChange = ComboBox1Change
OnKeyDown = ComboBox1KeyDown
OnKeyPress = ComboBox1KeyPress
Items.Strings = (
#22823#22411#27773#36710
#23567#22411#27773#36710
#25705#25176#36710
#36731#20415#36710
#20892#29992#36710
#25346#36710
#22806#31821#27773#36710
#22806#31821#25705#25176
#25945#32451#27773#36710
#25945#32451#25705#25176
#35797#39564#27773#36710
#35797#39564#25705#25176
#25302#25289#26426
#20020#26102#34892#39542
#20844#23433#27773#36710
#20844#23433#25705#25176
#20854#23427
#20351#39302#27773#36710
#39046#39302#27773#36710
#22659#22806#27773#36710
#20351#39302#25705#25176
#39046#39302#25705#25176
#22659#22806#25705#25176
#20020#26102#20837#22659
#20020#26102#20837#22659)
end
object CheckBox1: TCheckBox
Left = 493
Top = 61
Width = 97
Height = 17
Caption = #36164#26009#19981#40784#20840
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = CheckBox1Click
end
object Edit6: TEdit
Left = 494
Top = 281
Width = 194
Height = 24
Ctl3D = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentCtl3D = False
ParentFont = False
TabOrder = 11
Text = 'Edit1'
OnKeyPress = Edit6KeyPress
end
object Edit2: TEdit
Left = 164
Top = 57
Width = 282
Height = 24
Ctl3D = True
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Text = 'Edit1'
OnExit = Edit2Exit
OnKeyDown = Edit2KeyDown
OnKeyPress = Edit2KeyPress
OnKeyUp = Edit2KeyUp
OnMouseDown = Edit2MouseDown
end
object ComboBox3: TComboBox
Left = 164
Top = 281
Width = 145
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
ItemHeight = 16
ParentFont = False
TabOrder = 10
OnChange = ComboBox3Change
OnKeyDown = ComboBox3KeyDown
OnKeyPress = ComboBox3KeyPress
end
object ComboBox4: TComboBox
Left = 164
Top = 305
Width = 145
Height = 24
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ItemHeight = 16
ParentFont = False
TabOrder = 8
Visible = False
OnChange = ComboBox4Change
OnKeyDown = ComboBox4KeyDown
OnKeyPress = ComboBox4KeyPress
Items.Strings = (
#32602#27454
#35686#21578
#20813#21333)
end
object Memo1: TMemo
Left = 725
Top = 84
Width = 182
Height = 219
BevelInner = bvLowered
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentFont = False
ScrollBars = ssVertical
TabOrder = 13
Visible = False
OnKeyPress = Memo1KeyPress
OnKeyUp = Memo1KeyUp
end
object CheckBox2: TCheckBox
Left = 723
Top = 56
Width = 97
Height = 17
Caption = #22791#27880#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 14
OnClick = CheckBox2Click
end
object DateTimePicker2: TDateTimePicker
Left = 494
Top = 144
Width = 122
Height = 23
CalAlignment = dtaLeft
Date = 38643
Format = 'yyyy-M-d'
Time = 38643
DateFormat = dfLong
DateMode = dmComboBox
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 15
OnChange = DateTimePicker1Change
OnKeyPress = DateTimePicker2KeyPress
end
object Panel6: TPanel
Left = 1
Top = 394
Width = 1024
Height = 6
Align = alBottom
Color = clMoneyGreen
TabOrder = 16
end
end
object DBGrid1: TDBGrid
Left = 1
Top = 402
Width = 1026
Height = 247
Hint = #65339#28784#33394#65341#20195#34920#26410#19978#20256#19988#26410#22788#32602' '#65339#34013#33394#65341#20195#34920#26410#19978#20256#24050#22788#32602' '#65339#40644#33394#65341#20195#34920#24050#19978#20256#19988#26410#22788#32602' '#65339#30333#33394#65341#20195#34920#24050#19978#20256#24050#22788#32602
Align = alClient
DataSource = Form1.DataSource1
FixedColor = clCream
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDrawColumnCell = DBGrid1DrawColumnCell
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'TZSHM'
Title.Caption = #38472#36848#36890#30693#20070#32534#21495
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'CPHM'
Title.Caption = #36710#29260#21495#30721
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'CLLX'
Title.Caption = #36710#36742#31867#22411
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'WFSJ'
Title.Caption = #36829#31456#26102#38388
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'ZFBM'
Title.Caption = #25191#27861#37096#38376
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'ZXR'
Title.Caption = #25191#27861#38431#21592
Width = 120
Visible = True
end
item
Expanded = False
FieldName = 'CFFS'
Title.Caption = #22788#32602#26041#24335
Visible = False
end
item
Expanded = False
FieldName = 'CFJE'
Title.Caption = #22788#32602#37329#39069
Visible = False
end
item
Expanded = False
FieldName = 'ZLBC'
Title.Caption = #36164#26009#19981#20840
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'WFDD'
Title.Caption = #36829#31456#22320#28857
Width = 220
Visible = True
end
item
Expanded = False
FieldName = 'WFSY'
Title.Caption = #36829#31456#20107#30001
Width = 170
Visible = True
end
item
Expanded = False
FieldName = 'ZCCFSJ'
Title.Caption = #26368#36831#22788#29702#26102#38388
Visible = False
end>
end
object Panel5: TPanel
Left = 1
Top = 649
Width = 1026
Height = 26
Align = alBottom
BevelInner = bvLowered
TabOrder = 2
object Label15: TLabel
Left = 238
Top = 6
Width = 60
Height = 13
Caption = ' '
Color = clGray
ParentColor = False
end
object Label13: TLabel
Left = 24
Top = 5
Width = 60
Height = 13
Caption = ' '
Color = clYellow
ParentColor = False
end
object Label14: TLabel
Left = 91
Top = 5
Width = 132
Height = 13
Caption = #20195#34920#24050#19978#20256#19988#26410#22788#32602' '
Color = clSilver
ParentColor = False
end
object Label16: TLabel
Left = 298
Top = 5
Width = 135
Height = 13
Caption = ' '#20195#34920#26410#19978#20256#19988#26410#22788#32602' '
Color = clSilver
ParentColor = False
end
object Label17: TLabel
Left = 437
Top = 5
Width = 60
Height = 13
Caption = ' '
Color = clSkyBlue
ParentColor = False
end
object Label18: TLabel
Left = 497
Top = 5
Width = 120
Height = 13
Caption = #20195#34920#26410#19978#20256#24050#22788#32602' '
Color = clSilver
ParentColor = False
end
object Label19: TLabel
Left = 628
Top = 5
Width = 60
Height = 13
Caption = ' '
Color = clWhite
ParentColor = False
end
object Label20: TLabel
Left = 670
Top = 5
Width = 120
Height = 13
Caption = #20195#34920#24050#19978#20256#24050#22788#32602' '
Color = clSilver
ParentColor = False
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -