讀取表單數(shù)據(jù)庫-U8界面按鈕二次開發(fā)手冊

U8界面按鈕二次開發(fā)手冊適用范圍U8ToolBar原則上都可以支持二次開發(fā)行為，但由于某些界面沒有這方面的需求，所以并沒有支持二次開發(fā)功能如何檢查是否支持二次開發(fā)在一個界面上同時按住Ctrl+Shift并點擊任何一個按鈕，這樣你所需要的信息將被Copy到寫字板(附件中的寫字板)上，（注意不是記事本notepad）。數(shù)據(jù)預置數(shù)據(jù)預置在Meta庫中的Meta數(shù)據(jù)庫,表AA_CustomerButton中。說明：

字段名說明cButtonID按鈕ID，GUIDcButtonKey按鈕KeycButtonTypedefault表示一般按鈕，menu表示菜單，system表示替換系統(tǒng)按鈕的功能，執(zhí)行自己的方法。cProjectNO不允許使用U870項目號，客戶化項目用U8CustDefcFormKey無用cVoucherKey單據(jù)的KeycKeyBefore如果cButtonType是default則此鍵表示自定義按鈕前的按鈕key如果cButtonType是menu則表示菜單所在的按鈕如果cButtonType是system則表示需要替換的按鈕keyiOrder無用cGroup分組IEDIT，ICOMMONcCustomerObjectName組件名cCaption標題cLocaleID語種zh-cn,zh-tw,en-uscImage圖標的文件名cHotKey快捷鍵如Ctrl+AbInneralCommand是否內(nèi)部命令，設置為1cVariant自定義內(nèi)容,里面的值會傳給處理的組件cVisibleAsKey設置顯示狀態(tài)與系統(tǒng)的那個按鈕鍵值一致cEnableAsKey設置Enable狀態(tài)與系統(tǒng)的那個按鈕鍵值一致銷售訂單的數(shù)據(jù)預置腳本銷售訂單的保存按鈕后面增加一個按鈕的腳本INSERTINTO[AA_CustomerButton]([cButtonID],[cButtonKey],[cButtonType],[cProjectNO],[cFormKey],[cVoucherKey],[cKeyBefore],[iOrder],[cGroup],[cCustomerObjectName],[cCaption],[cLocaleID],[cImage],[cToolTip],[cHotKey],[bInneralCommand],[cVariant],[cVisibleAsKey],[cEnableAsKey])VALUES(newid(),'btntest','default','U8CustDef','17','17','save','0','IEDIT','U8Test.mytestclass','測試','zh-cn','','測試','Ctrl+N',1,'測試數(shù)據(jù)','save','save')注意：U8Test.mytestclass類需要注冊，否則會報Activex不能創(chuàng)建對象。直接替換銷售訂單的保存按鈕按鈕的腳本INSERTINTO[AA_CustomerButton]([cButtonID],[cButtonKey],[cButtonType],[cProjectNO],[cFormKey],[cVoucherKey],[cKeyBefore],[iOrder],[cGroup],[cCustomerObjectName],[cCaption],[cLocaleID],[cImage],[cToolTip],[cHotKey],[bInneralCommand],[cVariant],[cVisibleAsKey],[cEnableAsKey])VALUES(newid(),'btntest2','system','U8CustDef','17','17','save','0','IEDIT','U8Test.mytestclass','測試','zh-cn','','測試','Ctrl+N',1,'測試數(shù)據(jù)','save','save')注意：U8Test.mytestclass類需要注冊，否則會報Activex不能創(chuàng)建對象。組件接口新建一個VB工程名稱位U8Test新建一個VB類（名稱為mytestclass），并寫入以下方法即可，下面是讀取u8單據(jù)內(nèi)容‘執(zhí)行按鈕，objVoucher為單據(jù)或列表對象‘VarentValue為在表中預置的cVariant的值。PublicFunctionRunCommand(ByValobjLoginAsObject,ByValobjFormAsObject,ByValobjVoucherAsObject,_ByValsKeyAsString,ByValVarentValueAsVariant,ByValotherAsString)DimstrStringStr=objVoucher.HeaderText(“單據(jù)表頭字段名稱”);‘執(zhí)行數(shù)據(jù)庫代碼自己網(wǎng)上找EndFunction‘初始化PublicFunctionInit(ByValobjLoginAsObject,ByValobjFormAsObject,ByValobjVoucherAsObject,msbarAsObject)EndFunction‘在執(zhí)行系統(tǒng)按鈕只前調(diào)用,Cancel后會不再執(zhí)行系統(tǒng)方法。PublicFunctionBeforeRunSysCommand(ByValobjLoginAsObject,ByValobjFormAsObject,ByValobjVoucherAsObject,_ByValsKeyAsString