frmroommain.frm

数据库课程设计

VERSION 5.00
Begin VB.Form frmRoomMain 
   Caption         =   "客房管理系统"
   ClientHeight    =   3780
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6075
   LinkTopic       =   "Form1"
   ScaleHeight     =   3780
   ScaleWidth      =   6075
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu sysManagement 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu sysExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu roomManage 
      Caption         =   "客房管理(&R)"
      Begin VB.Menu addRoom 
         Caption         =   "添加客房(&A)"
      End
      Begin VB.Menu modifyroom 
         Caption         =   "修改/删除客房(&U)"
      End
      Begin VB.Menu addRoomtype 
         Caption         =   "添加客房类型(&T)"
      End
      Begin VB.Menu queryroom 
         Caption         =   "查询客房(&Q)"
      End
   End
   Begin VB.Menu registerManage 
      Caption         =   "住宿管理(&H)"
      Begin VB.Menu addCheckIn 
         Caption         =   "添加入住信息(&A)"
      End
      Begin VB.Menu UpdateCheckIn 
         Caption         =   "修改入住信息(&U)"
      End
      Begin VB.Menu QueryCheckIn 
         Caption         =   "查看入住信息(&C)"
      End
   End
   Begin VB.Menu CaculateManagement 
      Caption         =   "结算管理(&C)"
      Begin VB.Menu c_check_out 
         Caption         =   "结帐(&L)"
      End
      Begin VB.Menu c_Query 
         Caption         =   "结算查询(&)"
      End
   End
End
Attribute VB_Name = "frmRoomMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addCheckIn_Click()
frmCheckIn.Show

End Sub

Private Sub addRoom_Click()
frmAddRoom.Show

End Sub

Private Sub addRoomtype_Click()
frmAddRoomType.Show
End Sub

Private Sub c_check_out_Click()
frmCaculate.Show
End Sub

Private Sub c_Query_Click()
frmQueryCac.Show
End Sub

Private Sub Form_Load()

'窗体居中显示
Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2

'获取数据库的位置
dbPath = App.Path + "\db\roomDB.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

End Sub

Private Sub modifyroom_Click()
frmUpdate.Show
End Sub

Private Sub QueryCheckIn_Click()
frmQueryCheckIn.Show

End Sub

Private Sub queryroom_Click()
frmqueryRoom.Show
End Sub

Private Sub sysExit_Click()
End
End Sub

Private Sub UpdateCheckIn_Click()
frmUpdateCheckIn.Show

End Sub