📄 datamz1.~dfm
字号:
object DataMzf1: TDataMzf1
OldCreateOrder = False
Left = 21
Top = 95
Height = 359
Width = 643
object XyMzQuitQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <
item
Name = 'hjid'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = 0
end>
SQL.Strings = (
'select my_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' yp_batch,'
' sc_fact,'
' yp_amou,'
' ls_price,'
' qr_date'
'from XyMzVali,XyId'
'where XyMzVali.yp_id=XyId.yp_id and'
' XyMzVali.hj_id=:hjid')
Left = 40
Top = 8
end
object XyMzXmQuitQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <
item
Name = 'hjid'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = 0
end>
SQL.Strings = (
'select xm_name,'
' hz_name,'
' sk_man,'
' qr_man,'
' hj_date,'
' ys_money'
'from MzYpSf,XmId'
'where MzYpSf.xm_id=XmId.xm_id and'
' XmId.Xy_iden=1 and'
' MzYpSf.hj_id=:hjid')
Left = 48
Top = 56
end
object XyMzQuitSource: TDataSource
DataSet = XyMzQuitQuery
Left = 120
Top = 8
end
object XyMzXmQuitSource: TDataSource
DataSet = XyMzXmQuitQuery
Left = 144
Top = 56
end
object XyMzQuitQuery1: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <
item
Name = 'hjid'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = 0
end>
SQL.Strings = (
'select my_id,'
' hj_id,'
' quit_hj_id,'
' quit_fh'
'from XyMzVali'
'where hj_id=:hjid')
Left = 200
Top = 8
end
object XyReSource: TDataSource
DataSet = XyReQuery
Left = 288
Top = 56
end
object XyKcReQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
''
''
'')
Left = 37
Top = 102
end
object XyKcWhSource: TDataSource
DataSet = XyKcWhQuery
Left = 186
Top = 104
end
object RecipeXmSource: TDataSource
DataSet = RecipeXmQuery
Left = 112
Top = 168
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 = 168
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 = 168
end
object RecipeHzSource: TDataSource
DataSet = RecipeHzQuery
Left = 432
Top = 168
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 = Null
end
item
Name = '@mzdayiden'
Attributes = [paNullable]
DataType = ftSmallint
Precision = 5
Value = 0
end>
Left = 224
Top = 56
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 = 110
Top = 104
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 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 = 168
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 = 168
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 = 268
Top = 112
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 = 350
Top = 112
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 = 432
Top = 16
end
object XyMzLsUser: TADOQuery
Connection = XyMzLsConnection
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select suser_sname()')
Left = 432
Top = 64
end
object XyMzLsUserSource: TDataSource
DataSet = XyMzLsUser
Left = 440
Top = 112
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 = 280
Top = 8
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 = 352
Top = 6
end
object KcPrin: TADOStoredProc
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
ProcedureName = 'Wh_XyMzKcPrinQueryls;1'
Parameters = <>
Left = 28
Top = 222
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -