📄 sjrcbase.dfm
字号:
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fname'
ListFieldIndex = 2
ListSource = ds_sjpz
end
object bsSkinDBEdit3: TbsSkinDBEdit
Tag = 2
Left = 256
Top = 40
Width = 121
Height = 20
Text = 'bsSkinDBEdit3'
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 9
AutoSize = False
DataField = 'fno'
DataSource = ds_disp
end
object bsSkinEdit2: TbsSkinEdit
Tag = 5
Left = 256
Top = 40
Width = 121
Height = 20
Text = 'bsSkinEdit2'
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
MaxLength = 16
ParentFont = False
TabOrder = 10
end
object bsSkinDBEdit4: TbsSkinDBEdit
Tag = 2
Left = 256
Top = 68
Width = 121
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 12
AutoSize = False
DataField = 'fmon'
DataSource = ds_disp
end
object bsSkinEdit4: TbsSkinEdit
Tag = 5
Left = 256
Top = 97
Width = 265
Height = 20
Text = 'bsSkinEdit2'
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object bsSkinEdit3: TbsSkinEdit
Tag = 5
Left = 256
Top = 68
Width = 121
Height = 20
Text = 'bsSkinEdit2'
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 11
end
object bsSkinEdit5: TbsSkinEdit
Left = 256
Top = 12
Width = 121
Height = 20
Text = 'bsSkinEdit5'
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'
ReadOnly = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object bsSkinDBDateEdit1: TbsSkinDBDateEdit
Tag = 2
Left = 400
Top = 67
Width = 121
Height = 20
EditMask = '!0000/99/99;1; '
Text = ' - - '
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 36922.564581134260000000
TodayDefault = False
CalendarWidth = 200
CalendarHeight = 150
CalendarFont.Charset = DEFAULT_CHARSET
CalendarFont.Color = clWindowText
CalendarFont.Height = 14
CalendarFont.Name = 'Arial'
CalendarFont.Style = []
FirstDayOfWeek = Sun
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = True
SkinData = bsSkinData1
SkinDataName = 'buttonedit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
Enabled = False
MaxLength = 10
ParentFont = False
TabOrder = 16
AutoSize = False
DataField = 'fdate'
DataSource = ds_disp
end
object bsSkinDateEdit1: TbsSkinDateEdit
Tag = 5
Left = 400
Top = 67
Width = 121
Height = 20
EditMask = '!0000/99/99;1; '
Text = '2001- 1-31'
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 36922.567597164350000000
TodayDefault = False
CalendarWidth = 300
CalendarHeight = 200
CalendarFont.Charset = DEFAULT_CHARSET
CalendarFont.Color = clWindowText
CalendarFont.Height = 14
CalendarFont.Name = 'Arial'
CalendarFont.Style = []
FirstDayOfWeek = Sun
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
ButtonMode = True
SkinData = bsSkinData1
SkinDataName = 'buttonedit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 15
end
end
end
inherited bsSkinGroupBox2: TbsSkinGroupBox
Width = 577
Height = 260
inherited bsSkinDBGrid2: TbsSkinDBGrid
Width = 556
Height = 217
HScrollBar = bsSkinScrollBar2
VScrollBar = bsSkinScrollBar1
DataSource = ds_disp
Columns = <
item
Expanded = False
FieldName = 'fid'
Title.Caption = #25910#36141#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
object bsSkinScrollBar1: TbsSkinScrollBar
Left = 557
Top = 23
Width = 19
Height = 217
TabOrder = 1
Visible = False
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 = 5
Min = 1
Max = 9
Position = 1
SmallChange = 1
LargeChange = 1
end
object bsSkinScrollBar2: TbsSkinScrollBar
Left = 1
Top = 240
Width = 575
Height = 19
TabOrder = 2
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 = False
BothMarkerWidth = 19
BothSkinDataName = 'bothhscrollbar'
CanFocused = False
Align = alBottom
Kind = sbHorizontal
PageSize = 0
Min = 0
Max = 127
Position = 0
SmallChange = 127
LargeChange = 127
end
end
inherited bsBusinessSkinForm1: TbsBusinessSkinForm
Left = 392
Top = 40
end
inherited bsSkinData1: TbsSkinData
Left = 416
Top = 40
end
inherited ALToolbar: TActionList
Left = 480
end
inherited spsave: TADOStoredProc
Left = 448
end
inherited spdisp: TADOStoredProc
CursorType = ctStatic
AfterOpen = spdispAfterOpen
ProcedureName = 'pDispDylx_sj;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@hylx'
Attributes = [paNullable]
DataType = ftString
Size = 2
Value = Null
end>
Left = 200
end
inherited ds_disp: TDataSource
Left = 168
end
object ds_sjcs: TDataSource
DataSet = tbl_sjcs
Left = 48
Top = 281
end
object ds_sjxh: TDataSource
DataSet = tbl_sjxh
Left = 48
Top = 313
end
object ds_sjco: TDataSource
DataSet = tbl_sjco
Left = 48
Top = 345
end
object tbl_sjco: TADOTable
Connection = dm.ADOConnection1
TableName = 'tcolor'
Left = 88
Top = 345
end
object ds_sjpz: TDataSource
DataSet = tbl_sjpz
Left = 48
Top = 377
end
object tbl_sjpz: TADOTable
Connection = dm.ADOConnection1
TableName = 'tjbpz'
Left = 88
Top = 377
end
object tbl_sjcs: TADOQuery
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from tsjcs'
'where tsjcs.fuse='#39'T'#39)
Left = 88
Top = 281
end
object tbl_sjxh: TADOTable
Connection = dm.ADOConnection1
IndexFieldNames = 'fsjcs'
MasterFields = 'fid'
MasterSource = ds_sjcs
TableName = 'tsjxh'
Left = 88
Top = 313
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -