文學研究音像租借管理系統(tǒng)

h摘要已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。內容不論對于媒介和商家的管理者，還是對于用戶來說都至關重要。本系統(tǒng)本著與時俱進的方針，根據本單位的實際，結合發(fā)展規(guī)劃，從符合操作簡便、界面友好、靈活、實用、安全的要求出發(fā)，完成音像租借管理中包括音像信息、客戶信息的建音像租借管理的全過程的工作。力爭使這次設計能夠投入實際應用,為管理人員和用戶提供充足的信息和快捷的查詢手段，解決實際問題，滿足工作的需要。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點地說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案。ohineveryfieldtoo,soitisnecessarytomakeuseofthecomputerwhichhasjoinedtogethertheactualfinanceauditsworkandtheprimitivefinancialreporttofilltheauditcalculatebalanceproblem,andtosatisfythedemandofthework.development.Thethesisintroducethesystempoint,designthought,difficultpointtechniqueandthesolution.Keyphrase:Proceduredesign,database,Foxpro,Access,accountinguditthereporth一章緒論6 第二章需求分析10 第三章概要設計14 第四章詳細設計16 h。。。簽。。第五章畢業(yè)設計小結19h第一章緒論隨著計算機技術的飛速發(fā)展，計算機在管理中應用的普及，利用計算機實現音像租借發(fā)展的要求、推動媒體龐大的音像租借管理走向科學化、規(guī)范化的必要條件。優(yōu)點，例如檢索迅速、查找方便、可靠性高、存儲量大、壽命長、成本低等。這些優(yōu)點能夠極大地提高音像制品管理的效率，也使得管理工作更加科學化、正規(guī)化。這種操作既繁瑣又不精確，許多記錄不便長期保留。本設計將改變目前這種局面，利用計算機中最為友好、最為方便的Windows界面進入本系統(tǒng)，并可以讓管理人員輕松自如地來完成借管理自動化，使目前的音像租借管理工作大為改觀，大大提高工作效率。最為流行、使用最多、最為先進的可用作企業(yè)級開發(fā)工具的產品有：h不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒配合，會使一些即使非常簡單的界面處理動作，也會嚴重地浪費程序設計師的寶貴時間。根據任務要求分析，此設計完全可以通過VisualFoxPro6.0軟件作為開發(fā)工具來制作完成，利用VisualFoxPro6.0軟件制作一個數據庫的應用管理系統(tǒng)，這個系統(tǒng)可以很好的實現任務要求中所提出的各項功能指標。的雙向開發(fā)模式，良好的數據庫應用支持高效的程序開發(fā)和程序運深受廣大數據庫應用程序設計人員的喜愛。Delphi為數據庫應用開發(fā)人員提供了豐富的數據庫開發(fā)組件，使數據庫應用開發(fā)功能更強hh第一章緒論部分緒論主要敘述課題提出背景、目前應用現狀、分析比較當前開發(fā)工具，第二章結合軟件工程方法,對系統(tǒng)進行需求分析、功能劃分、數據流圖設計，并結合數第三章根據需求分析的結果，用戶概念數據模型表示數據及其相互間的聯(lián)系。第四章根據需求分析的結果，對系統(tǒng)進行詳細設計，主要介紹用FoxPro實現每一個模h第二章需求分析2.1總體任務需求分析2.1.2系統(tǒng)功能調查首先，我們要知道我們所需要做的工作是什么，目的是什么，有什么前提條件，需要得出什么結果。然后，根據要求進行詳細的調查，并將得到的有關資料進行認真的分析研究。得出該設計完成后應具有哪些功能。①具有信息錄入、存儲功能能夠錄入、存儲音像信息、客戶信息、租借與歸還等重要信息會時間、交會費情況等內容。為保記錄的完整性，其中有幾項關鍵字段內容必須全部錄入。②具有瀏覽功能③具有查詢功能音像有關信息④具有統(tǒng)計功能h⑤具有數據維護功能人員進行刪除和修改⑦特殊要求·進入系統(tǒng)時要有一定的安全措施，不同操作者有不同的操作權限，方可允許出租。1數據流圖數據流圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計算機技術人員也非常容易理解，它是一種極好的系統(tǒng)構造的表示方法，音像租借管理系統(tǒng)的數據流圖基本上反映出數據的源點或終點變換數據的處理數據存儲數據流向h匯總統(tǒng)計排行榜情況統(tǒng)計操作人員統(tǒng)計管理客戶管理密碼表操作人員音像管理操作管理操作人員維護管理采購人員數據流圖hh2.1.3應用現狀調查數據的輸入：由工作人員通過新員工本月工資增加和老員工上月工資表修數據的統(tǒng)計：由工作人員通過對修改后的上月工資表進行計算得到每個人表格的制作：由工作人員以修改、計算后的在上月工資表為藍本生成與銀行進行數據交換的軟件即出盤。同時可打印工資報表。整個系統(tǒng)從總體上分為人事管理、工資管理、系統(tǒng)維護三大部分，每一部分h?員工基本信息維護:包括修改、刪除(刪除員工只是將該員工登記為無效，從表中刪除).株洲移動人事工資管理系統(tǒng)人事管理模塊工資管理模塊系統(tǒng)維護模塊h第三章概要設計概要設計基礎是完成需求分析后提供的需求說明書，用概念數據模型表示數據及其相互間的關系，這種數據模型是與DBMS無關的、面向現實世界的、易如理解的數據模型，其獨立于計算機的數據模型，獨立于計算機的軟硬件系統(tǒng)，概念性數據模型關心的是如何完整、正確地反映客觀實際情況，不關心在易被人們理解的直觀的數據庫結構模式。同時也是一種相對穩(wěn)定統(tǒng)一的數據模概念設計中自頂向下的實體分析方法，即常用的實體聯(lián)系模型(簡稱E-R模型)，對具體數據進行抽象加工，將實體集合抽象成實體類型。用實體間聯(lián)系反員工(包括員工工號、員工姓名、學歷、性別、政治面貌、出生日期、所屬部門、職h稱、職務、入職時間、身份證號、聯(lián)系電話、家庭住址、手機號碼、Ehmail、有效標志)部門(部門代號、部門名稱)職務(職務代號、職務名稱)職稱(職稱代號、職稱名稱)薪金結構(月份、員工工號、薪水帳目、數目)薪水帳目(薪水帳目代號、薪水帳目名稱)政治面貌政治面貌所屬部門所屬部門身份證號性別職稱家庭住址務手機號碼聯(lián)系電話工工號工姓名有效標志部門代號部門名稱部門代號部門名稱職務代號職務名稱職務代號職務名稱職職稱代號職稱名稱稱薪水帳目薪水帳目名稱薪薪水帳目薪水帳目名稱薪金結構月份員工工號薪水帳目數目稱薪金結構務任薪水賬目h為了減少數據冗余度，將職稱實體、部門實體、職務實體、薪水帳目實體zlb第四章詳細設計4.1.1功能說明口,實現此界面主要是修改了工程文件，并調用了一個延時函數，實現起來很簡h4.2登錄窗口設計控制員工登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全，輸入口令時h4.3主窗口設計界面采用MDI方式，可同時打開幾處子窗口體，在界面上放置了菜單欄和從此進入；h第五章畢業(yè)設計小結本系統(tǒng)通過自己的努力，經過試用證明，系統(tǒng)基本滿足人事工資管理方面致謝參考書目h中央廣播電視大學人才培養(yǎng)模式改革和開放教育試點計算機科學與技術專業(yè)本科畢業(yè)論文作者：馬莉專業(yè)：計算機科學與技術指導教師：朱偉政工作單位：昌吉電視臺分校(工作站)：新疆電大昌吉分校一需求分析1任務要求2分析研究h二系統(tǒng)結構1設計思想2系統(tǒng)總流程3系統(tǒng)總框架4主要界面三詳細設計1數據庫的結構2表單中的動態(tài)設計3系統(tǒng)的進入4數據的查詢5數據的瀏覽6數據的錄入7音像的選擇8音像租借與歸還9設計程序2分析研究1可行性分析根據任務要求分析，此設計題目完全可以通過VisualFoxPro6.0軟件作為開發(fā)工具來制作完成，利用VisualFoxPro6.0軟件制作一個數據庫的應用管理系統(tǒng)，這個系統(tǒng)可以很好的實現任務要求中所提出的各項功能指標。錄不便長期保留。本設計將徹底改變目前這種局面，利用計算機中最為友好、最為方便的管理自動化大大提高工作效率。2數據流圖數據流圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計算機技術人員也非常容易理解，它是一種極度好的系統(tǒng)構造的表示方法，下面就是“音像租借管理系統(tǒng)”數據流圖，它基本上反映出了整個系統(tǒng)的邏輯功能。二系統(tǒng)結構二1設計思想因為系統(tǒng)的使用環(huán)境并不是一般的辦公室環(huán)境，而是帶有一定復雜性的商業(yè)環(huán)境，每次hh2模塊化非常方便和使用這一數據庫應用系統(tǒng)。3智能化①自動編號加1計了對客戶編號、音像編號采取了自動加1的功能，這樣，既避免了空號，也防止了重號。②自動計算租片／還片所需的付款金額付或應始祖款的金額顯示出來，并自動計算出實際總付款金額，這樣可以正確地引導客戶按自己的經濟承受能力來租借音像。③自動填寫庫表當錄入完某一新音像制品的全部內容并確定之后，系統(tǒng)將自動按照所錄入的總數把此音品進行管理的數據庫表中，以便日后對該音像租借的數量加以控制。二2系統(tǒng)總流程員權限的不同級別設置，來給定該操作人員的操作范圍，以防止非操作人員的使用及跨越權作，可以對數據庫中的不同表的以往記錄內容進行修改，并可以對每個操作人員權限進行更改設下面是系統(tǒng)結構總流程圖二3系統(tǒng)總框架使用了大量的圖形文件和部分圖標文件，使得該應用系統(tǒng)圖文并貌，通俗易懂，便于操作。下面是系統(tǒng)結構總框架圖二4主要界面根據總框架圖，本系統(tǒng)道德設計了開始界面，從開始界面，操作人員經過系統(tǒng)合法驗證不同按鈕進行到下一級子模塊中，這些子模塊又由不同的表單體現出來，這樣經過一層或幾層表單的調用，最終必然達到預期的目的錠五大模塊的選項卡分別是客戶信息、音像信息、h鈕所調用的表單所實現的功能，及實現這些功能的方法。h1數據庫的結構立了以下6個表：該6個表的結構如下：在本數據庫中，除以上6個主要的表之外，還在一些表，這些表多為臨時表，它們的作程序運行完畢即可將其清除。表單中的動態(tài)設計1放置一個定時器(Timer)控件在開始界面的表彰刊。Interval了標簽向上移動速度的快慢。本表單中此屬性值設為20，該表單啟動后，系統(tǒng)將每隔膜0．02秒一次時釧運行程序。3在時釧控件初始化時設置標簽的初始位置。下面是時鐘的初始化(Init)事件代碼：PUBLICiTHISFORM.commandgroup1.VISIBLE=.f.4在時鐘運行程序中設置產生向上移動的位移量及標簽的終止位置。下面是時鐘運行(Timer)發(fā)生的事件代碼：IFi>230THISFORM.label3.TOP=ii=i-1ENDIFIFi<=230THISFORM.commandgroup1.VISIBLE=.t.THISFORM.commandgroup1.ENABLED=.t.THIS.ENABLED=.f.ENDIFh通過以上設置，標簽將隨著時鐘的運轉產生向上移動的效果。統(tǒng)的功能．系統(tǒng)在運行開始界面的時候，單“進入系統(tǒng)”按鈕之后，系統(tǒng)產生提供的是輸入密碼界面(如圖10－10所示)，由操作人員輸入密碼后，系統(tǒng)進行判定其進入系統(tǒng)的合在其權限范圍內對系統(tǒng)進行操作．如果密友輸入有錯，系統(tǒng)將有“出錯信息”提示，等待操作人員重新輸入密碼，直至輸入正確為止．實現輸入密碼界面的設計步驟如下：1放置一個文本框(text1)控件在輸入密碼的表單上．是當操作人員輸入密碼時，有文本框中只顯示“＊”，以防止他人得知該操作人員的密碼后4在單擊“確認”按鈕程序中設置對密碼的驗證。下面是此表單“確認”按鈕單擊(Click)事件中輸入的代碼：LOCAFOR密碼=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()M.權限＝權限THISFORM.RELEASEELSETHISFORM.text1.PASSWORDCHAR=''VALUEA=INKEY(1)THISFORM.text1.VALUE=''THISFORMoptiongroup1.VALUE=0THISFORM.text1.setfocus()THISFORM.text1.passwordchar='＊'ENDIF下面是驗證密碼的流程圖(如圖10－11所示)。記錄對應的權限值賦給公用變量M.權限。利用此方法可以檢驗操作人員使用本系統(tǒng)的僉性并給予操作人員使用本系統(tǒng)的權限。h兩個字段，從而使每一個密碼都對應一個權限。·在“密碼”表單中，設置一個公共變量(PUBLICM.權限)單擊“確定”按鈕時，系統(tǒng)按“密碼”表中的權限給予合法操作人員?！ぴ凇爸鞔翱凇北韱沃?，同樣也設置一個公共變量(PUBLICM.權限)。當操作在程序編寫時，根據不同變量值已指定了不同操作人員的工作范圍。下面是主窗口按不同權限范圍打開的初始化事件(Init)代碼。SETSAFEOFFSETTALKOFFIFM.權限=='3'THISFORM.mand1.ENABLED=.f.THISFORM.mand3.ENABLED=.f.THISFORM.mand1.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup1.opttion1.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup1.opttion2.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup2.opttion2.ENABLED=.f.ENDIFIFM.權限=='2'THISFORM.mand1.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup1.opttion1.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup1.opttion2.ENABLED=.f.THISFORM.pageframe1.page5.optiongroup2.opttion2.ENABLED=.f.ENDIF數據的查詢要的，主要內容，以便于客戶的租借。將對該客戶開始自動查詢；通過“音像信息”選項卡中的“音像詳細信息”按鈕進入流星界信息，計算機將對該音像開始自動查詢；還可以通過“音像信息”選項卡中的“查找并選片”相關的音像主要信息。1簡單查詢按音像編號或音像名稱可以查詢到音像的相關信息。查詢界面如圖10－12所示。下面以客戶信息查詢?yōu)槔f明實現此設計的步驟：1在“流星客戶記錄”表單的初始化代碼中設置一個公用變量m.nol。h號，同時關閉此表單，返回到h條件的輸入。下面是查詢“確定”按鈕單擊(Click)事件中輸入的代碼：IFTHISFORM.optiongroup1.VALUE=1LOCATEFORALLTRIM(客戶編號)=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()m.nol=RECNO()THISFORM.RELEASEELSEkMESSAGEBOX新輸入客戶編號！”，0＋48“提示信量息”)THISFORM.text1.VALUE=“”THISFORM.text1.SETFOCUSENDIFENDIFELSELOCATEFORALLTRIM(客戶姓名)=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()m.nol=recno()THISFORM.RELEASEELSETHISFORM.text1.VALUE=“”THISFORM.text1.SETFOCUSENDIFENDIFENDIF單時就可以看到所要查詢記錄的詳細內容。2復合查詢對音像信息可以做復合查詢(如圖10－13所示)，該查詢可以同時設置5個條件，個字，設置好條件后，按一下“查找”按鈕，即可在“游覽片名”的表格中顯示出所需查詢h“音像temp”表的表格形式，放在標簽“游覽名片”下方，以備今后查看。③在表單調用時，將“音像”表中的內容全部復制到“音像temp”表中，并在第五④制作一個能輸入查詢條件的環(huán)境，以待操作者錄入數據。⑤當操作者錄入完畢，再通過單“查找”按鈕；把輸入的查詢條件轉化成篩選條件，計算機將自動對“音像temp”表的內容進行篩選，此時，在表單“游覽片名”處的表格中選后的內容。下面是”查找“按鈕單擊(Click)事件中輸入的代碼：LE5THISFORM.optiongroup1.VALUE=1SETFILTERTOGOTOPTHISFORM.REFRESHELSETT1=ALLTRIM(THISFORM.text2.VALUE)CC1=ALLTRIM(THISFORM.combo1.DISPLAYVALUE)CC2=ALLTRIM(THISFORM.combo2.DISPLAYVALUE)CC3=ALLTRIM(THISFORM.combo3.DISPLAYVALUE)CC4=ALLTRIM(THISFORM.combo4.DISPLAYVALUE)IFTT1=''SETFILTERTO類型＝CC1AND地區(qū)=CC2AND語言=CC3AND=CC4ELSESETFILTERTOTTS；AND類型=CC1AND地區(qū)=CC2AND語言=CC3AND種類=CC4ENDIFGOTOPTHISFORM.REFRESHENDIF數據的查詢要的，主要內容，以便于客戶的租借。本設計是通過“客戶信息”選項卡中的“游覽客戶記錄”按鈕進入流星界面，再通過流星界面中的“查找客戶”按鈕進入到客戶查詢界面中，此時，輸入相關的客戶信息，計算機將對該客戶開始自動查詢；通過“音像信息”選項卡中的“音像詳細信息”按鈕進入流星界面，再通過流星界面中的“查找音像”按鈕進入到音像查詢界面中，此時，輸入相關的音像信息，計算機將對該音像開始自動查詢；還可以通過“音像信息”選項卡中的h“查找并選片”按鈕進入造反借片界面中，此時，輸入若干個條件，通過這些條件的組合也可以查詢到與之相關的音像主要信息。1簡單查詢按音像編號或音像名稱可以查詢到音像的相關信息。查詢界面如圖10－12所示。下面以客戶信息查詢?yōu)槔?，說明實現此設計的步驟：1在“流星客戶記錄”表單的初始化代碼中設置一個公用變量m.nol。號，同時關閉此表單，返回到“流星客戶記錄”表單中；如果沒有查詢到該客戶，表單中將入。下面是查詢“確定”按鈕單擊(Click)事件中輸入的代碼：IFTHISFORM.optiongroup1.VALUE=1LOCATEFORALLTRIM(客戶編號)=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()m.nol=RECNO()THISFORM.RELEASEELSE示信量息”)THISFORM.text1.VALUE=“”THISFORM.text1.SETFOCUSENDIFENDIFELSELOCATEFORALLTRIM(客戶姓名)=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()m.nol=recno()THISFORM.RELEASEELSETHISFORM.text1.VALUE=“”THISFORM.text1.SETFOCUSENDIFENDIFENDIFmnol個文本框被刷單時就可以看到所要查詢記錄的詳細內容。h2復合查詢對音像信息可以做復合查詢(如圖10－13所示)，該查詢可以同時設置5個條件，即主角、類型、地區(qū)、語言、種類，對于主角這一條件可以不設置，也可以只設置其中某幾個字，設置好條件后，按一下“查找”按鈕，即可在“游覽片名”的表格中顯示出所需查詢拉出“音像temp”表的表格形式，放在標簽“游覽名片”下方，以備今后查看。③在表單調用時，將“音像”表中的內容全部復制到“音像temp”表中，并在第五④制作一個能輸入查詢條件的環(huán)境，以待操作者錄入數據。⑤當操作者錄入完畢，再通過單“查找”按鈕；把輸入的查詢條件轉化成篩選條件，計算機將自動對“音像temp”表的內容進行篩選，此時，在表單“游覽片名”處的表格中選后的內容。下面是”查找“按鈕單擊(Click)事件中輸入的代碼：LE5THISFORM.optiongroup1.VALUE=1SETFILTERTOGOTOPTHISFORM.REFRESHELSETT1=ALLTRIM(THISFORM.text2.VALUE)CC1=ALLTRIM(THISFORM.combo1.DISPLAYVALUE)CC2=ALLTRIM(THISFORM.combo2.DISPLAYVALUE)CC3=ALLTRIM(THISFORM.combo3.DISPLAYVALUE)CC4=ALLTRIM(THISFORM.combo4.DISPLAYVALUE)IFTT1=''SETFILTERTO類型＝CC1AND地區(qū)=CC2AND語言=CC3AND=CC4ELSESETFILTERTOTT1S主角；AND類型=CC1AND地區(qū)=CC2AND語言=CC3AND種類=CC4ENDIFGOTOPTHISFORM.REFRESHENDIF5數據的瀏覽為了更加便于瀏覽客戶信息和音像信息，本系統(tǒng)專門設計了2個瀏覽窗口(如圖hh下面以“瀏覽客戶記錄”表單中瀏覽為例，說明實現此設計的步驟：①把“客戶”表存放在本表單的數據環(huán)境中，從數據環(huán)境中拉出“客戶”表的文本框等顯示表內字段的控件對應形式放在表單上，并設置文本框等控件所顯示的內容為只讀形②設置在調用表單時打開“客戶”表。③放置表單上一組命令按鈕，其命令按鈕分別是：首行上行下行末行。下面是分別單擊這一組命令按鈕所產生的事件代碼：(1)單擊(Click)“首行”按鈕IFRECCOUNT()>0GOTOPTHISFORM.REFRESHTHISFORM.mand1.ENABLED=.f.THISFORM.mand2.ENABLED=.f.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.ENDIF(2)“上行”按鈕單擊(Click)事件中輸入的代碼：IFRECCOUNT()>0SKIP-1FBOFGOTOPENDIFTHISFORM.REFRESHIFRECNO()=1THISFORM.mand1.ENABLED=.f.THISFORM.mand2.ENABLED=.f.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.ELSETHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.ENDIFENDIF(3)“下行”按鈕單擊(Click)事件中輸入的代碼：TTT=1IFRECCOUNT()>0KIPFEOFGOBOTTOMTTT=RECN()hENDIFTHISFORM.REFRESHIFRECNO()=TTTTHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.f.THISFORM.mand4.ENABLED=.f.ELSETHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.ENDIFENDIF(4)“末行”按鈕單擊事Click件中輸入的代碼：IFRECCOUNT()>0GOBOTTOMTHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.f.THISFORM.mand4.ENABLED=.f.ENDIF6數據的錄入有2個表單作為以上兩項內容錄入的界面(如圖10－1610－17所示)。表中錄入數據時，先要將數據錄入到與“音像”表結構完全相同的臨時表“yxtemp”中，這樣，操作人員在開始錄入時僅僅是對臨時表進行錄入，如果錄入完全正確，則可按“保存”錄入內容當時取消，不再向正式表中復制。環(huán)境中拉出“khtemp”表或“yxtemp”表的文本框等顯示表內字段的控件對應形式放在表單“音像”表，為了將錄入正確的記錄保存下來。h⑤為了防止記錄編號的重復出現，或不連續(xù)出現，在單擊“新客戶注冊”按鈕和單擊“添加音像”按鈕的代碼中，設計了一倆記錄號自動加1的程序。以“給新客戶注冊”表單為例，下面列出其使用的主要代碼(1)“新客戶注冊”按鈕單擊(Click)事件中輸入的代碼：THISFORM.command3.ENABLED=.t.THISFORM.command1.ENABLED=.f.THISFORM.txt客戶姓名.SETFOCUS()SELE2K=RECC()SELE1APPENDBLANKREPL客戶編號WITHRIGHT("00000"+ALLTRIM(STR(K+1)),6)THISFORM.REFRESH(2)“保存”按鈕單擊(Click)事件中輸入的代碼：USEIN1SELE2APPEFROMkhtemqK=RECC()SELE1USEkhtempSETASFEOFFAPAPPEBLANKREPL客戶編號WITHRIGHT("00000"+ALLTRIM(STR(K+1)),6)THISFORM.REFRESHTHISFORM.command2.ENABLED=.f.THISFORM.command3.ENABLED=.t.(3)“取消”按鈕單擊(Click)事件中輸入的代碼：k=THISFORM.txt客戶編號.VALUEDELEPACKAPPEBLANKREPL客戶編號WITHkTHISFORM.REFRESHTHISFORM.command2.ENABLED=.f.THISFORM.command3.ENABLED=.t.號對應的文件框中，做了身份證號正確性檢測的程序設計。h目前在我國存在有兩種身份證號類型，一種是15和18個字節(jié)上，如果錄入的內容，等h下面是身份證號對應的文件框錄入完成(Valid)事件中輸入的代碼：IFLEN(ALLTRIM(THIS.VALUE))<>15ANDLEN(ALLTRIM(THIS.VALUE))<>18EA=INKEY(1)THISFORM.txt身份證號.value=''ENDIF如在“給新客戶注冊”表單中，除客戶編號是系統(tǒng)自動加1填寫外，客戶姓名、身份證號及聯(lián)系方式也是主要內容，若這三項沒填全，系統(tǒng)不允許保存此條記錄。IFNOTEMPTY(THISFORM.txt客戶姓名.VALUE);ANDNOTEMPTY(THISFORM.txt身份證號.VALUE);ANDNOTEMPTY(THISFORM.txt聯(lián)系方式.VALUE);THISFORM.command2.ENABLED=.t.ENDIF7音像的選擇在客戶租借音像之前，首先的工作是選擇所需租借音像的名稱，因此，本系統(tǒng)在“音像按自己的喜好選借不同的音像這樣一個窗口界面。同樣，在“租借與歸還”選項卡“租借”按鈕打開表單時，打開的也是“查找并選片”表單(風前面圖10－13所示)，如此設計“選片”按鈕，在輸入客戶編號的窗口界面(如圖10－18所示)中輸入客戶編號，之后所有選中的音像均為此客戶的選片內容。，給此客戶的優(yōu)惠折扣(會員當年交會費者8折優(yōu)惠，否則不給予優(yōu)惠)。下面說明實現此設計的步驟：找與選片”表單時將該表打開，為今后記錄客戶選片用。表結構完全一樣，并將選中字段全部置為“假”，其目的也是為今后記錄客戶選片用。h及“選片”表同時存放在本表單的數據環(huán)境中，從數據環(huán)境中拉出“音像temp”表的表格放在“可選片名”的標簽下，作為客戶選擇及查找依據，通過生成器“表格項”選項卡確定中字段“選中”為復選框及字段“音像名稱”的“”的為文本框；再從數據環(huán)境中拉出“選片”表的表格放在“選定片名”的標簽下，目的是使客戶能夠明確自己選片的數量，并或以名稱”和“小號”，然后，再通過生成布局成選項卡確定表格中字段“移”移為復選框及字段“音像名稱”和“小號”為文本框。片”表，為了客記選片并將客戶選擇的片名保存下來。的是確定不同客戶選擇的不同內容。的“借出狀態(tài)”被置為“真”。當小號按從小到大順序對應的“借出狀態(tài)”全部被置為“真”“借出狀態(tài)”置為“假”時，客戶才能繼續(xù)對它進行選擇。⑧當客戶已對音像基本選定后，按“確定借片”按鈕，此時系統(tǒng)將“租借”表和“會“租借”表中。下面列出音像選擇時所使用的主要代碼(1)“選中”字段復選框單擊(Click)事件中輸入的代碼：SELE2IF選中.T.SELE4LOCAFOR音像編號＝B.音像編號.AND.借出狀態(tài)=.F.IFFOUND()REPLB.小號WITH小號REPL借出狀態(tài)WITH.T.ELSEDOFORM無小號ENDIFELSESELE4LOCAFOR音像編號＝B.音像編號.AND.借出狀態(tài)=.T.IFFOUND()REPLB.小號WITH""REPL借出狀態(tài)WITH.F.ENDIFENDIF(2)“選中”按鈕單擊(Click)事件中輸入的代碼：SELE2COPYTPTMPFOR選中hREPLALL選中WITH.F.GOTOPSELE3APPEFROMTMPWITHKTHISFORM.REFRESH(3)“移去”按鈕單擊(Click)事件中輸入的代碼：SETDELEONSELE3LOCAFOR移去=.T.DOWHILEFOUND()SELE4LOCAFOR音像編號=C.音像編號AND小號=C.小號REPL借出狀態(tài)WITH.F.SELE3CONTENDDOSELE3DELEFOR移去=.T.GOTOP調用表單時，其中第二工作區(qū)打開的是“音像”表，第三工作區(qū)打開的是“選片”表，第四工作區(qū)打開的是“單位音像”表，第五工作區(qū)打開的是“音像temp”表。(4)“確定借片”按鈕單擊(Click)事件中輸入的代碼：CLOSEALLSELE1KH=客戶編號SELE2USE會員交費表LOCAFOR客戶編號=KHAND會費年份=STR(YEAR(DATE()),4)IFFOUND()SELE1REPLALLWITH8ELSESELE1REPLALL優(yōu)惠折扣ENDIFCLOSEALLUSE租借THISFORM.RELEASEIFAAA<>0WITH10DOFORM租借與歸還hENDIF8音像租借與歸還為了方便起見，也是為了解決一些實際問題(如：選片后未借走，借片同時又還片可以一起算帳等)，本設計將音像和租借和音像的歸還合二為一成為同一個窗口界面。這個界面主要的功能是借片與還片，因此在這里設置了借片復選框和還片復選框，當“預借片”按鈕只有“還片”復選框可以寫入，并“確認還片”按鈕有效。在寫入“借片”或“還片”復選框可以寫入，并“確認還片”按鈕有效。在寫入“借片”或“還片”的同時，窗口下方將預①在制作“租借與歸還”表單時，把“租借”表存放在本表單的數據環(huán)境中，從數據表格項”選項卡確定表格所用字段是“租借”表中所有字段，然后，再通過生成器“布局”框。②通過對表單中的表格進行編輯，選中表格中各個字段所在的不同的列(column)，段的背景設置成白色(BackColor=255,255,255)，將其余字段的背景顏色設置成灰色(BackColor=192,192,192)。全部記錄；當通過“查找并選片”的“確定借片”按鈕進入本表單時，系統(tǒng)默認“預借片”按鈕按下，表格中顯示的是當前選片客戶將要租借音像的全部記錄。要租借的音像全部記錄，若按下“過期音像”按鈕，表格中將顯示該客戶租借音像過期的全表示確定借此片，此時，下面“預付求和”文本框中的內容被系統(tǒng)自動添入，如果客戶發(fā)現預付金額沒有帶足，可以在“借片”的復選框中將已劃的勾取消，下面“預付求和”文本框⑦當按下“預還片”按鈕時，只有“還片”字段是可修改狀態(tài)，蓁字段為只讀狀態(tài)，表示確定還此片，此時，下面“退款求和”文本框中的內容被系統(tǒng)自動添入，如果客戶發(fā)現要還的音像沒帶時，可以在“還片”的復選框中將已劃的勾取消，下面“退款求和h下“還片確認”按鈕，系統(tǒng)將歸還日期自動填寫在“歸還日期”字段內，并自動填寫“需交總金額”文本框中的內容，需交總金額為負值時，表示是退款總金額。⑧如有客戶已選而尚未借出的音像，需按還片方式由操作人員進行處理。⑨如有客戶租借某音像超出10天尚未歸還，再借片時，系統(tǒng)提示需先還再借。下面列出“租借與歸還”表單中所使用的主要代碼 (1)“借片”復選框單擊(Click)事件中輸入的代碼：IFTHISFORM.optiongroup1.VALUE=4ANDGO=1DOFORM不租借REPL借片WITH.F.,預付金額WITH0ENDIFIFTHISFORM.OPTIONGROUP1.VALUE=4ANDGO=0IF借片=.T.REPL預付金額WITH應收押金＋(日租金＊預借天數)＊優(yōu)惠折扣／10THISFORM.text2.VALUE=THISFORM.text2.VALUE+預付金額ELSETHISFORM.text2.VALUE=THISFORM.text2.VALUE-預付金額ENDIFTHISFOR.text4.VALUE=THISFORM.text2.VALUE-THISFOR.text3.VALUEENDIF(2)“還片”復選框單擊(Click)事件中輸入的代碼：IFTHISFORM.optiongroup1.VALUE=6R=RECN()IF還片=.T.REPL實借天數WITHDATE()-租借日期REPLRECORDR實借天數WITH1FOR實借天數=0AND租借日期<>{}IF實借天數<=10REPL實付金額WITH實借天數*日租金ELSEWITH10*日租金＋(實借天數-10)*過期扣款ENDIFIF實付金額>預付金額REPL實付金額WITH預付金額ENDIFREPL退款金額WITH預付金額-實付金額THISFORM.text3.VALUE=THISFORM.text3.VALUE＋退款金額ELSETHISFORM.text3.VALUE=THISFORM.text3.VALUE-退款金額ENDIFhTHISFORM.text4.VALUE=THISFORM.text2.VALUE-THISFORM.text3.VALUEENDIF在“預借片”按鈕按下，系統(tǒng)自動判斷該客戶是否有過期音像，若有過期音像暫不允許借片，待還片后，方可出租。(3)“預借片”按鈕單擊(Click)事件中輸入的代碼：SELE1SETFILTTOGO=0LOCAFOR租借日期<>{}AND歸還日期={}AND租借日期+10<DATE()；AND客戶編號=ALLTRIM(THISFORM.text1.VALUE)IFFOUND()GO=1ENDIFSETFILTTO戶編號；=ALLTRIM(THISFORM.text1.VALUE)AND租借日期={}AND歸還日期={}GOTOPTHISFORM.REFRESHTHISFORM.grd租借.READONLY=.T.THISFORM.grd租借.column3.READONLY=.F.THISFORM.optiongroup1.option5.ENABLED=.T.THISFORM.optiongroup1.option7.ENABLED=.F.THISFORM.optiongroup2.VALUE=0(4)“預借片”按鈕單擊(Click)事件中輸入的代碼：SELE1SETFILTTO編號；＝ALLTRIM(THISFORM.text1.VALUE)AND歸還日期={}GOTOPTHISFORM.REFRESHTHISFORM.grd租借.READONLY=.T.THISFORM.grd租借.column8.READONLY=.F.THISFORM.optiongroup1.option5.ENABLED=.F.THISFORM.optiongroup1.option7.ENABLED=.T.THISFORM.optiongroup2.VALUE=0當“借片”或“還片”選中，但未確認(即未付款)；或有選片，但未借出時，“返回”按鈕不能執(zhí)行返回，同時使“顯示所有待確認及未借出的記錄”單選框有效，并在表格中顯示這些內容，待操作人員做進一步自理后方可退出本窗口界面。(5)“返回”按鈕單擊(Click)事件中輸入的代碼：SELE1SETFILTTOLOCAFOR(借片=.T.AND租借日期={}OR還片=.T.AND歸還日期={});OR(租借日期={}AND歸還日期={})IFFOUND()DOFORM請確認hSETFILTTO(借片=.T.AND租借日期={}OR還片=.T.AND歸還日期={});OR(租借日期={}AND歸還日期={})THISFORM.REFRESHGOTOPTHISFORM.text1.VALUE=客戶編號SETFILTTO((借片=.T.AND租借日期={}OR還片=.T.AND歸還日期={});OR(租借日期={}AND歸還日期={}))AND客戶編號=THISFORM.text1.VALUESUM預付金額TOT2FOR借片=.T.AND租借日期={}SUM退款金額TOT3FOR還片=.T.AND歸還日期={}GOTOPTHISFORM.text2.VALUE=T2THISFORM.text3.VALUE=T3THISFORM.text4.VALUE=T2-T3THISFORM.optiongroup1.VALUE=0THISFORM.optiongroup2.VALUE=1THISFORM.grd租借.READONLY=.T.THISFORM.optiongroup1.option5.ENABLED=.T.THISFORM.optiongroup1.option7.ENABLED=.T.ELSEDELEFOR租借日期={}AND歸還日期<>{}PACKTHISFORM.RELEASEENDIF9數據的統(tǒng)計(2)排行榜：通過它可以了解到不同名稱的音像或不同種類的音像受歡迎的程度。(3)情況統(tǒng)計：列出會員名單或列出租借過期人員名單。名單”為例，說明統(tǒng)計的顯示、打印步驟：1統(tǒng)計顯示設計行篩選，此時，表音的表格中顯示的就是會員名單。hCLOSEALLSELE1USE客戶SETFILTTO會員GOTOP2統(tǒng)計打印設計與表格顯示設置完全相同入報表的打印程序，這樣，當單擊表單中的“打印”按鈕時，打印機立即將表格中顯示的內表的形式輸出出來。下面是“打印”按鈕單擊(Click)事件中輸入的代碼：REPORTFORM會員報表NOCONSOLETOPRINTERRANGE1，1THISFORM.RELEASE10管理維護本系統(tǒng)為管理人員設置了“數據維護”和“系統(tǒng)維護”兩大部分，在數據維護中，主要設置了“修改客戶數據表”和“修改音像數據表”，在系統(tǒng)維護中主要設置了“修改個人密碼”和“修改密友權限”。除“修改個人密碼”外，其他修改有可能關系到相當大的經濟利益，所以這種修改只有高級權限的操作人員才能進行。這種權限在操作人員輸入密碼進入系統(tǒng)時