在【编辑】菜单的“复制全部单据(Y)”之下一次增加菜单【寄售对账】、【寄售反对账】和【寄售对账设置…】 在右键菜单中，在“复制全部单据(Y)”菜单之下一次增加右键菜单【寄售对账】和【寄售反对账】

首先添加2个按钮到t_MenuToolBar 中，自定义的FToolID 是10000（非必须），并且不能重复（必须）

Delete From t_MenuToolBar Where FToolID in( 11000,10009)

insert into t_MenuToolBar ( FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,FVisible,FEnable,FChecked,FShortCut,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN)

values (11000,'FMenuCheckQP','寄售对账','寄售对账','寄售对账','','寄售对账','寄售对账','寄售对账',0,0,1,0,0,'','','',0,0,0,'寄售对账','寄售对账','寄售对账')

go

insert into t_MenuToolBar ( FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,FVisible,FEnable,FChecked,FShortCut,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN)

values (10009,'FMenuUnCheckQP','寄售反对账','寄售反对账','寄售反对账','','寄售反对账','寄售反对账','寄售反对账',0,0,1,0,0,'','','',0,0,0,'寄售反对账','寄售反对账','寄售反对账')

go

FMenuCheckQP，FMenuUnCheckQP是2个按钮的Key；

再把按钮指定到的对应的序时簿上

--只在销售出库单序时薄显示按钮(如果里面有"|V",则只能在后面加菜单项)

Update IclistTemplate

set FLogicStr=FLogicStr+

Case When Right(FLogicStr,1)='|' then 'V:FMenuCheckQP,FMenuUnCheckQP'

else '|V:FMenuCheckQP,FMenuUnCheckQP'

end

where FID =8 and not FLogicStr like '%FMenuCheckQP,FMenuUnCheckQP%'

让FLogicStr包含|V:FMenuCheckQP,FMenuUnCheckQP的串；如果已经存在|V:xxxx,xx.就把

FMenuCheckQP,FMenuUnCheckQP放在xxxx,xx后面。要保证这个字符串里面最多只有一个|V:

select FMenuID,* from IclistTemplate where fname = '销售出库'

--FMenuID=82

--将上面的按钮插入到工具栏和菜单栏

--菜单栏,FID对应iclisttemplate里的FMenuID, FBandID表示放在哪个菜单下，可以通

过以下语句关联得到是哪个菜单

select a.*,b.fname,b.FCaption From

t_BandToolMapping a, t_MenuToolBar b where a.FID = 82 and a.ftoolid=b.ftoolid

order by a.FBandID,a.FIndex

Delete From t_BandToolMapping where FBandID=3 and FToolID in( 11000,10009) and FID = 82

insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) values (82,3,11000,0,88,'|Project1.ListBill',0)

insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) values (82,3,10009,0,89,'|Project1.ListBill',0)

--工具栏（根据需求看需不需要增加）

--Delete From t_BandToolMapping where FBandID=53 and FToolID in( 10009,10002) and FID = 82

--insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) --values (82,53,11000,0,196,'|Project1.ListBill',0)

--insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) --values (82,53,10009,0,197,'|Project1.ListBill',0)

Project1.ListBill就是点击这个按钮要调用的插件组件名和类名；开发可以自己定义名称；

创建

Project1

项目，

在

ListBill类

中添加代码 

Public Sub MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean) 

‘这个函数名、传参必须是这个，不要改；

    Dim str As String 

    Dim o As KFO.Vector 

    Dim i As Long 

    Dim Dict As KFO.Dictionary 

    If sKey = "FMenuCheckQP" Then        

        oList.MultiSelect = 2 

        Set o = oList.GetSelected 

        For i = 1 To o.UBound 

            Set Dict = o(i) str = str & "," & Dict("FBillNo") & "FMenuCheckQP" 

        Next MsgBox str 

    End 

    If If sKey = "FMenuUnCheckQP" Then        

        oList.MultiSelect = 2 

        Set o = oList.GetSelected 

        For i = 1 To o.UBound 

            Set Dict = o(i) str = str & "," & Dict("FBillNo") & "FMenuUnCheckQP" 

        Next 

        MsgBox str 

    End If 

    Set o = Nothing 

    Set Dict = Nothing 

End Sub

再序时簿插件中与数据库交互，用K3Connection.AppConnection类（调试时这个函数会报错，正式运行时不会，因为2开调试没有加载kdmain.exe主程序的代码，没有mmts.propstring这个东西）

Public Function ExecuteSqlWithRecordset(ByVal strSql As String) As Recordset Dim cn As Object 

Dim Rs As ADODB.Recordset 

On Error GoTo HErr 

Set cn = CreateObject("K3Connection.AppConnection") 

Set Rs = cn.Execute(strSql) 

Set ExecuteSqlWithRecordset = Rs 

Set cn = Nothing 

Set Rs = Nothing 

Exit Function 

HErr: 

Set cn = Nothing 

Set Rs = Nothing 

Err.Raise Err.Number, " K3QPConsOrderCheck.clsDataBase.ExecuteUpdateSql", Err.Description 

End Function

完