tcl入門(mén)培訓(xùn)ppt課件-資料下載頁(yè)
2025-10-10 05:10本頁(yè)面
【正文】 uts “This is 1 or 2 “ } 3 { puts “This is 3” } default { puts “Other” } } 但不支持 C中類似結(jié)構(gòu)： case 1: puts(“This is 1”)。 /* 這里沒(méi)有 break */ case 2: puts(“This is 2”)。break。 case 3: puts(“This is 3”)。break。 對(duì) oracle操作 ? 初始化 及連接 load set dbuser aiobs5/obs5ai@AIOBS5 if {[catch {oralogon $dbuser} logon]} { puts connected failed,check your oracle user name and password exit 1 } if {[catch {oraopen $logon} DBHandle ]} { puts open cursor failed exit 1 } if {[catch {oraopen $logon} DBHandle2 ]} { ?？梢蚤_(kāi)多個(gè)事務(wù) puts open cursor failed”。 exit 1 } set DBSQL orasql set DBNEXT orafetch set DBCOMMIT oramit set DBCLOSE oraclose 對(duì) oracle操作（續(xù)） ? select 操作 set sql “ select bms_stomer_id, bms_customer_name ” append sql “ from bms_customer ” . . . $DBSQL $DBHandle $sql $DBNEXT $DBHandle { set Id @1 set Name @2 puts @2 . . . } 或者 proc Aproc { Id Name } { . . . } $DBNEXT $DBHandle “Aproc @1 @2” 對(duì) oracle操作（續(xù)） ? 其它 操作 set sql “ insert into $TableName ” append sql “ ( field1, ….) ” . . . If { [catch {$DBSQL $DBHandle $sql } errinfo ] } { puts “some wrong, $errinfo” $DBCLOSE $DBHandle return 1 } $DBCOMMIT $DBHandle 注意 catch的應(yīng)用。在實(shí)際應(yīng)用中如果有大量數(shù)據(jù)操作，可以分批提交以加快速度。 ? 預(yù)編譯 操作 $DBSQL $DBHandle update bms_subscription set bms_user_password \ =:user_password where bms_user_name = :user_name parseonly orabindexec $DBHandle :user_password $user_password \ :user_name $user_name ktcl 文件 ? ktcl 文件實(shí)際上是 html文件，里面可以加入 tcl標(biāo)簽 : HTML HEAD META equiv=ContentType content=texthtml。 charset=gb_231280 TITLE使用明細(xì)查詢結(jié)果 /title /HEAD BODY background=./selfimages/ tcl proc days_of_month {year month} { … } … if {[info exists QUERY(bill_type)]} { 。從上一個(gè)頁(yè)面?zhèn)鱽?lái)參數(shù)，注意用法！ set bill_type [string trim $QUERY(bill_type)] 。變量在整個(gè)文件有效 } else { set ::error_msg 參數(shù) bill_type未找到！ ::kap::loadpage puts “ /center/body/html” 。 tcl的輸出是標(biāo)準(zhǔn)的 html文本，由瀏覽器顯示 return } /tcl …… /BODY /HTML 一些編程建議 ? 代碼說(shuō)明 文件頭：摘要、版權(quán)、版本信息、其它（包定義） 過(guò)程頭：摘要、參數(shù)、結(jié)果 ? 縮進(jìn) 最好用 4個(gè)空格縮進(jìn)；如果是單行折返（即用 \連接的兩行，后續(xù)行）縮進(jìn) 8個(gè)空格 ? 關(guān)于 {} {最好在行末；在控制結(jié)構(gòu)里 {}對(duì)最好存在，哪怕里面只有一行 if {$tcl_platform(platform) == “unix”} return 就不如 if {$tcl_platform(platform) == “unix”} { return } ? 清晰的表達(dá)式 if {$x 22 amp。amp。 $y = 47} ... 不如 if {($x 22) amp。amp。 ($y = 47)} … ? 過(guò)程必須有 return DB2 (OCI) ORACLE (OCI) TDB (OCI) DB2Tcl () ORATcl () TDBTcl () AIDBTcl() 應(yīng)用開(kāi)發(fā) 不同數(shù)據(jù)庫(kù) OCI封裝， *.SO Tcl實(shí)現(xiàn) SQL封裝，屏蔽差異 TCL應(yīng)用開(kāi)發(fā)結(jié)構(gòu)圖 應(yīng)用開(kāi)發(fā)環(huán)境設(shè)置 AIOMNIVISION ENV ? export AIOMNIVISION=$HOME/aiomnivision/bin。 ? export AGENTLOGDIR=$HOME/aiomnivision/log/applog ? export AGENTTRACEDIR=$HOME/aiomnivision/trace ? export AITOOLS=$AIOMNIVISION/aitools ? export DATABASE=db2 或 oracle或 TDB ? 將 $AITOOLS/lib加入到系統(tǒng)環(huán)境變量中： SHLIB_PATH HPUX LD_LIBRARY_PATH MPRAS and SOLARIS (INTEL/SPARC) LIBPATH AIX ? 將 $AITOOLS/bin加入 PATH中 后附 ? 還有什么問(wèn)題？ ? 多找點(diǎn)資料看看 ,很 easy.
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1