main.frm

酒店客房管理系统(vb^+SQLServer2000+使用说明)

      Begin VB.Menu zsdj 
         Caption         =   "住宿登记(&D)..."
         Shortcut        =   ^D
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu zjyj 
         Caption         =   "追加押金(&Y)"
         Shortcut        =   ^Y
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu tfdj 
         Caption         =   "调房登记(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu line4 
         Caption         =   "-"
      End
      Begin VB.Menu tf 
         Caption         =   "退宿结账(&J)"
         Shortcut        =   ^J
      End
   End
   Begin VB.Menu kfgl 
      Caption         =   "客房管理"
      Begin VB.Menu kfsz 
         Caption         =   "客房设置"
      End
      Begin VB.Menu kfcx 
         Caption         =   "客房查询(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu ftck 
         Caption         =   "房态查看"
      End
   End
   Begin VB.Menu gzgl 
      Caption         =   "挂账管理"
      Begin VB.Menu gzcx 
         Caption         =   "挂账查询"
      End
      Begin VB.Menu gzjk 
         Caption         =   "挂账结款"
      End
   End
   Begin VB.Menu cxtj 
      Caption         =   "查询统计"
      Begin VB.Menu zscx 
         Caption         =   "住宿查询"
      End
      Begin VB.Menu tfcx 
         Caption         =   "退宿查询"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu sftx 
         Caption         =   "宿费提醒"
      End
   End
   Begin VB.Menu rjz 
      Caption         =   "日结"
      Begin VB.Menu ysbb 
         Caption         =   "登记预收报表"
      End
      Begin VB.Menu xsbb 
         Caption         =   "客房销售报表"
      End
      Begin VB.Menu xstj 
         Caption         =   "客房销售统计"
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置"
      Begin VB.Menu czysz 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu ma 
         Caption         =   "密码设置"
      End
      Begin VB.Menu DL 
         Caption         =   "重新登录"
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu sztx 
         Caption         =   "设置主窗口图像"
      End
      Begin VB.Menu line8 
         Caption         =   "-"
      End
      Begin VB.Menu csh 
         Caption         =   "初始化"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限设置"
      End
   End
   Begin VB.Menu xtwh 
      Caption         =   "系统维护"
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu sjhf 
         Caption         =   "数据恢复"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strtemp As String * 60  '定义字符变量存储路径
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long   '声明API函数
Private Sub Form_Load()
 '自动识别数据库路径
 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
 Adodc1.RecordSource = "select * from tb_user"
 Adodc1.Refresh
 Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_KFGL.mdb;Persist Security Info=False"
 Adodc2.RecordSource = "select * from tb_qxsz"
 Adodc2.Refresh
On Error GoTo aa  '错误处理。当找不到路径时则转向错误处理
  Open (App.Path & "\picture.txt") For Input As #1
    Line Input #1, intext
        Temp = intext
  Close #1
 Image2.Picture = LoadPicture(intext)
 Exit Sub
aa:
   Image2.Picture = LoadPicture(App.Path & "\image\酒店客房管理系统主界面.bmp")   '当找不到路径时，赋给一个固定的图片路径

End Sub
Private Sub Form_Activate()     '设置操作员权限
    Adodc1.RecordSource = "select * from tb_user where   操作员='" + StatusBar1.Panels(4).text + "'"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        Adodc2.RecordSource = "select * from tb_qxsz where 操作员='" + StatusBar1.Panels(4).text + "'"
        Adodc2.Refresh
        If Adodc2.Recordset.RecordCount > 0 Then
            With Adodc2.Recordset
                Main.zjyj.Enabled = .Fields("追加押金")
                Main.ZSDJ.Enabled = .Fields("住宿登记")
                Main.tf.Enabled = .Fields("退宿登记")
                Main.tfdj.Enabled = .Fields("调房登记")
                Main.kfsz.Enabled = .Fields("客房管理")
                Main.kfcx.Enabled = .Fields("客房查询")
                Main.ftck.Enabled = .Fields("房态查看")
                Main.gzcx.Enabled = .Fields("挂账查询")
                Main.gzjk.Enabled = .Fields("挂账结款")
                Main.zscx.Enabled = .Fields("住宿查询")
                Main.tfcx.Enabled = .Fields("退宿查询")
                Main.sftx.Enabled = .Fields("宿费提醒")
                Main.ysbb.Enabled = .Fields("登记预收报表")
                Main.xsbb.Enabled = .Fields("客房销售报表")
                Main.xstj.Enabled = .Fields("客房销售统计报表")
                Main.czysz.Enabled = .Fields("操作员设置")
                Main.ma.Enabled = .Fields("密码设置")
                Main.csh.Enabled = .Fields("初始化")
                Main.qxsz.Enabled = .Fields("权限设置")
                Main.sztx.Enabled = .Fields("设置窗口图像")
                Main.sjbf.Enabled = .Fields("数据备份")
                Main.sjhf.Enabled = .Fields("数据恢复")
                Main.Toolbar1.Buttons(1).Enabled = .Fields("住宿登记")
                Main.Toolbar1.Buttons(3).Enabled = .Fields("退宿登记")
                Main.Toolbar1.Buttons(5).Enabled = .Fields("房态查看")
                Main.Toolbar1.Buttons(7).Enabled = .Fields("住宿查询")
                Main.Toolbar1.Buttons(9).Enabled = .Fields("客房销售报表")
                Main.Toolbar1.Buttons(11).Enabled = .Fields("宿费提醒")
            End With
        End If
    End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "DJ"
        zsdj_Click     '调入住宿登记
    Case "TF"
        tf_Click      '调入退宿结账
    Case "FT"
        ftck_Click      '调房态宿查询
    Case "CX"
        zscx_Click      '调入住宿查询
    Case "RJ"
        xsbb_Click      '调入客房销售报表
    Case "TX"
        sftx_Click     '调入提醒
    Case "counter"
        Dim L, S       '调用计算器
        L = GetSystemDirectory(strtemp, Len(strtemp))
        Paths = Left(strtemp, L) & "\CALC.EXE"
        S = Shell(Paths, 1)
        'Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
    Case "CXDL"    '重新登录
        Load main_Login
        main_Login.Show
    Case "exit"
        If MsgBox("确定退出该系统？", 4, "系统提示") = vbYes Then
            End
        End If
    End Select
End Sub
Private Sub sztx_Click()  '设置主窗口图像
Dim Str '定义变量
CommonDialog1.Filter = "BMP图片(*.BMP)|*.BMP|JPG图片(*.JPG)|*.JPG|GIF图片(*.GIF)|*.GIF|所有文件(*.*)|*.*" '设置图片格式
'CommonDialog 控件CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。
CommonDialog1.ShowOpen '显示“打开”对话框
If CommonDialog1.FileName <> "" Then '如果文件不为空
Image2.Picture = LoadPicture(CommonDialog1.FileName) '加载图片
Str = CommonDialog1.FileName '将图片名赋给变量
  Open (App.Path & "\picture.txt") For Output As #1 '打开一个txt文件
     Print #1, Str '打印图片名
  Close #1 '关闭文件
 CommonDialog1.FileName = "" '把空值赋给文件名
Else
 CommonDialog1.FileName = "" '把空值赋给文件名
End If
End Sub
Private Sub sjbf_Click() '调入数据备份
main_sjbf.Show
Main.Enabled = False
End Sub
Private Sub sjhf_Click()  '数据恢复
main_sjhf.Show
End Sub
Private Sub zsdj_Click()       '调入住宿登记
 main_kfdj.Show
 Main.Enabled = False
End Sub
Private Sub zjyj_Click()       '调入追加押金
 Load main_zjyj
 main_zjyj.Show
 Main.Enabled = False
End Sub
Private Sub tfdj_Click()      '调入调房登记
 main_tfdj.Show
 Main.Enabled = False
End Sub
Private Sub tf_Click()        '调入退宿结账
 main_tf.Show
 Main.Enabled = False
End Sub
Private Sub kfsz_Click()      '调入客房管理
 main_kfgl.Show
 Main.Enabled = False
End Sub
Private Sub kfcx_Click()      '调入客房查询
 main_kfcx.Show
 Main.Enabled = False
End Sub
Private Sub ftck_Click()      '调入房态查看
 main_ftcx.Show
 Main.Enabled = False
End Sub
Private Sub gzcx_Click()      '调入挂账查询
 Load main_gzcx
 main_gzcx.Show
 Main.Enabled = False
End Sub
Private Sub gzjk_Click()      '调入挂账结款
 Load main_gzjk
 main_gzjk.Show
 Main.Enabled = False
End Sub
Private Sub zscx_Click()       '调入住宿查询
 Load main_zscx
 main_zscx.Show
 Main.Enabled = False
End Sub
Private Sub tfcx_Click()       '调入退宿查询
 Load main_tfcx
 main_tfcx.Show
 Main.Enabled = False
End Sub
Private Sub sftx_Click()      '调入宿费提醒
 Load main_xftx
 main_xftx.Show
 Main.Enabled = False
End Sub
Private Sub ysbb_Click()       '调入登记预收报表
 main_ysbb.Show
 Main.Enabled = False
End Sub
Private Sub xsbb_Click()       '调入客房销售报表
 main_xsbb.Show
 Main.Enabled = False
End Sub
Private Sub xstj_Click()       '调入客房销售统计
 main_xstj.Show
 Main.Enabled = False
End Sub
Private Sub czysz_Click()      '调入操作员设置
 Load main_czysz
 main_czysz.Show
 Main.Enabled = False
End Sub
Private Sub ma_Click()          '调入密码设置
 main_mmsz.Show
 Main.Enabled = False
End Sub
Private Sub csh_Click()         '调入初始化
 main_csh.Show
 Main.Enabled = False
End Sub
Private Sub qxsz_Click()        '调入权限设置
 main_qxsz.Show
 Main.Enabled = False
End Sub
Private Sub DL_Click()    '重新登录
Load main_Login
main_Login.Show
End Sub