📄 addcp.dfm
字号:
inherited FormAddCP: TFormAddCP
Left = 304
Top = 145
Caption = #20135#21697#24405#20837
ClientHeight = 391
ClientWidth = 576
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited bsSkinPageControl1: TbsSkinPageControl
Width = 576
Height = 366
inherited bsSkinTabSheet1: TbsSkinTabSheet
object bsSkinStdLabel1: TbsSkinStdLabel
Left = 72
Top = 24
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #20135#21697#32534#21495#65306
end
object bsSkinStdLabel3: TbsSkinStdLabel
Left = 72
Top = 170
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #20135#21697#31867#21035#65306
end
object bsSkinStdLabel10: TbsSkinStdLabel
Left = 72
Top = 56
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #20135#21697#21517#31216#65306
end
object bsSkinStdLabel8: TbsSkinStdLabel
Left = 72
Top = 200
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #22791#27880#65306
end
object bsSkinStdLabel2: TbsSkinStdLabel
Left = 72
Top = 96
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #35268#26684#22411#21495#65306
end
object bsSkinStdLabel4: TbsSkinStdLabel
Left = 72
Top = 136
Width = 121
Height = 13
UseSkinFont = True
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = -11
DefaultFont.Name = 'MS Sans Serif'
DefaultFont.Style = []
SkinData = dbs.bsSkinData1
SkinDataName = 'stdlabel'
Alignment = taRightJustify
AutoSize = False
Caption = #21333#20301#65306
end
object bsSkinDBEdit1: TbsSkinDBEdit
Left = 199
Top = 21
Width = 170
Height = 18
Text = 'bsSkinDBEdit1'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBlack
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
ButtonMode = False
SkinData = dbs.bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
AutoSize = False
DataField = #20135#21697#32534#21495
DataSource = dsAdd
end
object bsSkinDBEdit2: TbsSkinDBEdit
Left = 199
Top = 53
Width = 170
Height = 18
Text = 'bsSkinDBEdit2'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBlack
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
ButtonMode = False
SkinData = dbs.bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
AutoSize = False
DataField = #20135#21697#21517#31216
DataSource = dsAdd
end
object bsSkinDBMemo1: TbsSkinDBMemo
Left = 200
Top = 200
Width = 313
Height = 100
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = #23435#20307
Font.Style = []
Lines.Strings = (
'bsSkinDBMemo1')
ParentFont = False
TabOrder = 2
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBlack
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
BitMapBG = False
SkinData = dbs.bsSkinData1
SkinDataName = 'memo'
DataField = #22791#27880
DataSource = dsAdd
end
object bsSkinDBEdit3: TbsSkinDBEdit
Left = 199
Top = 93
Width = 170
Height = 18
Text = 'bsSkinDBEdit3'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBlack
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
ButtonMode = False
SkinData = dbs.bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
AutoSize = False
DataField = #35268#26684#22411#21495
DataSource = dsAdd
end
object bsSkinDBEdit4: TbsSkinDBEdit
Left = 199
Top = 133
Width = 170
Height = 18
Text = 'bsSkinDBEdit4'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clBlack
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
UseSkinFont = True
DefaultWidth = 0
DefaultHeight = 0
ButtonMode = False
SkinData = dbs.bsSkinData1
SkinDataName = 'edit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = 14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
AutoSize = False
DataField = #21333#20301
DataSource = dsAdd
end
object bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
Left = 200
Top = 168
Width = 169
Height = 20
TabOrder = 5
SkinData = dbs.bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = #23435#20307
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
DataField = #31867#21035#32534#21495
DataSource = dsAdd
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = #31867#21035#32534#21495
ListField = #31867#21035#21517#31216
ListSource = DataSource1
end
end
end
inherited bsSkinToolBar1: TbsSkinToolBar
Width = 576
end
inherited cdsAdd: TADODataSet
CommandText = 'select * from '#20135#21697' where '#20135#21697#32534#21495'=:id'
Parameters = <
item
Name = 'id'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 40
Value = Null
end>
object cdsAddDSDesigner: TStringField
FieldName = #20135#21697#32534#21495
Size = 40
end
object cdsAddDSDesigner2: TBCDField
FieldName = #31867#21035#32534#21495
Precision = 18
Size = 0
end
object cdsAddDSDesigner3: TStringField
FieldName = #20135#21697#21517#31216
Size = 100
end
object cdsAddDSDesigner4: TStringField
FieldName = #35268#26684#22411#21495
end
object cdsAddDSDesigner5: TStringField
FieldName = #21333#20301
Size = 10
end
object cdsAddDSDesigner6: TStringField
FieldName = #22791#27880
Size = 200
end
end
object ADODataSet1: TADODataSet
Active = True
CacheSize = 1000
Connection = dbs.ADOConn
CursorType = ctStatic
CommandText = 'select '#31867#21035#32534#21495', '#31867#21035#21517#31216' from '#20135#21697#31867#21035
Parameters = <>
Left = 425
Top = 56
object ADODataSet1DSDesigner: TBCDField
FieldName = #31867#21035#32534#21495
ReadOnly = True
Precision = 18
Size = 0
end
object ADODataSet1DSDesigner2: TStringField
FieldName = #31867#21035#21517#31216
Size = 100
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 453
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -