【導(dǎo)讀】并對(duì)數(shù)據(jù)庫(kù)的體系結(jié)構(gòu)、DBMS進(jìn)行了介紹。個(gè)介紹說(shuō)明；最后通過(guò)兩個(gè)例子介紹了用PowerScript語(yǔ)言調(diào)用SQL的方式。第四章用軟件工程的方法分析了局域網(wǎng)圖書(shū)資料查詢系統(tǒng)，對(duì)整個(gè)系統(tǒng)進(jìn)行了需求分析、功能模塊劃分，并通過(guò)ER圖對(duì)數(shù)據(jù)庫(kù)進(jìn)行概念設(shè)計(jì)、用MicrosoftAccess對(duì)數(shù)據(jù)庫(kù)進(jìn)行邏輯設(shè)計(jì)。PB的控件技術(shù)等，提高了程序設(shè)計(jì)質(zhì)量。時(shí)也稱為“三級(jí)模式結(jié)構(gòu)”。DBMS的主要目標(biāo)，是使數(shù)據(jù)作為一種可管理的資源處理。內(nèi)模式及基相互之間的映象，定義數(shù)據(jù)的完整性、安全控制等約束。因此，在DBMS中應(yīng)包括DDL的編。²數(shù)據(jù)庫(kù)的并發(fā)控制：DBMS的并發(fā)控制子系統(tǒng)能防止錯(cuò)誤發(fā)生，正確處理好多用戶、多任務(wù)環(huán)境下的并。²數(shù)據(jù)庫(kù)的完整性控制：保證數(shù)據(jù)庫(kù)中數(shù)據(jù)及語(yǔ)義的正確性和有效性，防止任何對(duì)數(shù)據(jù)造成錯(cuò)誤的操作。²數(shù)據(jù)庫(kù)的安全性控制：防止未經(jīng)授權(quán)的用戶蓄謀或無(wú)意地存取數(shù)據(jù)庫(kù)中的數(shù)據(jù)，以免數(shù)據(jù)的泄露、更改或

　　

【正文】 控件： pb_12 “存為默認(rèn)顯示選項(xiàng)” 事件（ event）： clicked Script of clicked boolean check[10]integer i,answerstring xs_item[10]string xs_content,question_text,tempquestion_text=將當(dāng)前顯示項(xiàng)存為 +user+用戶的默認(rèn)顯示項(xiàng) ?answer=messagebox(39。提示 !39。,question_text,question!,YesNoCancel!)choose case answer case 1 當(dāng)前對(duì)應(yīng)的 CHECEKBOX 選項(xiàng)記錄下來(lái) check[1]= check[2]= check[3]= check[4]= check[5]= check[6]= check[7]= check[8]=的顯示，存入數(shù)組變量 xs_content=39。39。 for i = 1 to 8 if check[i]=true then xs_item[i]=39。139。 else xs_item[i]=39。039。 end if xs_content=xs_content+xs_item[i] end for// 改用戶表中顯示項(xiàng)的值 UPDATE keeper SET display_item = :xs_content WHERE keeper.name = :user。 choose case case 1 messagebox(錯(cuò)誤 !,error:+amp。 string()+amp。 information:+) messagebox(39。提示 39。,39。修改成功 !39。) mit。 case 100 messagebox(39。!39。,39。修改失敗 !39。) end choose case 2 returncase 3 returnend choose 模糊（分類）查詢的實(shí)現(xiàn) 圖 5－ 4 模糊查詢窗口 控 件： ddlb_1 事件（ selectionchanged）： Script of Selectionchanged 空歷史查詢內(nèi)容 (1,len())()(1,len())ar()//運(yùn)算符隨查詢內(nèi)容的改變而改變 if = 39。出版日期 39。 or =39。購(gòu)買日期 39。 then eitem((包含 , 2)) ((不包含 , 2)) (ddlb_2.FindItem(小于等于 , 2)) ((大于等于 , 2))(39。小于 39。,3)ddlb_2.insertitem(39。大于 39。,4)(39。小于 等于 39。,5) (39。大于等于 39。,6) = RGB(255,0,0) = False (DateMask!, 39。mm/dd/yyyy39。)else ((小于 , 2)) ((大于 , 2)) ((小于等于 , 2)) ddl((大于等于 , 2)) ((包含 , 2)) em((不包含 , 2)) (39。包含 39。,3) (39。不包含 39。,4)= Tru = RGB(255,0,0)end if 不可 見(jiàn)控件： cb_2 “轉(zhuǎn)換” 事件（ event）： Clicked Script of Clicked 查詢項(xiàng)轉(zhuǎn)換為表 info 中字段名 choose case case 39。資料名稱 39。 query_item=39。name39。 case 39。作者39。 query_item=39。author39。 case 39。出版社 39。 query_item=39。publishing_house39。 case 39。出版日期 39。 query_item=39。publishing_date39。 case 39。ISBN39。 query_item=39。ISBN39。 case 39。資料類別 39。 query_item=39。sort39。 case 39。購(gòu)買日期 39。 query_item=39。buy_date39。 case 39。保管人 39。 query_item=39。keeper39。 case 39。備注 39。 query_item=39。memo39。end choose//將操作符轉(zhuǎn)換為中文顯示 choose case case 39。等于 39。 query_operator=39。=39。 case 39。包 含 39。 query_operator=39。like39。 case 39。不等于 39。 query_operator=39。39。 case 39。不包含 39。 query_operator=39。not like39。 case 39。小于等于 39。 query_operator=39。=39。 case 39。大于等于 39。 query_operator=39。=39。 case 39。小于 39。 query_operator=39。39。 case 39。大于 39。 query_operator=39。39。end choose 控件： pb_1 “檢索” 事件（ event） ： Clicked Script of Clicked string rqdate (clicked!)//將英文操作符轉(zhuǎn)換為中文顯示 (true)old_sql = dw()//得到原有數(shù)據(jù)窗口的 SQL 語(yǔ)句 if =39。出版日期 39。 or =39。購(gòu)買日期 39。 then//查詢項(xiàng)為日期類型 (d)//取出輸入的日期數(shù)據(jù) rq = String(d, yyyy/mm/dd)//將輸入的日期數(shù)據(jù)轉(zhuǎn)換為字符型 choose case query_operator//根據(jù)操作符的不同將新產(chǎn)生的 WHERE 條件與老的 SQL 語(yǔ)句拼接成新的 SQL 語(yǔ)句 case 39。=39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。date39。 +39。(39。 + 39。 + rq + 39。 +39。)39。 case 39。39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。date39。 +39。(39。 + 39。 + rq + 39。 +39。)39。 amp。 +39。 or 39。+query_item+39。 is null 39。 case 39。=39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。date39。 +39。(39。 + 39。 + rq + 39。 +39。)39。 case 39。=39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。date39。 +39。(39。 + 39。 + rq + 39。 +39。)39。 end choose////查詢項(xiàng)為字符型 else =Righttrim()//將當(dāng)前輸入內(nèi)容右面的空格去掉 choose case query_operator//根據(jù)操作符的不同將新產(chǎn)生的 WHERE條件與老的 SQL語(yǔ)句拼 接成新的 SQL 語(yǔ)句 case 39。=39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。 + + 39。 case 39。39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。 + + 39。amp。 +39。 or 39。+query_item+39。 is null 39。 case 39。like39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。 +39。%39。+ +39。%39。+ 39。 case 39。not like39。 new_sql = old_sql + where + query_item amp。 + +query_operator + 39。 +39。%39。+ +39。%39。+ 39。amp。 + 39。 or 39。+query_item+39。 is null 39。end choose//end if//對(duì)原有數(shù)據(jù)窗口進(jìn)行新的查詢 if select(new_sql) = 1 then beep(3) messagebox(警告 , 檢索失敗 ,stopsign!) (sqlca) () (old_sql) end if 組合查詢（條件查詢）模塊的實(shí)現(xiàn)： 圖 5－ 5 組合（條件）查詢窗口 控件： dw_2 事件（ event）： Itemchanged Script of Itemchanged string item,status,edit,result,modify_string,cur_string,c,()choose case case39。column_name39。 item=((),39。column_name39。)//根據(jù)查詢項(xiàng)目改變操作符的顯示 If item=39。publishing_date39。 or item=39。buy_date39。 then (()) (row,39。content39。,39。39。) dw_(39。operator39。,1,39。等于 ~t=39。) (39。operator39。,2,39。不等于 ~t39。) (39。operator39。,3,39。小于 ~t39。) (39。operator39。,4,39。大于 ~t39。) (39。operator39。, 5, 39。小于等于 ~t=39。) (39。operator39。, 6, 39。大于等于 ~t=39。) Status = (39。operator39。,4)else (()) (row,39。content39。,39。39。) (39。operator39。,1,39。等于 ~t=39。) (39。operator39。,2,39。不等于 ~t39。) (39。operator39。, 3, 39。包含 ~tlike39。) (39。operator39。, 4, 39。不包含 ~tnot39。) Status = (39。operator39。,4)end if//case 39。operator39。//防止操作符的顯示改變 operator1=((),39。operator39。) choose case operator1 case 39。like39。 ((),39。operator39。,39。包含 39。) case 39。not39。 (trow(),39。operator39。,39。不包含 39。)end chooseend choose 控件： pb_2 “插入” 事件（ event）： Clicked Script of Clicked int row,new_row,istring queryrow=()//將當(dāng)前行的行號(hào)賦值給變量 //允許插入一行的條件 if (isnull((row,39。column_name39。)) or amp。 isnull((row,39。operator39。)) or amp。 isnull(dw_(row,39。content39。)) or amp。 isnull((row,39。join39。))) then query=39。no39。 else query=39。yes39。 end if//如果允許插入，則在當(dāng)前行后插入一條新記錄 if query=39。yes39。 thennew_row=(0)////將光標(biāo)定位在新的一行“資料名稱”列 (new_row)(new_row)(1)//else messagebox(39。警告 39。,請(qǐng)輸入完整的查詢條件 ,stopsign!)end if 控件： pb_3“刪除” 事件（ event）： Clicked Script of Clicked int row//如果當(dāng)前行不為第一行，則允許刪除 if