簡單的門診收費系統(tǒng)-資料下載頁
2025-05-10 08:29本頁面
【正文】 case 值 : …// 語句 case 值 : …// 語句 case else …// 語句 end choose 分支選擇 choose case ls_title case 主任 ldec_register=32 case 副主任 ldec_register=23 case else ldec_register=13 end choose 循環(huán) ? For循環(huán) ? Do loop 循環(huán) For循環(huán)舉例： long ll_i,ll_rows ll_rows = 3 for ll_i = 1 to ll_rows step 1 messagebox(“提示 ”,?第’ +string(ll_i) +”行” ) next 循環(huán) ? Do loop 循環(huán)舉例 1 long ll_i,ll_rows ll_i=1,ll_rows=3 do messagebox(“提示 ”,?第’ +string(ll_i) +”行” ) ll_i++ while( ll_i = ll_rows) loop 循環(huán) ? Do loop 循環(huán)舉例 2 long ll_i,ll_rows ll_i=1,ll_rows=3 Do while(ll_i = ll_rows) += ?第’ +string(ll_i) +”行 ?！? ll_i++ loop 循環(huán) ? 退出循環(huán) ( continue和 exit) ? 退出當前循環(huán) continue long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if mod(ll_i,2)=0 then continue += ?第’ +string(ll_i) +”行 ?！? next 循環(huán) ? 退出整個循環(huán) exit long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if mod(ll_i,2)=0 then continue += ?第’ +string(ll_i) +”行 。” if ll_i3 then exit next 循環(huán) ? 退出整個循環(huán) exit long ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if ll_i3 then exit if mod(ll_i,2)=0 then continue += ?第’ +string(ll_i) +”行 ?！? next 創(chuàng)建一個全局函數(shù) ? 1) 全局函數(shù)，所謂全局，就是任何子對象都能調用 ? 2) 函數(shù)可以返回值，也可以不返回值 ? 3) 函數(shù)的參數(shù)有 value 表示值傳遞； reference 表示引用傳遞，可以改變該變量的值； readonly 表示常量值傳遞，在函數(shù)中，該變量的 值不可改變 ? 4) 共性定義 函數(shù)需返回數(shù)值， 1表示成功，其它表示其它具體的事項； 需要改變的值，或者傳回的值，用引用傳遞。 創(chuàng)建全局函數(shù) ? 創(chuàng)建一個判斷事物執(zhí)行成功與否的全局函數(shù)gf_sqlerr() return int 以下是函數(shù)體： if =0 then return 1 if = 100 then return 0 messagebox(39。數(shù)據(jù)庫錯誤 39。,) rollback。 return 1 創(chuàng)建全局函數(shù) ? 創(chuàng)建一個獲取服務器時間的全局函數(shù) gf_serverdatetime( ref adt_date) return int 參數(shù)為引用型 (reference) 定義為 adt_date 以下是函數(shù)體 select sysdate into :adt_date from dual。 if gf_sqlerr()=0 then return 0 return 1 作業(yè)： 根據(jù)本章第一部分的知識，為簡單的門診收費系統(tǒng)繪制 : 數(shù)據(jù)流圖 ER圖 以最小組為單位交作業(yè)，組長應對各組員進行評分。如果組長給自己的分數(shù)最低，則整組組員當次作業(yè)成績?yōu)槎疾患案瘛?
公司管理相關推薦
鄂ICP備17016276號-1