第11章項目設計實例(編輯修改稿)
2025-03-22 18:16 本頁面
【文章內(nèi)容簡介】 讀者信息”和“修改讀者信息”的“結(jié)果”均為“過程”。“添加讀者信息”過程的代碼如下： do form “修改讀者信息”過程的代碼如下： do form (4)主菜單項“退出系統(tǒng)”的“結(jié)果”為“過程”，其代碼如下： result=messagebox(是否退出 【 圖書管理系統(tǒng) 】 ?,4+32+256,提示 ) IF result=6 close all clear events 退出事件循環(huán) quit 結(jié)束當前 Visual FoxPro 工作期 ENDIF (5)設置下拉式菜單的常規(guī)選項屬性 選擇“顯示” |“常規(guī)選項”，在對話框中選中“頂層表單”復選框，如圖所示。 (6)生成菜單程序文件。選擇“菜單” |“ 生成”命令，生成菜單的程序文件“ ” ，如圖所示。 2．表單的設置及屬性 主窗口的表單文件名稱為 ，主要用途是為操作提供一個便捷的操作界面。表單的主要屬性如表所示。 屬性 屬性值 用途 Autocenter .t. 表單啟動后自動位于屏幕中央 Caption 圖書管理系統(tǒng) 表單的標題欄 Controlbox .f. 取消表單右上角的控制按鈕 Showwindow 2 作為頂層表單 表單 form_menu的主要屬性 在本表單上需要調(diào)用下拉式菜單，實現(xiàn)方法：在表單的 init事件中輸入代碼 do with this, .t. 3. 圖書信息管理模塊代碼 圖書信息管理模塊包含兩個功能：“添加圖書信息”和“修改圖書信息”。“添加圖書信息”的表單文件名為 ，“修改圖書信息”的表單文件名為 。 1)表單的屬性設置 在“添加圖書信息”和“修改圖書信息”表單的數(shù)據(jù)環(huán)境中分別加入表?！疤砑訄D書信息”及“修改圖書信息”表單的主要屬性如表所示： 屬 性 屬 性 值 用 途 Autocenter .t. 表單啟動后位于屏幕中央 Controlbox .f. 取消表單右上角的控制按鈕 Showwindow 1 位于頂層表單中 (2)“添加圖書信息”表單的控件信息如表所示。 控 件 用 途 Text1 輸入圖書編號 Text2 輸入圖書名稱 Text3 輸入作者 Text4 輸入出版社 Text5 輸入出版日期 Text6 輸入價格 Text7 輸入庫存量 Grid1 顯示已有的圖書信息 Command1 保存錄入的圖書信息 Command2 退出表單 (3)“添加圖書信息”表單的運行效果如圖所示 。 (4)相應代碼。 填寫完圖書信息后，單擊“保存信息”按鈕即可保存信息，對應的則是命令按鈕 Command1的 Click事件，執(zhí)行的代碼如下： 將控件的信息存儲到變量中 book_id=alltrim() book_name=alltrim() book_editor=alltrim() book_publish=alltrim() book_pubdate=ctod(alltrim()) Book_price=val(alltrim()) book_kcl=val(alltrim()) 執(zhí)行插入記錄的 SQL語句 insert into book(bookid,bookname,editor,price,pubdate,publish,qty) values(book_id,book_name,book_editor,book_price,book_pubdate,book_publish,book_kcl) 信息提示 r=messagebox(信息添加成功！ ,0+64,信息提示 要退出“添加圖書信息”表單，可以單擊“退出”按鈕，對應的是命令按鈕 Command2的 Click事件，執(zhí)行的代碼如下： (5)“修改圖書信息”的控件信息如表所示。 控 件 用 途 Grid1 顯示當前已有的圖書信息 Text1 顯示圖書編號 Text2 顯示圖書名稱 Text3 顯示作者
教學課件相關(guān)推薦
鄂ICP備17016276號-1