【文章內(nèi)容簡介】 事件與此相似 .,不再贅述 . “添加 (cmdAdd) 按鈕 ”的 Click 事件 SELECT 分類表 GO BOTTOM amp。amp。到分類表的尾部 NMAX = 分類表 .編號 amp。amp。讀取當(dāng)前編號（最大編號） NMAX = NMAX + 1 amp。amp。最大編號加 1 為新編號 APPEND BLANK amp。amp。添加新記錄 = add amp。amp。設(shè)置 fmode 屬性為 Add，表示添加 amp。amp。將當(dāng)前表單控件狀態(tài)設(shè)置為 編號 .Value = NMAX 種類編號 .Value = nTypeNo amp。amp。根據(jù)公共變量，設(shè)置種類編號 程序首先將記錄指針 移到分類表的尾部 ,然后讀取當(dāng)前記錄的編號到變量 NMAX中 ,將其加 1 后得到新記錄的編號 .使用 APPEND BLANK 命令添加一條新記錄 ,然后將 fmode 屬性設(shè)置為 ”Add”,表示添加記錄 .使用公共變量 nTypeNo 的值作為新記錄的 ”種類編號 ”字段值 . “修改 (cmdEdit)按鈕 ”的 Click 事件 :: = modify amp。amp。設(shè)置 fmode 屬性為 modify，表示修改 amp。amp。設(shè)置表單控件為編輯狀態(tài) sOld = ALLTRIM( 分類名稱 .Value) amp。amp。保存原分類名稱值到 sOld 變量中 “刪除 (cmdDelete) 按鈕 ”的 Click 事件 : If 分類名稱 .Value == MessageBox(請選擇要刪除的記錄 ) return Endif amp。amp。 如果音像商品中使用了此分類，則不能刪除 SELECT 音像商品表 If 種類編號 .Value = 1 Locate For 影片分類編號 = 編號 .Value Else Locate For 語種分類編號 = 編號 .Value Endif If Found() = .T. MessageBox(商品中使用了此分類，不能刪除 ,16,音像租賃管理系統(tǒng) ) Return Endif If MessageBox(是否要刪除當(dāng)前記錄？ ,4+32,音像租售管理系統(tǒng) ) = 6 SELECT 分類表 DELETE amp。amp。邏輯刪除 PACK amp。amp。物理刪除 amp。amp。根據(jù)類別編號決定刷新的列表框控件 If nTypeNo=1 Else Endif Endif 程序?qū)棾鱿⒖蛞笥脩舸_認(rèn)是否刪除記錄 .如果用戶選擇刪除記錄 ,則判斷音像商品表中是否包含此分類數(shù)據(jù) ,如果包含 ,則不允許刪除 .最后使用 DELETE命令和 PACK 命令將當(dāng)前記錄刪除 . “保存 (cmdSave)按鈕 ”的 Click 事件 : amp。amp。如果分類名稱為空 sNew = ALLTRIM( 分類名稱 .Value) amp。amp。讀取當(dāng)前分類名稱到變量 sNew IF EMPTY(sNew) MESSAGEBOX(分類名稱不能為空 ,16,音像租賃管理系統(tǒng) ) 分類名稱 .SETFOCUS() RETURN ENDIF amp。amp。 添加新分類名稱 IF = add OR (=modify AND sNewsOld) amp。amp。 遍歷列表框，判斷分類名稱是否重復(fù) If nTypeNo=1 M = For nt = 1 TO M amp。amp。 分類名稱 sTypeName = ALLTRIM((nt,2)) IF sTypeName=sNew MessageBox(已經(jīng)存在此分類名稱 ,16,音像租賃管理系統(tǒng) ) 分類名稱 .SetFocus Return Exit Endif Endfor Else M = For nt = 1 To M amp。amp。 分類名稱 sTypeName = ALLTRIM((nt,2)) IF sTypeName=sNew MessageBox(已經(jīng)存在此分類名稱 ,16,音像租賃管理系統(tǒng) ) 分類名稱 .SetFocus Return Exit Endif Endfor Endif Endif amp。amp。 保存 CanSave=TableUpdate(.F.) amp。amp。將緩沖區(qū)中的數(shù)據(jù)保存到數(shù)據(jù)庫中 MessageBox(保存成功 ,64,音像租賃管理系統(tǒng) ) IF nTypeNo=1 ELSE ENDIF 在保存分類數(shù)據(jù)之前，首先要判斷用戶輸入的分類名稱是否為空以是否存在同名的分類，只有在數(shù)據(jù)有效時(shí)才能保存數(shù)據(jù)。 TableUpdate 函數(shù)的功能是提交緩沖區(qū)中的數(shù)據(jù)，并將其寫入到數(shù)據(jù)庫中。 “取消（ cmdCancel）按鈕 ”的 Click 事件 amp。amp。 取消保存 If MessageBox(要取消保存輸入的信息？ ,4+32,音像租售管理系統(tǒng) ) = 6 TableRevert(.F.) If nTypeNo=1 Else Endif Else Return Endif TableRevert 的功能是 取消緩沖區(qū)中的變化，還原原有數(shù)據(jù)。 會員信息錄入表單的主要代碼如下 ： Form1 的 Init 事件： 表單初始化時(shí)，其中的控件應(yīng)該處于只讀狀態(tài)。 “ cbo 類型編號”控件的 Interactivechange 事件： amp。amp。 把會員類型放入類型名稱 i = amp。amp。當(dāng)前組合框的序號 X = VAL(ALLTRIM((i))) amp。amp。取得當(dāng)前選擇的類型編號 SELECT 會員類型表 LOCATE FOR 編號 =X amp。amp。在會員 類型表中定痊記錄 類型名稱 .Value = ALLTRIM(會員類型表 .類型名稱 ) amp。amp。 顯示類型名稱 nDays = 會員類型表 .使用天數(shù) 到期日期 .VALUE = 登記日期 .VALUE + nDays amp。amp。 顯示到期日期 SELECT 會員表 程序?qū)⒔M合框的 ListIndex 屬性賦值到變量 i 中，記錄當(dāng)前選擇記錄的序號，然后調(diào)用 List(i)方法讀取當(dāng)前選擇記錄的編號，并根據(jù)此編號在會員類型表中定位對應(yīng)的記錄；將“類型名稱”字段值賦 值到“ txt 類型名稱”文本框中，然后計(jì)算到其日期值，顯示在“ txt 到期日期”文本框中。 “添加（ cmdAdd）按鈕”代碼： amp。amp。 添加新記錄 SELECT 會員表 GO BOTTOM NMAX = 會員表 .編號 NMAX = NMAX + 1 APPEND BLANK amp。amp。 設(shè)置編號，性別默認(rèn)值，登記日期為當(dāng)天日期 編號 .Value = NMAX 狀態(tài) .Value = 正常 性別 .ListIndex = 1 登記日期 .Value = DATE() amp。amp。 把一些非連接表的字段設(shè)置為空 類型名稱 .Value = 到期日期 .Value = DATE() 程序?qū)⒂涗浿羔樢频阶詈笠粭l記錄，將當(dāng)前記錄的編號加 1，得到新記錄的編號。使用 APPEND BLANK 命令添加一條新記錄，然后將新的編號賦值到“ txt 編號”文本框中 .“狀態(tài)”字段的初始值為“正確”，“性別”字段的初始值為“男”，“登記日期”字段的初始值為當(dāng)前的日期，調(diào)用 ModeEdit 將表單控件設(shè)置為編輯狀態(tài)。 “修改（ cmdEdit）按鈕 ”的 Click 事件： 保存（ cmdSave）按鈕的 Click 事件： amp。amp。如果姓名為空 If Empty(Alltrim( 姓名 .Value)) MessageBox(會員姓名不能為空 ,16,音像租賃管理系統(tǒng) ) RETURN Endif If Empty( 登記日期 .VALUE) MessageBox(登記日期不能為空 ,16,音像租賃管理系統(tǒng) ) RETURN Endif amp。amp。 保存 TableUpdate(.F.) MessageBox(保存成功 ,64,音像租賃管理系統(tǒng) ) 該程序執(zhí)行過程如下： （ 1） 判斷會員姓名、登記日期等數(shù)據(jù)是否有效錄入，如果沒有錄入，則返回并要求用戶錄入數(shù)據(jù)。 （ 2） 調(diào)用 TableUpdate 函數(shù)的功能是將緩沖區(qū)中的數(shù)據(jù)提交，寫稿到數(shù)據(jù)庫中。 （ 3） 調(diào)用 ModeRead 方法將表單控件設(shè)置為只讀狀態(tài)。 “ 第一個”“上一個”“下一個”“最后一個” “取消”和“退出”等按鈕的功能是在可視類中實(shí)現(xiàn)的。 會員瀏覽表單的主要代碼如下 ： Form1 的 Load 事件： PUBLIC SearchCnd,BH SearchCnd = .T. 公共變量 SearchCnd 是查詢條件表達(dá)式，默認(rèn)情況下為 T，表示沒有查詢條件，顯示全部記錄，公共變量 BH 用于保存當(dāng)前選擇會員記錄的編號。 Grid1 的 Init 事件： amp。amp。 設(shè)置表格控件的數(shù)據(jù)源為表記錄 SELECT , , , , , ,( + ) AS 到期日期 ,。 , , 。 FROM 會員表 H,會員類型表 L WHERE = 。 ORDER BY DESC, INTO CURSOR ATMP amp。amp。 設(shè)置查詢條件 SELECT ATMP SET FILTER TO amp。SearchCnd = 1 = ATMP amp。amp。 設(shè)置列寬 With .ColumnCount = 10 . = 0 amp。amp。第一列列寬 . = 60 = 30 . = 80 . = 35 . = 70 . = 70 . = 70 . = 60 . = 60 EndWith 程序運(yùn)行過程如下： （ 1） 使用 SELECT 從會員表和會員類型表中讀取數(shù)據(jù)到游標(biāo) ATMP 中，注意各表之間的連接關(guān)系。 （ 2） 通過 SET FILTER TO 命令設(shè)置查詢條件。 （ 3） 使用游標(biāo) ATMP 設(shè)置表格控件 Rrid1 的記錄源。 （ 4） 設(shè)置表格控件各列的寬度 。 “刪除（ cmdDelete）按鈕 ”的 CLICK 事件： amp。amp。 刪除會員時(shí)判斷賬戶余額是否為 0 amp。amp。 如果不為 0，則需要會員支取剩余金額后才可以刪除 SELECT 會員表 LOCATE FOR 編號 =BH amp。amp。在會員表中定位此記錄 IF 會員表 .賬戶金額 0 MESSAGEBOX(會員需要支取賬戶中金額 ,16,音像租售管理系統(tǒng) ) RETURN ENDIF DELETE FOR 編號 =BH amp。amp。刪除當(dāng)前記錄 PACK 在刪除會員記錄之前，程序要判斷此記錄的帳戶金額是否大于 0，如果大于 0，則不允許刪除。 “注銷 (cmdOff)按鈕 ”的 CLICK 事件： amp。amp。 由于會員的賬戶金 額或者到期問題將此賬戶注銷，暫時(shí)不能享受會員待遇 SELECT 會員表 LOCATE FOR 編號 =BH amp。amp。在會員表中定位記錄 IF FOUND() amp。amp。 更改狀態(tài)為注銷 REPLACE 狀態(tài) WITH 39。注銷 39。 TableUpdate(.F.) amp。amp。將更新寫入數(shù)據(jù)庫 . amp。amp。刷新表格 ENDIF 程序首先使用 LOCATE FOR 命令定位選擇的記錄，然后使用 REPLACE 命令將當(dāng)前記錄的“狀態(tài)”字段值設(shè) 置 為 “ 注 銷 ”。 公 共 變 量 BH 在 中被賦值。 “查找（ cmdFind）按鈕 ”的 Click 事件： amp。amp。 得到查詢條件 LOCAL StrName,StrType SearchCnd = .T. amp。amp。初始化查詢條件表達(dá)式 StrName = ALLTRIM( 姓名 .Value) amp。amp。讀取姓名數(shù)據(jù) IF LEN(StrName)0 amp。amp。設(shè)置姓名查詢條件 SearchCnd = SearchCnd + AND 39。+StrName+39。$姓名 ENDIF IF 類型名稱 .ListIndex0 amp。amp。設(shè)置類型名稱查詢條件 StrType = ALLTRIM( 類型名稱 .Li