[林學(xué)]森林經(jīng)理學(xué)實(shí)驗(yàn)報(bào)告20xxd-資料下載頁
2025-03-23 02:02本頁面
【正文】 int numnum=(())num=(num)(num)確定()。打開(SQLCA)()刪除(0)檢索string sql_strlong num()sql_str=select count(*) from eastsouthnum=getnumber(sql_str)=東南縣2011小班數(shù)==string(num)退出close(w_input). 查詢模塊實(shí)現(xiàn)（1）設(shè)計(jì)用戶界面如下圖所示（2）新建實(shí)例變量（3）向第一個(gè)下拉框ddlb_1中填寫代碼is_selected_colname = 向第二個(gè)下拉框中填寫代碼is_selected_operator = 第三個(gè)單行文本sle_1中填寫代碼id_value = 從而捕獲到了用戶在這三個(gè)控件中填寫的內(nèi)容，并存入實(shí)例變量。（4）當(dāng)用戶點(diǎn)擊按鈕“確定”的時(shí)候觸發(fā)查詢事件，代碼如下string s1,s2s1 = is_original_select + Where + is_selected_colname + is_selected_operator + string(id_value)messagebox(,s1)(s1)() = string(())首先是建立一個(gè)查詢語句。應(yīng)用剛剛讀取的實(shí)例變量is_selected_colname、 is_selected_operator和id_value。合成查詢語句如select * From 東南縣2001 where 細(xì)班號(hào) (s1)執(zhí)行查詢，()，用戶可以看見查到了幾條記錄。. 統(tǒng)計(jì)輸出模塊實(shí)現(xiàn)（1）設(shè)計(jì)用戶界面如下圖所示（2）定義全局變量String colname_tab0x[]表示每一張輸?shù)綌?shù)據(jù)庫(kù)的表中的字段名String coltype_tab0x[]為其字段的變量類型Int colnum_tab0x表示字段個(gè)數(shù)，這些全局變量的定義，都是為了下面的函數(shù)中的調(diào)用提供方便。（3）就以table03為例，首先設(shè)定建表函數(shù)create_tab03（），string ss這里先定義一個(gè)建表語句ss，引用全局變量中的字段名，字段類型，組合起來執(zhí)行，便實(shí)現(xiàn)了往數(shù)據(jù)庫(kù)中插入表的操作。ss = create table Table03(+ colname_tab03[1]+ + coltype_tab03[1]。Execute Immediate :ss。return （4）然后是往建好的表中插入原始數(shù)據(jù) 執(zhí)行查詢select 林種,地類, 齡組,sum(小班面積),sum(活立木蓄積) from 東南縣2001 group by 林種,地類,齡組定義游標(biāo)C2 執(zhí)行查詢select distinct 林種 from 東南縣2001 order by 林種 C1 Into :foresttype（林種）[i],:landtype（用地類型）[i],:agegroup（齡組）[i],:area（面積）[i],:volume（蓄積）[i]。Fetch C2 Into :ft（林種）[i]。得到所有的林種[i,4]=ft[i]。 ii =1 to (林種行數(shù) 1) For i = 1 To 數(shù)據(jù)庫(kù)中table03行數(shù) 更具喬木林、竹林、紅樹林、疏林、國(guó)家特別規(guī)定灌木林、其它灌木林進(jìn)行統(tǒng)計(jì) 其中喬木林再按齡組分類統(tǒng)計(jì)5. ss = delete from Table03生成刪除語句，刪除表中所有行insert into Table03 values( + ss。創(chuàng)建插入語句，并執(zhí)行，可將程序中的table03這個(gè)表轉(zhuǎn)存到數(shù)據(jù)庫(kù)中。7. 執(zhí)行查詢Execute Immediate :ins_str。并關(guān)閉游標(biāo)Close C2。Close C1。（5）最后將數(shù)據(jù)庫(kù)中表寫入文件(0,100)(0)。慢慢的滾動(dòng)for j=1 to 100 () sleep() next s2 = select * from Table0+ string(ii_selected_tablenum) PREPARE SQLSA FROM :s2。后打開OPEN DYNAMIC C1。 然后遍歷讀取數(shù)據(jù)到數(shù)組data[] :do while =0 FETCH C1 INTO :data[1],:data[2],:data[3],:data[4],:data[5]。 將讀取的那一行寫成一個(gè)插入語句ls_name= colname_tab02[ii] +39。=39。+39。39。+data[ii]+39。39。 。 (ls_name)，使dw_1顯示插入的數(shù)據(jù)=表+string(ii_selected_tablenum)+輸出成功！
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1