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