【文章內(nèi)容簡介】 VCD 出租、銷售客戶的需要。方便的拼音五筆碼自動生成，拼音、五筆碼、編碼、連續(xù)劇搜索。能自動計算押金、租金、會員剩余天數(shù)與可觀看影片部數(shù)等等數(shù)據(jù)；能對會員及光盤信息進(jìn)行方便有效的科學(xué)管理；界面設(shè)計大方、簡潔、實用；操作簡單方便。使用用易 VCD 音像租借銷管理系統(tǒng)立刻可以使您的出租銷售業(yè)務(wù)擺脫繁重混亂的手工時代，進(jìn)入科學(xué)高效的信息管理時代！ 本程 序由 登陸密碼、主窗口、菜單等組成。而主窗口菜單又由，客戶信息、音像信息、借片 \歸還、數(shù)據(jù)與統(tǒng)計、管理維護(hù)、退出這幾個部分組成子菜單數(shù)據(jù)管理。 四、系統(tǒng)流程圖 主窗口：主窗口是本軟件的核心，百分之九二的功能代碼都在這里實現(xiàn)，主窗口的左上方是由菜單組組成的，實現(xiàn)了功能的切換和數(shù)據(jù)的處理。歡迎界面寫上了設(shè)計人和系統(tǒng)名。 本程序的流程圖 ： 歡迎界面 音像信息 客戶信息 數(shù)據(jù)與統(tǒng)計 租借歸還 登陸密碼 瀏覽客戶記錄 給新客戶注冊 會員交費 音像詳細(xì)信息 查找并選片 添加 新音像 歸還 租借 匯總統(tǒng)計 排行榜 情況統(tǒng)計 維護(hù)管理 退出系統(tǒng) 五、數(shù)據(jù)庫設(shè)計系統(tǒng)功能 登陸密碼： 對“確定”按鈕的 Click 事件的代碼為： restore from additive if ma ==alltrim() rele wind xgmm do form ksjm else =messagebox(密碼輸入錯誤 ,64,提示 ) do form mima endif release windows mima 對“取消”按鈕的 Click 事件的代碼為： release windows mima clear events 密碼登陸界面圖如下： ? 主窗口： **************** 表單 form1 的 load 事 件 代 碼 為 ：******************** public i i=0 *********************** Init 事 件 代 碼 為 ：*************************** do 影碟租借管理系統(tǒng) /with this, .T. (如下圖 ) 以上是進(jìn)入的初始界面：當(dāng)你進(jìn)入以后，可以看見菜單欄上的幾個菜單，客戶信息、音像信息、借片 \歸還、數(shù)據(jù)與統(tǒng)計、管理維護(hù)、退出 ? 瀏覽客戶記錄如下圖所示 : **************** 表單 form1 的 load 事 件 代 碼 為 ：******************** public =1 if reccount()0 go top =.f. =.f. =.t. =.t. endif if reccount()0 skip 1 if bof() go top endif if reo()=1 =.f. =.f. =.t. =.t. else =.t. =.t. =.t. =.t. endif endif ****************下行的 click 事件代碼為 ： ******************** ttt=1 if reccount()0 SKIP if eof() go bottom ttt=re() endif if reo()=TTT =.t. =.t. =.f. =.f. else =.t. =.t. =.t. =.t. endif endif ****************末行的 click 事件代碼為 ： ******************** if reccount()0 go bottom =.t. =.t. =.f. =.f. endif ****************查找客戶的 click 事件代碼為 ：******************** do form 查找方式 .scx ? 給新客戶注冊 其中，給新客戶注冊模塊中包括了兩個方面的，新客戶注冊，另一個打印憑證。 給新客戶注冊如下圖所示： 由上圖所示，我們可以看出它一共包括了八個字段，分別是客戶編號、客戶姓名、身份證號、入會時間、聯(lián)系方式、會員、通信地址、郵政編碼、總計等八個字段，它還包括了五個按鈕，分別是確認(rèn)、重填、新用戶注冊、打印租借證、返回。 其中打印租借證按鈕的 click 事件代碼如下： *************************************************** do form 瀏覽與打印租借證************************************************************* 新用戶注冊 click 事件代碼如下： ************************************* =.t. =.f. 客戶姓名 .SetFocus() SELE 2 K=RECC() sele 1 append blank repl 客戶編號 with right(00000+ALLTRIM(str(K+1)),6) ************************************************************* 重填的 click 事件代碼如下： ***************************** k= 客戶編號 .value dele pack appe blank repl 客戶編號 with k =.f. =.t. *************************************************************** 確定的 click 事件代碼如下： ***************************** USE IN 1 SELE 2 appe from khtemp K=RECC() sele 1 use khtemp set safe off zap appe blank repl 客戶編號 with right(00000+ALLTRIM(str(K+1)),6) =.f. =.t. ? 會員交費。如下圖所示： Text1 事件代碼如下： IF len(alltrim())6 =.f. ELSE =.t. ENDIF 其中確定按鈕的 click 事件代碼如下： ************************************************ sele 1 locate for 客戶編號 =alltrim() and 會費年份=alltrim() if found() k=messagebox(此客戶已交會費 !,0+48,提示信息 ) if k=1 = () = .F. endif else sele 2 locate for 客戶編號 =alltrim() if found() if 客戶 .會員 =.f. repl 客戶 .會員 with .t. repl 客戶 .入會時間 with date() repl 客戶 .交會費 with .t. else repl 客戶 .交會費 with .t. endif sele 1 append blank repl 會員交費表 .客戶編號 with repl 會員交費表 .交費日期 with repl 會員交費表 .交費金額 with repl 會員交費表 .會費年份 with alltrim() = () = .F. else k=messagebox(無此客戶 !,0+48,提示信息 ) if k=1 = () = .F. endif sele 1 endif endif ****************************************************************** 重填按鈕的 click 代碼： = () = .F. ? 修改密碼 步驟：點擊修改菜單 在程序里輸入原密碼，確認(rèn)新密碼 。 *************************************************************** “testa1”的 keypress 事件代碼如下 *************************************************************** LPARAMETERS nKeyCode, nShiftAltCtrl IF nKeyCode = 13 MM = alltrim() if ma==mm =.f. =.t. =.t. =.t. else =messagebox(密碼錯誤 ,不能修改密碼 ,64,提示 ) endif endif *************************************************************** 確定按鈕的 click 事件代碼如下： mm1 =alltrim() mm2 =alltrim() if mm1==mm2 ma=mm1 save to d:\企業(yè)工資管理系統(tǒng) \ all like ma =messagebox(修改密碼完成 ,64,提示 ) rele wind form2 else =messagebox(修改密碼不成功 ,64,提示 ) endif *************************************************************** 取消按鈕的 click 事件代碼如下： *************************************************************** release windows form2 圖如下： 其余表單的圖如下： 瀏覽音像信息 客戶數(shù)據(jù)表單 退出系 統(tǒng) 退出即退出了本系統(tǒng)的整個程序。 是通過建立的一個菜單命令實現(xiàn)： clean events 根據(jù)上敘步驟，設(shè)計程序，設(shè)計完所有程序以后進(jìn)行保存，連編運行 小結(jié) 在本系統(tǒng)的設(shè)計過程和論文編寫過程中，很多老師、同事和朋友都給予了我許多無私的幫助，尤其是我的導(dǎo)師給我的論文提出了很多寶貴的修改意見，在這里，我向這些無私幫助我的人表示衷心的感謝。 參考文獻(xiàn)： [1]張磊等 《 Visual FoxPro 6 使用詳解》 機(jī)械工業(yè)出版社 出版日期 :199971 [2]康耀紅 黃健青等 《 Visual FoxPro 數(shù)據(jù)庫設(shè)計》北京大學(xué)出版社 出版日期 :202121 [3]鄭剛 《 Visual FoxPro 實效編程百例》 人民郵電出版社 出版日期 :202171 [4]周蘭文 《 Visual FoxPro 6 中文版與上機(jī)指導(dǎo)》清華大學(xué)出版社 出版日期 :1999 [5]李加福 《 Visual FoxPro 中文版入門與提高》清華大學(xué)出版社 出版日期 :202171 [6]陳明 《 Visual FoxPro 程序設(shè)計》 清華大學(xué)出版社 出版日期