📄 datamz.dfm
字号:
end
end
object XySourceMz: TDataSource
DataSet = XyQueryMz
Left = 416
Top = 164
end
object XyQueryMz: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@YpCode'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = ''
end>
Left = 344
Top = 160
object XyQueryMzin_id: TIntegerField
FieldName = 'in_id'
end
object XyQueryMzyp_name: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object XyQueryMzyp_spec: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object XyQueryMzyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object XyQueryMzls_price: TBCDField
DisplayWidth = 7
FieldName = 'ls_price'
Precision = 18
Size = 5
end
object XyQueryMzyp_batch: TStringField
DisplayWidth = 8
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object XyQueryMzsc_fact: TStringField
DisplayWidth = 16
FieldName = 'sc_fact'
FixedChar = True
Size = 36
end
end
object YpQuery: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_YpQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@YpCode'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = ''
end>
Left = 24
Top = 224
object StringField1: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object StringField2: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object StringField3: TStringField
DisplayWidth = 4
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object YpQueryyp_id: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
end
object YpSource: TDataSource
DataSet = YpQuery
Left = 80
Top = 222
end
object YpQuery1: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_YpQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@YpCode'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = ''
end>
Left = 136
Top = 224
object StringField5: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object StringField6: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object StringField7: TStringField
DisplayWidth = 4
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object YpQuery1yp_id: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
end
object YpSource1: TDataSource
DataSet = YpQuery1
Left = 192
Top = 222
end
object YpQuery2: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_YpQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@YpCode'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = ''
end>
Left = 248
Top = 224
object StringField4: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object StringField8: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object StringField9: TStringField
DisplayWidth = 4
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object SmallintField1: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
end
object YpSource2: TDataSource
DataSet = YpQuery2
Left = 304
Top = 222
end
object YpClassQuery: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_class,'
' class_name'
'from XyClass')
Left = 376
Top = 220
end
object YpClassSource: TDataSource
DataSet = YpClassQuery
Left = 448
Top = 219
end
object YpClassaQuery: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_classa,'
' classa_name'
'from XyClassa')
Left = 24
Top = 268
end
object YpClassaSource: TDataSource
DataSet = YpClassaQuery
Left = 104
Top = 267
end
object YpClassQuery1: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_class,'
' class_name'
'from XyClass')
Left = 184
Top = 268
end
object YpClassSource1: TDataSource
DataSet = YpClassQuery1
Left = 264
Top = 267
end
object YpClassaQuery1: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_classa,'
' classa_name'
'from XyClassa')
Left = 344
Top = 268
end
object YpClassaSource1: TDataSource
DataSet = YpClassaQuery1
Left = 424
Top = 267
end
object YpClassQuery2: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_class,'
' class_name'
'from XyClass')
Left = 24
Top = 316
end
object YpClassSource2: TDataSource
DataSet = YpClassQuery2
Left = 102
Top = 316
end
object YpClassaQuery2: TADOQuery
Connection = XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select yp_classa,'
' classa_name'
'from XyClassa')
Left = 184
Top = 316
end
object YpClassaSource2: TDataSource
DataSet = YpClassaQuery2
Left = 267
Top = 316
end
object YpQuery3: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_YpQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@YpCode'
Attributes = [paNullable]
DataType = ftString
Size = 12
Value = ''
end>
Left = 344
Top = 312
object StringField10: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object StringField11: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object StringField12: TStringField
DisplayWidth = 4
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object SmallintField2: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
end
object YpSource3: TDataSource
DataSet = YpQuery3
Left = 400
Top = 310
end
object XyMzLsConnection: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;User ID=wh;Initial Catalog=qyyfy_run;Data Source=QY_NT;' +
'Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
';Workstation ID=NEWWH'
ConnectionTimeout = 0
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 116
Top = 6
end
object XyMzLsUser: TADOQuery
Connection = XyMzLsConnection
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select suser_sname()')
Left = 196
Top = 6
end
object XyMzLsUserSource: TDataSource
DataSet = XyMzLsUser
Left = 276
Top = 6
end
object Del: TADOStoredProc
Connection = XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_Dele;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@DelIden'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 0
end
item
Name = '@MyId'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 0
end>
Left = 456
Top = 312
object AutoIncField1: TAutoIncField
FieldName = 'in_id'
ReadOnly = True
end
object StringField13: TStringField
DisplayWidth = 18
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object StringField14: TStringField
DisplayWidth = 12
FieldName = 'yp_spec'
FixedChar = True
end
object StringField15: TStringField
DisplayWidth = 4
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object BCDField1: TBCDField
DisplayWidth = 7
FieldName = 'ls_price'
Precision = 18
Size = 5
end
object StringField16: TStringField
DisplayWidth = 8
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -