?? thyj.frm

?? 計算機(jī)學(xué)位畢業(yè)設(shè)計客房管理系統(tǒng) 無解壓密碼
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form THYJ 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "收取團(tuán)會鑰匙押金"
   ClientHeight    =   3540
   ClientLeft      =   690
   ClientTop       =   1740
   ClientWidth     =   6210
   Icon            =   "THYJ.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3540
   ScaleWidth      =   6210
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command4 
      Caption         =   "離店"
      Height          =   375
      Left            =   4920
      TabIndex        =   6
      Top             =   240
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "換房"
      Height          =   375
      Left            =   4920
      TabIndex        =   5
      Top             =   240
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Default         =   -1  'True
      Height          =   375
      Left            =   4920
      TabIndex        =   3
      Top             =   720
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "確認(rèn)"
      Height          =   375
      Left            =   4920
      TabIndex        =   2
      Top             =   240
      Width           =   1095
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   2985
      Left            =   120
      TabIndex        =   1
      Top             =   420
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   5265
      _Version        =   393217
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      FullRowSelect   =   -1  'True
      SingleSel       =   -1  'True
      Appearance      =   1
   End
   Begin DevPowerTransImg.TransImg TransImg1 
      Height          =   495
      Left            =   5520
      TabIndex        =   0
      Top             =   -120
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   873
      AutoSize        =   0   'False
      MaskColor       =   16777215
      Transparent     =   -1  'True
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label1"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   4575
   End
End
Attribute VB_Name = "THYJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database
Dim THHJAP As Recordset
Dim RECHT As Recordset
Dim RECSK As Recordset

Private Sub Command1_Click()
    Dim YSYJ As Currency
    
    On Error GoTo YJERROR
    THHJAP.FindFirst ("ID=" & MID(TreeView1.SelectedItem.Key, 2))
    If Me.Caption = "收取鑰匙押金" Then
       If THHJAP("押金") > 0 Then
          If MsgBox(TreeView1.SelectedItem.Text + Chr(13) + "請確認(rèn)是否追加收取?", vbQuestion + vbYesNo, "提示信息") = vbNo Then
             TreeView1.SetFocus
             Exit Sub
          End If
       End If
       YSYJ = 0
       While YSYJ = 0
           YSYJ1 = InputBox("請輸入收取鑰匙押金金額:", "提示窗口", 100)
           If YSYJ1 = "" Then
              TreeView1.SetFocus
              Exit Sub
           End If
           YSYJ = CCur(YSYJ1)
           If YSYJ < 0 Then
              MsgBox "收退款不能為負(fù)數(shù)!", vbCritical, "錯誤信息"
              YSYJ = 0
           End If
       Wend
       THHJAP.Edit
       THHJAP("押金") = IIf(IsNull(THHJAP("押金")), 0, THHJAP("押金")) + YSYJ
       TreeView1.SelectedItem.Text = IIf(IsNull(THHJAP("姓名")), "無名氏", THHJAP("姓名")) + "  房號:" + IIf(IsNull(THHJAP("房號")), "", CStr(THHJAP("房號"))) + "  押金:" + IIf(IsNull(THHJAP("押金")), "", CStr(THHJAP("押金")) + "元")
       THHJAP.Update
       THHJAP.FindFirst ("ID=" & MID(TreeView1.SelectedItem.Key, 2))
       If MsgBox("請確認(rèn)是否打印收取鑰匙押金收據(jù)?", vbYesNo + vbQuestion, "提示信息") = vbYes Then
          Load SBZJPREVIEW
          SBZJPREVIEW.Caption = "收取鑰匙押金"
          SBZJPREVIEW.Label2 = IIf(IsNull(THHJAP("姓名")), "無名氏", THHJAP("姓名"))
          SBZJPREVIEW.Label3 = "鑰匙押金:"
          SBZJPREVIEW.Label4 = FormatCurrency(YSYJ) + "元。"
          SBZJPREVIEW.Label5 = "人民幣" + SUMDM(CDbl(YSYJ)) + "。"
          SBZJPREVIEW.Show vbModal
       End If
       Else
         If THHJAP("押金") <= 0 Then
            MsgBox TreeView1.SelectedItem.Text + Chr(13) + "未交鑰匙押金,不能退款!", vbCritical, "錯誤信息"
            Exit Sub
         End If
         If MsgBox(TreeView1.SelectedItem.Text + Chr(13) + "請確認(rèn)是否退還鑰匙押金?", vbYesNo + vbQuestion, "提示信息") = vbYes Then
            If MsgBox("是否打印退還鑰匙押金收據(jù)?", vbYesNo + vbQuestion, "提示信息") = vbYes Then
               Load TBZJPREVIEW
               TBZJPREVIEW.Caption = "退還鑰匙押金"
               TBZJPREVIEW.Label2 = "退還鑰匙押金:"
               TBZJPREVIEW.Label3 = FormatCurrency(THHJAP("押金")) + "元。"
               TBZJPREVIEW.Label4 = "人民幣" + SUMDM(THHJAP("押金")) + "。"
               TBZJPREVIEW.Label5 = IIf(IsNull(THHJAP("姓名")), "無名氏", THHJAP("姓名")) + "(簽字)"
               TBZJPREVIEW.Show vbModal
            End If
            THHJAP.Edit
            THHJAP("押金") = 0
            TreeView1.SelectedItem.Text = IIf(IsNull(THHJAP("姓名")), "無名氏", THHJAP("姓名")) + "  房號:" + IIf(IsNull(THHJAP("房號")), "", CStr(THHJAP("房號"))) + "  押金:" + IIf(IsNull(THHJAP("押金")), "", CStr(THHJAP("押金")) + "元")
            THHJAP.Update
         End If
    End If
    TreeView1.SetFocus

       Exit Sub
    
YJERROR:
    MsgBox CStr(Err.Number) & "-" & Err.Description, vbCritical, "錯誤信息"
    Resume Next
    
    
End Sub

Private Sub Command2_Click()
    Unload Me
    
End Sub

Private Sub Command3_Click()
    Dim INTFH As Integer
    Dim STRFH As String
    
    STRFH = InputBox("請輸入換入的房間房號:", "換房提示")
    If Not IsNumeric(STRFH) Then
       MsgBox "輸入的數(shù)據(jù)類型錯誤!", vbCritical, "錯誤信息"
       TreeView1.SetFocus
       Exit Sub
       Else
         INTFH = CInt(STRFH)
         If INTFH = THHJAP("房號") Then
            TreeView1.SetFocus
            Exit Sub
         End If
         Set RECHT = DATJDGL.OpenRecordset("房間狀態(tài)", dbOpenDynaset)
         RECHT.FindFirst ("房號=" & INTFH)
         If RECHT.NoMatch Then
            MsgBox "經(jīng)查無此房號房間!", vbCritical, "錯誤信息"
            TreeView1.SetFocus
            Exit Sub
            Else
              If RECHT("房態(tài)") = "空房" Then
                 RECHT.Edit
                 RECHT("房態(tài)") = "在住"
                 RECHT.Update
                 Else
                   If RECHT("房態(tài)") = "在住" Then
                      If MsgBox("此房間已有客人入住!是否加客?", vbYesNo + vbQuestion, "提示信息") = vbNo Then
                         TreeView1.SetFocus
                         Exit Sub
                      End If
                      Else
                        If RECHT("房態(tài)") = "維修" Then
                           MsgBox "此房間正在維修!", vbCritical, "提示信息"
                           TreeView1.SetFocus
                           Exit Sub
                           Else
                             If RECHT("房態(tài)") = "走房" Then
                                MsgBox "此房間客人剛走,還未清掃!", vbCritical, "提示信息"
                                TreeView1.SetFocus
                                Exit Sub
                             End If
                        End If
                   End If
              End If
              '檢查原房間如無在住客,改房態(tài)為走房
              INTID = THHJAP("ID")
              INTYFH = THHJAP("房號")
              MYMARK = THHJAP.Bookmark
              THHJAP.FindFirst ("房號=" & INTYFH & " AND ID<>" & INTID)
              If THHJAP.NoMatch Then
                 Set RECSK = DATJDGL.OpenRecordset("散客登記表", dbOpenDynaset)
                 RECSK.FindFirst ("房號=" & INTYFH)
                 If RECSK.NoMatch Then
                    RECHT.FindFirst ("房號=" & INTYFH)
                    If Not RECHT.NoMatch Then
                       RECHT.Edit
                       RECHT("房態(tài)") = "走房"
                       RECHT.Update
                    End If
                 End If
              End If
              THHJAP.Bookmark = MYMARK
              '修改客人房號
              THHJAP.Edit
              THHJAP("房號") = INTFH
              TreeView1.SelectedItem.Text = IIf(IsNull(THHJAP("姓名")), "無名氏", THHJAP("姓名")) + "  房號:" + IIf(IsNull(THHJAP("房號")), "", CStr(THHJAP("房號"))) + "  押金:" + IIf(IsNull(THHJAP("押金")), "", CStr(THHJAP("押金")) + "元")
              MsgBox "已將" & THHJAP("姓名") & "從" & CStr(INTYFH) & "號房換至" & INTFH & "號房!", vbInformation, "提示信息"
              THHJAP.Update
              TreeView1.SetFocus
         End If
    End If

End Sub

Private Sub Command4_Click()
    If THHJAP("押金") <> 0 Then
       MsgBox "請先辦理退還鑰匙押金手續(xù)!", vbCritical, "提示信息"
       TreeView1.SetFocus
       Exit Sub
    End If
    If MsgBox(TreeView1.SelectedItem.Text + Chr(13) + "請確認(rèn)是否提前離店?", vbQuestion + vbYesNo, "提示信息") = vbYes Then
       THHJAP.Delete
       Form_Activate
    End If
End Sub

Private Sub Form_Activate()
    Dim TEMPNODE As Node
    
    STRSQL = " SELECT 團(tuán)會房間安排.ID, 團(tuán)會房間安排.團(tuán)會ID, 團(tuán)會房間安排.房號, 團(tuán)會房間安排.姓名, 團(tuán)會房間安排.性別, 團(tuán)會房間安排.押金, 團(tuán)會房間安排.附注 From 團(tuán)會房間安排 WHERE (((團(tuán)會房間安排.團(tuán)會ID)='" & left(Label1.Caption, 12) & "'))"
    Set THHJAP = DATJDGL.OpenRecordset(STRSQL, dbOpenDynaset)
    If THHJAP.RecordCount = 0 Then
       MsgBox "未給團(tuán)會成員安排房間,不能收取鑰匙押金!", vbCritical, "提示信息"
       Unload Me
       Exit Sub
    End If
    TreeView1.Nodes.Clear
    While Not THHJAP.EOF
        If IsNull(THHJAP("姓名")) Then
           STRTEXT = "無名氏"
           Else
             STRTEXT = THHJAP("姓名")
        End If
        If Not IsNull(THHJAP("房號")) Then STRTEXT = STRTEXT + "  房號:" + CStr(THHJAP("房號"))
        If Not IsNull(THHJAP("押金")) Then STRTEXT = STRTEXT + "  押金:" + CStr(THHJAP("押金"))
        Set TEMPNODE = TreeView1.Nodes.Add(, , "A" & CStr(THHJAP("ID")), STRTEXT)
        THHJAP.MoveNext
    Wend
    THHJAP.MoveFirst
    Set TEMPNODE = TreeView1.Nodes("A" & CStr(THHJAP("ID")))
    TEMPNODE.EnsureVisible
    TEMPNODE.Selected = True
    TreeView1.SetFocus
End Sub

Private Sub Form_Load()
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DATJDGL.Close
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    THHJAP.FindFirst ("ID=" & MID(TreeView1.SelectedItem.Key, 2))
    
End Sub
?? 文件大小 1526 K
?? 上傳用戶 liu2237329
?? 所屬分類 MySQL數(shù)據(jù)庫
??? 相關(guān)標(biāo)簽

#計算機(jī) #畢業(yè)設(shè)計 #密碼 #管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? thyj.frm

?? 快捷鍵說明
