?? gzjfh_un.dfm
字號:
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
SkinData = bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 15
OnChange = bsSkinNumericEdit1Change
end
object bsSkinCheckRadioBox2: TbsSkinCheckRadioBox
Left = 397
Top = 25
Width = 100
Height = 25
TabOrder = 5
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 = #38656#35201#34917#20215
OnClick = bsSkinCheckRadioBox2Click
end
object bsSkinMemo1: TbsSkinMemo
Left = 394
Top = 49
Width = 185
Height = 91
BevelInner = bvLowered
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'bsSkinMemo1')
ParentColor = True
ParentFont = False
TabOrder = 11
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clGreen
DefaultFont.Height = -17
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
BitMapBG = False
SkinData = bsSkinData1
SkinDataName = 'memo'
end
object bsSkinCheckRadioBox3: TbsSkinCheckRadioBox
Left = 477
Top = 25
Width = 100
Height = 20
TabOrder = 6
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
CanFocused = False
Radio = False
Checked = False
GroupIndex = 0
Caption = #21407#26426#26410#25439#22351
OnClick = bsSkinCheckRadioBox3Click
end
end
end
inherited bsSkinGroupBox2: TbsSkinGroupBox
Top = 360
Width = 590
Height = 143
TabOrder = 4
Align = alBottom
inherited bsSkinDBGrid2: TbsSkinDBGrid
Width = 569
Height = 100
Columns = <
item
Expanded = False
FieldName = 'fid'
Title.Caption = #21378#23478#36820#22238#27969#27700#21495
Width = 80
Visible = True
end
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 = 80
Visible = True
end
item
Expanded = False
FieldName = 'fcolor'
Title.Caption = #25163#26426#39068#33394
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'fjbpz'
Title.Caption = #22522#26412#37197#32622
Width = 57
Visible = True
end
item
Expanded = False
FieldName = 'fhylx'
Title.Caption = #36135#28304#31867#22411
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'fdate'
Title.Caption = #36827#36135#26085#26399
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'fgl'
Title.Caption = #22522#26412#21151#33021
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'fmemo'
Title.Caption = #22791#27880
Width = 60
Visible = True
end>
end
inherited bsSkinScrollBar1: TbsSkinScrollBar
Left = 570
Height = 100
end
inherited bsSkinScrollBar2: TbsSkinScrollBar
Top = 123
Width = 588
end
end
inherited bsBusinessSkinForm1: TbsBusinessSkinForm
DefCaptionFont.Height = -13
DefCaptionFont.Name = #26032#23435#20307
DefCaptionFont.Style = []
Left = 496
Top = 104
end
inherited bsSkinData1: TbsSkinData
Left = 464
Top = 104
end
inherited bsSkinMessage1: TbsSkinMessage
Left = 528
Top = 104
end
inherited ALToolbar: TActionList
Left = 560
Top = 104
end
inherited spsave: TADOStoredProc
ProcedureName = 'pSjrcDetail;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 = '@VModel'
Attributes = [paNullable]
DataType = ftString
Size = 5
Value = Null
end
item
Name = '@VColor'
Attributes = [paNullable]
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@VJbpz'
Attributes = [paNullable]
DataType = ftString
Size = 3
Value = Null
end
item
Name = '@VId'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = Null
end
item
Name = '@VNo'
Attributes = [paNullable]
DataType = ftString
Size = 16
Value = Null
end
item
Name = '@VMoney'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end
item
Name = '@VGl'
Attributes = [paNullable]
DataType = ftString
Size = 200
Value = Null
end
item
Name = '@VHyd'
Attributes = [paNullable]
DataType = ftString
Size = 4
Value = Null
end
item
Name = '@VHylx'
Attributes = [paNullable]
DataType = ftString
Size = 2
Value = Null
end
item
Name = '@dat'
Attributes = [paNullable]
DataType = ftDateTime
Value = Null
end
item
Name = '@vbsid'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = Null
end
item
Name = '@vcmon'
Attributes = [paNullable]
DataType = ftBCD
Precision = 19
Value = Null
end
item
Name = '@vomon'
Attributes = [paNullable]
DataType = ftBCD
Precision = 19
Value = Null
end>
Left = 432
Top = 104
end
inherited spdisp: TADOStoredProc
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@hylx'
Attributes = [paNullable]
DataType = ftString
Size = 2
Value = Null
end>
Left = 192
Top = 208
end
inherited ds_disp: TDataSource
Left = 160
Top = 208
end
inherited tbl_sjcs: TADOQuery
Active = False
end
object ds_hyd: TDataSource
DataSet = ADOTable1
Left = 401
Top = 104
end
object ADOTable1: TADOQuery
Connection = dm.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from thyd where thyd.fid>'#39'HY02'#39' and thyd.fuse='#39'T'#39)
Left = 369
Top = 104
end
object sp_bs: TADOStoredProc
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
AfterOpen = sp_bsAfterOpen
ProcedureName = 'pSjcjfhDispDetail;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end>
Left = 336
Top = 104
end
object ds_bs: TDataSource
DataSet = sp_bs
OnDataChange = ds_bsDataChange
Left = 304
Top = 104
end
object sp_hhddview: TADOStoredProc
Connection = dm.ADOConnection1
ProcedureName = 'pSjhhddViewDetail;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@fhrxx'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = Null
end>
Left = 393
Top = 225
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -