【文章內(nèi)容簡介】 92,192。255,0,0)。14 } 代碼是一入庫明細為基礎(chǔ)的，L2是取得當天的日期。L3是判斷這個有效期是不是在10天以內(nèi)，L12判斷是不是在8個月以內(nèi)。L4是設(shè)置底色與字體顏色，顏色是由RGB三色組成，英文逗號分開，前面三個是表單底色，后面三個是字體顏色。RGB的值，可以從任何一個畫圖軟件查詢到。（2）編寫事件要賦于給tblInstockItems_For_Schedule的，這個名稱可以從彈出的表單窗口，在最左上角單元格選擇功能“編輯/顯示數(shù)據(jù)庫據(jù)名稱”獲得。將這個名稱從提示窗口的底部復(fù)制后，選擇主窗口功能，“選項窗口/打開指定窗口”，從這個窗口，選擇“綜合處理/高級設(shè)置/業(yè)務(wù)處理設(shè)置”，做如下修改后，按修改保存這里的事件名稱就是你前面在“用戶C語言程序”中編寫的代碼。（3）最后的顯示效果如下示例八：查詢后的事件一些用戶，期望在查詢結(jié)果后，根據(jù)不同情況做一些處理。此時表單查詢事件 Event_Retrive就能夠解決這類問題。這里的示例是公司，希望在用戶100登錄時，使用其它表單的數(shù)據(jù)。（1）編寫事件代碼如下1 int t1,t2,t3,t7。2 float t4,t5,t6。3 char *c1,*c2。4 string uc1=GetUserInf(Code)。5 if(uc1==100)6 {7 t3=(int)newGet2(Date1)。8 if(t31212249600)9 {10 t1=(int)newGet2(Name)。11 uc1=Select * From HDuty_DailyReportX2 Where Name=。12 uc1+=t1。13 uc1+= And Date1=。14 uc1+=t3。15 gDataSet ds1(this,4,())。16 c1=gCstr1()。17 t1=gSize1()。18 c2=()。19 t2=()。20 if(c1!=NULL amp。amp。 c2!=NULL amp。amp。 t10 amp。amp。 t2==t1)21 { memmove(c1,c2,t1)。22 }23 printf(t1=%d,t2=%d,c1=%d,c2=%d,t1,t2,(int)c1,(int)c2)。24 printf(sql=%s,uc1)。25 }26 else27 {28 t1=(int)newGet2(Shift30)。29 t2=(int)newGet2(Shift31)。30 if(t2t1*60*60)31 {32 newSet2(Shift31,t1+*60*60+5*60)。33 newSet2(WorkHour_Over,)。34 t4=newGet2(WorkHour_Weekend)。35 t5=newGet2(WorkHour_Over)。36 t6=newGet2(WorkHour)。37 newSet2(TotalWorkHour,t5+t4+t6)。38 }39 }40 }41 return 0。（2）編寫事件要賦于給HDuty_DailyReportX的vent_Retrive事件。注意：查詢事件是在單條記錄上運行的，即如果查詢到100條記錄，系統(tǒng)對每條記錄都單獨運行代碼。因此程序不需要處理復(fù)雜的問題。查詢事件其它示例（1）用戶查詢庫存綜合報表時，希望一部分空白數(shù)據(jù)不要顯示，那么可以給表單tblSaleSynthetic編寫” 查詢后的事件”，對于那些不需要顯示的數(shù)據(jù)，返回1，系統(tǒng)會過濾掉這部分數(shù)據(jù)。注意，可以使用getParameters（1，2，3，…）函數(shù)，測試到底是那個函數(shù)在調(diào)用本事件。（2）用戶采購訂單窗口，不顯示那些應(yīng)收貨日期超過特定長度的單據(jù)，因為這些單據(jù)估計不再收貨了。那么可以給采購訂單編寫” 查詢后的事件”，對于那些不需要顯示的數(shù)據(jù)，返回1，系統(tǒng)會過濾掉這部分數(shù)據(jù)。這些數(shù)據(jù)僅僅不顯示了，示例九：綜合示例對于醫(yī)藥行業(yè)，某些業(yè)務(wù)公司禁售某些產(chǎn)品。（1）此時用戶要定義一張表單（窗口），例如是UproductProhibit來保存這些禁售信息的。（2）再編寫(例如銷售訂單的)事件，事件可以放在保存事件、或者審核事件。代碼如下int i=0,i1,j1,cid,pid。string s1,s2。double tt。cid=(int)newGet2(ClientID)。gDataSet ds1(this,1,Items)。for(i=0。++i){ i1=(i)。 if(i10) { return 0。 } pid=(int)(Product)。 s2=*Select Count(*) from UProductProhibit。 s2+= Where ClientID=。 s2+=cid。 s2+= And Product=。 s2+=pid。 tt=SQL(s2)。 if(tt) { gStringArray SA1(this)。 s1=警告!該產(chǎn)品對當前的業(yè)務(wù)公司禁售。 s1+=(i+1)。 (s1)。 (確認)。 ()。 j1=()。return 1。 }}return 0。這段代碼，是逐個檢查這些物品，是否在禁售列表中，如果在的話,系統(tǒng)將禁止繼續(xù)。事件的參數(shù)說明string getParameters(int i) 返回第i個參數(shù)第1個參數(shù)（i=0），是調(diào)用事件的類型名稱保存事件為：Event_BeforeCollectData，審核事件為Event_Audit；第2個參數(shù)(i=1)為輔助類型，例如新增保存時為Insert，修改保存時為Update，對于審核則為Audit.對于不明確的，可以自己測試結(jié)果。167。3. OAERP虛擬機數(shù)據(jù)集的工作模式gDataSet這個類有個方法Run（）是空白的，用戶的代碼，在新版本中是填充到這個方法中的，因此新版本中，完整C++的程序是這樣的： (常用頭文件部分) class gDataSet { …… int Run()。}。int gDataSet ::Run(){用戶寫的代碼部分}int fun(int i,char *buff) { gDataSet _dss。 return ()。}也就是說，當用戶程序運行時，總是以某個記錄為基礎(chǔ)的，你可以用gDataSet提供的方法處理問題。你可以用CurrentMode()獲取工作模式，這個函數(shù)返回1，表示當前操作的記錄，我們稱為模式I；返回2當前操作的窗體編輯框字段模式II；返回3當前操作的清單模式III；模式IV則是按照SQL語句返回數(shù)據(jù)集(注意：返回的數(shù)據(jù)仍然工作在模式I)。當工作在成員函數(shù)內(nèi)部時，不需要前綴，例如: int m1= CurrentMode()。 int m2=()。前者表示取得本記錄集的工作模式，后者則是獲取ds1這個數(shù)據(jù)集的工作模式。當啟動代碼工作在模式II下，如何操作清單呢?例如我們希望統(tǒng)計清單中數(shù)量與單價的總和，賦值給字段Totalcharge. 為了完成這個任務(wù)，下面代碼就可以double Sum=。gDataSet ds1(this,3,Items)。int r1=()。while(r10){ double x1=(Amount*CoPrice)。 double x2=(x1,0)。 Sum=Sum+x2。 r1= ()。}newSet2(Totalcharge,Sum)。這里僅僅是說明原理，因為這為完成這個功能，系統(tǒng)提供了更強大的函數(shù)Sum2AndSet（Totalcharge,Items,Amount*CoPrice）.由于窗體編輯框、清單，記錄，都是有對應(yīng)關(guān)系的，都是由字段控制的，因此對他們的操作也是完全一樣的,都是gDataSet類型的數(shù)據(jù)集，當然，在模式II下，NextRow()沒有作用。1. 獲取清單記錄集合在模式I下，可以獲取清單記錄集合，使用下面代碼就可以了 gDataSet ds1(this,1,Items)。然后這個ds1是gDataSet類，那么這個類的所有函數(shù)都可以使用。2. 獲取主窗口操作對象 僅僅在模式III下，可以這樣處理，代碼如下 gDataSet ds1(this,2,NULL)。 代碼示例 if(CurrentMode()==2) { gDataSet ds1(this,2,NULL)。 double d1=(Discount)。 if(d1=0|| d1=1)d1=1。 double s1=d1*newGet2(Price)*newGet2(Amount)。 newSet2(Summoney,s1)。 } 警告: 這里的模式檢查非常重要，因為部分代碼只在清單中運行有效，其它模式下并不正確。部分客戶(例如希爾科)的代碼因為缺少這個檢查出現(xiàn)過錯誤。 僅僅在模式II、III下，可以這樣處理，代碼如下gDataSet ds1(this,3, Items)。（在模式II下，可以使用這中方式操作另外的清單。） 在任何模式下都有效，可以這樣處理，代碼如下 string SQL1=Select * From tblInstockItems Where Amount OutAmount And MainCode In (Select Code From tblInstock Where Record524288) (這個語句是列舉所有的入庫單中存在剩余庫存的明細，MainCode In…是保證這些單據(jù)已經(jīng)入庫，而不是當前未入庫的單據(jù))gDataSet ds1(this,4,())。(注意：返回的數(shù)據(jù)仍然工作在模式I,只是要傳遞4這個參數(shù)。)代碼示例 下面是一個完整的使用SQL語句返回數(shù)據(jù)集作的示例1 string SQL1=Select * From tblInstockItems Where AmountOutAmount And MainCode In (Select Code From tblInstock Where Record524288)。2 gDataSet ds1(this,4,())。3 gStringArray SA1(this)。4 string s2=庫存分布如下,。5 ()。6 s2+=總行數(shù):。7 int count1=()。8 s2+=count1。9 printf(count1=%d,count1)。10 ()。11 int i,i1。12 for(i=0。icount1。++i)13 { i1=(i)。14 if(i1=0)15 {16 string s1b=(Product)。17 string s2b=(StoreHouse)。18 double a1=(Amount)。19 double a2=(OutAmount)。20 s2+=物品名稱:。21 s2+=s1b。22 s2+=,倉庫:。23 s2+=s2b。24 s2+=,入庫數(shù)量:。25 s2+=a1。26 s2+=,剩余數(shù)量:。27 s2+=a2。28 ()。29 }30 }31 (s2)。32 (確定)。33 ()。34 ()。35 return 0。運行時提示窗口如下：5. 獲取樹形節(jié)點的數(shù)據(jù)集 在任何模式2，3下都有效gDataSet ds1(this,5,NULL)。例如：在配色表中，希望取得BOM清單中的幾個自定義字段的值，并顯示在配色表窗口中，供參考。代碼如下：int p0,p1,s1。string lo1,s2。gDataSet ds1(this,5,NULL)。CreateFields(X001,長,2)。CreateFields(X002,寬,2)。CreateFields(X003,場,2)。if(CurrentMode()!=3)return 0。p0=(int)(Product)。p1=(int)newGet2(Product)。s1=(int)newGet2(Specif)。lo1=newGetX4(LocationX)。s2=Select * From prdBOMItems Where Product=。s2+=p1。s2+= And Specif=。s2+=s1。s2+= And LocationX=\39。s2+=lo1。s2+=\3