【導(dǎo)讀】開發(fā)此“小型圖書管理系統(tǒng)”。該系統(tǒng)本著簡單、實(shí)用、方便的宗旨，作效率，節(jié)省大量人力和時(shí)間，提高了圖書館的信息化程度。本系統(tǒng)具有易學(xué)、易用的特點(diǎn)，用戶可以很快掌握其操作方法，方便、快捷完成各項(xiàng)工作，正確無誤地進(jìn)行各種信息的處理工作。本系統(tǒng)是由本人在楊成、郗亞輝老師的指導(dǎo)下開發(fā)完成的。提出寶貴建議，本人將不勝感激!系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、歸范化。作單位、家庭住址、電話號碼、電子郵件、辦證日期、備注等。日期、書籍價(jià)格、書籍類別、登記日期、備注信息等。籍名稱、借書日期、備注等。詳細(xì)設(shè)計(jì)主要包括用戶界面設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)。通過選擇各個(gè)菜單項(xiàng)或工具欄圖標(biāo)，分別進(jìn)入各個(gè)具體界面，實(shí)現(xiàn)不同的操作功。用戶表信息，包括的數(shù)據(jù)項(xiàng)有：讀者編號、讀者姓名、權(quán)限。對于該信統(tǒng)用戶分為三類：系統(tǒng)管理員、數(shù)據(jù)管理員、普通用戶。

　　

【正文】 Itemstring(dw_2,g_rownumber,1) //將讀者對應(yīng)的讀者種 類信息，顯示在 dw_1 上 //得到過濾條件 lookforcondition=readerid = +39。+string(s_readerid)+39。 //過濾數(shù)據(jù)窗口 dw_course_evaluation (lookforcondition) filter(dw_1) //數(shù)據(jù)窗口 dw_1 顯示記錄 () 刪除： //得到當(dāng)前記錄 date date1,date2,a string b dec m int xiangcha,k G_RowNumber=() a=(G_RowNumber,7) b=(G_RowNumber,2) //刪除一行，表示該書已經(jīng)歸還 date2=today() //date1=date(a) //date2=date(date2) xiangcha=daysafter(a,date2) if xiangcha0 then k=messagebox(提示 ,已超期 +string(xiangcha)) int(xiangcha) xiangcha=(xiangcha)* else deleterow(dw_1,g_rownumber) end if if k=1 then update readers set yajin=yajin :xiangcha where readerno=:b。 select yajin into: m from readers where readerno=:b。 if m0 then messagebox(提示 ,您欠費(fèi) +string(m)+元 ) else deleterow(dw_1,g_rownumber) end if end if ////string(xiangcha*) 刷新： () () 保存： if update(dw_1,true,false)=1 then //保存修改成功，提交修改 () mit。 else //保存修改失敗，取消所作的修改 rollback。 //彈出一個(gè)對話框警告 messagebox(錯(cuò)誤 !!!,數(shù)據(jù)保 存失敗 ) end if string bid G_RowNumber=() do until G_RowNumber=0 bid=(G_RowNumber,4) //bid=char(bid) //bid=39。+bid+39。 update books set putup=39。139。 where bookid=:bid。 G_RowNumber=G_RowNumber 1 Loop 關(guān)閉： close(w_return) 讀者信息查詢界面如 下： 查詢： //定義參數(shù)：查詢條件綜合結(jié)果 string LookforCondition string LookforCondition1 //定義參數(shù)：要查詢的列 string lookforItem1 //定義參數(shù)：查詢的符號 string lookforHow1 //定義參數(shù)：要查詢的內(nèi)容 string lookforWhat1 //查詢符號的選擇 lookforHow1= //查詢子段和查詢內(nèi)容的選擇 if =讀者編號 then lookforItem1 =readerno lookforwhat1=39。++39。 elseif =姓名 then lookforItem1=readername lookforwhat1=39。++39。 elseif =性別 then lookforItem1=readersex lookforwhat1=39。++39。 elseif =辦證日期 then lookforItem1=checkdate lookforwhat1=39。++39。 elseif =聯(lián)系電話 then lookforItem1=readerTel lookforwhat1=39。++39。 elseif =類型 then lookforItem1=readertype lookforwhat1=39。++39。 elseif =工作單位 then lookforItem1=readerdep lookforwhat1=39。++39。 elseif = then lookforItem1= lookforwhat1=39。++39。 elseif =地址 then lookforItem1=address lookforwhat1=39。++39。 end if //查詢條件的綜合 lookforCondition1=lookforItem1+lookforHow1++lookforwhat1+ string LookforCondition2 //定義參數(shù)：要查詢的列 string lookforItem2 //定義參數(shù)：查詢的符號 string lookforHow2 //定義參數(shù)：要查詢的內(nèi)容 string lookforWhat2 //查詢符號的選擇 lookforHow2= //查詢子段和查詢內(nèi)容的選擇 if =讀者編號 then lookforItem2 =readerno lookforwhat2=39。++39。 elseif =姓名 then lookforItem2=readername lookforwhat2=39。++39。 elseif =性別 then lookforItem2=readersex lookforwhat2=39。++39。 elseif =辦證日期 then lookforItem2=checkdate lookforwhat2=39。++39。 elseif =聯(lián)系電話 then lookforItem2=readerTel lookforwhat2=39。++39。 elseif =類型 then lookforItem2=readertype lookforwhat2=39。++39。 elseif =工作單位 then lookforItem2=readerdep lookforwhat2=39。++39。 elseif = then lookforItem2= lookforwhat2=39。++39。 elseif =地址 then lookforItem2=address lookforwhat2=39。++39。 end if lookforCondition2=lookforItem2+lookforHow2++lookforwhat2+ string LookforCondition3 //定義參數(shù)：要查詢的列 string lookforItem3 //定義參數(shù)：查詢的符號 string lookforHow3 //定義參數(shù)：要查詢的內(nèi)容 string lookforWhat3 //查詢符號的選擇 lookforHow3= //查詢子段和查詢內(nèi)容的 選擇 if =讀者編號 then lookforItem3 =readerno lookforwhat3=39。++39。 elseif =姓名 then lookforItem3=readername lookforwhat3=39。++39。 elseif =性別 then lookforItem3=readersex lookforwhat3=39。++39。 elseif =辦證日期 then lookforItem3=checkdate lookforwhat3=39。++39。 elseif =聯(lián)系電話 then lookforItem3=readerTel lookforwhat3=39。++39。 elseif =類型 then lookforItem3=readertype lookforwhat3=39。++39。 elseif =工作單位 then lookforItem3=readerdep lookforwhat3=39。++39。 elseif = then lookforItem3= lookforwhat3=39。++39。 elseif =地址 then lookforItem3=address lookforwhat3=39。++39。 end if lookforCondition3=lookforItem3+lookforHow3++lookforwhat3+ string operator1,operator2 if =與 then operator1=and elseif =或 then operator1=or //elseif =非 then //operator1=not end if if =與 then operator2=and elseif =或 then operator2=or //elseif =非 then //operator2=not end if if = then lookforCondition=lookforCondition1 elseif = then lookforCondition=lookforCondition1+ +operator1+ +lookforCondition2 else lookforCondition=lookforCondition1+ +operator1+ +lookforCondition2+ +operator2+ +lookforCondition3 end if (lookforcondition) () () 刷新： () 打?。?//打印數(shù)據(jù)窗口中內(nèi)容 () 關(guān)閉： //close the parent window close(parent) 庫存界面如下： OPEN 事件如下： long newitem long handle long rootitem int count1=0 int count2=0 treeviewitem tv_item string name int o,p datastore ds_booktype,ds_book ds_booktype=create datastore ds_book=create datastore =d_bookretrieve =d_booktype (sqlca) (sqlca) (false) (rootitem) =圖書館藏書 =1 =1 rootitem=(0,tv_item) () count1=() for o=1 to count1 name=(o,1) =name =2 =2 newitem=(rootitem,tv_item) (name) count2=() for p=1 to count2 =(p,2) =3 =3 (newitem,tv_item) next next (true) =string(today()) tv 的單擊 事件： treeviewitem tv_item string name1 (handle,tv_item) if =3 then name1= (sqlca) (name1) end if 庫存界面如下： 檢索： (sqlca) () 退出： close(parent) 幫助界面如下： （所有窗口及數(shù)據(jù)窗口對象）