📄 p_tk.dfm
字号:
object F_TK: TF_TK
Left = 49
Top = 64
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #36864#36135#25110#23454#25910#25968#37327#31649#29702
ClientHeight = 458
ClientWidth = 709
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object c: TLabel
Left = 16
Top = 190
Width = 12
Height = 13
Caption = #20986
end
object Label8: TLabel
Left = 16
Top = 266
Width = 12
Height = 13
Caption = #32454
end
object k: TLabel
Left = 16
Top = 214
Width = 12
Height = 13
Caption = #24211
end
object Label10: TLabel
Left = 15
Top = 240
Width = 12
Height = 13
Caption = #26126
end
object rg_sslx: TsuiRadioGroup
Left = 6
Top = 53
Width = 133
Height = 67
UIStyle = DeepBlue
Caption = #23454#25910#31867#22411
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 5
Items.Strings = (
#23454#25910#20449#24687#30331#35760)
Columns = 1
TopMargin = 8
FontColor = clBlack
BorderColor = clBlack
ItemIndex = 0
end
object DBGrid1: TDBGrid
Left = 40
Top = 125
Width = 663
Height = 211
Ctl3D = True
DataSource = dm.DS_QUERY
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'ddh'
Title.Caption = #20986#24211#21333#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'spm'
Title.Caption = #21830#21697#21517#31216
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'xhm'
Title.Caption = #21830#21697#22411#21495
Width = 64
Visible = True
end
item
Expanded = False
FieldName = 'C'
Title.Caption = #30899#21547#37327
Visible = True
end
item
Expanded = False
FieldName = 'HCL'
Title.Caption = #30416#37240#19981#28342#29289
Visible = True
end
item
Expanded = False
FieldName = 'SZMD'
Title.Caption = #26494#35013#23494#24230
Visible = True
end
item
Expanded = False
FieldName = 'YSX'
Title.Caption = #21387#32553#24615
Visible = True
end
item
Expanded = False
FieldName = 'scsl'
Title.Caption = #20986#24211#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'dw'
Title.Caption = #25968#37327#21333#20301
Visible = True
end
item
Expanded = False
FieldName = 'cklx'
Title.Caption = #20986#24211#31867#22411
Visible = True
end
item
Expanded = False
FieldName = 'ckrq'
Title.Caption = #20986#24211#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'bz'
Title.Caption = #22791#27880
Visible = True
end>
end
object rg_tklx: TsuiRadioGroup
Left = 6
Top = 53
Width = 133
Height = 67
UIStyle = DeepBlue
Caption = #36864#36135#31867#22411
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 1
Items.Strings = (
#22686#21152#36864#36135#20449#24687
#21024#38500#36864#36135#20449#24687)
Columns = 1
TopMargin = 8
FontColor = clBlack
BorderColor = clBlack
OnClick = rg_tklxClick
ItemIndex = 0
end
object Panel1: TPanel
Left = 146
Top = 59
Width = 557
Height = 61
BevelInner = bvLowered
BevelOuter = bvSpace
TabOrder = 2
object Label2: TLabel
Left = 286
Top = 10
Width = 12
Height = 13
Caption = #21040
end
object dt1: TDateTimePicker
Left = 134
Top = 6
Width = 122
Height = 21
Date = 37983.007228668990000000
Time = 37983.007228668990000000
Enabled = False
TabOrder = 0
end
object dt2: TDateTimePicker
Left = 335
Top = 6
Width = 122
Height = 21
Date = 37983.007228668990000000
Time = 37983.007228668990000000
Enabled = False
TabOrder = 1
end
object rq: TsuiCheckBox
Left = 46
Top = 8
Width = 69
Height = 19
UIStyle = WinXP
AutoSize = True
Checked = False
Caption = #26085#26399#65306#20174
TabOrder = 2
TabStop = True
State = cbUnchecked
Transparent = False
OnClick = rqClick
end
object ckdh: TsuiCheckBox
Left = 45
Top = 37
Width = 93
Height = 19
UIStyle = WinXP
AutoSize = True
Checked = False
Caption = #20986#24211#21333#32534#21495#65306
TabOrder = 3
TabStop = True
State = cbUnchecked
Transparent = False
OnClick = ckdhClick
end
object eckdh: TsuiEdit
Left = 135
Top = 36
Width = 121
Height = 19
UIStyle = DeepBlue
BorderColor = clBlack
Enabled = False
TabOrder = 4
end
object spm: TsuiCheckBox
Left = 261
Top = 36
Width = 81
Height = 19
UIStyle = WinXP
AutoSize = True
Checked = False
Caption = #21830#21697#21517#31216#65306
TabOrder = 5
TabStop = True
State = cbUnchecked
Transparent = False
OnClick = spmClick
end
object espm: TsuiEdit
Left = 335
Top = 36
Width = 121
Height = 19
UIStyle = DeepBlue
BorderColor = clBlack
Enabled = False
TabOrder = 6
end
object BitBtn1: TBitBtn
Left = 468
Top = 18
Width = 75
Height = 25
Caption = ' '#26597' '#35810' '
TabOrder = 7
OnClick = BitBtn1Click
Glyph.Data = {
42020000424D4202000000000000420000002800000010000000100000000100
1000030000000002000000000000000000000000000000000000007C0000E003
00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C000000000000000000001F7C1F7C1F7C1F7C1F7C000000000000
000000001F7C0000FF7F0000000000001F7C1F7C1F7C1F7C1F7C0000FF7F0000
000000001F7C0000FF7F0000000000001F7C1F7C1F7C1F7C1F7C0000FF7F0000
000000001F7C00000000000000000000000000001F7C00000000000000000000
000000001F7C00000000FF7F000000000000000000000000FF7F000000000000
000000001F7C00000000FF7F000000000000186300000000FF7F000000000000
000000001F7C00000000FF7F000000000000186300000000FF7F000000000000
000000001F7C1F7C000000000000000000000000000000000000000000000000
00001F7C1F7C1F7C1F7C0000FF7F0000000000001F7C0000FF7F000000000000
1F7C1F7C1F7C1F7C1F7C000000000000000000001F7C00000000000000000000
1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C0000000000001F7C
1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00001F7C1F7C1F7C0000FF7F00001F7C
1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C0000000000001F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C}
end
end
object Panel2: TPanel
Left = 6
Top = 341
Width = 691
Height = 109
BevelInner = bvLowered
BevelOuter = bvSpace
TabOrder = 3
object Label1: TLabel
Left = 90
Top = 65
Width = 60
Height = 13
Caption = #36864#36135#25968#37327#65306
end
object Label3: TLabel
Left = 90
Top = 20
Width = 48
Height = 13
Caption = #30899#21547#37327#65306
end
object Label4: TLabel
Left = 206
Top = 20
Width = 72
Height = 13
Caption = #30416#37240#19981#28342#29289#65306
end
object Label5: TLabel
Left = 346
Top = 20
Width = 60
Height = 13
Caption = #26494#35013#23494#24230#65306
end
object Label6: TLabel
Left = 472
Top = 20
Width = 48
Height = 13
Caption = #21387#32553#24615#65306
end
object etksl: TsuiEdit
Left = 159
Top = 63
Width = 121
Height = 19
UIStyle = DeepBlue
BorderColor = clBlack
TabOrder = 0
OnKeyPress = etkslKeyPress
end
object b_add: TBitBtn
Left = 392
Top = 61
Width = 97
Height = 25
Cursor = crHandPoint
Caption = #36864#36135#30331#35760
TabOrder = 1
OnClick = b_addClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object b_cancel: TBitBtn
Left = 500
Top = 61
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #36864#20986
TabOrder = 2
OnClick = b_cancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object suiDBEdit1: TsuiDBEdit
Left = 138
Top = 18
Width = 63
Height = 19
BorderStyle = bsNone
DataField = 'C'
DataSource = dm.DS_QUERY
Enabled = False
TabOrder = 3
UIStyle = DeepBlue
BorderColor = clBlack
end
object suiDBEdit2: TsuiDBEdit
Left = 520
Top = 18
Width = 63
Height = 19
BorderStyle = bsNone
DataField = 'YSX'
DataSource = dm.DS_QUERY
Enabled = False
TabOrder = 4
UIStyle = DeepBlue
BorderColor = clBlack
end
object suiDBEdit3: TsuiDBEdit
Left = 276
Top = 18
Width = 63
Height = 19
BorderStyle = bsNone
DataField = 'HCL'
DataSource = dm.DS_QUERY
Enabled = False
TabOrder = 5
UIStyle = DeepBlue
BorderColor = clBlack
end
object suiDBEdit4: TsuiDBEdit
Left = 405
Top = 18
Width = 63
Height = 19
BorderStyle = bsNone
DataField = 'SZMD'
DataSource = dm.DS_QUERY
Enabled = False
TabOrder = 6
UIStyle = DeepBlue
BorderColor = clBlack
end
end
object rg_lx: TsuiRadioGroup
Left = 7
Top = 2
Width = 695
Height = 47
UIStyle = BlueGlass
Caption = #31867#22411
Font.Charset = DEFAULT_CHARSET
Font.Color = 8388863
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = True
ParentFont = False
TabOrder = 4
Items.Strings = (
#36864#36135#30331#35760
#23454#25910#25968#37327#30331#35760)
Columns = 2
TopMargin = 8
FontColor = 8388863
BorderColor = clBlack
OnClick = rg_lxClick
ItemIndex = 0
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -