【正文】 t you turn this way a little? Bill asked. Can you give me a good reason? He showed her one, and she gave him a little more than he had asked for. Then she found herself with a little more than she had .asked for, but as usual, he kne would be easy to move it. Cirocco frowned. Just how big is it, then? The PoloAugust, she was almost sure it was August looked at her with that calm, strangely unsettling face. I should say about two or。s cabin was crowded when two people were in it, and it *as at the bottom of the carousel. It took one act of love in freefall to make a bed seem as limiting as the back scat of a Chevrolet. 39。 she had learned early to be indifferent to a man39。Neil One. He was also the only crew member who was taller than siroc co. She didn39。t get any better, so before he could sense her disappointment she had cooled the relationship and let him pursue Gaby, the woman he had been drawn to from the first. Calvin was a general surgeon trained by NASA to be petent as ship39。t say a word about its being painful. An uget. It was impossible to keep secrets when seven people lived in such a confined space. She knew for a fact, for instance, that what the Polo sisters did behind the closed doors of their adjoining rooms was still illegal in Alabama. They had all bounced around a lot, especially in the early months of the voyage. Gene was the only married crew member, and h e had taken care to announce quite early that he and his wife had an arrangement about such matters. Still, he had slept alone for a long time because the Polos had each other, Gaby didn39。 Why didn39。 and I said, 39。 and she said, 39。t listen to her about how great menstruating is, that you all kept talking about the negative aspects of it, like bloating and cramps and crabbiness, and I said, 39。s not all. My docent told me about your lunch. Did Grandma Karen really tell you you were right? Yes. Gosh! I didn39。 總之，在以后的學習生活中我會更加努力，作為給予我?guī)椭?人們回報 . lists. Really? I said, trying not to sound jubilant. I found out they wear this red scarf thing on their arm. It covers up Sitting Bull39。無論是在理論學習階段，還是在論文的資料查詢、研究和撰寫，以至于每個環(huán)節(jié)，無不得到導師的悉心指導和幫助。 但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，沒有添加打 印報表功能，出錯處理不夠等多方面問題。 第七章 結束語 經過二個多月的設計和開發(fā)，音像租賃管理系統(tǒng)基本開發(fā)完畢。 關閉表單 MessageBox(密碼已經成功修改，請在下次登錄時使用新密碼 ) 程序首先對輸入數據進行有效檢查，包括如下內容： 保存緩沖區(qū)中的數據 release thisform amp。設置用戶記錄的密碼 密碼 .Value = ALLTRIM() TableUpdate(.F.) amp。 修改用戶密碼表單的代碼如下 ： “確定（ cmdOK）按鈕”的 CLICK 事 件： If 用戶名 .Value = MessageBox(用戶名不存在 , 16, 提示 ) return Endif If ALLTRIM() != ALLTRIM( 密碼 .Value) MessageBox(密碼不正確 , 16, 提示 ) return Endif If ALLTRIM() == MessageBox(請輸入新密碼 , 16, 提示 ) return Endif If ALLTRIM() != ALLTRIM() MessageBox(新密碼與確認密碼不同 , 16, 提示 ) return Endif amp。 如果為會員，更新此會員的租賃數量 SELECT 會員表 REPLACE 累計次數 WITH 累計次數 +ZLSL ,累計金額 WITH 累計金額 +SJZJ FOR 編號 =nMemNo Endif 程序執(zhí)行過程如下： （ 1） 將押金信息存入租賃表，將“狀態(tài)”字段值設置為“歸還” （ 2） 在租賃明細表中更改商品庫數量。 更改商品庫存數量 SELECT 租賃明細表 Scan For 租賃編號 = 編號 .Value AA = 租賃明細表 .商品編號 BB = 租賃明細表 .租賃數量 SELECT 音像商品表 REPLACE 庫存數量 WITH 庫存數量 +BB FOR 編號 =AA Endscan amp。 FOR 編號 = 編號 .Value amp。歸還 39。 實交租金 WITH 實交租金 .Value,。amp。amp。刪除租賃明細表中的數據 DELETE FOR 租賃編號 =NMAX PACK ENDIF 程序將分別從租賃表和租賃明細表中刪除指定的記錄。刪除租賃表中的數據 DELETE FOR 編號 =NMAX PACK SELECT 租賃明細表 amp。 只有歸還了商品才可以刪除記錄，包括租賃表和租賃明細表 IF MessageBox(確認要刪除租賃信息？ ,4+32,音像租賃管理系統(tǒng) ) = 6 SELECT 租賃表 amp。 “刪除（ cmdDelect）按鈕”的 CLICK 事件： amp。刷新表格數據 ENDIF 程序將當前租賃記錄的“狀態(tài)”字段設置為“出租”，然后更新音像商品表中當前商品的庫存數量和租借次數，最后刷新表格數據。更新音像商品表中更新庫存數量和租借次數字段值 SELECT 音像商品表 REPLACE 庫存數量 WITH 庫存數量 BB,租借次數 WITH 租借次數 +1 FOR 編號=AA ENDSCAN amp。從租賃明細表中讀取商品編號和租賃數量 AA = 租賃明細表 .商品編號 BB = 租賃明細表 .租賃數量 amp。 FOR 編號 =NMAX SELECT 租賃明細表 SCAN FOR 租賃編號 =NMAX amp。在租賃表中 ,將當前記錄的狀態(tài)設置為 出租 REPLACE 狀態(tài) WITH 39。 從音像商品表中 將租賃明細中的租賃數量減去 IF MessageBox(審核后將不能更改租賃信息，確認要審核租賃信息？ ,4+32,音像租賃管理系統(tǒng) ) = 6 SELECT 租賃表 amp。 “審核（ cmdCheck） 按鈕 ” 的 CLICK 事件 ： amp。 對已經出租的記錄進行編輯，需要傳遞的參數如下 nMode = 2 DO FORM [Forms\租賃單錄入 ] WITH NMAX,sDate,sType,nMemNo,nMode 程序將打開租賃單錄入表單，編輯租賃記錄。 “編輯（ cmdEdit）按鈕”的 CLICK 事件： amp。amp。amp。amp。amp。然后把 ATMP 作為表格控件 Grid 的數據源，并設置 Grid 控件的列寬。amp。amp。 設置查詢條件 SELECT ATMP SET FILTER TO amp。 ORDER BY DESC, INTO CURSOR ATMP amp。零租 39。 FROM 租賃表 H,租賃明細表 Z。 設置表格控件的數據源為表記錄 SELECT , , , , 金 , , ,金 ,。 零租信息瀏覽表單的主要代碼如下： Grid1 控件的 Init 事件： amp。amp。 FOR 編號 = 編號 .Value ENDIF 程序將保存應交押金、實交押金、應交租金和實交租金等數據。 應交租金 WITH 應交租金 .Value,。 即客戶選擇了租賃的商品后，支付押金，將押金信息存入租賃表 REPLACE 應交押金 WITH 應交押金 .Value,。 “出租（ cmdRent）按鈕 ”的 CLICK 事件： SELECT zulin IF MessageBox(確認要出租這些音像商品？ ,4+32,音像租賃管理系統(tǒng) ) = 6 amp。wait windows str(nProNo) = .T. SELECT 租賃明細表 程序將記錄指針移動到最后一條記錄，將當前記錄的編號加 1，就是新記錄的編號。將應交押金、應交租金和租賃數量等數據讀取到全局變量中 YJ = ZJ = SL = amp。讀取當前選擇的商品編號 amp。游標 MTMP 是 Grid1 的數據源 nProNo = amp。 Grid1 控件的 InteractiveChange 事件： LPARAMETERS nColIndex SELECT MTMP amp。顯示當前的商品信息 名稱 .Value = ALLTRIM( ) 分類 .Value = ALLTRIM( ) 庫存數量 .Value = 押金 .Value = *ZK 租金 .Value = *ZK 程序將組合框中的 ListIndex 屬性賦值到變量 i 中，記錄當前選擇記錄的序號。從游標 MS 中定位選擇的商品記錄 LOCATE FOR 編號 =X amp。獲得當前選擇的商品編號 SELECT MS amp。獲得當前組合框的序號 X = VAL(ALLTRIM((i)))amp。 取得商品編號 i = amp。 “ cbo 商品編號”控件的 InteractiveChange 事件： amp。amp。 設置商品選擇信息 SELECT , , , , , 。 租賃單錄入表單的主要代碼如下： “ cbo 商品編號”組合框中的 Init 事件 : amp。打開租賃單錄入表單 DO FORM [Forms\租賃單錄入 ] WITH NMAX,sDate,sType,nMemNo,nMode 程序將保存當前的租賃記錄，將打開租賃單錄入表單。保存數據 amp。設置參數 sDate = DTOC( 租賃日期 .Value) sType = 類型 .Value nMemNo = VAL(ALLTRIM( 會員編號 .List( 會員編號 .ListIndex))) nMode = 1 TableUpdate(.F.) amp。 關閉此表單，進入領用表單，將部門信息帶入表單 SELECT 租賃表 If Empty( 租賃日期 .Value) MessageBox(租賃日期不能為空 ,48,音像租賃管理系統(tǒng) ) 租賃日期 .SETFOCUS() RETURN ENDIf If Empty( 類型 .Value) MessageBox(