📄 datamz1.dfm
字号:
Precision = 32
Size = 5
end
end
object RecipeXmQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzRecipe;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@QuitIden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@Sdate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@Edate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@HjId'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = 0
end
item
Name = '@QrMan'
Attributes = [paNullable]
DataType = ftString
Size = 16
Value = ''
end>
Left = 29
Top = 223
object RecipeXmQueryhzname: TStringField
FieldName = 'hzname'
ReadOnly = True
Size = 8
end
object RecipeXmQueryhj_id: TIntegerField
FieldName = 'hj_id'
end
object RecipeXmQuerysr_man: TStringField
FieldName = 'sr_man'
ReadOnly = True
Size = 8
end
object RecipeXmQueryysmoney: TBCDField
FieldName = 'ysmoney'
ReadOnly = True
DisplayFormat = '###########0.00###'
Precision = 32
Size = 2
end
object RecipeXmQueryva_man: TStringField
FieldName = 'va_man'
FixedChar = True
Size = 8
end
object RecipeXmQueryva_iden: TWordField
FieldName = 'va_iden'
end
end
object RecipeHzQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzRecipeHz;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@QuitIden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@ZjIden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@Sdate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@Edate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@MinYpClass'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpClass'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MinYpClassa'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpClassa'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MinYpId'
DataType = ftInteger
Value = 0
end
item
Name = '@MaxYpId'
DataType = ftInteger
Value = 0
end>
Left = 349
Top = 223
object RecipeHzQueryyp_id: TSmallintField
FieldName = 'yp_id'
ReadOnly = True
end
object RecipeHzQueryyp_name: TStringField
FieldName = 'yp_name'
ReadOnly = True
Size = 24
end
object RecipeHzQueryyp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object RecipeHzQueryyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object RecipeHzQuerymoney: TBCDField
FieldName = 'money'
ReadOnly = True
DisplayFormat = '###########0.00###'
Precision = 32
Size = 5
end
object RecipeHzQueryamou: TIntegerField
FieldName = 'amou'
ReadOnly = True
end
end
object RecipeYpQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
DataSource = RecipeHzSource
Parameters = <
item
Name = 'hj_id'
Attributes = [paSigned]
DataType = ftSmallint
Precision = 5
Size = 2
Value = Null
end>
SQL.Strings = (
'select my_id,'
' yp_batch,'
' sc_fact,'
' qr_date,'
' ls_price,'
' yp_amou,'
' hj_id,'
' qr_man'
'from XyMzVali'
'where yp_id=:hj_id')
Left = 344
Top = 269
object RecipeYpQuerymy_id: TAutoIncField
FieldName = 'my_id'
ReadOnly = True
end
object RecipeYpQueryyp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object RecipeYpQuerysc_fact: TStringField
FieldName = 'sc_fact'
FixedChar = True
Size = 10
end
object RecipeYpQueryqr_date: TDateTimeField
FieldName = 'qr_date'
end
object RecipeYpQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '###########0.00###'
Precision = 18
Size = 5
end
object RecipeYpQueryyp_amou: TIntegerField
FieldName = 'yp_amou'
end
object RecipeYpQueryhj_id: TIntegerField
FieldName = 'hj_id'
end
object RecipeYpQueryqr_man: TStringField
FieldName = 'qr_man'
FixedChar = True
Size = 8
end
end
object RecipeYpSource: TDataSource
DataSet = RecipeYpQuery
Left = 426
Top = 269
end
object XyMzLsConnection: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=wh;Initi' +
'al Catalog=qyyfy_run;Data Source=Qy_Nt;Locale Identifier=2052;Co' +
'nnect Timeout=0;Use Procedure for Prepare=1;Auto Translate=True;' +
'Packet Size=4096;Workstation ID=NEWWH'
ConnectionTimeout = 0
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 425
end
object XyMzLsUser: TADOQuery
Connection = XyMzLsConnection
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select suser_sname()')
Left = 425
Top = 44
end
object XyMzLsUserSource: TDataSource
DataSet = XyMzLsUser
Left = 433
Top = 89
end
object UserSource: TDataSource
DataSet = UserQuery
Left = 80
Top = 310
end
object UserQuery: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Password=tffw_;Persist Security Info=True;Us' +
'er ID=usergroup;Initial Catalog=qyyfy_run;Data Source=qy_nt;Loca' +
'le Identifier=2052;Connect Timeout=15;Use Procedure for Prepare=' +
'1;Auto Translate=True;Packet Size=4096;Workstation ID=NEWWH'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select uid,'
' name'
'from sysusers'
'where uid<10000 and'
' uid>4 and'
' uid in (select memberuid'
' from sysusers,sysmembers'
' where uid=groupuid and'
' (name='#39#35199#33647#38376#35786#30830#35748#32452#39' or'
' name='#39#35199#33647#38376#35786#36864#33647#32452#39' ))'
' '
'')
Left = 16
Top = 310
end
object YpQuery2: TADOStoredProc
Connection = DataMzf.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 = 152
Top = 312
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 = 224
Top = 310
end
object KcPrin: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzKcPrinQueryls;1'
Parameters = <>
Left = 292
Top = 321
end
object XyZyInQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzInQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = Null
end
item
Name = '@Sdate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@Edate'
Attributes = [paNullable]
DataType = ftDateTime
Value = 0d
end
item
Name = '@MinYpId'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpId'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MinYpClass'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpClass'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MinYpClassa'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpClassa'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@DkIden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 356
Top = 321
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -