【文章內(nèi)容簡(jiǎn)介】 代碼為： use booksinfo if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 21 頁(yè) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請(qǐng)輸入完整的必要信息！ ,64,提示 ) else append blank repl 書(shū)號(hào) with allt() repl 編號(hào) with allt() repl 書(shū)名 with allt() repl 作者 with allt() repl 出版社 with allt() repl 定價(jià) with allt() repl 冊(cè)數(shù) with allt() repl 備注 with allt() repl 入庫(kù)日期 with date() endif endif endif endif endif endif endif use 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 22 頁(yè) 添加“重填”按鈕 mand2，其 click event 功能實(shí)現(xiàn)的代碼為： = = = = = = = = 添加“返回”按鈕 mand3，其 click event 功能實(shí)現(xiàn)的代碼為： 執(zhí)行“運(yùn)行”命令，運(yùn)行并測(cè)試該界面的設(shè)計(jì)和功能實(shí)現(xiàn)情況。 界面的應(yīng)用介紹： 系統(tǒng)登錄后，執(zhí)行“圖書(shū)管理”的“圖書(shū)入庫(kù)”命令，打開(kāi)“錄入圖書(shū)信息”對(duì)話(huà)框，輸入圖書(shū)信息后單擊“確 定”按鈕保存信息；單擊“返回”按鈕關(guān)閉對(duì)話(huà)框并返回主窗口。 設(shè)計(jì)圖書(shū)信息修改界面 圖書(shū)修改界面的功能主要是用于 修改已錄入的圖書(shū)信息，在設(shè)計(jì)該界面時(shí)可通過(guò)文本框顯示要修改的信息，然后單擊“修改”按鈕后可直接進(jìn)行修改。該界面中還需設(shè)置查詢(xún)功能，以便查找需修改的圖書(shū)信息。 圖 為“修改圖書(shū)記錄”界面的設(shè)計(jì)圖。 界面中的各控件主要屬性設(shè)置以及功能實(shí)現(xiàn)的代碼： 在“項(xiàng)目管理器”中創(chuàng)建表單并保存，屬性 autocenter 值為 .t.， borderstyle 值為 2， titlebar 值為 0。 添加標(biāo)簽 label1label11，其 caption 屬性值如圖， backstyle 屬性值為 0，其中l(wèi)abel11用于統(tǒng)計(jì)圖書(shū)記錄的總數(shù)， label8用于顯示當(dāng)前是第幾條記錄。 Label11的 init event 實(shí)現(xiàn)代碼為： 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 23 頁(yè) 圖 圖書(shū)修改界面 count all to num amp。amp。統(tǒng)計(jì)記錄總數(shù) =allt(str(num)) go top 添加文本框 text1text7 和編輯框 edit1，其中 text1text6 和 edit1 用于顯示圖書(shū)信 息， text7 用于輸入要查詢(xún)的圖書(shū)名稱(chēng)，屬性 maxlength 值為 20。 初始化文本框 text1text6 和 edit1。 添加“修改”按鈕 mand1，其功能是使 text1text6 和 edit1 處于編輯狀態(tài)，它的 click event 功能實(shí)現(xiàn)的代碼為： =.f. =.f. =.f. =.f. 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 24 頁(yè) =.f. =.f. =.f. 添加“刪除”按鈕 mand2，功能是刪除當(dāng)前記錄，其 click event 功能實(shí)現(xiàn)的代碼為： use booksinfo exclusive go nhere mb=messagebox(確定要?jiǎng)h除嗎？ ,1+64,提示 ) if mb==1 delete pack if nherenum go bottom else go nhere endif endif 添加“第一條”按鈕 mand3，其 click event 功能實(shí)現(xiàn)的代碼為： go top nhere=reo() =allt(str(reo())) =.t. =.t. 添加“最后一條”按鈕 mand4，其 click event 功能實(shí)現(xiàn)的代碼為： 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 25 頁(yè) go bottom nhere=reo() =allt(str(reo())) =.t. =.t. 添加“上一條”按鈕 mand5，其 click event 功能實(shí)現(xiàn)的代碼為： skip 1 if bof() =.f. =.f. messagebox(已經(jīng)到第一條記錄了！ ,48,提示 ) go top nhere=reo() else nhere=reo() endif =.t. =.t. 添加“下一條”按鈕 mand6，其 click event 功能實(shí)現(xiàn)的代碼為： skip 1 if eof() =.f. =.f. messagebox(已經(jīng)到最后一條記錄了！ ,48,提示 ) go bottom nhere=reo() 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 26 頁(yè) else nhere=reo() endif =.t. =.t. 添加“快速定位”按鈕 mand7，其 click event 功能實(shí)現(xiàn)的代碼為： sele booksinfo go top if allt()== messagebox(請(qǐng)輸入要查詢(xún)的內(nèi)容！ ,64,提示 ) else locate for allt(書(shū)名 )=allt() if eof() go bottom messagebox(此書(shū)不存在，請(qǐng)重新輸入！ ,64,提示 ) else endif nhere=reo() endif 添加“返回”按鈕 mand8，其 click event 功能實(shí)現(xiàn)的代碼為： 添加線條 line1,屬性 bordercolor 值為“ 0,0,255” ,boderwidh 值為 2。 添加形狀 shape1 和 shape2，其中 shape1 作為按鈕的邊框的背景， fillcolor 屬性 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 27 頁(yè) 值位“ 208,208,208”， fillstyle 屬性值為 7， specialeffect 屬性值為 0； shape2 的height 屬性值為 2， specialeffect 屬性值為 0。 執(zhí)行“運(yùn)行”命令，運(yùn)行并測(cè)試該界面的設(shè)計(jì)和功能實(shí)現(xiàn)情況。 界面的應(yīng)用介紹： 執(zhí)行“圖書(shū)管理”的“修改圖書(shū)信息”命令，打開(kāi)“修改圖書(shū)記錄”界面，在該界面右上角顯示已錄入的記錄總數(shù)和當(dāng)前為第幾條記錄。使用查詢(xún)按鈕可查詢(xún)相應(yīng)的信息；單擊“修改”按鈕后，可直接對(duì)查詢(xún)到的信息進(jìn)行修改；單擊“刪除”按鈕可刪除查詢(xún)到的信息。 建立圖書(shū)銷(xiāo)售管理界面 圖書(shū)銷(xiāo)售 管理界面主要功能是用來(lái)錄入和查詢(xún)售出圖書(shū)的詳細(xì)記錄，便于對(duì)圖書(shū)銷(xiāo)售情況的管理。 設(shè)計(jì) 圖書(shū)銷(xiāo)售界面 圖書(shū)銷(xiāo)售管理界面的功能主要是用于錄入售出圖書(shū)的詳細(xì)信息，并打印出售書(shū)清單。在設(shè)計(jì)時(shí)，對(duì)圖書(shū)的信息可使用文本框進(jìn)行錄人，在錄入時(shí)只輸入書(shū)號(hào)即可自動(dòng)顯示其他相應(yīng)的信息，并在列表中顯示當(dāng)前要售出的書(shū)名和價(jià)格，圖 為圖書(shū)銷(xiāo)售界面的設(shè)計(jì)圖。 界面中的各控件主要屬性設(shè)置以及功能實(shí)現(xiàn)的代碼： 在“項(xiàng)目管理器”中創(chuàng)建表單并保存，屬性 autocenter 值為 .t.， borderstyle 值為 2， titlebar 值為 0。 打開(kāi)該表單的“數(shù)據(jù)環(huán)境設(shè)計(jì)器”并添加 booksinfo 和 saleinfo 表。 添加標(biāo)簽 label1label13，其 caption 屬性值如圖， backstyle 屬性值為 0，其中l(wèi)abel11 用于顯示售出圖書(shū)的總價(jià)格。 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 28 頁(yè) 圖 圖書(shū)銷(xiāo)售界面 添加文本框 text1text7，其中 text1 用于輸入書(shū)號(hào)，其 init event 實(shí)現(xiàn)代碼為： =” ISBN” interactivechange event 功能實(shí)現(xiàn)代碼為： sale booksinfo amp。amp。自動(dòng)顯示圖書(shū)的其他信息 locate for 書(shū)號(hào)＝ allt() =allt(書(shū)名 ) =allt(作者 ) =allt(出版社 ) =allt(定價(jià) ) =allt(定價(jià) ) =“ 1” amp。amp。設(shè)置圖書(shū)銷(xiāo)售的默認(rèn)冊(cè)數(shù) text6用于輸入銷(xiāo)售 此書(shū)的冊(cè)數(shù)， text7用于顯示當(dāng)前圖書(shū)的銷(xiāo)售價(jià) 添加單選按鈕組 optiongroup1,功能用于設(shè)置打折圖書(shū)，其 interactivechange event 功能實(shí)現(xiàn)代碼為： if =1 =allt() 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文 ) 第 29 頁(yè) =0 =0 =0 endif if =1 =val(allt())* =0 =0 =0 endif if =1 =val(allt())* =0 =0 =0 endif if =1 =val(allt())* =0 =0 =0 endif 添加列表框 list1,其功能是用于顯示和統(tǒng)計(jì)即將出售的圖書(shū)。 添加“確定”按鈕 mand1，使當(dāng)前圖書(shū)信息存入 saleinfo 表中，并在 list1 中顯示售出圖書(shū)書(shū)名和價(jià)格，其 click event 功能實(shí)現(xiàn)的代碼為： if allt()== else 北京航空航天大學(xué)畢業(yè)設(shè)計(jì) (論文