tuifang.frm

一部酒店管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form tuifang 
   Caption         =   "退房结帐"
   ClientHeight    =   3750
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8205
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3750
   ScaleWidth      =   8205
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   3735
      Left            =   0
      ScaleHeight     =   3675
      ScaleWidth      =   8115
      TabIndex        =   0
      Top             =   0
      Width           =   8175
      Begin VB.CommandButton Command2 
         Height          =   375
         Left            =   3840
         Picture         =   "tuifang.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   3240
         Width           =   375
      End
      Begin VB.Frame Frame1 
         Caption         =   "选择帐单"
         Height          =   3135
         Left            =   120
         TabIndex        =   1
         Top             =   0
         Width           =   7935
         Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
            Height          =   2775
            Left            =   120
            TabIndex        =   2
            Top             =   240
            Width           =   7695
            _ExtentX        =   13573
            _ExtentY        =   4895
            _Version        =   393216
            Cols            =   7
            FixedCols       =   0
            BackColorBkg    =   16777215
         End
      End
   End
End
Attribute VB_Name = "tuifang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Dim m_row As Integer    '保存行数


Private Sub Command2_Click()

    Unload Me
    main.Show

End Sub

Private Sub Form_Load()

    '窗口居中
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2 - 550
    
     '初始化表格窗体
    MSFlexGrid1.ColWidth(0) = 800
    MSFlexGrid1.ColWidth(1) = 800
    MSFlexGrid1.ColWidth(2) = 1800
    MSFlexGrid1.ColWidth(3) = 1000
    MSFlexGrid1.ColWidth(4) = 1000
    MSFlexGrid1.ColWidth(5) = 1000
    MSFlexGrid1.ColWidth(6) = 1000

    '初始化表格名称
    MSFlexGrid1.TextMatrix(0, 0) = "帐单编号"
    MSFlexGrid1.TextMatrix(0, 1) = "旅客姓名"
    MSFlexGrid1.TextMatrix(0, 2) = "入住时间"
    MSFlexGrid1.TextMatrix(0, 3) = "预住天数"
    MSFlexGrid1.TextMatrix(0, 4) = "入住人数"
    MSFlexGrid1.TextMatrix(0, 5) = "押金总额"
    
    m_row = 0
    
    Call LoadsHouse
    
End Sub


Private Sub LoadsHouse()

    Dim str As String
    str = "select * from guest where numb not like '1'"
    
    Dim myrs As ADODB.Recordset
    Set myrs = New ADODB.Recordset
    
    myrs.CursorLocation = adUseClient
    myrs.LockType = adLockOptimistic
    myrs.CursorType = adOpenDynamic
    myrs.Open str, myCon
        
    Dim m As Integer
    Dim m_sum As Integer
    
    m_sum = myrs.RecordCount
    
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + m_sum - 1
    
    For m = 1 To m_sum
        
        With MSFlexGrid1

            .TextMatrix(m, 0) = myrs("numb")
            .TextMatrix(m, 1) = myrs("nam")
            .TextMatrix(m, 2) = myrs("tim")
            .TextMatrix(m, 3) = myrs("days")
            .TextMatrix(m, 4) = myrs("sums")
            .TextMatrix(m, 5) = myrs("moneys")
            
            Dim val As Integer
            Dim timeEnd As String
            timeEnd = Date
            Dim timeBegin As String
            timeBegin = myrs("tim")
            
            val = InStr(timeBegin, " ")
            timeBegin = Left(timeBegin, val)
    
            Dim times As Integer    '相差几天
            times = DateDiff("d", timeBegin, timeEnd)
            
        End With
        
        
        myrs.MoveNext
    
    Next

End Sub

Private Sub MSFlexGrid1_Click()
    m_row = MSFlexGrid1.MouseRow
End Sub

Private Sub MSFlexGrid1_DblClick()
    
    With MSFlexGrid1
    
        If m_row = 0 Or .Rows = 1 Then
            
            MsgBox "请选择帐单!", vbExclamation
        Else
            
            m_no = .TextMatrix(m_row, 0)
            m_day = GetDay(.TextMatrix(m_row, 2))
            m_yajin = .TextMatrix(m_row, 5)
            jiezhang.lbl_no.Caption = .TextMatrix(m_row, 0)
            jiezhang.lbl_name.Caption = .TextMatrix(m_row, 1)
            jiezhang.lbl_time.Caption = .TextMatrix(m_row, 2)
            jiezhang.lbl_tian.Caption = .TextMatrix(m_row, 3)
            jiezhang.txt_yajin.Text = .TextMatrix(m_row, 5)
            Unload Me
            jiezhang.Show vbModal
        End If
    
    End With

End Sub


Private Function GetDay(timeBegin As String) As Integer

    Dim val As Integer
    Dim timeEnd As String
    timeEnd = Date
    
    val = InStr(timeBegin, " ")
    timeBegin = Left(timeBegin, val)

    Dim times As Integer    '相差几天
    GetDay = DateDiff("d", timeBegin, timeEnd)
End Function