【正文】 fConsumedIntegral 10000 Then (SignCheck).Value = 1000 ElseIf fConsumedIntegral 50000 Then (SignCheck).Value = 5000 End If End If Unload MeEnd SubPrivate Sub ComdOKEmpty_Click() 39。在開放單表中刪除此記錄 Dim DelORInfo As New Dim Str As String Str = select * from RoomConsumed where RoomID=39。 amp。 Trim() amp。 39。 Str, n, adOpenStatic, adLockOptimistic 39。把結(jié)帳單寫入結(jié)帳單表 Dim SqlStr As String Dim sOPTime As String Dim sCLTime As String sOPTime = Left(Now, 9) amp。 amp。 Right(Trim(), 8) sCLTime = Left(Now, 9) amp。 amp。 Right(Trim(), 8) SqlStr = insert into CheckInfo(CheckID,RoomID,RoomType,RoomPrice, amp。 ClientName,Agio,OpenRoomTime,EndTime,Prepay,PayMode, amp。 RoomMoney,OpenDate,MemberID) amp。 values (39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 , amp。 Trim() amp。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 , amp。 Trim() amp。 amp。 ,39。 amp。 sOPTime amp。 39。 amp。 ,39。 amp。 sCLTime amp。 39。 amp。 , amp。 Trim() amp。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 , amp。 Trim() amp。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。)。 SqlStr 39。改變場地信息表中的場地狀態(tài) Dim sRS As String Dim sRoomID As String sRoomID = Trim() sRS = update RoomInfo set RoomState=39?？請?9。 where RoomID=39。 amp。 sRoomID amp。 39。 sRS 39。更新會員信息表 Dim AddMemberInfo As New Dim MStr As String Dim iConsumedTime As Integer Dim fConsumedIntegral As Double Dim iSignCheck As Integer If 000 Then MStr = select SignCheck,ConsumedTime,ConsumedIntegral from amp。 MemberInfo where MemberID=39。 amp。 Trim() amp。 39。 MStr, n, adOpenStatic, adLockOptimistic iConsumedTime = (ConsumedTime).Value fConsumedIntegral = (ConsumedIntegral).Value (ConsumedTime).Value = iConsumedTime + 1 (ConsumedIntegral).Value = Trim() + fConsumedIntegral 39。更新會員信息表中的簽單額度 fConsumedIntegral = (ConsumedIntegral).Value iSignCheck = (SignCheck).Value If fConsumedIntegral 5000 Then (SignCheck).Value = 500 ElseIf fConsumedIntegral 10000 Then (SignCheck).Value = 1000 ElseIf fConsumedIntegral 50000 Then (SignCheck).Value = 5000 End If End If Unload MeEnd SubPrivate Sub ComOKRepair_Click() 39。在開放單表中刪除此記錄 Dim DelORInfo As New Dim Str As String Str = select * from RoomConsumed where RoomID=39。 amp。 Trim() amp。 39。 Str, n, adOpenStatic, adLockOptimistic 39。把結(jié)帳單寫入開放歷史表 Dim SqlStr As String Dim sOPTime As String Dim sCLTime As String sOPTime = Left(Now, 10) amp。 amp。 Right(Trim(), 8) sCLTime = Left(Now, 10) amp。 amp。 Right(Trim(), 8) SqlStr = insert into CheckInfo(CheckID,RoomID,RoomType,RoomPrice,ClientName,Agio,OpenRoomTime,EndTime,Prepay,PayMode,RoomMoney,OpenDate,MemberID) amp。 values (39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。, amp。 Trim() amp。 ,39。 amp。 Trim() amp。 39。 amp。 , amp。 Trim() amp。 ,39。 amp。 sOPTime amp。 39。,39。 amp。 sCLTime amp。 39。, amp。 Trim() amp。 ,39。 amp。 Trim() amp。 39。 amp。 , amp。 Trim() amp。 ,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。)。 SqlStr 39。改變場地信息表中的場地狀態(tài) Dim sRS As String Dim sRoomID As String sRoomID = Trim() sRS = update RoomInfo set RoomState=39。空場39。 where RoomID=39。 amp。 sRoomID amp。 39。 sRS 39。更新會員信息表 Dim AddMemberInfo As New Dim MStr As String Dim iConsumedTime As Integer Dim fConsumedIntegral As Double Dim iSignCheck As Integer If 000 Then MStr = select SignCheck,ConsumedTime,ConsumedIntegral from MemberInfo where MemberID=39。 amp。 Trim() amp。 39。 MStr, n, adOpenStatic, adLockOptimistic iConsumedTime = (ConsumedTime).Value fConsumedIntegral = (ConsumedIntegral).Value (ConsumedTime).Value = iConsumedTime + 1 (ConsumedIntegral).Value = Trim() + fConsumedIntegral 39。更新會員信息表中的簽單額度 fConsumedIntegral = (ConsumedIntegral).Value iSignCheck = (SignCheck).Value If fConsumedIntegral 5000 Then (SignCheck).Value = 500 ElseIf fConsumedIntegral 10000 Then (SignCheck).Value = 1000 ElseIf fConsumedIntegral 50000 Then (SignCheck).Value = 5000 End If End If Unload Me 39。 = End SubB用戶手冊1. 安裝SQL SERVER和Visual Basic。2. 打開SQL SERVER，附加數(shù)據(jù)庫。 附加數(shù)據(jù)庫然后運行Visual Basic。添加工程KTVMIS，按F5就可以運行程序了。本收費系統(tǒng)是一個信息化管理系統(tǒng)，并且能夠?qū)崿F(xiàn)預定的功能。該系統(tǒng)利用刷卡方式進入，通過計費自動扣除IP卡上的金額，從而實現(xiàn)自動收費，通過管理端與客戶端的完美結(jié)合，實現(xiàn)多模式、多功能的開放收費管理。它主要有以下幾個功能模塊組成（）：：對來賓的信息管理，判斷是否會員，以及對來賓所要求使用的場地和預定情況進行管理。：對賓客進行結(jié)帳管理，并對賓客所有消費的清單進行統(tǒng)計查詢。：預訂各種鍛煉場地。：為來賓開場地并開始計費。：可以修改當前管理員的密碼及用戶管理，權(quán)限的分配。 主界面其中各個模塊的具體信息如下：1. 基本信息：場地信息，會員信息。2. 基本業(yè)務：預定場地，入場登記，結(jié)賬。3. 場地管理：預訂單明細表，入場單明細表。4. 查詢統(tǒng)計：賬單查詢，場地查詢，會員查詢。5. 系統(tǒng)設置：用戶權(quán)限，用戶密碼，密碼設置。3系統(tǒng)維護方法。由于在開發(fā)本程序的時候我就特別注意軟件的后續(xù)維護和再開發(fā)上。因此極努力的想把它開發(fā)成一個強內(nèi)聚、弱耦合、接口明確、意圖明晰的軟件。對于程序里的功能我盡力把它們封裝在類的私有過程或私有函數(shù)里，這樣可以大大提高軟件的內(nèi)聚性，在各個功能模塊和窗體之間盡可能減少它們之間的調(diào)用關(guān)系，以減少軟件的耦合性。在一開始我就預先編了一個公共的“數(shù)據(jù)模塊”以提高軟件連接數(shù)據(jù)庫能高效共享，并且給他規(guī)定一些如控件的命名規(guī)則，代碼的規(guī)范等。這些都大大提高了軟件后續(xù)的可維護性。C 軟件光盤光盤文件一覽表文件名大小用途中期檢查表40 KB說明設計過程情況畢業(yè)設計說明書951 KB該設計的說明書系統(tǒng)安裝程序文件 MB生成的可執(zhí)行文件源程序文件 MB代碼、數(shù)據(jù)庫