cl腳本教程ppt課件-資料下載頁
2025-05-05 12:05本頁面
【正文】 uts “This is 1 or 2 “ } 3 { puts “This is 3” } default { puts “Other” } } 但不支持 C中類似結(jié)構(gòu)： case 1: puts(“This is 1”)。 /* 這里沒有 break */ case 2: puts(“This is 2”)。break。 case 3: puts(“This is 3”)。break。 對 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 ]} { ?？梢蚤_多個事務(wù) puts open cursor failed”。 exit 1 } set DBSQL orasql set DBNEXT orafetch set DBCOMMIT oramit set DBCLOSE oraclose 對 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” 對 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)用。在實際應(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 文件實際上是 html文件，里面可以加入 tcl標簽 : HTML HEAD META equiv=ContentType content=texthtml。 charset=gb_231280 TITLE使用明細查詢結(jié)果 /title /HEAD BODY background=./selfimages/ tcl proc days_of_month {year month} { … } … if {[info exists QUERY(bill_type)]} { 。從上一個頁面?zhèn)鱽韰?shù)，注意用法！ set bill_type [string trim $QUERY(bill_type)] 。變量在整個文件有效 } else { set ::error_msg 參數(shù) bill_type未找到！ ::kap::loadpage puts “ /center/body/html” 。 tcl的輸出是標準的 html文本，由瀏覽器顯示 return } /tcl …… /BODY /HTML 一些編程建議 ? 代碼說明 文件頭：摘要、版權(quán)、版本信息、其它（包定義） 過程頭：摘要、參數(shù)、結(jié)果 ? 縮進 最好用 4個空格縮進；如果是單行折返（即用 \連接的兩行，后續(xù)行）縮進 8個空格 ? 關(guān)于 {} {最好在行末；在控制結(jié)構(gòu)里 {}對最好存在，哪怕里面只有一行 if {$tcl_platform(platform) == “unix”} return 就不如 if {$tcl_platform(platform) == “unix”} { return } ? 清晰的表達式 if {$x 22 amp。amp。 $y = 47} ... 不如 if {($x 22) amp。amp。 ($y = 47)} … ? 過程必須有 return DB2 (OCI) ORACLE (OCI) TDB (OCI) DB2Tcl () ORATcl () TDBTcl () AIDBTcl() 應(yīng)用開發(fā) 不同數(shù)據(jù)庫 OCI封裝， *.SO Tcl實現(xiàn) SQL封裝，屏蔽差異 TCL應(yīng)用開發(fā)結(jié)構(gòu)圖 應(yīng)用開發(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中 后附 ? 還有什么問題？ ? 多找點資料看看 ,很 easy.
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1