pb实验指导书.doc

6.1 sqlca.dbms=”odbc” sqlca.dbparm=”connectstring=’dsn=wly;uid=dba;pdw=sql’ ” connect; if sqlca.sqlcode0 then messagebox return end is 6.2 dw_class.settransobject(sqlca) dw_stu.settransobject(sqlca) 6.2 Setpointer(hourglass) if parent.wf_connect(sle_userid.text,sle_password.text)=-1 then Message box(“连接数据库错误!”,”连接失败”+aqlca.aqlerrtext) Halt Else Close(parent) Open(w_main) End if 6.3 Close(parent) 6.4 Stringls_userid, ls_password, ls_database Ls_userid=trim(userid) Ls_password=trim(password) If ls_password=” ” then Return -1 End if Sqlca.dbms=”odbc” Sqlca.autocommit=false Ls_database=”connectstring=’dsn=wly;” Sqlca.dbparm=ls_database+”uid”+ls_userid+”+;pwd=”+ls_password+”” Connect using sqlca; Return sqlca.sqlcode Setpointer(hourglass!) If parent.wf_connect (sle_userid.text,sle_password.text)=-1 then Messagebox(“连接数据库错误!”,”连接失败”+aqlca.aqlerrtext) Halt Else Close (parent) Open (w_main) End if Open (w_load) P90 Long p Int l String str P91 Str=sle_1.text l=Len (str) p=Pos (mle_1.text,str) If p0 THEN mle_1.selecttext (p,l) mle_1.setfocus() cb_search_next.enabled=TRUE cb_replace.enabled= TRUE ELSE cb_search_next.enabled=FALSE cb_replace.enabled=FALSE MessageBox (提示信息,没找到! ) END IF P=pos (mle_1.text,str,p+1) If p0 then mle_1.selecttext (p,l) mle_1.setfocus() cb_search_next.enable=ture Else cb_search_next.enable=false cb_replace.enable= false Messagebox (“完成”,”已找到文章末尾! ”) End if String s2 S2=sle_2.text If p0 then Mle_1.text=replace(mle_1.text,p,l,s2) End if String s2 s2=sle_2.text Str=sle_1.text L=len(str) P=pos(mle_1.text,str) If p0 then Mle_1.text=replace (mle_1.text,p,l,s2) End if Do while p0 P=pos(mle_1.text,str,p+1) If p0 then Mle_1.text=replace (mle_1.text,p,l,s2) End if Loop Messagebox (“完成”,”已找到文章末尾! ”)