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