📄 p_rk.dfm
字号:
Left = 538
Top = 439
Width = 75
Height = 30
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = 10485760
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn2Click
end
object Pan: TPanel
Left = 16
Top = 240
Width = 613
Height = 139
BevelOuter = bvNone
Enabled = False
TabOrder = 4
object Label7: TLabel
Left = 6
Top = 6
Width = 60
Height = 13
Caption = #21830#21697#32534#21495#65306
end
object Label8: TLabel
Left = 6
Top = 74
Width = 36
Height = 13
Caption = #25968#37327#65306
end
object Label9: TLabel
Left = 6
Top = 98
Width = 60
Height = 13
Caption = #25968#37327#21333#20301#65306
end
object Label15: TLabel
Left = 200
Top = 99
Width = 36
Height = 13
Caption = #22791#27880#65306
end
object Label3: TLabel
Left = 6
Top = 29
Width = 60
Height = 13
Caption = #21830#21697#21517#31216#65306
end
object Label16: TLabel
Left = 7
Top = 51
Width = 60
Height = 13
Caption = #21830#21697#22411#21495#65306
end
object b_sp: TSpeedButton
Left = 130
Top = 3
Width = 62
Height = 19
Caption = #36873#25321#21830#21697
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = 8388863
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = b_spClick
end
object SpeedButton2: TSpeedButton
Left = 253
Top = 70
Width = 356
Height = 22
Caption = #26816#39564#25253#21578#20013#30340#20854#23427#25351#26631#24405#20837'('#21333#20987')'
Font.Charset = DEFAULT_CHARSET
Font.Color = 10485760
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = b_spClick
end
object sl: TsuiDBEdit
Left = 70
Top = 72
Width = 121
Height = 19
BorderStyle = bsNone
DataField = 'sl'
DataSource = dm.DS_TEMPRK
TabOrder = 0
UIStyle = DeepBlue
BorderColor = clBlack
end
object suiDBMemo1: TsuiDBMemo
Left = 252
Top = 94
Width = 355
Height = 43
BorderStyle = bsNone
DataField = 'bz'
DataSource = dm.DS_TEMPRK
TabOrder = 1
UIStyle = DeepBlue
BorderColor = clBlack
end
object GroupBox3: TGroupBox
Left = 252
Top = 4
Width = 165
Height = 65
Caption = #21270#23398#25104#20221
TabOrder = 2
object Label11: TLabel
Left = 10
Top = 20
Width = 62
Height = 13
Caption = #30899#21547#37327'(%)'#65306
end
object Label12: TLabel
Left = 10
Top = 44
Width = 86
Height = 13
Caption = #30416#37240#19981#28342#29289'(%)'#65306
end
object c: TsuiDBEdit
Left = 92
Top = 20
Width = 53
Height = 19
BorderStyle = bsNone
DataField = 'C'
DataSource = dm.DS_TEMPRK
TabOrder = 0
UIStyle = DeepBlue
BorderColor = clBlack
end
object hcl: TsuiDBEdit
Left = 92
Top = 42
Width = 53
Height = 19
BorderStyle = bsNone
DataField = 'HCL'
DataSource = dm.DS_TEMPRK
TabOrder = 1
UIStyle = DeepBlue
BorderColor = clBlack
end
end
object GroupBox4: TGroupBox
Left = 444
Top = 2
Width = 165
Height = 65
Caption = #24037#33402#24615#36136
TabOrder = 3
object Label13: TLabel
Left = 10
Top = 24
Width = 60
Height = 13
Caption = #26494#35013#23494#24230#65306
end
object Label14: TLabel
Left = 10
Top = 46
Width = 48
Height = 13
Caption = #21387#32553#24615#65306
end
object szmd: TsuiDBEdit
Left = 68
Top = 20
Width = 89
Height = 19
BorderStyle = bsNone
DataField = 'SZMD'
DataSource = dm.DS_TEMPRK
TabOrder = 0
UIStyle = DeepBlue
BorderColor = clBlack
end
object ysx: TsuiDBEdit
Left = 68
Top = 42
Width = 89
Height = 19
BorderStyle = bsNone
DataField = 'YSX'
DataSource = dm.DS_TEMPRK
TabOrder = 1
UIStyle = DeepBlue
BorderColor = clBlack
end
end
object sph: TsuiDBEdit
Left = 70
Top = 3
Width = 59
Height = 19
BorderStyle = bsNone
DataField = 'sph'
DataSource = dm.DS_TEMPRK
Enabled = False
TabOrder = 4
OnChange = sphChange
UIStyle = DeepBlue
BorderColor = clBlack
end
object spm: TsuiEdit
Left = 70
Top = 26
Width = 121
Height = 19
UIStyle = DeepBlue
BorderColor = clBlack
Enabled = False
TabOrder = 5
end
object spxh: TsuiEdit
Left = 70
Top = 49
Width = 121
Height = 19
UIStyle = DeepBlue
BorderColor = clBlack
Enabled = False
TabOrder = 6
end
object suiDBComboBox1: TsuiDBComboBox
Left = 70
Top = 94
Width = 121
Height = 21
Style = csDropDownList
DataField = 'dw'
DataSource = dm.DS_TEMPRK
ItemHeight = 13
Items.Strings = (
#21544
#21315#20811)
TabOrder = 7
UIStyle = DeepBlue
BorderColor = clBlack
ArrowColor = clBlack
ButtonColor = 15263976
end
end
object PAN1: TPanel
Left = 6
Top = 8
Width = 631
Height = 461
BevelOuter = bvNone
TabOrder = 5
object Bevel1: TBevel
Left = 10
Top = 10
Width = 613
Height = 83
Shape = bsFrame
Style = bsRaised
end
object Label10: TLabel
Left = 65
Top = 32
Width = 138
Height = 13
Caption = #35831#36755#20837#20837#24211#26085#26399#65306#20174' '
end
object Label17: TLabel
Left = 176
Top = 62
Width = 12
Height = 13
Caption = #21040
end
object dt1: TDateTimePicker
Left = 207
Top = 27
Width = 161
Height = 21
Date = 37978.893408738430000000
Time = 37978.893408738430000000
TabOrder = 0
end
object dt2: TDateTimePicker
Left = 207
Top = 57
Width = 161
Height = 21
Date = 37978.893408738430000000
Time = 37978.893408738430000000
TabOrder = 1
end
object BitBtn5: TBitBtn
Left = 406
Top = 38
Width = 75
Height = 25
Caption = #26597#35810
TabOrder = 2
OnClick = BitBtn5Click
end
object BitBtn1: TBitBtn
Left = 514
Top = 57
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 4
OnClick = BitBtn1Click
end
object BitBtn3: TBitBtn
Left = 514
Top = 22
Width = 75
Height = 25
Caption = #36873#25321
TabOrder = 5
OnClick = BitBtn3Click
end
object DBGrid2: TDBGrid
Left = 10
Top = 104
Width = 613
Height = 359
DataSource = dm.DS_QUERY
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid2DblClick
Columns = <
item
Expanded = False
FieldName = 'ddh'
Title.Caption = #35746#21333#32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'ddrq'
Title.Caption = #35746#21333#26085#26399
Visible = True
end
item
Expanded = False
FieldName = 'ck'
Title.Caption = #20179#24211
Width = 134
Visible = True
end
item
Expanded = False
FieldName = 'jbr'
Title.Caption = #32463#21150#20154
Width = 77
Visible = True
end
item
Expanded = False
FieldName = 'bz'
Title.Caption = #22791#27880
Width = 228
Visible = True
end>
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -