📄 sjrcduo_un.dfm
字号:
Tag = 5
Left = 119
Top = 64
Width = 81
Height = 20
TabOrder = 10
SkinData = bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
DataField = 'fsjcsid'
DataSource = ds_disp
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fna'
ListSource = ds_sjcs
ReadOnly = True
end
object bsSkinDBEdit1: TbsSkinDBEdit
Tag = 5
Left = 280
Top = 117
Width = 121
Height = 20
Text = '1100'
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
AutoSize = False
DataField = 'fmon'
DataSource = ds_disp
end
object bsSkinDBEdit3: TbsSkinDBEdit
Tag = 5
Left = 280
Top = 89
Width = 121
Height = 20
Text = '3'
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 = 'fnum'
DataSource = ds_disp
end
object bsSkinDBEdit2: TbsSkinDBEdit
Tag = 5
Left = 280
Top = 145
Width = 121
Height = 20
Text = ' '
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
AutoSize = False
DataField = 'fmemo'
DataSource = ds_disp
end
object bsSkinButton1: TbsSkinButton
Left = 424
Top = 64
Width = 81
Height = 89
TabOrder = 14
SkinData = bsSkinData1
SkinDataName = 'resizebutton'
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 = #28155#21152#25163#26426#20018#21495
NumGlyphs = 1
Spacing = 1
OnClick = bsSkinButton1Click
end
object bsSkinEdit5: TbsSkinDBDateEdit
Tag = 5
Left = 280
Top = 61
Width = 120
Height = 20
EditMask = '!0000/99/99;1; '
Text = '2001- 1- 1'
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 36892.000000000000000000
TodayDefault = True
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
AutoSize = False
DataField = 'fdate'
DataSource = ds_disp
end
object bsSkinDateEdit1: TbsSkinDateEdit
Tag = 6
Left = 280
Top = 61
Width = 120
Height = 20
EditMask = '!0000/99/99;1; '
Text = '2001- 1-31'
AlphaBlend = False
AlphaBlendAnimation = False
AlphaBlendValue = 0
Date = 36922.577763750000000000
TodayDefault = True
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 = clWindowText
Font.Height = 14
Font.Name = 'Arial'
Font.Style = []
MaxLength = 10
ParentFont = False
TabOrder = 16
end
end
inherited bsSkinGroupBox2: TbsSkinGroupBox
Top = 217
Width = 621
Height = 203
inherited bsSkinDBGrid2: TbsSkinDBGrid
Width = 600
Height = 160
DataSource = ds_disp
Columns = <
item
Expanded = False
FieldName = 'fid'
Title.Caption = #25163#26426#20018#21495
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'fsjxh'
Title.Caption = #25163#26426#22411#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fjbpz'
Title.Caption = #22522#26412#37197#32622
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'fnum'
Title.Caption = #25968#37327
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'fmon'
Title.Caption = #21333#20215
Width = 30
Visible = True
end
item
Expanded = False
FieldName = 'fhyd'
Title.Caption = #36135#28304#22320
Visible = True
end
item
Expanded = False
FieldName = 'fdate'
Title.Caption = #36827#36135#26085#26399
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fmemo'
Title.Caption = #22791#27880
Visible = True
end>
end
inherited bsSkinScrollBar4: TbsSkinScrollBar
Top = 183
Width = 619
Visible = True
Both = True
Max = 127
end
inherited bsSkinScrollBar3: TbsSkinScrollBar
Left = 601
Height = 160
Visible = True
PageSize = 2
Max = 3
end
end
end
inherited bsBusinessSkinForm2: TbsBusinessSkinForm
Left = 448
end
inherited ALToolbar: TActionList
Left = 56
Top = 24
end
inherited spsave: TADOStoredProc
ProcedureName = 'pSjrcDuo;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@num'
Attributes = [paNullable]
DataType = ftInteger
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 = '@VJbpz'
Attributes = [paNullable]
DataType = ftString
Size = 3
Value = Null
end
item
Name = '@VId'
Attributes = [paNullable]
DataType = ftString
Size = 12
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>
Left = 320
Top = 16
end
inherited spdisp: TADOStoredProc
Active = True
CursorType = ctStatic
ProcedureName = 'pViewAllNotSaledHrcid;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end>
end
object ds_sjcs: TDataSource
DataSet = tbl_sjcs
Left = 232
Top = 201
end
object tbl_sjcs: TADOQuery
Connection = dm.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from tsjcs'
'where tsjcs.fuse='#39'T'#39)
Left = 304
Top = 209
end
object tbl_sjxh: TADOTable
Connection = dm.ADOConnection1
IndexFieldNames = 'fsjcs'
MasterFields = 'fid'
MasterSource = ds_sjcs
TableName = 'tsjxh'
Left = 184
Top = 209
end
object ds_sjxh: TDataSource
DataSet = tbl_sjxh
Left = 144
Top = 209
end
object ds_sjpz: TDataSource
DataSet = tbl_sjpz
Left = 144
Top = 273
end
object tbl_sjpz: TADOTable
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
TableName = 'tjbpz'
Left = 184
Top = 273
end
object ds_hyd: TDataSource
DataSet = tbl_hyd
Left = 248
Top = 265
end
object tbl_hyd: TADOTable
Connection = dm.ADOConnection1
Filter = 'fid>'#39'HY02'#39
Filtered = True
TableName = 'thyd'
Left = 288
Top = 265
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -