📄 khhj_un.dfm
字号:
Caption = #20108#30005#19968#20805' '
DataSource = ds_khth
end
inherited bsSkinDBText2: TbsSkinDBText
Top = 37
Width = 80
Caption = #27225#33394' '
DataSource = ds_khth
end
inherited bsSkinDBText8: TbsSkinDBText
Top = 54
Width = 128
Caption = '2514511111111111'
DataSource = ds_khth
end
inherited bsSkinDBText7: TbsSkinDBText
Top = 4
Width = 80
Caption = #35834#22522#20122'K502'
DataSource = ds_khth
end
end
end
object bsSkinPanel11: TbsSkinPanel
Left = 1
Top = 1
Width = 516
Height = 150
TabOrder = 4
SkinData = bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel11'
Align = alTop
object bsSkinPanel12: TbsSkinPanel
Left = 1
Top = 1
Width = 514
Height = 33
TabOrder = 0
SkinData = bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel11'
Align = alTop
object bsSkinStdLabel23: TbsSkinStdLabel
Left = 12
Top = 7
Width = 493
Height = 19
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #26032#23435#20307
Font.Style = [fsBold]
Alignment = taCenter
AutoSize = False
Caption = #23458#25143#25442#26426
ParentFont = False
end
end
object bsSkinGroupBox5: TbsSkinGroupBox
Left = 1
Top = 34
Width = 514
Height = 115
TabOrder = 1
SkinData = bsSkinData2
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #35831#36873#23450#21407#36864#36135#25163#26426#20449#24687#65306
Align = alClient
object bsSkinDBGrid3: TbsSkinDBGrid
Left = 1
Top = 23
Width = 493
Height = 72
TabOrder = 0
SkinData = bsSkinData2
SkinDataName = 'grid'
UseSkinFont = True
UseSkinCellHeight = True
HScrollBar = bsSkinScrollBar5
VScrollBar = bsSkinScrollBar6
GridLineColor = clWindowText
DefaultCellHeight = 20
UseColumnsFont = False
DefaultRowHeight = 17
MouseWheelSupport = False
SaveMultiSelection = False
PickListBoxSkinDataName = 'listbox'
PickListBoxCaptionMode = False
Align = alClient
BorderStyle = bsNone
Ctl3D = False
DataSource = ds_khth
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
ReadOnly = True
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fsjxh'
Title.Caption = #25163#26426#22411#21495
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'fno'
Title.Caption = #25163#26426#20018#21495
Visible = True
end
item
Expanded = False
FieldName = 'fcolor'
Title.Caption = #39068#33394
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'fjbpz'
Title.Caption = #22522#26412#37197#32622
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fkhname'
Title.Caption = #23458#25143#22995#21517
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fsadate'
Title.Caption = #36141#20080#26085#26399
Width = 60
Visible = True
end>
end
object bsSkinScrollBar5: TbsSkinScrollBar
Left = 1
Top = 95
Width = 512
Height = 19
TabOrder = 1
Visible = False
SkinData = bsSkinData1
SkinDataName = 'hscrollbar'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 19
UseSkinFont = True
Both = True
BothMarkerWidth = 19
BothSkinDataName = 'bothhscrollbar'
CanFocused = False
Align = alBottom
Kind = sbHorizontal
PageSize = 0
Min = 0
Max = 0
Position = 0
SmallChange = 127
LargeChange = 127
end
object bsSkinScrollBar6: TbsSkinScrollBar
Left = 494
Top = 23
Width = 19
Height = 72
TabOrder = 2
SkinData = bsSkinData1
SkinDataName = 'vscrollbar'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 19
DefaultHeight = 0
UseSkinFont = True
Both = False
BothMarkerWidth = 19
BothSkinDataName = 'bothhscrollbar'
CanFocused = False
Align = alRight
Kind = sbVertical
PageSize = 3
Min = 1
Max = 5
Position = 1
SmallChange = 1
LargeChange = 1
end
object bsSkinCheckRadioBox3: TbsSkinCheckRadioBox
Left = 412
Top = 2
Width = 97
Height = 14
TabOrder = 3
SkinData = bsSkinData1
SkinDataName = 'checkbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImageIndex = 0
Flat = True
TabStop = True
CanFocused = True
Radio = False
Checked = False
GroupIndex = 0
Caption = #36873#23450#27492#25163#26426
OnClick = bsSkinCheckRadioBox3Click
end
end
end
end
inherited bsSkinPanel3: TbsSkinPanel
inherited bsSkinPanel8: TbsSkinPanel
inherited bsSkinDBGrid1: TbsSkinDBGrid
Columns = <
item
Expanded = False
FieldName = 'fsjxh'
Title.Caption = #25163#26426#22411#21495
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'fno'
Title.Caption = #25163#26426#20018#21495
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'fcolor'
Title.Caption = #39068#33394
Width = 30
Visible = True
end>
end
end
end
inherited bsBusinessSkinForm1: TbsBusinessSkinForm
Left = 288
end
inherited bsSkinData1: TbsSkinData
Left = 328
end
inherited bsSkinMessage1: TbsSkinMessage
Left = 400
end
inherited bsBusinessSkinForm2: TbsBusinessSkinForm
Left = 256
Top = 8
end
inherited bsSkinData2: TbsSkinData
Left = 224
end
inherited bsSkinMessage2: TbsSkinMessage
Left = 368
end
inherited spsave: TADOStoredProc
ProcedureName = 'pKhhj;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@VAct'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@vdat'
Attributes = [paNullable]
DataType = ftDateTime
Value = Null
end
item
Name = '@vhrxx'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = Null
end
item
Name = '@vohrxx'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = Null
end
item
Name = '@vname'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end
item
Name = '@vmemo'
Attributes = [paNullable]
DataType = ftString
Size = 100
Value = Null
end
item
Name = '@vygzl'
Attributes = [paNullable]
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@vmon'
Attributes = [paNullable]
DataType = ftBCD
Precision = 19
Value = Null
end
item
Name = '@vtel'
Attributes = [paNullable]
DataType = ftString
Size = 20
Value = Null
end>
Left = 520
end
inherited spdisp: TADOStoredProc
Active = False
ProcedureName = 'pViewKhhj;1'
Left = 272
Top = 360
end
inherited ds_disp: TDataSource
Left = 304
Top = 360
end
inherited sp_view: TADOStoredProc
ProcedureName = 'pViewSelfCurrentSj;1'
end
object ds_khth: TDataSource
DataSet = sp_khth
OnStateChange = ds_dispStateChange
OnDataChange = ds_dispDataChange
Left = 448
Top = 80
end
object sp_khth: TADOStoredProc
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
ProcedureName = 'pViewKhhjSj;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end>
Left = 496
Top = 80
end
object ds_yg: TDataSource
DataSet = tbl_yg
Left = 512
Top = 385
end
object tbl_yg: TADOTable
Connection = dm.ADOConnection1
TableName = 'tygzl'
Left = 552
Top = 385
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -