czqx.frm

酒店管理系统

      Begin VB.CheckBox Check1 
         Caption         =   "入住登记"
         DataField       =   "入住登记"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   1
         Left            =   480
         TabIndex        =   8
         Top             =   1200
         Width           =   1455
      End
      Begin VB.CheckBox Check1 
         Caption         =   "房间预订"
         DataField       =   "房间预订"
         DataSource      =   "Data1"
         Height          =   255
         Index           =   0
         Left            =   480
         TabIndex        =   7
         Top             =   600
         Width           =   1455
      End
   End
   Begin VB.Menu MNU1 
      Caption         =   "文件(&F)"
      Begin VB.Menu MNU11 
         Caption         =   "打印设置"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu MNU12 
         Caption         =   "打印预览"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu MNU13 
         Caption         =   "打印 "
         Enabled         =   0   'False
         Shortcut        =   ^P
         Visible         =   0   'False
      End
      Begin VB.Menu MNU14 
         Caption         =   "数据输出"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu MNU16 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu MNU2 
      Caption         =   "编辑(&E)"
      Begin VB.Menu MNU21 
         Caption         =   "增加 "
         Shortcut        =   ^A
      End
      Begin VB.Menu MNU25 
         Caption         =   "修改 "
         Shortcut        =   ^E
      End
      Begin VB.Menu MNU26 
         Caption         =   "-"
      End
      Begin VB.Menu MNU22 
         Caption         =   "删除 "
         Shortcut        =   ^D
      End
      Begin VB.Menu MNU27 
         Caption         =   "-"
      End
      Begin VB.Menu MNU28 
         Caption         =   "更换会计主管(&D)"
      End
      Begin VB.Menu MNU29 
         Caption         =   "更改口令(&M)"
      End
   End
   Begin VB.Menu MNU5 
      Caption         =   "帮助(&H)"
      Begin VB.Menu MNU51 
         Caption         =   "帮助主题"
      End
      Begin VB.Menu MNU52 
         Caption         =   "索引"
         Enabled         =   0   'False
      End
      Begin VB.Menu MNU53 
         Caption         =   "-"
      End
      Begin VB.Menu MNU54 
         Caption         =   "关于红日软件..."
      End
   End
End
Attribute VB_Name = "CZQX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DATJDGL As Database    '酒店管理数据库
Dim RECCZY As Recordset     '操作权限表
Dim SFADD As Boolean       '是否增加标识
Public BQX As Boolean
Public SF As Boolean
Dim TEMPNODE As Node

Private Sub Check1_Click(Index As Integer)
    If SF Then
       If BQX And Not Check1(Index).Value Then TreeView1.Nodes.Remove ("BA" + Trim(Data1.Recordset("ID")) + Check1(Index).Caption)
       If Not BQX And Check1(Index).Value Then Set TEMPNODE = TreeView1.Nodes.Add("A" + Trim(Data1.Recordset("ID")), tvwChild, ("BA" + Trim(Data1.Recordset("ID")) + Check1(Index).Caption), Check1(Index).Caption, 1, 2)
       BQX = Check1(Index).Value
       TreeView1.Refresh
    End If

End Sub

Private Sub Check1_GotFocus(Index As Integer)
    SF = True
    BQX = Check1(Index).Value
End Sub

Private Sub Check1_LostFocus(Index As Integer)
    SF = False
End Sub

Private Sub Command1_Click()
    If Text1.Text = "" Then
       MsgBox "操作员姓名不能为空!", vbCritical, "提示信息"
       Exit Sub
    End If
    STRID = Data1.Recordset("ID")
    Data1.Recordset.Update
    Data1.Recordset.FindFirst ("ID=" & STRID)
    If SFADD Then
       Set TEMPNODE = TreeView1.Nodes.Add(, , "A" + Trim(Data1.Recordset("ID")), Data1.Recordset("姓名"), 3, 4)
       TEMPNODE.Selected = True
       TEMPNODE.EnsureVisible
       Else
         TreeView1.SelectedItem.Text = Data1.Recordset("姓名")
    End If
    Frame3.Visible = False
    Frame2.Visible = True
    SFADD = False
End Sub

Private Sub Form_Load()          ' 激活模块时初设
    SFADD = False
    SF = False
    Dim ncounter As Integer
    Dim STRKEY As String
    Dim STRTEXT As String
    Dim BFIELD As Field
    Data1.DatabaseName = App.Path & "\data\jdgl.mdb"
    Data1.Refresh
    
    Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
    Set RECCZY = DATJDGL.OpenRecordset("操作员", dbOpenDynaset)
   
    TreeView1.Nodes.Clear
    
    Do While Not RECCZY.EOF
       STRKEY = "A" + Trim(RECCZY("ID"))
       STRTEXT = IIf(IsNull(RECCZY("姓名")), "新人员", RECCZY("姓名"))
       If Not IsNull(STRTEXT) Then
          Set TEMPNODE = TreeView1.Nodes.Add(, , STRKEY, STRTEXT, 3, 4)
       End If
       For Each BFIELD In RECCZY.Fields
           If BFIELD.Type = 1 Then
              If BFIELD Then
                 Set TEMPNODE = TreeView1.Nodes.Add(STRKEY, tvwChild, "B" + STRKEY + BFIELD.Name, BFIELD.Name, 1, 2)
              End If
           End If
       Next
       RECCZY.MoveNext
    Loop
    If RECCZY.RecordCount > 0 Then
       RECCZY.MoveFirst
       STRKEY = "A" + Trim(RECCZY("ID"))
       Set TEMPNODE = TreeView1.Nodes(STRKEY)
    End If
'    TEMPNODE.EnsureVisible
'    TEMPNODE.Selected = True
End Sub

Private Sub Form_Unload(Cancel As Integer)     '退出模块
    SFOK = MsgBox("  是否退出?  ", vbQuestion + vbYesNo, "提示信息")
    If SFOK = vbNo Then
       Cancel = True
       Else
         DATJDGL.Close
    End If
End Sub

Private Sub MNU11_Click()      '打印机设置
    CDLTEST.flags = cdlPDDisablePrintToFile
    CDLTEST.Copies = 3
    CDLTEST.PrinterDefault = True
'    CDLTEST.ShowPrinter

End Sub

Private Sub MNU16_Click()     ' 退出模块
    Unload Me
    
End Sub

Private Sub MNU21_Click()    '增加新记录
    SFADD = True
    Data1.Recordset.AddNew
    Frame2.Visible = False
    Frame3.Visible = True
    Text1.SetFocus
End Sub

Private Sub MNU22_Click()     ' 删除记录
    If left(TreeView1.SelectedItem.Key, 1) = "A" Then
       STRID = MID(TreeView1.SelectedItem.Key, 2)
       Data1.Recordset.FindFirst ("ID=" & STRID)
    End If
    If Data1.Recordset.RecordCount = 0 Then Exit Sub
    STRKEY = "A" + Trim(Data1.Recordset("ID"))
    If Data1.Recordset("会计主管") Then
       MsgBox "不能删除会计主管!", vbCritical, "提示信息"
       Exit Sub
    End If
    SFOK = MsgBox(Data1.Recordset("姓名") + "  " + "是否删除此人员?", vbYesNo + vbQuestion, "提示信息")
    If SFOK = vbYes Then
       TreeView1.Nodes.Remove (STRKEY)
       Data1.Recordset.Delete
       If Not Data1.Recordset.EOF Then
          Data1.Recordset.MoveNext
          Else
            Data1.Recordset.MoveLast
       End If
    End If
End Sub

Private Sub MNU25_Click()          '修改记录
    If left(TreeView1.SelectedItem.Key, 1) = "A" Then
       STRID = MID(TreeView1.SelectedItem.Key, 2)
       Data1.Recordset.FindFirst ("ID=" & STRID)
    End If
    Data1.Recordset.Edit
    SFADD = False
    Frame2.Visible = False
    Frame3.Visible = True
    Text1.SetFocus

End Sub

Private Sub MNU28_Click()
    Load GHZG
    GHZG.Show vbModal
    Data1.Recordset.FindFirst ("会计主管")
    If Not Data1.Recordset.NoMatch Then
       TreeView1.Nodes.Remove ("BA" + CStr(Data1.Recordset("ID")) + "会计主管")
       Data1.Recordset.Edit
       Data1.Recordset("会计主管") = False
       Data1.Recordset.Update
    End If
    Data1.Recordset.FindFirst ("ID=" & GHZG.INTKJZGID)
    If Not Data1.Recordset.NoMatch Then
       Data1.Recordset.Edit
       Data1.Recordset("会计主管") = True
       STRKEY = "A" + Trim(Data1.Recordset("ID"))
       Set TEMPNODE = TreeView1.Nodes.Add(STRKEY, tvwChild, "B" + STRKEY + "会计主管", "会计主管", 1, 2)
       Data1.Recordset.Update
       TEMPNODE.Selected = True
       TEMPNODE.EnsureVisible
    End If
    
End Sub

Private Sub MNU29_Click()
    If left(TreeView1.SelectedItem.Key, 1) <> "A" Then Exit Sub
    Load GHMM
    GHMM.Show vbModal
    
End Sub

Private Sub MNU51_Click()
    Shell App.Path & "\hh.exe " & App.Path & "\help.chm", vbNormalFocus
End Sub

Private Sub MNU54_Click()          ' 关于对话
    Load frmAbout
    frmAbout.Show vbModal
    
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case UCase(Button.Key)
        Case "A"          ' 打印机设置
            MNU11_Click
        Case "B"          ' 打印预览
            MsgBox "B"
        Case "C"          ' 文件输出
            MsgBox "C"
        Case "E"          ' 增加
            MNU21_Click
        Case "O"          ' 增加
            MNU25_Click
        Case "G"          ' 删除
            MNU22_Click
        Case "ZG"
            MNU28_Click
        Case "KEY"
            MNU29_Click
        Case "M"          ' 帮助
            MNU51_Click
        Case "N"          ' 退出
            Unload Me
    End Select
End Sub

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Image = 3
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
    Node.Image = 4
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    If left(TreeView1.SelectedItem.Key, 1) = "A" Then
       STRID = MID(TreeView1.SelectedItem.Key, 2)
       Data1.Recordset.FindFirst ("ID=" & STRID)
    End If
    Frame3.Visible = False
    Frame2.Visible = True
    
End Sub