【文章內(nèi)容簡(jiǎn)介】 39。增加消費(fèi) Case 2 39。賓客結(jié)帳 Case 3 Call Fun_S_Msg(請(qǐng)選擇要結(jié)帳的賓客!, vbInformation) 39。 Case 4 39。會(huì)員管理 Case 5 Call Fun_S_Msg(會(huì)員管理, vbInformation) 39。 Case 6 Call Fun_S_Msg(營(yíng)業(yè)查詢, vbInformation) 39。 Case 7 Call Fun_S_Msg(商品管理, vbInformation) 39。 Case 8 Call Fun_S_Msg(財(cái)務(wù)管理, vbInformation) 39。 Case 9 Unload Me 39。Call Fun_S_Msg(換班登錄, vbInformation) 39。 Case 10 Call Fun_S_Msg(系統(tǒng)設(shè)置, vbInformation) 39。 Case 11 39。Call Fun_S_Msg(退出系統(tǒng), vbInformation) If vbYes = Fun_R_Msg(退出本系統(tǒng)？請(qǐng)您確認(rèn), vbYesNo + vbInformation) Then Unload Me End If End SelectEnd Sub主要程序代碼：Option ExplicitPrivate Sub ComdCancel_Click() Unload MeEnd SubPrivate Sub ComdDelete_Click() If = 0 Then MsgBox 請(qǐng)?jiān)诒砀裰羞x擇要?jiǎng)h除的會(huì)員！ Else MsgBox 刪除成功！ End IfEnd SubPrivate Sub ComdModify_Click() Dim ModMem As New Dim Str As String Dim SqlStr As String Dim sMemberID As String If = Or = Then MsgBox 會(huì)員姓名和手機(jī)號(hào)碼不能為空! Exit Sub End If sMemberID = Trim() If = Or = Then MsgBox 消費(fèi)次數(shù)和消費(fèi)積分不能為空！ Exit Sub End If Str = select * from MemberInfo where MemberID=39。 amp。 sMemberID amp。 39。 Str, n, adOpenStatic, adLockOptimistic If Then MsgBox 該會(huì)員不存在! Exit Sub End If If sMemberID = (MemberID).Value Then (MemberName).Value = Trim() (Tel1).Value = Trim() (Tel2).Value = Trim() (Address).Value = Trim() (SignCheck).Value = Trim() (ConsumedTime).Value = Trim() (ConsumedIntegral).Value = Trim() (Remark).Value = Trim() Else MsgBox 修改失敗! End If MsgBox 修改成功! = = = = = = = = = End SubPrivate Sub ComdOK_Click() Dim AddMem As New Dim Str As String Dim SqlStr As String Dim sMemberName As String Dim DBStr As String Dim AddMemID As New Dim i As Integer Dim sMemberID As String If = Or = Then MsgBox 會(huì)員姓名和手機(jī)號(hào)碼不能為空! Exit Sub End If sMemberName = Trim() Str = select * from MemberInfo where MemberName=39。 amp。 sMemberName amp。 39。 Str, n, adOpenStatic, adLockOptimistic If Not Then MsgBox 該會(huì)員姓名已存在! Exit Sub End If SqlStr = insert into MemberInfo(MemberID,MemberName,Tel1,Tel2, amp。 Address,SignCheck,ConsumedTime,ConsumedIntegral,Remark) amp。 values(39。 amp。 Trim() amp。 39。, amp。 39。 amp。 sMemberName amp。 39。,39。 amp。 Trim() amp。 39。, amp。 39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。, amp。 39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。 amp。 ,39。 amp。 Trim() amp。 39。)。 SqlStr MsgBox 添加成功! = = = = = = = = 39。自動(dòng)生成新會(huì)員編號(hào) DBStr = select MemberID from MemberInfo = adOpenStatic = adUseClient DBStr, n, adOpenStatic, adLockOptimistic If Then sMemberID = 001 = sMemberID Else i = (MemberID).Value + 1 If i 10 Then = 00 amp。 i ElseIf i = 10 amp。 i 100 Then = 0 amp。 i End If End If End SubPrivate Sub Form_Load() Dim DBStr As String Dim AddMemID As New Dim i As Integer Dim sMemberID As String = ( ) / 2 39。垂直方向居中 = ( ) / 2 39。水平方向居中 39。設(shè)置Adodc連接字符串 39。 = g_ConnStr39。 = adCmdTable39。 = MemberInfo 39。設(shè)置Grid 與 Adodc1關(guān)聯(lián) Set = Adodc1 39。自動(dòng)生成會(huì)員編號(hào) DBStr = select MemberID from MemberInfo = adOpenStatic = adUseClient DBStr, n, adOpenStatic, adLockOptimistic If Then sMemberID = 001 = sMemberID Else i = (MemberID).Value + 139。 If i 10 Then39。 = 00 amp。 i39。 ElseIf i = 10 amp。 i 100 Then39。 = 0 amp。 i39。 End If End If 39。 = FalseEnd SubPrivate Sub TextConIntegral_KeyPress(KeyAscii As Integer) KeyAscii = sffunLimitNumber(KeyAscii)End SubPrivate Sub TextConTime_KeyPress(KeyAscii As Integer) KeyAscii = sffunLimitNumber(KeyAscii)End Sub主要程序代碼：Option ExplicitFunction ShowRoomInfo() Dim RoomQuery As New Dim StrSql As String Dim sRoomID As String sRoomID = Trim() StrSql = select RoomTypeName,RoomPrice from RoomInfo amp。 where RoomID=39。 amp。 sRoomID amp。 39。 StrSql, n, adOpenStatic, adLockOptimistic = (RoomTypeName).Value = (RoomPrice).Value 39。End FunctionPrivate Sub Check1_Click() = True = True = True = TrueEnd SubPrivate Sub CombMemID_Click() Dim ReadMemberN As New Dim Str As String Dim sMemberID As String sMemberID = Trim() Str = select MemberName,Tel2 from MemberInfo where MemberID=39。 amp。 sMemberID amp。 39。 Str, n, adOpenStatic, adLockOptimistic = (MemberName).Value = (MemberName).Value = (Tel2).Value End SubPrivate Sub CombRoomID_Click() Dim ReadR