main_xsbb.frm

华城酒店管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form main_xsbb 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "客房销售报表"
   ClientHeight    =   6045
   ClientLeft      =   45
   ClientTop       =   480
   ClientWidth     =   11850
   Icon            =   "main_xsbb.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6045
   ScaleWidth      =   11850
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "输入查询条件"
      Height          =   825
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   9480
      Begin VB.CommandButton cmdPrint 
         Caption         =   "打印(&P)"
         Height          =   360
         Left            =   7050
         TabIndex        =   5
         Top             =   255
         Width           =   1155
      End
      Begin VB.CommandButton cmdSearch 
         Caption         =   "搜索(&S)"
         Height          =   360
         Left            =   5895
         TabIndex        =   4
         Top             =   240
         Width           =   1155
      End
      Begin VB.CommandButton cmdClose 
         Caption         =   "关闭(&C)"
         Height          =   360
         Left            =   8265
         TabIndex        =   3
         Top             =   255
         Width           =   1155
      End
      Begin MSComCtl2.DTPicker DTPstart 
         Height          =   375
         Left            =   480
         TabIndex        =   2
         Top             =   240
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         Format          =   171507713
         CurrentDate     =   38710
      End
      Begin MSComCtl2.DTPicker DTPend 
         Height          =   375
         Left            =   2280
         TabIndex        =   6
         Top             =   240
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         Format          =   171507713
         CurrentDate     =   38710
      End
      Begin VB.Label Label1 
         Caption         =   "到"
         Height          =   255
         Left            =   1920
         TabIndex        =   7
         Top             =   360
         Width           =   255
      End
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   4995
      Left            =   0
      TabIndex        =   0
      Top             =   960
      Width           =   11535
      _ExtentX        =   20346
      _ExtentY        =   8811
      _Version        =   393216
      Cols            =   14
      FixedCols       =   0
      RowHeightMin    =   350
      BackColorFixed  =   8438015
      BackColorSel    =   12640511
      ForeColorSel    =   0
      BackColorBkg    =   16777215
      FocusRect       =   0
      HighLight       =   2
      FillStyle       =   1
      GridLinesFixed  =   1
      SelectionMode   =   1
      AllowUserResizing=   1
      FormatString    =   "    凭    证    号   码|房间号|客房价格|住宿天数| 宿 费 |折扣或招待|折扣|应收宿费|杂费|电话费|会议费|存车费|赔偿费|金额总计"
   End
End
Attribute VB_Name = "main_xsbb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Public mysqq As String



Private Sub cmdClose_Click()
Unload Me

End Sub

Private Sub Form_Load()


 
 sAppPath = App.Path
 
'FIXIT: 用 "Right$" 函数替换 "Right" 函数                                                         FixIT90210ae-R9757-R1B8ZE
 If Right(App.Path, 1) = "\" Then
    sAppPath = App.Path
    Else
    sAppPath = App.Path & "\"
 End If
 
End Sub
Private Sub cmdPrint_Click()

 If MsgBox("确认打印报表吗？  ", vbInformation + vbYesNo, "hello") = vbNo Then Exit Sub
 
 Dim myPage As PageSetting
     myPage.sngPageHeight = 190
     myPage.sngPageWidth = 260
     myPage.sngPageTop = 15
     myPage.sngPageLeft = 4
     myPage.sngDirect = 2       '1纵向2横向
     
 PrintPage myPage, "销售查询", "查询日期:" & Date, "华成酒店管理系统", "制作:  ", Grid1, "0,1,2,3,4,5,6,7,8,9,10,11,12,13", 10, 1
 
End Sub

Private Sub cmdSearch_Click()

 '如果为日期时
  
     mysqq = "Select * from tfd Where 退房日期 >=#" & DTPstart.Value & "# And 退房日期<=#" & DTPend.Value & "# "
    '住宿日期 = #" & dtpStart.Value & "#   And>=#" & dtpStart.Value & "# And 销售表.回款日期<=#" & dtpEnd.Value & "#
  SearchIt
 '
End Sub

Private Sub SearchIt()

 '检索数据
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(mysqq, dbOpenDynaset)
  
  Dim curSumMoney As Currency
  Dim curSumQuanty As Currency
  Dim curSumMone As Currency
  Dim curSumQuant As Currency
  Dim curSumMon As Currency
  Dim curSumQuan As Currency
  Dim curSumMo As Currency

      curSumMoney = 0
      curSumQuanty = 0
       curSumMone = 0
      curSumQuant = 0
       curSumMon = 0
      curSumQuan = 0
       curSumMo = 0
      
      
      Grid1.Rows = 1
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Grid1.AddItem EF("凭证号码") & vbTab & EF("房间号") & vbTab & EF("客房价格") _
                     & vbTab & EF("住宿天数") & vbTab & EF("宿费") & vbTab & EF("折扣或招待") _
                     & vbTab & EF("折扣") & vbTab & EF("应收宿费") & vbTab & EF("杂费") & vbTab & EF("电话费") & vbTab & EF("会议费") & vbTab & EF("存车费") & vbTab & EF("赔偿费") & vbTab & EF("金额总计")
            curSumMoney = curSumMoney + EF("杂费")
            curSumQuanty = curSumQuanty + EF("应收宿费")
            curSumMone = curSumMone + EF("电话费")
            curSumQuant = curSumQuant + EF("会议费")
            curSumMon = curSumMon + EF("存车费")
            curSumQuan = curSumQuan + EF("赔偿费")
            curSumMo = curSumMo + EF("金额总计")
          
            EF.MoveNext
         Loop
      End If
      
 '添加合计
  Grid1.AddItem "" & vbTab & "  合  计 " & vbTab & "" _
                     & vbTab & "" & vbTab & vbTab & vbTab & vbTab & curSumQuanty & vbTab & "" _
                       & curSumMoney & vbTab & curSumMone & vbTab & curSumQuant & vbTab & curSumMon & vbTab & curSumQuan & vbTab & curSumMo & ""
  
  
  
  Grid1.Row = Grid1.Rows - 1
  Dim X As Integer
      For X = 7 To 0 Step -1
         Grid1.Col = X
         Grid1.CellBackColor = &HE0E0D0
      Next
  Grid1.ColSel = 7
  
  EF.Close
  db.Close

End Sub