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