【正文】 elseif = then lookforItem3= lookforwhat3=39。 elseif =辦證日期 then lookforItem3=checkdate lookforwhat3=39。 elseif =地址 then lookforItem2=address lookforwhat2=39。 elseif =聯(lián)系電話 then lookforItem2=readerTel lookforwhat2=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。 elseif =類型 then lookforItem1=readertype lookforwhat1=39。 elseif =姓名 then lookforItem1=readername lookforwhat1=39。 else //保存修改失敗，取消所作的修改 rollback。+trim()+39。 //過濾數(shù)據(jù)窗口 dw_course_evaluation (lookforcondition) filter(dw_1) //數(shù)據(jù)窗口 dw_1 顯示記錄 () end if =true 添加： string readerid string readername G_RowNumber=() if G_RowNumber0 then (0) (G_RowNumber+1,6,today()) (G_RowNumber+1,1,string(month(today()))+string(day(today()))+string(i) ) (G_RowNumber+1,7, date(string(year(today()))++string(int(month(today()))+2)++string(day(today())))) readerid=(1,2) readername=(1,3) (G_RowNumber+1,2,readerid) (G_RowNumber+1,3,readername) else if then (0) readerid=(1,1) readername=(1,2) ((),2,readerid) ((),3,readername) ((),6,today()) ((),1,string(month(today()))+string(day(today()))+string(i) ) ((),7, date(string(year(today()))++string(int(month(today()))+2)++string(day(today())))) end if end if //((),7, string(month(today()))+string(day(today()))) 刷新： () () 保存： if ()=1 then //保存修改成功，提交修改 mit。 elseif =工作單位 then lookforItem1=readerdep lookforwhat1=39。 elseif =性別 then lookforItem1=readersex lookforwhat1=39。 elseif =是否借出 then lookforItem3=putup lookforwhat3=39。 elseif =書名 then lookforItem3=bookname lookforwhat3=39。 elseif =作者 then lookforItem2=bookauthor lookforwhat2=39。 lookforCondition1=lookforItem1+lookforHow1+lookforwhat1 elseif =登記日期 then lookforItem1=bookindate lookforwhat1= elseif =出版日期 then lookforItem1=bookpubdate lookforwhat1= elseif =價格 then lookforItem1=price lookforwhat1= end if lookforCondition1=lookforItem1+lookforHow1+lookforwhat1 //定義參數(shù)：查詢條件綜合結(jié)果 string LookforCondition2 //定義參數(shù)：要查詢的列 string lookforItem2 //定義參數(shù)：查詢的符號 string lookforHow2 //定義參數(shù)：要查詢的內(nèi)容 string lookforWhat2 string operator1,operator2,operator3 //查詢符號的選擇 lookforHow2= //查詢子段和查詢內(nèi)容的選擇 if =書號 then lookforItem2 =bookid lookforwhat2=39。 elseif =出版社 then lookforItem1=bookpub lookforwhat1=39。 close(w_books) end if end if 修改書籍界面如下： ： 添加： //insert a row in the end of dw_1 g_RowNumber=(0) //dw_1 get the focus () //到當(dāng)前行 (G_RowNumber) //the first column get the focus (1) 刪除： //得到當(dāng)前記錄 G_RowNumber=() //將當(dāng)前記錄中的員工號取出賦值給全局變量 emp_no deleterow(dw_1,g_rownumber) int a a=MessageBox(提示 ,確實要刪除嗎 ?,Question!, YesNoCancel!, 3) if a=1 then ( Clicked!) else () end if 保存： if update(dw_1,true,false)=1 then //保存修改成功，提交修改 () mit。 //彈出一個對話框警告 messagebox(錯誤 !!!,數(shù)據(jù)更新失敗 !!!) end if closequery 事件如前。 // //彈出一個對話框警告 // messagebox(錯誤 !!!,數(shù)據(jù)更新失敗 !!!) //end if if update(dw_1,true,false)=1 then //保存修改成功，提交修改 () mit。 //將數(shù)據(jù)庫中保存的口令和用戶輸入的口令作比較 IF G_PWD=CORRECT_PSWD THEN //輸入正確，打開主窗口 OPEN(W_MAIN) //setredraw(false) CLOSE(W_LOGIN_re) ELSE //不正確，在 3 次以內(nèi)可重新輸入，超過 3 次結(jié)束程序 IF G_INPUT_TIME 3 THEN MESSAGEBOX(警告 ,輸入用戶口令的次數(shù)太多！ ) CLOSE(W_LOGIN_re) ELSE MESSAGEBOX(警告 ,輸入的用戶口令有誤，請重新輸入 ) END IF END IF end if if G_right1 then =false end if 修改用戶信息界面如下： 確定按鈕代碼如下： //輸入次數(shù)加 1 G_INPUT_TIME =G_INPUT_TIME+1 //判斷兩次輸入的新口令是否一致 IF THEN IF G_INPUT_TIME 3 THEN MESSAGEBOX(警告 ,輸入的次數(shù)太多！ ) CLOSE(W_CHANGE_PASSWORD) ELSE MESSAGEBOX(警告 ,兩次輸入的口令不一致，請重新輸入 ) END IF ELSE //判斷輸入的原口令是否正確 IF G_PWD THEN IF G_INPUT_TIME 3 THEN MESSAGEBOX(警告 ,輸入的次數(shù)太多！ ) CLOSE(W_CHANGE_PASSWORD) ELSE MESSAGEBOX(警告 ,輸入的原口令不正確，請重新輸入 ) END IF ELSE //修改數(shù)據(jù)庫中的該用戶的口令 UPDATE user_info SET user_pwd=: WHERE user_id=:G_USER or username=:G_USER。DSN=guoshusheng。 用戶表信息，包括的數(shù)據(jù)項有：讀者編號 、讀者姓名、權(quán)限。 選用單機(jī)模式，有一臺奔騰以上的微型計算機(jī)，操作系統(tǒng)選擇 windows 98/2020， 開發(fā)工具選擇 ,數(shù)據(jù)庫管理系統(tǒng)（ DBMS）選擇 自帶 Sybase SQL anywhere 。 讀者基本信息的查詢、修改，包括讀者編號、讀者姓名、讀者類別、讀者性別、工 作單位、家庭住址、電話號碼、電子郵件、辦證日期、備注等。前言 為了提高圖書管理的工作效率，及時有效地了解各種信息，特開發(fā)此“小型圖書管理系統(tǒng)”。 圖書信息的輸入，包括書籍編號、書籍名稱、書籍類別、作者姓名、出版社、出 日期、書籍價格、書籍類別、登記日期、備注信息等。 詳細(xì)設(shè)計 詳細(xì)設(shè)計主要包括用戶界面設(shè)計和數(shù)據(jù)庫設(shè)計。 圖書類別信息，包括的數(shù)據(jù)項有：類別編號、圖書類別。UID=dba。 MESSAGEBOX(注意 ,你的口令已經(jīng)修改，請牢記 ) //提交修改，關(guān)閉口令修改窗口 COMMIT。 messagebox(提示 !!!,數(shù)據(jù)更新成功 !!!) end if if update(dw_1,true,false)=2 then //保存修改失敗，取消所作的修改 rollback。 退出： close(parent) 修改讀者信息界面： 添加： //insert a row in the end of dw_1 g_RowNumber=(0) //dw_1 get the focus () //到當(dāng)前行 (G_RowNumber) //the first column get the focus (1) 刪除： //得到當(dāng)前記錄 G_RowNumber=() //將當(dāng)前記錄中的員工號取出賦值給全局變量 emp_no deleterow(dw_1,g_rownumber) int a a=MessageBox(提示 ,確實要刪除嗎 ?,Question!, YesNoCancel!, 3) if a=1 then ( Clicked!) else () end if 保存： if update(dw_1,true,false)=1 then //保存修改成功，提交修改 () mit。 messagebox(提示 !!!,數(shù)據(jù)更新成功 !!!) else //保存修改失敗，取消所作的修改