📄 datamz1.dfm
字号:
object DataMzf1: TDataMzf1
OldCreateOrder = False
Left = 312
Top = 146
Height = 453
Width = 635
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 = 24
Top = 2
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 = 32
Top = 46
end
object XyMzQuitSource: TDataSource
DataSet = XyMzQuitQuery
Left = 104
Top = 2
end
object XyMzXmQuitSource: TDataSource
DataSet = XyMzXmQuitQuery
Left = 128
Top = 46
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 = 184
Top = 2
end
object XyReSource: TDataSource
DataSet = XyReQuery
Left = 272
Top = 46
end
object XyMzLossQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select XyMzLoss.in_id,'
' XyDkInId.yp_id,'
' XyId.yp_code,'
' XyId.yp_name,'
' XyId.yp_spec,'
' XyId.yp_unit,'
' XyDkInId.yp_batch,'
' XyDkInId.ls_price,'
' XyDkInId.sc_fact,'
' XyMzLoss.loss_amou,'
' XyMzLoss.loss_reas'
'from XyMzLoss,XyId,XyDkInId'
'where XyMzLoss.in_id=XyDkInId.in_id and'
' XyId.yp_id=XyDkInId.yp_id and'
' XyMzLoss.my_id=0')
Left = 24
Top = 91
end
object XyMzLossSource: TDataSource
DataSet = XyMzLossQuery
Left = 112
Top = 91
end
object XyMzLossQuery1: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select in_id,'
' ls_price,'
' loss_amou,'
' loss_reas'
'from XyMzLoss'
'where my_id=0')
Left = 200
Top = 91
end
object LossValiQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select XyMzLoss.my_id,'
' XyId.yp_name,'
' XyId.yp_spec,'
' XyId.yp_unit,'
' XyDkInId.yp_batch,'
' XyMzLoss.ls_price,'
' XyMzLoss.loss_amou,'
' XyMzLoss.loss_date,'
' XyMzLoss.cz_man, '
' XyMzLoss.qr_man,'
' XyMzLoss.loss_reas'
'from XyMzLoss,XyId,XyDkInId'
'where XyMzLoss.in_id=XyDkInId.in_id and'
' XyId.yp_id=XyDkInId.yp_id and'
' XyMzLoss.qr_man is null ')
Left = 280
Top = 91
object LossValiQuerymy_id: TAutoIncField
FieldName = 'my_id'
ReadOnly = True
end
object LossValiQueryyp_name: TStringField
FieldName = 'yp_name'
FixedChar = True
Size = 24
end
object LossValiQueryyp_spec: TStringField
FieldName = 'yp_spec'
FixedChar = True
end
object LossValiQueryyp_unit: TStringField
FieldName = 'yp_unit'
FixedChar = True
Size = 4
end
object LossValiQueryyp_batch: TStringField
FieldName = 'yp_batch'
FixedChar = True
Size = 10
end
object LossValiQueryls_price: TBCDField
FieldName = 'ls_price'
DisplayFormat = '###########0.00###'
Precision = 18
Size = 5
end
object LossValiQueryloss_amou: TIntegerField
FieldName = 'loss_amou'
end
object LossValiQueryloss_date: TDateTimeField
FieldName = 'loss_date'
end
object LossValiQuerycz_man: TStringField
FieldName = 'cz_man'
FixedChar = True
Size = 8
end
object LossValiQueryqr_man: TStringField
FieldName = 'qr_man'
FixedChar = True
Size = 8
end
object LossValiQueryloss_reas: TStringField
FieldName = 'loss_reas'
FixedChar = True
Size = 30
end
end
object LossValiSource: TDataSource
DataSet = LossValiQuery
Left = 352
Top = 91
end
object XyKcReQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
''
''
'')
Left = 21
Top = 136
end
object XyNightQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select in_id, '
' XyMzStor.yp_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' yp_batch,'
' sc_fact,'
' mz_amou,'
' ls_price,'
' night_iden'
'from XyId, XyMzStor,XyKcRefe'
'where XyId.yp_id=XyMzStor.yp_id and'
' XyId.yp_id=XyKcRefe.yp_id and'
' (XyKcRefe.mz_night_iden=1 or'
' XyMzStor.night_iden=1)'
'order by XyMzStor.yp_id '
''
''
''
''
''
''
''
''
''
''
''
' ')
Left = 90
Top = 136
end
object XyNightSource: TDataSource
DataSet = XyNightQuery
Left = 161
Top = 136
end
object XySeleQuery1: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
Parameters = <
item
Name = 'YpId'
Attributes = [paSigned]
DataType = ftSmallint
Precision = 5
Size = 2
Value = Null
end>
SQL.Strings = (
'select in_id, '
' XyMzStor.yp_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' night_iden,'
' yp_batch,'
' sc_fact,'
' mz_amou,'
' ls_price,'
' firstday_iden'
'from XyId, XyMzStor'
'where XyId.yp_id=XyMzStor.yp_id and'
' XyMzStor.yp_id=:YpId')
Left = 368
Top = 136
end
object XySeleSource1: TDataSource
DataSet = XySeleQuery1
Left = 440
Top = 136
end
object XyDayQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select in_id, '
' XyMzStor.yp_id,'
' yp_name,'
' yp_spec,'
' yp_unit,'
' yp_batch,'
' sc_fact,'
' mz_amou,'
' ls_price,'
' firstday_iden'
'from XyId, XyMzStor,XyKcRefe'
'where XyId.yp_id=XyMzStor.yp_id and'
' XyId.yp_id=XyKcRefe.yp_id and'
' (XyKcRefe.mz_day_iden=1 or'
' XyMzStor.firstday_iden=1)'
'order by XyMzStor.yp_id '
''
''
''
''
''
''
''
''
''
''
''
' ')
Left = 231
Top = 136
end
object XyDaySource: TDataSource
DataSet = XyDayQuery
Left = 298
Top = 136
end
object XyKcWhSource: TDataSource
DataSet = XyKcWhQuery
Left = 98
Top = 179
end
object DayNightQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
CursorType = ctStatic
LockType = ltBatchOptimistic
Parameters = <>
SQL.Strings = (
'select mzstor_iden,'
' auto_iden'
'from MzStor_Day_Night'
''
''
''
''
''
''
''
''
''
''
''
' ')
Left = 263
Top = 2
end
object DayNightSource: TDataSource
DataSet = DayNightQuery
Left = 344
Top = 2
end
object XyMzInHzSource: TDataSource
DataSet = XyMzInHzQuery
Left = 272
Top = 179
end
object XyMzInQuery: TADOQuery
Connection = DataMzf.XyMzValiConnection
LockType = ltBatchOptimistic
DataSource = XyMzInHzSource
Parameters = <
item
Name = 'YpId'
Attributes = [paSigned]
DataType = ftSmallint
Precision = 5
Size = 2
Value = Null
end
item
Name = 'SDate'
Attributes = [paNullable]
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'Edate'
Attributes = [paNullable]
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end>
SQL.Strings = (
'select XyMzIn.my_id,'
' yp_batch,'
' sc_fact,'
' XyMzIn.ls_price,'
' in_amou,'
' XyMzIn.in_date,'
' XyMzIn.qr_date,'
' XyMzIn.in_man,'
' XyMzIn.qr_man,'
' XyMzIn.out_man'
'from XyMzIn,XyDkInId,XyId '
'where XyDkInId.yp_id=XyId.yp_id and'
' XyDkInId.in_id=XyMzIn.in_id and '
' XyDkInId.yp_id=:YpId and'
' XyMzIn.qr_man is not null and '
' XyMzIn.qr_date>=:SDate and '
' XyMzIn.qr_date<=:Edate')
Left = 360
Top = 179
object XyMzInQuerymy_id: TAutoIncField
FieldName = 'my_id'
ReadOnly = True
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -