📄 urep.dfm
字号:
'set diff=(select sum(Qty*ioType)'
' from #temp3 a'
' where a.rid<=#temp3.rid and a.spno=#temp3.spno)'
''
''
''
''
''
'')
TabOrder = 6
WordWrap = False
end
object Memo8: TMemo
Left = 392
Top = 80
Width = 350
Height = 57
Lines.Strings = (
'select a.poid, a.khid, a.poDate, a.NeedDate, b.spno'
' , b.qty, b.price, b.amt, id=0, ioType=1, diff=cast(0 as numeri' +
'c(18,4))'
' , djType='#39#23458#25143#35746#21333' '#39', djID=a.poid'
'into #temp1'
'from poHead a, poBody b'
'where a.poid='#39'%0:s'#39' and b.poid='#39'%0:s'#39
''
'insert into #temp1('
' poid, khid, poDate, NeedDate, spno'
' , qty, price, amt, id, ioType, diff'
' , djType, djID)'
'select a.poid, a.khid, a.invDate, NULL, b.spno'
' , b.qty, b.price, b.amt, id=1, -1*a.ioType, 0'
' , a.invType, djID=a.invid'
'from invHead a, invBody b'
'where a.poid='#39'%0:s'#39' and a.invid=b.invid'
' and (a.invType='#39#36710#38388#20837#24211#39' or a.invType='#39#22806#21457#21152#24037#20837#24211#39' or a.invType='#39#22806#21457#21152#24037 +
#36864#36135#39')'
''
'select a.*,b.spname,b.spspec,b.spunit'
'into #temp2'
'from #temp1 a, sp b'
'where a.spno=b.spno'
''
'select *,rid=identity(int,1,1)'
'into #temp3'
'from #temp2'
'order by spno, id, poDate'
''
'update #temp3'
'set diff=(select sum(Qty*ioType)'
' from #temp3 a'
' where a.rid<=#temp3.rid and a.spno=#temp3.spno)'
''
''
''
''
''
'')
TabOrder = 7
WordWrap = False
end
end
object SeCustomTabSheet4: TSeCustomTabSheet
Caption = #26009#20214#24211#23384#32479#35745
PageIndex = 3
PageVisible = True
object JvDBGrid3: TJvDBGrid
Left = 0
Top = 0
Width = 496
Height = 443
Align = alClient
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 18
TitleRowHeight = 18
Columns = <
item
Expanded = False
FieldName = 'spno'
Title.Alignment = taCenter
Title.Caption = #26009#20214#32534#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'spname'
Title.Alignment = taCenter
Title.Caption = #21697#21517
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'spspec'
Title.Alignment = taCenter
Title.Caption = #35268#26684
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'invqty'
Title.Alignment = taCenter
Title.Caption = #24211#23384#25968#37327
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'spUnit'
Title.Alignment = taCenter
Title.Caption = #21333#20301
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end>
end
object SeSkinPanel3: TSeSkinPanel
Left = 496
Top = 0
Width = 274
Height = 443
Performance = kspNoBuffer
Transparent = True
Align = alRight
AnimateRoll = False
BevelWidth = 1
BorderWidth = 3
ButtonKind = pbkRoll
Caption = #26597#35810#26465#20214
Rolled = False
ParentRoll = False
ShowBevel = True
ShowButton = False
ShowCaption = True
SkinObject = 'Panel'
NormalHeight = {00000000}
object SeSkinLabel4: TSeSkinLabel
Left = 13
Top = 64
Width = 42
Height = 14
Performance = kspNoBuffer
Transparent = True
Caption = #26009#20214#65306
Color = clBtnFace
ParentColor = False
SkinObject = 'Label'
end
object SeSkinButton6: TSeSkinButton
Left = 16
Top = 249
Width = 89
Height = 26
Performance = kspDoubleBuffer
Transparent = False
OnClick = SeSkinButton6Click
BlackAndWhiteGlyph = False
Caption = #26597#35810'(&Q)'
State = kbsNormal
TabOrder = 0
WordWrap = False
ShowCaption = True
ShowGlyph = True
SkinObject = 'Button'
end
object SeSkinButton7: TSeSkinButton
Left = 16
Top = 289
Width = 89
Height = 26
Performance = kspDoubleBuffer
Transparent = False
Visible = False
OnClick = SeSkinButton1Click
BlackAndWhiteGlyph = False
Caption = #25171#21360'(&P)'
State = kbsNormal
TabOrder = 1
WordWrap = False
ShowCaption = True
ShowGlyph = True
SkinObject = 'Button'
end
object SeSkinButton8: TSeSkinButton
Left = 16
Top = 337
Width = 89
Height = 26
Performance = kspDoubleBuffer
Transparent = False
OnClick = SeSkinButton2Click
BlackAndWhiteGlyph = False
Caption = #36864#20986'(&X)'
State = kbsNormal
TabOrder = 2
WordWrap = False
ShowCaption = True
ShowGlyph = True
SkinObject = 'Button'
end
object wwDBLookupCombo1: TwwDBLookupCombo
Left = 9
Top = 91
Width = 240
Height = 22
HelpType = htKeyword
DropDownAlignment = taRightJustify
Selected.Strings = (
'spno'#9'12'#9#21830#21697#32534#21495#9'F'
'spname'#9'18'#9#21830#21697#21517#31216#9'F'
'spspec'#9'18'#9#35268#26684#9'F'
'spunit'#9'5'#9#21333#20301#9'F')
DataField = 'spno'
LookupTable = DM.QDM_LJ
LookupField = 'spno'
Style = csDropDownList
TabOrder = 3
AutoDropDown = True
ShowButton = True
UseTFields = False
PreciseEditRegion = False
AllowClearKey = False
ShowMatchText = True
end
end
end
object SeCustomTabSheet5: TSeCustomTabSheet
Caption = #35746#21333#27424#36135#24773#20917#34920
PageIndex = 4
PageVisible = True
object JvDBGrid4: TJvDBGrid
Left = 0
Top = 0
Width = 496
Height = 443
Align = alClient
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
SelectColumnsDialogStrings.Caption = 'Select columns'
SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
SelectColumnsDialogStrings.OK = '&OK'
SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
EditControls = <>
RowsHeight = 18
TitleRowHeight = 18
Columns = <
item
Expanded = False
FieldName = 'poid'
Title.Alignment = taCenter
Title.Caption = #35746#21333#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'moid'
Title.Alignment = taCenter
Title.Caption = #21046#21333#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Visible = False
end
item
Expanded = False
FieldName = 'spno'
Title.Alignment = taCenter
Title.Caption = #25104#21697#32534#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'spname'
Title.Alignment = taCenter
Title.Caption = #21697#21517
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'spspec'
Title.Alignment = taCenter
Title.Caption = #35268#26684
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'poDate'
Title.Alignment = taCenter
Title.Caption = #19979#21333#26085#26399
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'poQty'
Title.Alignment = taCenter
Title.Caption = #35746#21333#25968#37327
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'invDate'
Title.Alignment = taCenter
Title.Caption = #36865#36135#26085#26399
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'invid'
Title.Alignment = taCenter
Title.Caption = #36865#36135#21333#21495
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end
item
Expanded = False
FieldName = 'invQty'
Title.Alignment = taCenter
Title.Caption = #36865#36135#25968#37327
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clNavy
Title.Font.Height = -14
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -