📄 datamz1.dfm
字号:
object XyMzInQueryyp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object XyMzInQuerysc_fact: TStringField
FieldName = 'sc_fact'
FixedChar = True
Size = 36
end
object XyMzInQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '###########0.00###'
Precision = 18
Size = 5
end
object XyMzInQueryin_amou: TIntegerField
FieldName = 'in_amou'
end
object XyMzInQueryin_date: TDateTimeField
FieldName = 'in_date'
end
object XyMzInQueryqr_date: TDateTimeField
FieldName = 'qr_date'
end
object XyMzInQueryin_man: TStringField
FieldName = 'in_man'
FixedChar = True
Size = 8
end
object XyMzInQueryqr_man: TStringField
FieldName = 'qr_man'
FixedChar = True
Size = 8
end
object XyMzInQueryout_man: TStringField
FieldName = 'out_man'
FixedChar = True
Size = 8
end
end
object XyMzInSource: TDataSource
DataSet = XyMzInQuery
Left = 440
Top = 179
end
object RecipeXmSource: TDataSource
DataSet = RecipeXmQuery
Left = 112
Top = 223
end
object RecipeQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
DataSource = RecipeXmSource
Parameters = <
item
Name = 'hj_id'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
SQL.Strings = (
'select my_id,'
' XyId.yp_name,'
' XyId.yp_spec,'
' XyId.yp_unit,'
' yp_batch,'
' sc_fact,'
' qr_date,'
' ls_price,'
' yp_amou'
'from XyMzVali,XyId'
'where XyMzVali.yp_id=XyId.yp_id and'
' hj_id=:hj_id')
Left = 192
Top = 223
object RecipeQuerymy_id: TAutoIncField
FieldName = 'my_id'
ReadOnly = True
end
object RecipeQueryyp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object RecipeQueryyp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object RecipeQueryyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object RecipeQueryyp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object RecipeQuerysc_fact: TStringField
FieldName = 'sc_fact'
FixedChar = True
Size = 10
end
object RecipeQueryqr_date: TDateTimeField
FieldName = 'qr_date'
end
object RecipeQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '###########0.00###'
Precision = 18
Size = 5
end
object RecipeQueryyp_amou: TIntegerField
FieldName = 'yp_amou'
end
end
object RecipeSource: TDataSource
DataSet = RecipeQuery
Left = 264
Top = 223
end
object RecipeHzSource: TDataSource
DataSet = RecipeHzQuery
Left = 432
Top = 223
end
object LifeOmenSource: TDataSource
DataSet = LifeOmenQuery
Left = 100
Top = 268
end
object LifeOmenQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <
item
Name = 'Lday'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = 0
end>
SQL.Strings = (
'select XyMzStor.in_id,'
' yp_life,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' XyMzStor.sc_fact,'
' XyMzStor.ls_price,'
' mz_amou'
'from XyMzStor,XyDkInId,XyId'
'where XyMzStor.in_id=XyDkInId.in_id and'
' XyMzStor.yp_id=XyId.yp_id and '
' datediff(day,getdate(),yp_life)<=:Lday'
'order by yp_life')
Left = 20
Top = 268
object LifeOmenQueryin_id: TIntegerField
FieldName = 'in_id'
end
object LifeOmenQueryyp_life: TDateTimeField
FieldName = 'yp_life'
end
object LifeOmenQueryyp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object LifeOmenQueryyp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object LifeOmenQueryyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object LifeOmenQuerysc_fact: TStringField
FieldName = 'sc_fact'
FixedChar = True
Size = 36
end
object LifeOmenQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '###########0.00###'
Precision = 18
Size = 5
end
object LifeOmenQuerymz_amou: TIntegerField
FieldName = 'mz_amou'
end
end
object KcOmenSource: TDataSource
DataSet = KcOmenQuery
Left = 268
Top = 268
end
object KcOmenQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select XyId.yp_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' sum(XyMzStor.mz_amou),'
' mzless_amou'
'from XyMzStor,XyId,XyKcRefe'
'where XyMzStor.yp_id=XyId.yp_id and'
' XyKcRefe.yp_id=XyId.yp_id'
'group by XyId.yp_id,yp_name,yp_spec,yp_unit,mzless_amou'
'having sum(XyMzStor.mz_amou)<=mzless_amou'
''
'union'
'select XyId.yp_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' 0,'
' mzless_amou'
'from XyId,XyKcRefe'
'where XyKcRefe.yp_id=XyId.yp_id and'
' XyId.yp_id not in (select yp_id'
' from XyMzStor)'
''
' ')
Left = 188
Top = 268
end
object SwitchQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
''
''
''
''
''
''
''
''
''
''
''
' ')
Left = 335
Top = 46
end
object XyReQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzRe;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@mzdayiden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 208
Top = 46
end
object XyKcWhQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzKcWhQuery;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@mzdayiden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 22
Top = 179
object XyKcWhQueryin_id: TIntegerField
FieldName = 'in_id'
end
object XyKcWhQueryyp_id: TSmallintField
FieldName = 'yp_id'
end
object XyKcWhQueryyp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object XyKcWhQueryyp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object XyKcWhQueryyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object XyKcWhQueryyp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object XyKcWhQuerysc_fact: TStringField
FieldName = 'sc_fact'
FixedChar = True
Size = 36
end
object XyKcWhQuerymz_amou: TIntegerField
FieldName = 'mz_amou'
end
object XyKcWhQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '#########0.00###'
Precision = 18
Size = 5
end
object XyKcWhQueryday_iden: TBooleanField
FieldName = 'day_iden'
end
object XyKcWhQueryfirstday_iden: TBooleanField
FieldName = 'firstday_iden'
end
object XyKcWhQuerymz_tank: TIntegerField
FieldName = 'mz_tank'
end
end
object XyMzInHzQuery: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzInHz;1'
Parameters = <
item
Name = 'RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
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'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end
item
Name = '@MaxYpId'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 182
Top = 179
object XyMzInHzQueryypid: TSmallintField
FieldName = 'ypid'
ReadOnly = True
end
object XyMzInHzQueryypname: TStringField
FieldName = 'ypname'
ReadOnly = True
Size = 24
end
object XyMzInHzQueryypspec: TStringField
FieldName = 'ypspec'
FixedChar = True
end
object XyMzInHzQueryypunit: TStringField
FieldName = 'ypunit'
FixedChar = True
Size = 4
end
object XyMzInHzQueryinamou: TIntegerField
FieldName = 'inamou'
ReadOnly = True
end
object XyMzInHzQueryinmoney: TBCDField
FieldName = 'inmoney'
ReadOnly = True
DisplayFormat = '###########0.00###'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -