📄 frmjobtype.dfm
字号:
inherited FormDataJobType: TFormDataJobType
Left = 217
Top = 137
Caption = #24037#20316#32844#20301#20195#30721#31649#29702
PixelsPerInch = 96
TextHeight = 12
inherited LCDBOperatTool1: TLCDBOperatTool
DelConfirmId = 'DataJobType'
OnClick = LCDBOperatTool1Click
end
inherited DBEdtId: TDBEdit
DataField = 'Id'
end
inherited DBEdtName: TDBEdit
DataField = 'Name'
end
inherited DBMemoRemark: TDBMemo
DataField = 'Remark'
end
inherited ADOCon: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=GoodsManagementSystem_Data;Data Source=' +
'127.0.0.1'
end
inherited ADOTable: TADOTable
TableName = 't_JobType'
object ADOTableId: TSmallintField
FieldName = 'Id'
Required = True
end
object ADOTableName: TWideStringField
FieldName = 'Name'
Required = True
Size = 5
end
object ADOTableRemark: TMemoField
FieldName = 'Remark'
BlobType = ftMemo
end
end
object ADOQ: TADOQuery
Connection = ADOCon
Parameters = <
item
Name = 'id'
Attributes = [paSigned]
DataType = ftSmallint
Precision = 5
Size = 2
Value = Null
end>
SQL.Strings = (
'select * from t_JobType where id=:id')
Left = 440
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -