📄 khlj_un.dfm
字号:
Font.Color = clBlack
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object bsSkinDBEdit2: TbsSkinEdit
Left = 66
Top = 45
Width = 81
Height = 20
Text = 'bsSkinEdit1'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 4
end
end
object bsSkinPanel5: TbsSkinPanel
Left = 8
Top = 24
Width = 337
Height = 129
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 = bvNone
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel5'
object bsSkinTextLabel1: TbsSkinTextLabel
Left = 48
Top = 16
Width = 144
Height = 39
UseSkinFont = True
Lines.Strings = (
#26412#25163#26426#26159#23458#25143#36820#22238#21378#23478#32500#20462
#30340#26426#23376)
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
end
object bsSkinStdLabel3: TbsSkinStdLabel
Left = 86
Top = 103
Width = 72
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
Caption = #34917#32500#20462#24046#20215#65306
end
object bsSkinStdLabel4: TbsSkinStdLabel
Left = 72
Top = 56
Width = 60
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
Caption = #23458#25143#22995#21517#65306
end
object bsSkinStdLabel5: TbsSkinStdLabel
Left = 72
Top = 78
Width = 60
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
Caption = #32852#31995#30005#35805#65306
end
object bsSkinStdLabel6: TbsSkinStdLabel
Left = 198
Top = 103
Width = 12
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = bsSkinData1
SkinDataName = 'stdlabel'
Caption = #20803
end
object bsSkinNumericEdit1: TbsSkinNumericEdit
Left = 160
Top = 96
Width = 35
Height = 20
Text = '0'
ValueType = vtInteger
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object bsSkinDBEdit4: TbsSkinDBEdit
Left = 136
Top = 71
Width = 81
Height = 20
Text = 'bsSkinDBEdit4'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinData = bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
AutoSize = False
DataField = 'fkhtel'
DataSource = ds_bs
end
object bsSkinDBEdit5: TbsSkinDBEdit
Left = 136
Top = 49
Width = 81
Height = 20
Text = 'bsSkinDBEdit5'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = False
SkinData = bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
AutoSize = False
DataField = 'fkhname'
DataSource = ds_bs
end
end
object bsSkinButton3: TbsSkinButton
Left = 239
Top = 197
Width = 75
Height = 25
TabOrder = 4
SkinData = bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #21462#28040#36864#26426
NumGlyphs = 1
Spacing = 1
OnClick = bsSkinButton3Click
end
end
end
inherited bsBusinessSkinForm1: TbsBusinessSkinForm
Left = 232
end
inherited bsSkinData1: TbsSkinData
Left = 264
end
inherited bsSkinMessage1: TbsSkinMessage
DefaultFont.Charset = GB2312_CHARSET
DefaultButtonFont.Charset = GB2312_CHARSET
Left = 304
end
object ds_bs: TDataSource
DataSet = sp_bs
OnDataChange = ds_bsDataChange
Left = 304
Top = 104
end
object sp_bs: TADOStoredProc
Connection = dm.ADOConnection1
CursorType = ctStatic
AfterOpen = sp_bsAfterOpen
ProcedureName = 'pViewAllHhddDetail;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end>
Left = 336
Top = 104
end
object sp_save: TADOStoredProc
Connection = dm.ADOConnection1
ProcedureName = 'pkhlj_detail;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
end
item
Name = '@lx'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
end
item
Name = '@act'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
end
item
Name = '@hhdd'
Attributes = [paNullable]
DataType = ftString
Size = 12
end
item
Name = '@hrxx'
Attributes = [paNullable]
DataType = ftString
Size = 12
end
item
Name = '@date'
Attributes = [paNullable]
DataType = ftDateTime
end
item
Name = '@name'
Attributes = [paNullable]
DataType = ftString
Size = 20
end
item
Name = '@tel'
Attributes = [paNullable]
DataType = ftString
Size = 20
end
item
Name = '@mon'
Attributes = [paNullable]
DataType = ftBCD
Precision = 19
end
item
Name = '@person'
Attributes = [paNullable]
DataType = ftString
Size = 4
end
item
Name = '@memo'
Attributes = [paNullable]
DataType = ftString
Size = 200
end
item
Name = '@OutNumber'
Attributes = [paNullable]
DataType = ftString
Size = 12
end
item
Name = '@fbad'
Attributes = [paNullable]
DataType = ftString
Size = 1
end>
Left = 498
Top = 305
end
object sp_disp: TADOStoredProc
Parameters = <>
Left = 66
Top = 201
end
object sp_sear: TADOStoredProc
Connection = dm.ADOConnection1
ProcedureName = 'pViewSearch_nosj;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@fno'
Attributes = [paNullable]
DataType = ftString
Size = 16
Value = Null
end>
Left = 202
Top = 209
end
object ADOTable1: TADOTable
Connection = dm.ADOConnection1
TableName = 'tygzl'
Left = 490
Top = 169
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 442
Top = 161
end
object ds_sear: TDataSource
DataSet = sp_sear
Left = 208
Top = 265
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -