📄 uconststring.dfm
字号:
')'
''
'CREATE TABLE [mrp] ('
' [poid] [varchar] (20) NULL ,'
#9'[spno] [varchar] (30) NULL ,'
#9'[qtyNeed] [numeric](18, 4) NULL ,'
#9'[qtyPO] [numeric](18, 4) NULL ,'
' [qtyLeft] [numeric](18, 4) NULL ,'
' [InvQty] [numeric](18, 4) NULL , --'#29616#26377#24211#23384#25968#37327
' [InvQtyUsed] [numeric](18, 4) NULL , --'#26412#35746#21333#20351#29992#30340#24211#23384#25968#37327
' [InvQtyComing] [numeric](18, 4) NULL , --'#26412#35746#21333#20351#29992#30340#24050#35746#36141#26410#22238#20179#25968#37327
' [khid] [varchar] (20) NULL ,'
' [price] [numeric](18, 4) NULL ,'
' [amt] [numeric](18, 4) NULL'
')'
''
'CREATE TABLE [unit] ('
#9'[spunit] [varchar] (10) NULL'
')'
''
'CREATE TABLE [gt] ('
#9'[name] [varchar] (100) NULL ,'
#9'[value] [varchar] (255) NULL '
') '
''
''
'CREATE TABLE [kh] ('
#9'[khid] [varchar] (20) NOT NULL ,'
' [khType] [smallint] NOT NULL , --0'#65306#23458#25143#65292'1'#65306#20379#24212#21830
' [supType] [varchar] (20) NULL ,'
' [payTerm] [varchar] (20) NULL ,'
#9'[khname] [varchar] (100) NULL ,'
#9'[tel] [varchar] (30) NULL ,'
' [fax] [varchar] (30) NULL ,'
#9'[addr] [varchar] (100) NULL ,'
' [postalCode] [varchar] (30) NULL ,'
' [linkman] [varchar] (10) NULL ,'
' [website] [varchar] (50) NULL ,'
' [email] [varchar] (50) NULL ,'
#9'[remark] [varchar] (50) NULL'
')'
''
''
'CREATE TABLE [modeTable] ('
#9'[formName] [varchar] (100) NULL ,'
#9'[Caption] [varchar] (255) NULL '
') '
''
''
'CREATE TABLE [userPriv] ('
#9'[uid] [varchar] (10) NOT NULL ,'
#9'[formName] [varchar] (30) NULL ,'
#9'[piname] [varchar] (30) NULL'
') '
''
''
'CREATE TABLE [users] ('
#9'[uid] [varchar] (10) NULL ,'
#9'[uname] [varchar] (20) NULL ,'
#9'[pass] [varchar] (20) NULL ,'
#9'[csum] [int] NULL'
')'
''
''
'CREATE TABLE [LookupTab] ('
#9'[n] [int] NULL ,'
#9'[s] [varchar] (100) NULL'
')'
''
'CREATE TABLE [sp] ('
' [spType] [int] not NULL , --0'#65306#26009#20214#65292'1'#65306#25104#21697
' [spClass] [varchar] (20) NULL , --'#21830#21697#23376#31867#65306#22609#26009#20214#12289#20116#37329#20214#31561
#9'[spno] [varchar] (30) NOT NULL ,'
#9'[spname] [varchar] (50) NOT NULL ,'
#9'[spspec] [varchar] (50) NULL ,'
#9'[spunit] [varchar] (10) NULL ,'
' [InvQty] [numeric](18, 4) NULL , --'#29616#26377#24211#23384#25968#37327
' [InvQtyUsed] [numeric](18, 4) NULL , --'#24050#34987#35746#21333#20351#29992#24211#23384#25968#37327
' [InvQtyComing] [numeric](18, 4) NULL , --'#24050#35746#36141#26410#22238#20179#25968#37327
' [remark] [varchar] (50) NULL'
')'
''
'CREATE TABLE [bom] ('
' [spno] [varchar] (30) NOT NULL ,'
' [ljno] [varchar] (30) NOT NULL ,'
' [Qty] [decimal](18, 4) NULL ,'
' primary key(spno,ljno)'
')'
''
'CREATE TABLE [poBody] ('
#9'[poid] [varchar] (20) NULL ,'
#9'[spno] [varchar] (30) NULL ,'
#9'[qty] [numeric](18, 4) NULL ,'
#9'[price] [numeric](18, 4) NULL ,'
#9'[amt] [numeric](18, 4) NULL'
')'
''
''
'CREATE TABLE [poHead] ('
#9'[poid] [varchar] (20) NULL ,'
#9'[khid] [varchar] (20) NULL ,'
#9'[podate] [datetime] NULL ,'
#9'[needDate] [datetime] NULL ,'
#9'[ifok] [char] (2) NULL'
')'
''
'--END--CreateDB.SQL'
''
'--BEGIN--DBCheckTrigger2.SQL'
'CREATE TRIGGER trig_updateKHPrice'
'ON KHPrice'
'FOR UPDATE'
'AS'
'if UPDATE(price)'
'begin'
' set NoCount on'
' declare @expiryID int'
' select @expiryID=IsNULL(max(expiryID),0)+1 '
' from khPriceHist a, deleted b'
' where a.khid=b.khid and a.spno=b.spno'
' '
' insert into khPriceHist('
' khid, spno, price, curr, Price0, moq, modiDate, modifier, re' +
'mark, expiryDate, expiryID)'
' select'
' khid, spno, price, curr, Price0, moq, modiDate, modifier, re' +
'mark, getDate(), @expiryID'
' from deleted '
' '
'end'
'--END--DBCheckTrigger2.SQL'
''
'--BEGIN--DBCheckTrigger.SQL'
'CREATE TRIGGER trig_updateInv'
'ON invBody'
'FOR INSERT, UPDATE, DELETE'
'AS'
'begin'
' set NoCount on'
' declare @ioType smallint, @poid varchar(20), @invType varchar(' +
'20)'
' select @ioType=invHead.ioType,@poid=invHead.poid,@invType=in' +
'vHead.invType'
' from invHead, inserted '
' where invHead.invid=inserted.invid'
''
' if @ioType is null'
' select @ioType=invHead.ioType,@poid=invHead.poid,@invType=' +
'invHead.invType '
' from invHead,deleted'
' where invHead.invid=deleted.invid'
' '
' update sp'
' set invQty=isNULL(sp.invQty,0)+isNULL(inserted.Qty,0)*@ioType'
' from sp , inserted'
' where sp.spno=inserted.spno'
''
' update sp'
' set invQty=isNULL(sp.invQty,0)-isNULL(deleted.Qty,0)*@ioType'
' from sp, (select Qty=sum(Qty),spno from deleted group by spno)' +
' deleted'
' where sp.spno=deleted.spno'
''
' --'#35746#21333#37319#36141#20837#24211#37327#65292#36824#38656#22686#21152#24211#23384#24050#29992#37327#65292#20943#23569#24050#35746#26410#22238#37327
' if (isNULL(@poid,'#39#39')<>'#39#39') and ('#39#36141#26009#20837#24211#39'=@invType or '#39#36141#26009#36864#36135#39'=@invT' +
'ype) begin'
' update sp'
' set invQtyUsed=isNULL(sp.invQtyUsed,0)+isNULL(inserted.Qty,0' +
')*@ioType'
' , invQtyComing=0'
' from sp , inserted'
' where sp.spno=inserted.spno'
' '
' update sp'
' set invQtyUsed=isNULL(sp.invQtyUsed,0)-isNULL(deleted.Qty,0)' +
'*@ioType'
' , invQtyComing=0'
' from sp, (select Qty=sum(Qty),spno from deleted group by spn' +
'o) deleted'
' where sp.spno=deleted.spno '
' end'
' '
' --'#36710#38388#39046#36864#26009#65292#21516#26102#20462#25913#24211#23384#24050#29992#37327
' if ('#39#36710#38388#39046#26009#39'=@invType or '#39#36710#38388#36864#26009#39'=@invType or '
' '#39#22806#21457#21152#24037#39046#26009#39'=@invType or '#39#22806#21457#21152#24037#36864#26009#39'=@invType) '
' begin'
' update sp'
' set invQtyUsed=isNULL(sp.invQtyUsed,0)+isNULL(inserted.Qty,0' +
')*@ioType'
' from sp , inserted'
' where sp.spno=inserted.spno'
' '
' update sp'
' set invQtyUsed=isNULL(sp.invQtyUsed,0)-isNULL(deleted.Qty,0)' +
'*@ioType'
' from sp, (select Qty=sum(Qty),spno from deleted group by spn' +
'o) deleted'
' where sp.spno=deleted.spno '
' end '
' '
' insert into InvAudit(opName,spno,Qty,invid,ioType)'
' select '#39'inserted'#39', spno, Qty, invid, @ioType'
' from inserted'
''
' insert into InvAudit(opName,spno,Qty,invid,ioType)'
' select '#39'deleted'#39', spno, Qty, invid, @ioType'
' from deleted '
'end'
'--END--DBCheckTrigger.SQL'
''
''
''
''
'')
TabOrder = 0
WordWrap = False
end
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ImageIndex = 1
object memoMISC: TMemo
Left = 16
Top = 24
Width = 649
Height = 369
Lines.Strings = (
'--BEGIN--getPriv'
'select piname'
'from modetable a, userPriv b'
'where a.formName=b.formName and b.uid='#39'%s'#39
' and a.Caption='#39'%s'#39
'--END--getPriv'
''
'--'#25353#32791#29992#33258#21160#35745#31639#25104#21697#21333#20215
'--BEGIN--ReCalcProdPrice'
' select cpprice0=sum(a.Qty*b.Price0)'
' into #temp1'
' from bom a, sp b'
' where a.spno=%0:s and a.ljno=b.spno'
''
' select cpprice0, curr=(select curr from sp where spno=%0:s)'
' into #temp2'
' from #temp1'
''
' select cpprice0, cpprice=cpprice0/b.HB04'
' from #temp2 a, hd_huobi b'
' where a.curr=b.HB01'
'--END--ReCalcProdPrice'
''
'--BEGIN--UpdateMOwithPO'
' declare @poid varchar(20)'
''
' select @poid=poid from moHead where moid='#39'%0:s'#39
''
' --update Head'
' update moHead'
' set needDate=b.NeedDate, khid=b.khid'
' from moHead a, poHead b'
' where a.moid='#39'%0:s'#39' and b.poid=@poid'
''
' --update Body'
' delete from moBody where moid='#39'%0:s'#39
''
' insert into moBody(moid,spno,Qty)'
' select '#39'%0:s'#39',spno,Qty'
' from poBody'
' where poid=@poid'
'--END--UpdateMOwithPO'
''
'--'#26174#31034#26435#38480
'--BEGIN--showPI'
' select a.formName, a.Caption, b.piName, uid='#39'%0:s'#39
' ,case when IsNULL(CHARINDEX('#39'C'#39', b.piName),0)>0 then '#39'Y'#39' els' +
'e '#39'N'#39' end as CPow'
' ,case when IsNULL(CHARINDEX('#39'R'#39', b.piName),0)>0 then '#39'Y'#39' els' +
'e '#39'N'#39' end as RPow'
' ,case when IsNULL(CHARINDEX('#39'U'#39', b.piName),0)>0 then '#39'Y'#39' els' +
'e '#39'N'#39' end as UPow'
' ,case when IsNULL(CHARINDEX('#39'D'#39', b.piName),0)>0 then '#39'Y'#39' els' +
'e '#39'N'#39' end as DPow'
' ,case when IsNULL(CHARINDEX('#39'E'#39', b.piName),0)>0 then '#39'Y'#39' els' +
'e '#39'N'#39' end as EPow'
' ,'#39'N'#39' as ALLPow'
' ,Flag=1'
' into #temp1'
' from modeTable a left join'
' (select * from userPriv where uid='#39'%0:s'#39') b'
' on a.FormName=b.FormName'
''
' insert into #temp1(Flag,FormName,Uid,Caption,CPow,RPow,UPow,DP' +
'ow,EPow,ALLPow)'
' values(0,'#39#39','#39'%0:s'#39','#39#20840#37096#27169#22359#39','#39'N'#39','#39'N'#39','#39'N'#39','#39'N'#39','#39'N'#39','#39'N'#39')'
'--END--showPI'
''
''
''
'--'#26680#20934#37319#36141#24635#34920#65306#20135#29983#37319#36141#21333#25454'('#27599#20010#20379#24212#21830#19968#24352#21333')'#65292#20462#25913#21830#21697#24211#23384#37327
'--BEGIN--approveMRP'
' update mrpHead'
' set status='#39#25209#20934#39
' where poid=%0:s'
''
' --'#24403#21069'boid'
' declare @boid_num integer '
''
' select @boid_num=cast(right(IsNULL(max(boid),'#39'000'#39'),3) as inte' +
'ger)'
' from boHead'
' where boid like '#39'BO%1:s%%'#39
''
''
' --'#21024#38500#21407#26469#30340#37319#36141#21333
' delete from boBody'
' where boid in (select boid from boHead where poid=%0:s)'
''
' delete from boHead where poid=%0:s'
''
' --'#25554#20837#34920#22836
' select a.poid, a.needDate, b.khid'
' into #temp1'
' from mrpHead a, mrp b'
' where a.poid=%0:s and b.poid=%0:s'
' group by a.poid, a.needDate, b.khid'
''
' select boid=space(20), bodate='#39'%2:s'#39', boid_id=identity(int,1,1' +
'), boid_num=0, *'
' into #temp2'
' from #temp1'
''
' update #temp2 set boid_num=boid_id + @boid_num'
' update #temp2 set boid=boid_num'
' update #temp2 set boid=REPLICATE('#39'0'#39',3-Len(boid))+ boid'
' update #temp2 set boid='#39'BO%1:s'#39' + boid'
''
' insert into boHead(boid, poid, khid, bodate, needDate)'
' select boid, poid, khid, bodate, needDate'
' from #temp2'
' '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -