【正文】 銷售價 添加單選按鈕組 optiongroup1,功能用于設(shè)置打折圖書，其 interactivechange event 功能實現(xiàn)代碼為： if =1 =allt() 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 29 頁 =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)計即將出售的圖書。 界面的應(yīng)用介紹： 執(zhí)行“圖書銷售”的“銷售記錄”命令，彈出“圖書銷售”界面，在“書號”文本框中輸入書號將顯示該書相應(yīng)的信息，然后選擇優(yōu)惠價，并在“數(shù)量”文本框中輸入銷售冊數(shù)，單擊“確定”按鈕即可在“銷售列表”中顯示相應(yīng)的信息，并在列表下面顯示價格總計。該界面用表格顯示查詢到的銷售記錄，通過銷售時間查詢銷售記錄，并按書名、作者或出版社對銷售圖書進行統(tǒng)計。 圖 圖書銷售查詢界面 界面中的各控件主要屬性設(shè)置以及功能實現(xiàn)的代碼： 在“項目管理器”中創(chuàng)建表單并保存，屬性 autocenter 值為 .t.， borderstyle 值為 2， titlebar 值為 0。 添加標簽 label1label3，其 caption 屬性值如圖?！? =”” endif bo2 的初始化 init event 實現(xiàn)代碼為： =dtoc(date()) click event 功能實現(xiàn)代碼為 ： if ctod ()ctod() wait window at ” 后面的日期要大于前面的日期！請修改。 where 銷售日期 =date() =1 =” salels” =1 添加按鈕組 mandgroup1,其 buttoncount 屬性值為 3 添加“查詢”按鈕 mand1，其 click event 功能實現(xiàn)的代碼為： sele 書名，作者，出版社，銷售數(shù)量 from saleinfo into cursor salels。 .and. 銷售日期 = ctod() =1 =” salels” =1 添加“統(tǒng)計”按鈕 mand2，其 click event 功能實現(xiàn)的代碼為： 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 34 頁 if ==1 sele 書名 ,作者 ,出版社 ,count(銷售數(shù)量 ) as 總銷售量 from salels into cursor tjls。 group by 作者 order by 總銷售量 desc =1 =tjls endif if ==1 sele 書名 ,作者 ,出版社 ,count(銷售數(shù)量 ) as 總銷售量 from salels into cursor tjls。amp。amp。 界面的應(yīng)用介紹： 執(zhí)行“圖書銷售”的“銷售查詢”命令，彈出“圖書銷售查詢與統(tǒng)計”界面，在“時間范圍”下拉列表中選 擇圖書銷售時間后單擊“查詢”按鈕即可在表格中顯示查詢到的信息，在單選按鈕組中選擇要統(tǒng)計的方式后，單擊“統(tǒng)計”按鈕進行統(tǒng)計。 圖 報表設(shè)計界面 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 36 頁 報表的制作步驟： 在“項目管理器”中的“文檔”選項卡中選擇“報表”項。 在彈出的“新建報表”對話框中單擊“報表向?qū)А卑粹o。 在打開的對話框中選擇字段。 調(diào)整報表中各項。 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 37 頁 設(shè)計讀者注冊界面 讀者注冊界面主要是用于對需借閱圖書的讀者進行注冊，可通過文本框來輸入相應(yīng)的讀者信息，圖 為讀者注冊界面的設(shè)計圖。 打開該表單的“數(shù)據(jù)環(huán)境設(shè)計器”并添加 readerinfo 表。 添加文本框 text1text6 和編輯框 edit1，其中 text1text5 和 edit1 用于讀者的基本信息， text6 用于錄入讀者的押金， text1 的 init event 代碼為： 添加下拉列表 bo1,用于選擇讀者性別，其初始化 init event 實現(xiàn)代碼為： =” 男“ (“ 男“ ) (“ 女“ ) 添加“確定”按鈕 mand1，其 click event 功能實現(xiàn)的代碼為： 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 38 頁 use readerinfo if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else if allt()== messagebox(請輸入完整的必要信息！ ,64,提示 ) else append blank repl 讀者編號 with allt() repl 姓名 with allt() repl 年齡 with allt() repl 聯(lián)系電話 with allt() repl 詳細住址 with allt() repl 壓金 with val(allt()) repl 備注 with allt() repl 注冊日期 with date() if allt()== repl 性別 with allt() 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 39 頁 else repl 性別 with allt() endif endif endif endif endif use 添加“ 重填”按鈕 mand2，其 click event 功能實現(xiàn)的代碼為： = = = = = = =男 = 添加“返回”按鈕，其 click event 功能實現(xiàn)的代碼為： 添加形狀 shape shape shape3， specialeffect 屬性值為 0，其中 shape1 作為功能按鈕的邊框， backcolor 屬性值為“ 7， 233， 216”； shape2 作為文本框的邊框，backstyle 屬性值為 0； shape3 的屬性 height 值為 2。 界面的應(yīng)用介紹： 執(zhí)行“讀者管理”的“錄入讀者信息”命令，彈出“讀者 注冊”界面，在文本框中輸入讀者信息后單擊“確定”按鈕即可。 圖 修改讀者信息界面 界面中的各控件主要屬性設(shè)置以及功能實現(xiàn)的代碼： 在“項目管理器”中創(chuàng)建表單并保存為 dzxg，屬性 autocenter 值為 .t.， borderstyle值為 2， titlebar 值為 0。 添加標簽 label1label9，其 caption 屬性值如圖。 添加下拉列表 bo1,其 init event 實現(xiàn)代碼為： =“男” (“ 男” ) (“ 女” ) 表單的初始化。 .or. allt(讀者編號 )=allt() if eof() messagebox(沒有此記錄，請重新輸入！ ,64,提示 ) go nhere else endif nhere=reo() endif 添加“返回”按鈕 mand8，其 click event 功能實現(xiàn)的代碼為： 添加 shape shape2 和 shape3， specialeffect 屬性值為 0，其中 shape1 作為功能按鈕的邊框， backcolor 屬性值為“ 7， 233， 216”； shape2 作為文本框的邊框， backstyle屬性值為 0； shape3 的屬性 height 值為 2。 界面的應(yīng)用介紹： 執(zhí)行“讀者管理”的“修改讀者信息”命令，彈出“修改讀者信息”界面，在該界面中可使用“快速定位”和逐個查詢來查找需要修改的學(xué)生信息。 建立圖書服務(wù)管理界面 圖書服務(wù)界面主要針對讀者查詢圖書來設(shè)計，便于讀者購買、借閱或預(yù)約圖書，讀 者也可以對自己借閱情況進行查詢。在查詢時可按書名、作者或出版社進行查詢，并用表格顯示查詢到的圖書信息，圖 圖書查詢設(shè)計界面。 打開該表單的“數(shù)據(jù)環(huán)境設(shè)計器”并添加 booksinfo、 readerinfo 和 lendinfo 表。 添加單選按鈕組 optiongroup1,屬性 buttoncount 值為 3,其中 option1 的 caption為“按書名查詢”， option2 的 caption 為“按作者查詢”， option3 的 caption 為“按出版社查詢”。 添加單選按鈕組 optiongroup2,屬性 buttoncount 值為 2,其中 option1 的 caption 為“借閱圖書”， option2的 caption 為“預(yù)約圖書”。 添加表格 grid1,用于顯示查詢到的圖書，其 afterrowcolchange event 功能實現(xiàn)的 代碼為： LPARAMETERS nColIndex shuhao=allt() =shuhao sele lendinfo locate for allt(書號 )=(借閱情況 )==預(yù)約 if !eof() =1 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 46 頁 =1 =0 else =0 =1 =0 endif 表單初始化。 .(借閱情況 )=預(yù)約 to go top if 3 locate for allt(讀者編號 )=allt()。 .(借閱情況 )=預(yù)約 北京航空航天大學(xué)畢業(yè)設(shè)計 (論文 ) 第 47 頁 if eof() append blank repl 書號 with allt() repl 讀者編號 with allt() repl 預(yù)約日期 with date() repl 借閱情況 with 預(yù)約 else messagebox(您已經(jīng)預(yù)約此本書！ ,64,提示 ) = endif else messagebox(最多只能預(yù)約 3本圖書，您已經(jīng)預(yù)約 3 本了！ ,64,提示 ) endif endif if ==1 count for allt(讀者編號 )=allt()。 .(書號 )=allt