📄 baseptype.dfm
字号:
inherited frmBasePType: TfrmBasePType
Left = 272
Top = 147
Caption = #20379#24212#21830#31867#21035#22522#30784#36164#26009
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter [0]
Left = 193
Top = 38
Width = 4
Height = 303
end
object DBGrid1: TDBGrid [2]
Left = 0
Top = 38
Width = 193
Height = 303
Align = alLeft
DataSource = dsBaseInfo
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fCode'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = 'fName'
Width = 100
Visible = True
end>
end
object Panel1: TPanel [3]
Left = 197
Top = 38
Width = 339
Height = 303
Align = alClient
TabOrder = 2
object Panel2: TPanel
Left = 16
Top = 18
Width = 305
Height = 289
BevelOuter = bvNone
BorderStyle = bsSingle
TabOrder = 0
object Label1: TLabel
Left = 0
Top = 26
Width = 83
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = #31867#21035#32534#21495#65306
end
object Label2: TLabel
Left = 0
Top = 59
Width = 83
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = #31867#21035#21517#31216#65306
end
object Label3: TLabel
Left = -5
Top = 90
Width = 88
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = #22791' '#27880#65306
end
object DBEdit1: TDBEdit
Left = 94
Top = 23
Width = 185
Height = 21
CharCase = ecUpperCase
DataField = 'fCode'
DataSource = dsBaseInfo
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 94
Top = 55
Width = 185
Height = 21
DataField = 'fName'
DataSource = dsBaseInfo
TabOrder = 1
end
object DBMemo1: TDBMemo
Left = 94
Top = 84
Width = 185
Height = 185
DataField = 'fNotes'
DataSource = dsBaseInfo
TabOrder = 2
end
end
end
inherited ALToolbar: TActionList
Top = 8
end
inherited QBaseInfo: TADOQuery
AfterInsert = QBaseInfoAfterInsert
SQL.Strings = (
'Select * from tPType')
Left = 408
Top = 8
object QBaseInfofCode: TWideStringField
DisplayLabel = #31867#21035#32534#21495
DisplayWidth = 15
FieldName = 'fCode'
OnValidate = QBaseInfofCodeValidate
Size = 50
end
object QBaseInfofTypeName: TWideStringField
DisplayLabel = #31867#21035#21517#31216
DisplayWidth = 25
FieldName = 'fName'
Size = 50
end
object QBaseInfofNotes: TWideStringField
DisplayLabel = #22791#27880
FieldName = 'fNotes'
Visible = False
Size = 50
end
end
inherited dsBaseInfo: TDataSource
Left = 440
Top = 8
end
inherited QIsUnique: TADOQuery
Active = True
CursorType = ctStatic
Parameters = <
item
Name = 'code'
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 50
Value = Null
end>
SQL.Strings = (
'Select fid from tPType where fcode=:code')
end
inherited wwLookupDlg: TwwLookupDialog
Selected.Strings = (
'fCode'#9'15'#9#31867#21035#32534#21495#9'F'
'fName'#9'25'#9#31867#21035#21517#31216#9'F')
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -