【文章內(nèi)容簡介】 flen) = 1 then ferror = getferror32() MessageBox( pchg32( + string(fldid) +)出錯(cuò): ,fstrerror32(ferror)) return 1end ifreturn 0int pchgs32(long fbfr,long fldid,long occ,string buf)/*作用：寫一個(gè)字符型數(shù)據(jù)到FML32緩沖區(qū)的指定位置中輸入?yún)?shù)：fbfr: FML32緩沖區(qū)fldid: ID號occ: 位置buf: 要寫入的字符型數(shù)據(jù)輸入?yún)?shù)：無返回值： 0 成功，失敗返回相應(yīng)的*/long ll_len=0long ll_error=0ll_len=len(buf)if fchgs32(fbfr,fldid,occ,buf,ll_len) = 1 then ll_error = getferror32() MessageBox( fchgs32( + string(fldid) + )出錯(cuò): ,fstrerror32(ll_error)) return 1end ifreturn 0int pgetd32(long fbfr,long fldid,long occ, ref double buf)/*作用：從FML32緩沖區(qū)的指定位置中取浮點(diǎn)型數(shù)據(jù)到輸入?yún)?shù)BUF中輸入?yún)?shù)：fbfr: FML32緩沖區(qū)fldid: ID號occ: 位置buf: 取出的數(shù)據(jù)儲存到BUF中輸入?yún)?shù)：無返回值： 0 成功，1失敗*/long ll_flen =0long ll_ferror =0double lf_tmp=0if fgetd32(fbfr, fldid, occ, lf_tmp, ll_flen) = 1 then ll_ferror = getferror32() MessageBox( fgetl32( + string(fldid) + )出錯(cuò): ,fstrerror32(ll_ferror)) return 1end ifbuf = lf_tmpreturn 0int pgetl32(long fbfr,long fldid,long occ, ref long buf)/*作用：從FML32緩沖區(qū)的指定位置中取整型數(shù)據(jù)到輸入?yún)?shù)BUF中輸入?yún)?shù)：fbfr: FML32緩沖區(qū)fldid: ID號occ: 位置buf: 取出的數(shù)據(jù)儲存到BUF中輸入?yún)?shù)：無返回值： 0 成功，1失敗*/long ll_flen =0long ll_ferror =0long ll_tmp=0if fgetl32(fbfr, fldid, occ, ll_tmp, ll_flen) = 1 then ll_ferror = getferror32() MessageBox( fgetl32( + string(fldid) + )出錯(cuò): ,fstrerror32(ll_ferror)) return 1end ifbuf = ll_tmpreturn 0int pgetd32(long fbfr,long fldid,long occ, ref string buf)/*作用：從FML32緩沖區(qū)的指定位置中取字符型數(shù)據(jù)到輸入?yún)?shù)BUF中輸入?yún)?shù)：fbfr: FML32緩沖區(qū)fldid: ID號occ: 位置buf: 取出的數(shù)據(jù)儲存到BUF中（長度不能超過1000）輸入?yún)?shù)：無返回值： 0 成功，1失敗*/long ll_flen =0long ll_ferror =0string ls_tmplong ll_len=0ll_len = flen32(fbfr,fldid,occ)if ll_len = 1 then ll_ferror = getferror32() MessageBox( flen32()出錯(cuò): ,fstrerror32(ll_ferror)) return 1end ifls_tmp = space(ll_len)if ls_tmp= then messagebox(提示,space()出錯(cuò)) return 1end ifif fgets32(fbfr, fldid, occ, ls_tmp, ll_flen) = 1 then ll_ferror = getferror32() MessageBox( fgets32( + string(fldid) + )出錯(cuò): ,fstrerror32(ll_ferror)) return 1end ifbuf = ls_tmpreturn 0例子中用到的FML32文件 myfml的內(nèi)容:*base 1000EMPNO 1 long ENAME 2 string JOB 3 stringMGR 4 longHIREDATE 5 stringSAL 6 doubleCOMM 7 doubleDEPTNO 8 longROW 9 long ERRINFO 10 string SQLCODE 11 long SQLTEXT 12 string CROSSTAB 13 string NODENO 14 string BEGIN_DATE 15 string END_DATE 16 string :/* fname fldid *//* */define EMPNO ((FLDID32)33555433) /* number: 1001 type: long */define ENAME ((FLDID32)167773162) /* number: 1002 type: string */define JOB ((FLDID32)167773163) /* number: 1003 type: string */define MGR ((FLDID32)33555436) /* number: 1004 type: long */define HIREDATE ((FLDID32)167773165) /* number: 1005 type: string */define SAL ((FLDID32)134218734) /* number: 1006 type: double */define COMM ((FLDID32)134218735) /* number: 1007 type: double */define DEPTNO ((FLDID32)33555440) /* number: 1008 type: long */define ROW ((FLDID32)33555441) /* number: 1009 type: long */define ERRINFO ((FLDID32)167773170) /* number: 1010 type: string */define SQLCODE ((FLDID32)33555443) /* number: 1011 type: long */define SQLTEXT ((FLDID32)167773172) /* number: 1012 type: string */define CROSSTAB ((FLDID32)167773173) /* number: 1013 type: string */在PB中的定義為INSTANCE 變量:例子一:在PB中調(diào)用EMP_SEL，往EMP表中插入一條記錄，并把該表中的記錄全部取出，在客戶端的數(shù)據(jù)窗口中顯示出來PB客戶端數(shù)據(jù)窗口定義:數(shù)據(jù)窗口D_EMP的數(shù)據(jù)源只能采用外部數(shù)據(jù)源,定義如下:PB客戶端程序如下:long ll_sendbuf=0long ll_rcvbuf=0long ll_sendlen=0long ll_rcvlen=0long ll_tperrno=0long ll_empno=1000string ls_ename=39。scott39。string ls_job=39。puter39。long ll_mgr=2345date ld_hiredate = date(39。2001/01/0139。)double lf_sal=double lf_m=long ll_deptno=30string ls_tuxerr=long lL_sqlcode=0string ls_sqlerr=long i=0long j=0long ll_row =0string ls_hiredate=()//與TUXEDO服務(wù)器建立連接if tpinit(0) = 1 then MessageBox( tpinit() failure, tpstrerror(gettperrno()), Information!, OkCancel! ) tpterm( ) returnend if//分配FML32發(fā)送緩沖區(qū)ll_sendlen = 12000ll_sendbuf = tpalloc(FML32, , ll_sendlen)if ll_sendbuf = 0 then MessageBox( tpalloc(ll_sendbuf) failure, tpstrerror(gettperrno()), Information!, OkCancel! ) returnend if//分配FML32接收緩沖區(qū)ll_rcvlen = 12000ll_rcvbuf=tpalloc(FML32,ll_rcvlen)if ll_rcvbuf = 0 then tpfree(ll_sendbuf) MessageBox( tpalloc(ll_rcvbuf) failure, tpstrerror(gettperrno()), Information!, OkCancel! ) returnend if//清空緩沖區(qū)if Finit32(ll_sendbuf,ll_sendlen) = 1 or amp。 Finit32(ll_rcvbuf,ll_rcvlen) = 1 then MessageBox(Finit32() failure, tpstrerror(gettperrno())) tpfree(ll_sendbuf) tpfree(ll_rcvbuf) tpterm() returnend if//傳給服務(wù)器端的參數(shù)if pchgl32(ll_sendbuf,EMPNO,0,ll_empno) = 1 or amp。 pchgs32(ll_sendbuf,ENAME,0,ls_ename) = 1 or amp。 pchgs32(ll_sendbuf,JOB,0,ls_job) = 1 or amp。 pchgl32(ll_sendbuf,MGR,0,ll_mgr) = 1 or amp。 pchgd32(ll_sendbuf,SAL,0,lf_sal) = 1 or amp。 pchgd32(ll_sendbuf,COMM,0,lf_m) = 1 or amp。 pchgl32(ll_sendbuf,DEPTNO,0,ll_deptno) = 1 or amp。 pchgs32(ll_sendbuf,HIREDATE,0,string(ld_hiredate,39。yyyy/mm/dd39。)) = 1 then //退出時(shí)要注意釋放已分配的緩沖區(qū)，并調(diào)用TPTERM() tpfree( ll_sendbuf ) tpfree( ll_rcvbuf ) tpterm() return end if//調(diào)用TUXEDO SERVICEif tpcall( DEMO_SEL, ll_sendbuf, 0, ll_rcvbuf, ll_rcvlen, 0 ) = 1 then ll_tperrno = gettperrno() MessageBox( tpcall(DEMO_SEL) failure,39。ll_tperrno=39。 + string(ll_tperrno) +39。 39。 + tpstrerror(ll_tperrno), Information!, OkCancel! ) //取出錯(cuò)信息 pgetl32(ll_rcvbuf, SQLCODE, 0, ll_sqlcode) pgets32(ll_rcvbuf, ERRTEXT, 0, ls_tuxerr) if ll_sqlcode 0 then pgets32(ll_rcvbuf, SQLTEXT, 0, ls_sqlerr) messagebox(tpcall(DEMO_SEL