frmmain.frm

可以完成宾馆的日常管理功能,例如订房,登记,入住,结帐,和打印报表等

   End
   Begin VB.Menu system 
      Caption         =   "系统(&S)"
      Begin VB.Menu cxxx 
         Caption         =   "查询信息(&V)"
         Begin VB.Menu cxkfxx 
            Caption         =   "查询客房信息"
         End
         Begin VB.Menu cxzsxx 
            Caption         =   "查询住宿信息"
         End
         Begin VB.Menu cxdfxx 
            Caption         =   "查询订房信息"
         End
         Begin VB.Menu cxjsxx 
            Caption         =   "查询结算信息"
         End
         Begin VB.Menu cxkhly 
            Caption         =   "查询客户留言"
         End
      End
      Begin VB.Menu yhgl 
         Caption         =   "用户管理(&M)"
      End
      Begin VB.Menu xgmm 
         Caption         =   "修改密码(&R)"
      End
      Begin VB.Menu cxdl 
         Caption         =   "重新登录(&L)"
         Shortcut        =   ^L
      End
      Begin VB.Menu aboutsystem 
         Caption         =   "关于系统(&A)"
         Shortcut        =   ^A
      End
      Begin VB.Menu asd 
         Caption         =   "-"
      End
      Begin VB.Menu tcxt 
         Caption         =   "退出系统(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu kfxxsz 
      Caption         =   "客房管理(&R))"
      Begin VB.Menu kfbzgl 
         Caption         =   "客房标准管理(&M)"
      End
      Begin VB.Menu kfxxgl 
         Caption         =   "客房信息管理(&R)"
      End
      Begin VB.Menu gkhf 
         Caption         =   "顾客换房(&E)"
      End
   End
   Begin VB.Menu kfsygl 
      Caption         =   "客房使用管理(&U)"
      Begin VB.Menu kfdjrz 
         Caption         =   "客房登记入住(&L)"
      End
      Begin VB.Menu kfydgl 
         Caption         =   "客房预定管理(&P)"
         Begin VB.Menu tjdfxx 
            Caption         =   "添加订房信息"
         End
         Begin VB.Menu kfydrz 
            Caption         =   "客房预定入住"
         End
      End
      Begin VB.Menu tjjsxx 
         Caption         =   "添加结算信息(&A)"
      End
   End
   Begin VB.Menu bbgl 
      Caption         =   "报表管理(&D)"
      Begin VB.Menu gkdjbb 
         Caption         =   "顾客登记报表(&R)"
      End
      Begin VB.Menu ydkfbb 
         Caption         =   "预定客房报表(&P)"
      End
      Begin VB.Menu gkjsbb 
         Caption         =   "顾客结算报表(&A)"
      End
      Begin VB.Menu ydjsbb 
         Caption         =   "预定结算报表(&M)"
      End
   End
   Begin VB.Menu gkly 
      Caption         =   "顾客留言(&M)"
      Begin VB.Menu khly 
         Caption         =   "客户留言(&R)"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub aboutsystem_Click()
frmabout1.Show
End Sub

Private Sub cxdfxx_Click()
frm查询订房信息.Show
End Sub

Private Sub cxdl_Click()
Unload Me
frm登录.Show
frm登录.Text1 = ""
frm登录.Text2 = ""
frm登录.Text1.SetFocus
End Sub

Private Sub cxjsxx_Click()
frm查询结算信息.Show
End Sub

Private Sub cxkfxx_Click()
frm查询客房信息.Show
End Sub

Private Sub cxkhly_Click()
frm查看留言.Show
End Sub

Private Sub cxzsxx_Click()
frm查询住宿信息.Show
End Sub

Private Sub Form_Load()
 
If 权限 = 2 Then
    frmmain.cxjsxx.Enabled = False
    frmmain.cxkhly.Enabled = False
    frmmain.yhgl.Enabled = False
    frmmain.kfbzgl.Enabled = False
    frmmain.kfxxgl.Enabled = False
    frmmain.bbgl.Enabled = False
End If
StatusBar1.Panels(3).Text = "操作员:" + frm登录.Text1.Text
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
cn.Open frm登录.Adodc1.ConnectionString
rs.Open "select * from 订房信息表", cn, 1, 3
While Not rs.EOF
  If Val(Date - rs.Fields(8)) >= 5 Then
    rs1.Open "select * from 客房信息表 where 客房编号='" & rs.Fields(0) & "'", cn, 1, 3
    rs1.Fields(10) = "否"
    rs1.Update
    rs2.Open "select * from 订房结算信息表", cn, 1, 3
    rs2.AddNew
    rs2.Fields(1) = rs.Fields(0)
    rs2.Fields(2) = rs.Fields(3)
    rs2.Fields(3) = rs.Fields(5)
    rs2.Fields(4) = rs.Fields(6)
    rs2.Fields(5) = rs.Fields(7)
    rs2.Fields(6) = rs.Fields(8)
    rs2.Fields(7) = rs.Fields(8) + 5
    rs2.Fields(8) = rs.Fields(9)
    rs2.Fields(9) = rs.Fields(12)
    rs2.Update
    rs.Delete
  End If
rs.MoveNext
Wend
Calendar1.Value = Now
End Sub

Private Sub gkdjbb_Click()
DataReport1.Show
End Sub

Private Sub gkhf_Click()
frm顾客换房.Show
End Sub

Private Sub gkjsbb_Click()
DataReport2.Show
End Sub

Private Sub kfbzgl_Click()
frm客房标准管理.Show
End Sub

Private Sub kfdjrz_Click()
frm客房登记.Show
End Sub

Private Sub kfxxgl_Click()
frm客房信息管理.Show
End Sub

Private Sub kfydrz_Click()
frm预定入住.Show
End Sub

Private Sub khly_Click()
frm客户留言.Show
End Sub

Private Sub tcxt_Click()
End
End Sub

Private Sub tjdfxx_Click()
frm添加订房信息.Show
End Sub

Private Sub tjjsxx_Click()
frm添加结算信息.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.index
       Case 1
            frm修改密码.Show
       Case 3
            frm客户留言.Show
       Case 5
            frm客房登记.Show
       Case 7
            frm添加结算信息.Show
       Case 9
            frmabout1.Show
       Case 11
            End
End Select
End Sub


Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Private Sub xgmm_Click()
frm修改密码.Show
End Sub

Private Sub ydjsbb_Click()
DataReport4.Show
End Sub

Private Sub ydkfbb_Click()
DataReport3.Show
End Sub

Private Sub yhgl_Click()
frm用户管理.Show
End Sub