main_zscx.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

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_zscx 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "住宿查询"
   ClientHeight    =   4800
   ClientLeft      =   45
   ClientTop       =   705
   ClientWidth     =   8760
   Icon            =   "main_zscx.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4800
   ScaleWidth      =   8760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame1 
      Caption         =   "注意：只能进行单项查询！查询完毕后请清空选择框！"
      ForeColor       =   &H000000FF&
      Height          =   1095
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   8295
      Begin VB.CheckBox Check3 
         Caption         =   "全部退宿"
         Height          =   180
         Left            =   1680
         TabIndex        =   9
         Top             =   277
         Width           =   1215
      End
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   3960
         TabIndex        =   8
         Top             =   600
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   661
         _Version        =   393216
         Format          =   171507713
         CurrentDate     =   38729
      End
      Begin VB.CheckBox Check2 
         Caption         =   "按日期"
         Height          =   255
         Left            =   3000
         TabIndex        =   7
         Top             =   720
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   375
         Left            =   7080
         TabIndex        =   6
         Top             =   600
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   375
         Left            =   5640
         TabIndex        =   5
         Top             =   600
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         Height          =   390
         Left            =   1560
         TabIndex        =   4
         Top             =   600
         Width           =   1335
      End
      Begin VB.CheckBox Check4 
         Caption         =   "按房间号："
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   720
         Width           =   1335
      End
      Begin VB.CheckBox Check1 
         Caption         =   "全部入住"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      End
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   3135
      Left            =   240
      TabIndex        =   0
      Top             =   1320
      Width           =   8415
      _ExtentX        =   14843
      _ExtentY        =   5530
      _Version        =   393216
      Cols            =   7
      FormatString    =   "  姓   名 | 房 间 号| 房 间 类 型 | 客 房 价 格 | 住 宿 日 期 | 住 宿 时 间 | 预 收 金 额"
   End
End
Attribute VB_Name = "main_zscx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984
Public Stying As String
Private Sub Command1_Click()

If Check1.Value = Checked Then Stying = "select * from djb where 标志='1' order by 房间号"
If Check2.Value = Checked Then Stying = "select * from djb where 住宿日期=#" & DTPicker1.Value & "# order by 房间号"
If Check3.Value = Checked Then Stying = "select * from djb order by 房间号"
If Check4.Value = Checked And Text1.Text <> "" Then Stying = "select * from djb where  房间号='" & Val(Text1.Text) & "'order by 房间号 "
'Grid1.Clear
'Grid1.FormatString = "   姓   名 | 房  间 号 |房 间 类 型| 客 房 价 格 |住 宿 日 期|  住 宿  时 间 | 预 收 金 额 "
SeaIt

End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub SeaIt()
Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset(Stying, dbOpenDynaset)
  
  Dim curSumMoney As Currency
  Dim curSumQuanty As Currency
  
      curSumMoney = 0
      curSumQuanty = 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("预收金额")
            curSumMoney = curSumMoney + EF("预收金额")
            curSumQuanty = curSumQuanty + EF("预收金额")
            EF.MoveNext
         Loop
      End If
      
 '添加合计
  Grid1.AddItem "" & vbTab & "  合  计 " & vbTab & "" _
                     & vbTab & "" & vbTab & vbTab & "" _
                      & vbTab & curSumMoney & vbTab & ""
 '更换最后一行颜色
  '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

Private Sub Form_Load()
checkPath ""
End Sub