frmmain.frm

一个简单的客房管理数据库系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "客房管理系统"
   ClientHeight    =   7695
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   11895
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":C84A
   ScrollBars      =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   120
      Top             =   6840
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   7440
      Width           =   11895
      _ExtentX        =   20981
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4766
            MinWidth        =   4766
            Text            =   "     客房管理系统"
            TextSave        =   "     客房管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4763
            MinWidth        =   4763
            Text            =   "当前操作员：  Administrator"
            TextSave        =   "当前操作员：  Administrator"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   2646
            MinWidth        =   2646
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "http://www.kfgl.com.cn"
            TextSave        =   "http://www.kfgl.com.cn"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnClient1 
      Caption         =   "登记(&R)"
      Begin VB.Menu mnClientIn 
         Caption         =   "客人登记\结帐"
      End
      Begin VB.Menu mnClientOut 
         Caption         =   "浏览所有记录"
      End
   End
   Begin VB.Menu mnClient2 
      Caption         =   "查询(&U)"
      Begin VB.Menu mnRoomQry 
         Caption         =   "客房查询"
      End
      Begin VB.Menu f1 
         Caption         =   "-"
      End
      Begin VB.Menu mnClienrQry 
         Caption         =   "客人信息查询"
      End
      Begin VB.Menu mnClientCost 
         Caption         =   "客人住宿费查询"
      End
      Begin VB.Menu f2 
         Caption         =   "-"
      End
      Begin VB.Menu mnClientDays 
         Caption         =   "客人入住天数查询"
      End
   End
   Begin VB.Menu mnClient3 
      Caption         =   "统计(&S)"
      Begin VB.Menu mnRoomSale 
         Caption         =   "客房销售统计"
      End
      Begin VB.Menu mnRoomMonth 
         Caption         =   "客房月销售统计"
      End
      Begin VB.Menu f3 
         Caption         =   "-"
      End
      Begin VB.Menu mnClientFrom 
         Caption         =   "入住率统计"
      End
   End
   Begin VB.Menu mnClient4 
      Caption         =   "退出系统(&Q)"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public iStatType As Integer

Private Sub MDIForm_Activate()

StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
StatusBar1.Panels.Item(4).Text = Time
End Sub

Private Sub MDIForm_Load()
frmMain.Caption = App.Title & "     版本:  V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub mnClienrQry_Click()
frmClientInfo.Width = 8490
frmClientInfo.Height = 6090
frmClientInfo.Show
End Sub

Private Sub mnClient4_Click()
End
End Sub

Private Sub mnClientCost_Click()
frmClientCost.Width = 4605
frmClientCost.Height = 5565
frmClientCost.Show
End Sub

Private Sub mnClientDays_Click()
frmClientDay.Width = 8560
frmClientDay.Height = 5070
frmClientDay.Show
End Sub

Private Sub mnClientFrom_Click()
iStatType = 3
frmStatistic.Caption = "统计客房入住率"
Call InitStatForm
End Sub

Private Sub mnClientIn_Click()
frmCheckIn.Width = 10830
frmCheckIn.Height = 7215
frmCheckIn.Show
End Sub

Private Sub mnClientOut_Click()
frmAllRecord.Width = 11100
frmAllRecord.Height = 6630
frmAllRecord.Show
End Sub

Private Sub mnRoomMonth_Click()
iStatType = 2
frmStatistic.Caption = "统计月份销售记录"
Call InitStatForm
End Sub

Private Sub mnRoomQry_Click()
frmSelRoom.Width = 4560
frmSelRoom.Height = 5400
frmSelRoom.Show
End Sub

Private Sub mnRoomSale_Click()
iStatType = 1
frmStatistic.Caption = "统计客房销售记录"
Call InitStatForm
End Sub
Private Sub InitStatForm()
frmStatistic.Width = 7245
frmStatistic.Height = 5460
frmStatistic.Show
If iStatType = 2 Then
With frmStatistic
.Label1.Visible = True
.DTPicker1.Visible = True
.Label2.Visible = True
.DTPicker2.Visible = True
.Label3.Caption = "请输入需要统计数据的起始日期和终止日期："
.Text1.Visible = False
.UpDown1.Visible = False
End With
Else
With frmStatistic
.Text1.Visible = True
.UpDown1.Visible = True
.Label1.Visible = False
.Label2.Visible = False
.DTPicker1.Visible = False
.DTPicker2.Visible = False
.Label3.Caption = "请输入需要统计数据的年份："
End With
End If
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(3).Text = Format(Now, "yyyy年mm月dd日hh点mm分ss秒")
End Sub