Epicor905水晶報(bào)表與客戶化

Presentedby:EricZheng,TechnologyConsulter

BICSoftware技術(shù)培訓(xùn)TechnicalTraining培訓(xùn)提綱水晶報(bào)表相關(guān)應(yīng)用客戶化、.NET編程水晶報(bào)表水晶報(bào)表的安裝，設(shè)計(jì)。BAQ報(bào)表設(shè)計(jì)者的使用如何修改系統(tǒng)自帶報(bào)表。連接外部水晶報(bào)表客戶化調(diào)用水晶報(bào)表、.NET程序調(diào)用水晶報(bào)表?？蛻艋?、.NET編程1、客戶化界面功能介紹。2、客戶化里使用VB.NET如何操作數(shù)據(jù)庫(kù)、調(diào)用水晶報(bào)表、調(diào)用外掛程序以及系統(tǒng)自定義表開發(fā)方法等。3、.NET編程操作數(shù)據(jù)庫(kù)；調(diào)用水晶報(bào)表等。4、外掛程序與系統(tǒng)結(jié)合的常用作法。EPICOR系統(tǒng)有大量專業(yè)水晶報(bào)表供使用，并提供了水晶報(bào)表的開發(fā)環(huán)境，有專項(xiàng)功能與之銜接(BAQ報(bào)表設(shè)計(jì)者)。對(duì)于水晶報(bào)表的使用，有以下幾點(diǎn)。

水晶報(bào)表①、ODBC為數(shù)據(jù)源連接。操作步驟：新建報(bào)表→標(biāo)準(zhǔn)報(bào)表創(chuàng)建向?qū)А鷦?chuàng)建新連接→ODBC一、水晶報(bào)表數(shù)據(jù)源點(diǎn)擊ODBC節(jié)點(diǎn)后出現(xiàn)如下圖所示，選擇建立好的ODBC數(shù)據(jù)源。點(diǎn)擊NEXT。輸入用戶ID，密碼，點(diǎn)擊Finish。進(jìn)入數(shù)據(jù)庫(kù)專家界面，如下圖。點(diǎn)擊添加命令。出現(xiàn)輸入SQL語(yǔ)句界面，輸入SQL語(yǔ)句，點(diǎn)擊確定。回到數(shù)據(jù)庫(kù)專家界面，點(diǎn)擊OK，至此完成數(shù)據(jù)源的設(shè)置。下圖為設(shè)置好數(shù)據(jù)源后的水晶報(bào)表設(shè)計(jì)界面。將字段插入水晶報(bào)表中，點(diǎn)擊預(yù)覽可看到報(bào)表效果。②、A(xml)為數(shù)據(jù)源。 Epicor系統(tǒng)中BAQ報(bào)表設(shè)計(jì)者使用的就是此種方式。首先生成XML文件，再建立水晶報(bào)表以之作為數(shù)據(jù)源。

操作步驟：新建報(bào)表→標(biāo)準(zhǔn)報(bào)表創(chuàng)建向?qū)А鷦?chuàng)建新連接→ADO.NET(XML)。雙擊進(jìn)入如下界面，輸入XML文件路徑。點(diǎn)擊完成→標(biāo)準(zhǔn)報(bào)表創(chuàng)建向?qū)Аx中如下右圖所示a，選至右邊選定的表一欄。點(diǎn)擊完成結(jié)束數(shù)據(jù)源設(shè)置。下圖為設(shè)置好數(shù)據(jù)源后的水晶報(bào)表設(shè)計(jì)界面。插入字段到報(bào)表，點(diǎn)擊預(yù)覽可看到報(bào)表效果。①、插入?yún)R總、節(jié)專家、組專家、選擇專家等等的使用。組專家。如下圖，進(jìn)入組專家后，選取要以之分組的字段到右邊欄位。選項(xiàng)設(shè)置屬性。確定后按所選字段分組，右圖為分組效果。二、水晶報(bào)表公式，程序應(yīng)用分組項(xiàng)節(jié)專家使用。節(jié)專家界面的設(shè)置可以對(duì)報(bào)表進(jìn)行靈活的控制。插入?yún)R總。插入?yún)R總項(xiàng)可進(jìn)行數(shù)據(jù)求和、求平均、最大、最小值等功能。②、公式字段、參數(shù)字段使用公式字段。水晶報(bào)表公式編輯可使用Basic語(yǔ)法和Crystal語(yǔ)法。如下圖，建立公式字段“數(shù)量和”，編輯寫入公式，保存后退出公式編輯器。公式編輯框使用“數(shù)量和”字段。得到如下結(jié)果。數(shù)量和=加工數(shù)量+不合格數(shù)量程序里添加1個(gè)FORM窗體。拖入水晶報(bào)表控件。如下圖所示。三、程序調(diào)用水晶報(bào)表水晶報(bào)表控件編寫水晶報(bào)表使用函數(shù)，有2種方式傳入數(shù)據(jù)源。①、傳入SQL語(yǔ)句。SubPrintView(ByValserverAsString,ByValPortAsString,ByValpathAsString,ByValsqlAsString)DimconstrAsStringDimdatabaseAsString="mfgsys"DimusernameAsString="sysprogress"DimpasswordAsString="sysprogress"constr="Driver={ProgressOpenEdge10.1Cdriver};DB="&_database&";UID="&username&";PWD="&password&";HOST="&server&";PORT="&PortDimrptdocAsNewCrystalDecisions.CrystalReports.Engine.ReportDocumentTryrptdoc.Load(path)rptdoc.SetDataSource(Query(sql,constr))Me.CrystalReportViewer1.ReportSource=rptdocMe.CrystalReportViewer1.RefreshReport()Me.Show()CatchexAsExceptionMessageBox.Show(ex.Message,"Error")EndTryEndSub傳入?yún)?shù)為服務(wù)器名/IP、端口號(hào)、水晶報(bào)表路徑、SQL語(yǔ)句。其中也使用到open(constr),query(sql,constr)函數(shù)。②、傳入dt

(DATATABLE)。PublicSubPrintViewXML(ByValpathAsString,ByValdtAsDataTable)DimrptdocAsNewCrystalDecisions.CrystalReports.Engine.ReportDocumentTryrptdoc.Load(path)rptdoc.SetDataSource(dt)Me.CrystalReportViewer1.ReportSource=rptdocMe.CrystalReportViewer1.RefreshReport()Me.Show()CatchexAsExceptionMessageBox.Show(ex.Message,"Error")EndTryEndSub傳入?yún)?shù)為水晶報(bào)表路徑、dt。以此方式可靈活使用水晶報(bào)表，傳入的dt可在程序中自由構(gòu)建數(shù)據(jù)。程序中調(diào)用這個(gè)FORM的2個(gè)函數(shù)，傳入相應(yīng)參數(shù)，即可預(yù)覽、打印水晶報(bào)表。系統(tǒng)的客戶化中通過(guò)調(diào)用外掛程序也可實(shí)現(xiàn)水晶報(bào)表的打印。Epicor的客戶化平臺(tái)，可在系統(tǒng)原有基礎(chǔ)上編寫程序?qū)崿F(xiàn)功能。開發(fā)環(huán)境有VB.NET和C#2種。通過(guò)客戶化，可以實(shí)現(xiàn)自定義表開發(fā)、調(diào)用外掛程序、水晶報(bào)表、數(shù)據(jù)操作等功能。二、客戶化進(jìn)入客戶化。①、向?qū)ы?yè)簽是設(shè)置事件類型的功能.規(guī)則向?qū)Э稍O(shè)置在不同條件下數(shù)據(jù)的規(guī)則。1、客戶化界面介紹②、窗體事件向?qū)Э商砑痈鞣N事件.在窗體上有相應(yīng)改變的情況下觸發(fā)。例：AfterFieldChange事件，在字段值發(fā)生改變時(shí)出發(fā)。③、表單向?qū)Э尚略鲆粋€(gè)新的Tab頁(yè).④、事件向?qū)?，所有自定義控件的方法事件。一般使用的是VB.NET開發(fā)環(huán)境。因此，數(shù)據(jù)操作與.net中類似。主要包括以下3個(gè)函數(shù)。①、打開數(shù)據(jù)庫(kù)連接： Open(byvalconstrasstring)；②、返回1個(gè)DataTable： FunctionQuery(ByValsqlAsString)AsData.DataTable；③、執(zhí)行插入、刪除、更新動(dòng)作： SubExcuteSql(ByValsqlAsString)；(詳細(xì)內(nèi)容在外掛程序使用中有說(shuō)明。)2、數(shù)據(jù)操作。Epicor系統(tǒng)有用戶自定義數(shù)據(jù)表供使用者開發(fā)。①、進(jìn)入系統(tǒng)菜單維護(hù)→新建菜單項(xiàng)→輸入菜單ID,名稱。點(diǎn)擊程序…→選取要開發(fā)的自定義表dll.例如我們要用UD107表進(jìn)行客戶化(表單UD107對(duì)應(yīng)的自定義表為UD107和UD107A)。如圖選擇對(duì)應(yīng)的Epicor.Mfg.UI.UD107Entry.dll文件后。點(diǎn)擊保存，重新登錄系統(tǒng)可看到剛添加的自定義表菜單項(xiàng)。3、自定義表開發(fā)。②、開發(fā)人員模式進(jìn)入剛新建的菜單。彈出客戶化選擇框(若已有客戶化則會(huì)顯示在Customizations節(jié)點(diǎn)中)，點(diǎn)擊確定進(jìn)入界面。右鍵彈出菜單項(xiàng)，選擇客戶化進(jìn)入客戶化模式。③、進(jìn)入客戶化環(huán)境后，可對(duì)其進(jìn)行開發(fā)設(shè)計(jì)。包括屬性設(shè)置、程序編寫等等。下圖提示為：文本框如何綁定到數(shù)據(jù)表字段。點(diǎn)此可設(shè)置文本框所綁定的數(shù)據(jù)表字段④、完成客戶化后，保存。保存后可到菜單維護(hù)發(fā)布完成的客戶化。如圖所示：此處可選擇已完成的客戶化。如何在客戶化中調(diào)用外掛程序。①、如圖所示，外掛程序完成后，進(jìn)入MyProject。應(yīng)用程序類型選擇為類庫(kù)，點(diǎn)擊生成按鈕，編譯成dll文件。4、調(diào)用外掛②、將生成的dll文件放到Epicor安裝目錄的client目錄下。③、如圖，點(diǎn)擊工具欄→半成品參考管理器。④、選中customAssemblies→添加自定義參考。⑤、選取要調(diào)用的dll文件，如右圖所示，點(diǎn)擊確定。⑥、至此外掛程序已被引用到客戶化中。測(cè)試引用。添加1個(gè)epiButton1，在epiButton1的click事件中寫入以下代碼 PrivateSubepiButton1_Click(ByValsenderAsObject,ByValargsAsSystem.EventArgs) '**PlaceEventHandlingCodeHere**Dimfrmasneworderback.form1 Dimstrasstringstr=frm.GridValue_back(“Driver={ProgressOpenEdge10.1CDriver};DB=mfgsys;UID=sysprogress;PWD=sysprogress;HOST=daniel;PORT=9080”,“echom”) ‘GridValue_back()為外掛程序中的函數(shù)msgbox(str) EndSub⑦、更新代碼，測(cè)試通過(guò)后，保存客戶化代碼。關(guān)閉界面重新進(jìn)入客戶化，選擇剛剛保存的客戶化進(jìn)入。點(diǎn)擊epiButton1進(jìn)行測(cè)試。⑧、如下圖所示，調(diào)用出frm.form1窗體。

至此完成客戶化調(diào)用外掛程序。①、獲取當(dāng)前公司company,服務(wù)器host,端口號(hào)port。Dimsasstring=OTrans.Session.AppServercompany=OTrans.Session.CompanyIDhost=Mid(s,InStrRev(s,"http://")+2,InStrRev(s,":")-InStrRev(s,"http://")-2)port=Strings.Right(s,Len(s)-InStrRev(s,":"))port=Mid(port,1,2)+CStr(Int(Mid(port,3,1))+5)+CStr(Int(Mid(port,4,1))-1)②、調(diào)用系統(tǒng)功能。

oTrans.Undo()‘撤銷oTrans.update()‘保存oTrans.Refresh()‘刷新界面ProcessCaller.LaunchForm(Otrans,“UD_GDQL”)‘調(diào)用系統(tǒng)菜單項(xiàng)?！癠D_GDQL”為菜單ID。。。。。。③、根據(jù)條件彈出選擇框，并返回DataSetFunctionSearchShowToDS(ByValstrAtapterNameasstring,ByValstrWhereClauseasstring,ByRefdsSearchAsDataSet)DimrecSelectedAsBooleanTrydsSearch=Epicor.Mfg.UI.FormFunctions.SearchFunctions.listLookup(otrans,strAtapterName,recSelected,True,strWhereClause)CatchexAsExceptionMessageBox.Show(ex.Message.ToString)EndTryReturnrecSelectedEndFunction5、系統(tǒng)函數(shù)方法使用。④、視圖取值，賦值。DimRcvHeadAsEpiDataView=CType(oTrans.EpiDataViews("RcvHead"),EpiDataView)

‘定義RcvHead為視圖oTrans.EpiDataViews("RcvHead")。

IfRcvHead.row<0thenExitSub

‘如果視圖無(wú)值，退出程序。

PackSlip=RcvHead.dataview(RcvHead.row)(“PackSlip”).Tostring

‘取視圖RcvHead里PackSlip字段的值。EpiDataView.row為視圖索引值。

給EpiDataView.row賦值可以定位視圖位置。例：EpiDataView.row=0。將視圖定位到第一頁(yè)。RcvHead.dataview(RcvHead.row)(“PackSlip”)=PackSlip‘為視圖賦值。⑤、使用系統(tǒng)界面已有控件。正常情況系統(tǒng)自身加入的各種控件，如Grid,Textbox等，我們無(wú)法使用。經(jīng)過(guò)下面的方法可以實(shí)現(xiàn)操作系統(tǒng)界面已有控件。例：tmpgrid為系統(tǒng)自身已有Grid。DimtmpgridasEpicor.Mfg.UI.FrameWork.EpiUltraGridtmpgrid=ctype(csm.GetNativeControlReference("27d314e8-4849-47df-a4db-2dda5d27ae90"),EpiUltraGrid)Epicor.Mfg.UI.FrameWork.EpiUltraGrid為控件類型。27d314e8-4849-47df-a4db-2dda5d27ae90為控件屬性里的EpiGuid項(xiàng)。經(jīng)過(guò)以上代碼可以實(shí)現(xiàn)操作tmpgrid。例：tmpgrid.datasource.table.Columns.Counttmpgrid列數(shù)。外掛程序基于VB.NET開發(fā)。對(duì)于EPICOR系統(tǒng)，外掛程序開發(fā)主要包括以下幾個(gè)方面的內(nèi)容。

一、VB.NET外掛程序開發(fā)外掛程序中，數(shù)據(jù)操作是必不可少的。主要包括數(shù)據(jù)的讀取，寫入，更新等等。程序編寫使用的是ADO.NET對(duì)象操作數(shù)據(jù)。連接方式為ODBC。首先來(lái)了解一下ADO.NET對(duì)象。1、數(shù)據(jù)操作ADO.NET的對(duì)象主要包括： Connection,Command,DataAdapter,DataReader，DataSet，DataTable,dateview,DataColumn,和DataRow

①、DataSet：這個(gè)對(duì)象是一個(gè)集合對(duì)象，可以當(dāng)成一個(gè)離線的數(shù)據(jù)庫(kù)它可以包含任意數(shù)量的數(shù)據(jù)表，以及所有表的約束、索引和關(guān)系。所有這些信息都以XML的形式存在，我們可以處理、遍歷、搜索任意或者全部的數(shù)據(jù)。

①、DataReader對(duì)象：它與DataSet最大的不同是有連接式的，每次對(duì)數(shù)據(jù)庫(kù)進(jìn)行存取都會(huì)影響到數(shù)據(jù)庫(kù)。

②、DataTable：這個(gè)對(duì)象代表著可以在DataSet對(duì)象內(nèi)找到的所有表，

③、Connection對(duì)象：用于連接數(shù)據(jù)庫(kù)的對(duì)象，表示到數(shù)據(jù)源的一個(gè)唯一的連接。

④、Command對(duì)象：表示要對(duì)數(shù)據(jù)庫(kù)執(zhí)行的一個(gè)SQL語(yǔ)句或一個(gè)存儲(chǔ)過(guò)程。

⑤、DataAdapter對(duì)象：該對(duì)象是與DataSet配合使用的對(duì)象，用于把表填充到DataSet，和更新DataSet等。

⑥、DataColumn：表包含與列有關(guān)的信息，包括列的名稱、類型和屬性。我們可以按照下面的方式創(chuàng)建DataColumn對(duì)象，指定數(shù)據(jù)類型，然后把列加入到表。

⑦、DataRow：要填充一個(gè)表，我們可以使用命令的自動(dòng)數(shù)據(jù)綁定功能，或者也可以手工添加行斷開連接模式。

斷開連接模式適合網(wǎng)絡(luò)數(shù)據(jù)量大、系統(tǒng)節(jié)點(diǎn)多、網(wǎng)絡(luò)結(jié)構(gòu)復(fù)雜，尤其是通過(guò)Internet/Intranet進(jìn)行連接的網(wǎng)絡(luò)。典型的ADO.NET斷開連接模式應(yīng)用如右圖所示。斷開連接模式下數(shù)據(jù)訪問(wèn)的步驟:(1)使用Connection對(duì)象連接數(shù)據(jù)庫(kù)。(2)使用Command對(duì)象獲取數(shù)據(jù)庫(kù)的數(shù)據(jù)。(3)把Command對(duì)象的運(yùn)行結(jié)果存儲(chǔ)在DataAdapter(數(shù)據(jù)適配器)對(duì)象中。(4)把DataAdapter對(duì)象中的數(shù)據(jù)填充到DataSet(數(shù)據(jù)集)對(duì)象中。(5)關(guān)閉Connection對(duì)象。(6)在客戶機(jī)本地內(nèi)存保存的DataSet(數(shù)據(jù)集)對(duì)象中執(zhí)行數(shù)據(jù)的各種操作。(7)操作完畢后，啟動(dòng)Connection對(duì)象連接數(shù)據(jù)庫(kù)。(8)利用DataAdapter對(duì)象更新數(shù)據(jù)庫(kù)。(9)關(guān)閉Connection對(duì)象。

ADO.NET訪問(wèn)數(shù)據(jù)庫(kù)的機(jī)制及非數(shù)據(jù)庫(kù)模式過(guò)程：Subopen(ByValcnstrAsString)TryCon=NewOdbc.OdbcConnection(cnstr)IfCon.State=ConnectionState.ClosedThenCon.Open()EndIfCatchexAsExceptionMessageBox.Show(ex.Message.ToString,"數(shù)據(jù)庫(kù)連接失敗")EndTryEndSub傳入的cnstr為ODBC連接字符串。例：constr=“Driver={ProgressOpenEdge10.1CDriver};DB=mfgsys;UID=sysprogress;PWD=sysprogress;HOST=Daniel;PORT=9060”上例為Epicor9的PROGRESS版數(shù)據(jù)庫(kù)的連接字符串，HOST為主機(jī)名或IP地址；PORT為數(shù)據(jù)庫(kù)端口號(hào)，9060為Training庫(kù)端口號(hào)。①、open(ByValcnstrAsString)‘打開ODBC連接了解了ADO.NET知識(shí)后，通過(guò)以下3個(gè)函數(shù)可以幫助我們實(shí)現(xiàn)數(shù)據(jù)操作。函數(shù)：FunctionQuery(ByValsqlAsString,ByValconSAsString)AsData.DataTable

odbadp=NewOdbc.OdbcDataAdapterodbcmd=NewOdbc.OdbcCommandds=NewDataSett1=NewDataTableTryodbcmd.Connection=Conodbcmd.CommandText=sqlodbadp.SelectCommand=odbcmdodbadp.Fill(ds,"a")t1=ds.Tables("a")Returnt1CatchexAsExceptionMessageBox.Show(ex.Message.ToString,"查詢出錯(cuò)")Returnt1EndTryEndFunction

傳入的sql為SQL查詢語(yǔ)句(Select語(yǔ)句)，語(yǔ)句構(gòu)建規(guī)則與SQLSERVER類似。conS為ODBC連接字符串。函數(shù)返回結(jié)果為1個(gè)DataTable?？捎糜跀?shù)據(jù)讀取操作。②、Query(ByValsqlAsString,ByValconStrAsString)asDataTable‘傳入sql語(yǔ)句查詢得到Datatable函數(shù)：FunctionExcuteSql(ByValsqlAsString,ByValcnstrAsString)AsIntegerDimodbcmdAsNewOdbc.OdbcCommandDimdAsDoubleTryodbcmd.Connection=Conodbcmd.CommandText=sqld=odbcmd.ExecuteNonQuery()ReturndCatchexAsExceptionMessageBox.Show(ex.Message.ToString,"數(shù)據(jù)為寫入出錯(cuò)")ReturndEndTryEndFunction傳入的sql為更新、寫入、刪除語(yǔ)句(Update、Insert、Delete語(yǔ)句)，語(yǔ)句構(gòu)建規(guī)則與SQLSERVER類似。conS為ODBC連接字符串，函數(shù)返回結(jié)果為此sql語(yǔ)句影響的數(shù)據(jù)條數(shù)。③、ExcuteSql(ByValsqlAsString,ByValcnstrAsString)asInteger ‘寫入，更新數(shù)據(jù)函數(shù)一、在外掛界面提供輸入連接字符串參數(shù)的接口。如：HOST主機(jī)名/IP；PORT數(shù)據(jù)庫(kù)端口號(hào)等。例：如右圖所示，輸入連接字符串參數(shù)。傳入?yún)?shù)后即可對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作查詢。此類程序主要用在自制查詢分析器等數(shù)據(jù)庫(kù)查詢操作工具，便于更改連接字符串。2、外掛程序常用做法外掛程序要做到與系統(tǒng)及數(shù)據(jù)庫(kù)的結(jié)合。有以下幾種途徑：二、程序處理，命令行參數(shù)傳入。步驟如下：1、添加1個(gè)新的Module。如圖。模塊程序：ModuleinitPublichostAsStringPublicPortAsStringPubliccompanyAsStringSubMain(ByValCmdArgs()AsString)'CmdArgs()就是參數(shù)'CmdArgs(0)表示第一個(gè)參數(shù)'cmdArgs.Length表示參數(shù)個(gè)數(shù)

'注:

'1、SubMain必須聲明在Module中

'2、點(diǎn)擊“項(xiàng)目”-〉“......屬性”，將啟動(dòng)對(duì)象設(shè)為“SubMain”IfCmdArgs.Le