【文章內(nèi)容簡介】 管理員可以查詢需要更改資料的客戶，有兩種查詢方法，即按“用戶號(hào)”和按“身份證號(hào)碼”進(jìn)行查詢。在窗體中的下拉框中可以選擇按什么方式進(jìn)行查詢。如果選擇了“用戶號(hào)”，則在查詢條件處輸入需要查詢客房的用戶號(hào)；如果選擇了“身份證號(hào)碼”，則輸入客戶的身份證號(hào)碼。然后點(diǎn)擊“提交”按鈕，如果查詢成功，則在窗體中會(huì)出現(xiàn)該客戶的資料；如果不存在該用戶，則會(huì)提示沒有該用戶，重新輸入查詢條件。窗體中“第一”、“上一條”、“下一條”、“最后一條”按鈕是用來在文本框中瀏覽客戶資料的。點(diǎn)擊“第一條”按鈕，數(shù)據(jù)庫當(dāng)前記錄則移動(dòng)到第一條；“最后一條”使當(dāng)前記錄移動(dòng)到最后一條；“上一條”是指當(dāng)前記錄的上一條；“下一條”是指當(dāng)前記錄的下一條。如果要修改客戶資料，先按下“修改”按鈕，然后在需要修改的一欄輸入新的數(shù)據(jù)，然后按“確定”按鈕，在得到確認(rèn)后，系統(tǒng)會(huì)將新數(shù)據(jù)寫進(jìn)數(shù)據(jù)庫。如果要?jiǎng)h除該客戶的資料，則點(diǎn)擊“刪除”按鈕。系統(tǒng)會(huì)在用戶欠費(fèi)表中查詢確認(rèn)該用戶是否還有欠費(fèi)，如果有欠費(fèi)，則提示不能刪除該用戶，如沒有欠費(fèi)，則在得到確認(rèn)后刪除該客戶的資料?！敖毁M(fèi)管理”，下拉菜單中有“交費(fèi)管理”一項(xiàng)，與工具欄上的“交費(fèi)管理”按鈕作用相同。在點(diǎn)擊“交費(fèi)管理”后，出現(xiàn)以下窗體：本窗體的主要功能是在查詢 的基礎(chǔ)上對(duì)客房交費(fèi)的情況進(jìn)行管理。管理員可以查詢需要更改資料的客戶，有兩種查詢方法，即按“用戶號(hào)”和按“身份證號(hào)碼”進(jìn)行查詢，在窗體中的下拉框中可以選擇按什么方式進(jìn)行查詢。如果選擇了“用戶號(hào)”，則在查詢條件處輸入需要查詢客戶的用戶號(hào)；如果選擇了“身份證號(hào)碼”，則輸入客戶的身份證號(hào)碼。然后點(diǎn)擊“提交”按鈕。如果不存在該用戶，則會(huì)提示沒有該用戶，重新輸入；如果查詢成功，則在窗體中會(huì)出現(xiàn)該客戶的資料。其中“用戶交費(fèi)情況”一欄中交費(fèi)時(shí)間，交費(fèi)金額，交費(fèi)期限是用來統(tǒng)計(jì)本次交費(fèi)情況，在查詢時(shí)沒有實(shí)際意義?！坝脩羟焚M(fèi)情況”一欄中的數(shù)據(jù)是該用戶的欠費(fèi)情況。在客戶交費(fèi)時(shí)，管理員需要輸入數(shù)據(jù)：交費(fèi)時(shí)間為系統(tǒng)自動(dòng)給出的系統(tǒng)時(shí)間；交費(fèi)期限為客戶本次交費(fèi)的時(shí)間長度，輸入形式為正整數(shù)，代表幾個(gè)月，交費(fèi)金額為客戶本次所交的金額，輸入形式為正整數(shù)，代表多少元。輸入完畢后，點(diǎn)擊“刷新”按鈕，這時(shí)，系統(tǒng)將客戶本次交費(fèi)后將要寫 進(jìn)數(shù)據(jù)庫的數(shù)據(jù)顯示在各個(gè)文本框中?！坝脩羟焚M(fèi)情況”中上次交費(fèi)時(shí)間、上次交費(fèi)期限、上次交費(fèi)金額為客戶本次交費(fèi)的情況。是否欠費(fèi)是系統(tǒng)進(jìn)行計(jì)算后判斷該客戶在本次交費(fèi)后，是否還欠費(fèi)，如果沒有欠費(fèi)，則該項(xiàng)為否，欠費(fèi)起始起始時(shí)間、欠費(fèi)期限、欠費(fèi)金額都為0；還有欠費(fèi)，則該項(xiàng)為是，欠費(fèi)起始起始時(shí)間、欠費(fèi)期限、欠費(fèi)金額都為過后的與之對(duì)應(yīng)值。需要說明的是，此時(shí)數(shù)據(jù)庫中此客戶的數(shù)據(jù)仍然為交費(fèi)前的情況。在確認(rèn)數(shù)據(jù)都無誤后，點(diǎn)擊“交費(fèi)”按鈕，此時(shí)系統(tǒng)將這些數(shù)據(jù)寫進(jìn)數(shù)據(jù)庫，完成整個(gè)交費(fèi)過程。點(diǎn)擊“退出”按鈕退出本窗體?！皫つ坎樵儭?，下拉菜單中有“交費(fèi)查詢”、“欠費(fèi)查詢”二項(xiàng)，此二項(xiàng)在工具欄中并沒有與之相應(yīng)的按鈕。在點(diǎn)擊“交費(fèi)查詢”后，出現(xiàn)以下窗體：本窗體的主要功能是進(jìn)行交費(fèi)的帳目查詢。首先要查詢?nèi)掌谝粰谥休斎胍粋€(gè)日期，需要注意的是由于select語言的格式要求，輸入的日期形式一定要為“月/年/日”。輸入完畢后，點(diǎn)擊“查詢”按鈕，下方的列表中將會(huì)顯示出在本日交費(fèi)的客戶資料，交費(fèi)人數(shù)文本框中會(huì)統(tǒng)計(jì)出在本日交費(fèi)的總?cè)藬?shù)，交費(fèi)總額將會(huì)統(tǒng)計(jì)出本日客戶交費(fèi)的總金額，以便于管理員按照時(shí)間進(jìn)行帳目核對(duì)。點(diǎn)擊“顯示所有用戶信息”，文本框?qū)?huì)清空，下方的列表框?qū)?huì)顯示出所有客戶的資料。在點(diǎn)擊主菜單“帳目查詢”中的“欠費(fèi)查詢”后，出現(xiàn)以下界面：本窗體的主要功能是進(jìn)行欠費(fèi)的帳目查詢。首先在欠費(fèi)月數(shù)一欄中輸入一個(gè)正整數(shù)，代表幾個(gè)月。輸入完畢后，點(diǎn)擊“查詢”按鈕，下方的列表中將會(huì)顯示出在到目前為止欠費(fèi)期限為輸入月數(shù)的客戶資料，交費(fèi)總?cè)藬?shù)文本框中會(huì)統(tǒng)計(jì)出在欠費(fèi)的總?cè)藬?shù)，欠費(fèi)總額將會(huì)統(tǒng)計(jì)出這些欠費(fèi)用戶所欠的總金額，以便于管理員了解欠費(fèi)情況，及時(shí)催還欠款。點(diǎn)擊“顯示所有欠費(fèi)用戶信息”，文本框?qū)?huì)清空，下方的列表框?qū)?huì)顯示出所有欠費(fèi)客戶的資料。第五章 展望一、應(yīng)用前景由于本有線電視收費(fèi)系統(tǒng)，是一個(gè)通用的有線電視收費(fèi)系統(tǒng)，并不是專門為某一特定的有線電視臺(tái)開發(fā)的，故可以適合任何中小型有線電視臺(tái)使用。本系統(tǒng)簡單、通用、易操作。在管理的同時(shí)，加入了有關(guān)操作功能，如：交費(fèi)查詢和欠費(fèi)查詢等功能，使用方便。二、發(fā)展前景現(xiàn)代社會(huì)是一個(gè)網(wǎng)絡(luò)世界，如果任何東西不與NetWork有一點(diǎn)聯(lián)系，似乎覺得和點(diǎn)落伍，缺少E的靈氣。開發(fā)軟件當(dāng)然也不例外。現(xiàn)在都在提什么軟件共享，開放源代碼。如果有機(jī)會(huì)，本人會(huì)把此系統(tǒng)上傳至網(wǎng)上，讓大家“共享”一下，并開放源代碼。為了順應(yīng)網(wǎng)絡(luò)時(shí)代發(fā)展的要求，順應(yīng)C/S結(jié)構(gòu)的要求，在本人的系統(tǒng)基礎(chǔ)上，還可以開發(fā)出基于C/S結(jié)構(gòu)（在服務(wù)器上安裝一個(gè)版本，在客戶機(jī)上安裝另一個(gè)版本）的網(wǎng)絡(luò)收費(fèi)系統(tǒng)，以適應(yīng)不同操作系統(tǒng)環(huán)境下的需求。讓本人的有線電視收費(fèi)系統(tǒng)也沾一些E的靈氣！三、存在問題 在設(shè)計(jì)本系統(tǒng)數(shù)據(jù)庫時(shí)，由于本人數(shù)據(jù)庫方面的知識(shí)掌握有限，在建數(shù)據(jù)庫時(shí)難免會(huì)出現(xiàn)一些問題，如：在定義變量時(shí)，所用的類型不一定準(zhǔn)確；一些高級(jí)的功能不能實(shí)現(xiàn)等等。結(jié)束語經(jīng)過開發(fā)本有線電視收費(fèi)系統(tǒng)以后，我發(fā)現(xiàn)我的收獲非淺，各方面的知識(shí)得到了更好的掌握與了解，提高了本人解決問題的能力。最后，在此感謝那些在開發(fā)此有線電視收費(fèi)系統(tǒng)過程中，給予我支持、幫助的人，以及我的指導(dǎo)老師。 設(shè)計(jì)者：葛 亮 2006年5月30日有線電視收費(fèi)系統(tǒng)源代碼一. 主窗體MDIFORM菜單欄代碼Private Sub addclient_Click() 調(diào)用“添加客戶窗體”End SubPrivate Sub clientdelete_Click() 調(diào)用“客戶管理窗體”End SubPrivate Sub count_Click() 調(diào)用“交費(fèi)查詢窗體”End SubPrivate Sub delete_Click() 調(diào)用“注銷用戶窗體”End SubPrivate Sub help_Click() 調(diào)用“幫助窗體”End SubPrivate Sub incount_Click() 調(diào)用“欠費(fèi)查詢窗體”End SubPrivate Sub jiaofeia_Click() 調(diào)用“交費(fèi)管理窗體”End SubPrivate Sub key_Click() 調(diào)用“修改密碼”End SubPrivate Sub regedit_Click() 調(diào)用“注冊用戶窗體”End Sub工具欄代碼Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case “zc”regedit_ClickCase “zx”delete_ClickCase “xg”key_ClickCase “kh”clientdelete_ClickCase “hand”jiaofeia_ClickCase “add”addclient_ClickCase “help”help_ClickCase “close”If MsgBox(“真的要退出該系統(tǒng)嗎？”，vbYesNo + 32, “提示”) = vbYes ThenUnload frmaddUnload frmclientUnload frmcountUnload frmdeleteUnload frmhelpUnload frmincountUnload frmkeyUnload frmmanageUnload frmregedit2Unload meEnd IfEnd SelectEnd Sub二． 登陸窗體frmface代碼Private Sub Form_Activate()Do Until Data3. LoopEnd Sub“登陸”按鈕代碼Private Sub Label4_Click()If = “ ” ThenMsgBox(“管理員不能為空”)Exit SubEnd IfIf = “ ” ThenMsgBox (“請(qǐng)?zhí)顚憘€(gè)人密碼”)Exit SubEnd IfSq1 = “select 管理員表.*from 管理員表 where 管理員姓名=’”amp。amp。”’” = sq1If 1 Then Msgbox (“該管理員不存在，請(qǐng)重新填寫”) =“” =“”Else If = (“個(gè)人密碼”) ThenDo Until date1 = (“上次交費(fèi)時(shí)間”)time1 = Data2. Recordset(“交費(fèi)期限”)time1 = 30*time1date1 = date1 + time1t1 = Date – date1If t1 0 ThenT1 = Va1(t1)Time2 = Int(t1 / 30)(“用戶號(hào)”) = (“用戶號(hào)”)(“欠費(fèi)起始時(shí)間”) = date1 + 1(“欠費(fèi)時(shí)間”) = time2(“應(yīng)交欠費(fèi)”) = 12 * Va1(time2)End IfLoop Unload MeElseIf (“個(gè)人密碼”) Then MsgBox (“密碼不正確，請(qǐng)重新填寫”) = “” End IfEnd If Exit Sub ElseIf (“管理員姓名”) or ‘管理員或密碼不正確’ (“個(gè)人密碼”) Then MsgBox(“管理員姓名或密碼不正確，請(qǐng)重新填寫”) ‘要求重寫管理員和密碼’ = “” = “” Exit Sub End If LoopEnd Sub“注冊”按鈕代碼Private Sub Labe15_Click() ‘顯示注冊窗體’“退出”按鈕代碼Private Sub Labe16_Click()If MsgBox(“真的要退出系統(tǒng)嗎？”, vbYesNo + 32, “提示”) = vbYes ThenDo until LoopUnload MeEnd IfEnd Sub三． 用戶注冊窗體frmregedit代碼啟動(dòng)窗體代碼Private Sub Form_Load()“女” ‘向下拉框中添加可選項(xiàng)’“男” = DateEnd Sub“確定”按鈕代碼Private Sub Command1_Click()If = “”O(jiān)r = “”O(jiān)r = “” Or = “”Then MsgBox(“請(qǐng)將管理員的資料填寫完整”) Exit SubEnd IfIf Then MsgBox (“請(qǐng)確認(rèn)密碼！”) = “” = “” Exit SubEnd IfDo While = FalseIf = (“管理員姓名”) Then ‘確認(rèn)要注冊的管理員姓名是否有重復(fù)’ MsgBox(“該管理員已經(jīng)存在，請(qǐng)另選管理員姓名”) = “” Exit Sub End If Loop ‘若無重復(fù)，向數(shù)據(jù)庫中添加數(shù)據(jù)’(“管理員姓名”) = (“個(gè)人密碼”) = (“性別”) = (“注冊日期”) = MsgBox(“注冊成功”) = “” = “” = “” = “”Unload frmregedit2 ‘注冊成功后，直接進(jìn)入主窗體MDIFORM’ = TrueEnd Sub“取消”按鈕代碼Private Sub Command2_Click() ‘隱藏注冊窗體’End Sub四． 用戶注銷frmdelete窗體代碼Dim sqll As String“確定”按鈕代碼Private Sub Command1_Click()