frmmain.vb

来自「酒店管理系统,可以用户与酒店的管理,客房登记、结帐、预定」· VB 代码 · 共 244 行

Imports System.Data.SqlClient
Public Class frmMain
    Inherits System.Windows.Forms.Form
    Dim strProgramName As String
    Dim blnfirstrun As Boolean
    Dim struserid As String

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuModifyPassword As System.Windows.Forms.MenuItem
    Friend WithEvents ModifyAuthority As System.Windows.Forms.MenuItem
    Friend WithEvents mnuLogout As System.Windows.Forms.MenuItem
    Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents mnuModifyUser As System.Windows.Forms.MenuItem
    Friend WithEvents mnuRegister As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.mnuModifyUser = New System.Windows.Forms.MenuItem
        Me.mnuModifyPassword = New System.Windows.Forms.MenuItem
        Me.ModifyAuthority = New System.Windows.Forms.MenuItem
        Me.mnuLogout = New System.Windows.Forms.MenuItem
        Me.mnuExit = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.mnuRegister = New System.Windows.Forms.MenuItem
        Me.MenuItem8 = New System.Windows.Forms.MenuItem
        Me.MenuItem9 = New System.Windows.Forms.MenuItem
        Me.MenuItem10 = New System.Windows.Forms.MenuItem
        Me.MenuItem11 = New System.Windows.Forms.MenuItem
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlCommand1 = New System.Data.SqlClient.SqlCommand
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem7, Me.MenuItem8, Me.MenuItem9, Me.MenuItem10, Me.MenuItem11})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuModifyUser, Me.mnuModifyPassword, Me.ModifyAuthority, Me.mnuLogout, Me.mnuExit})
        Me.MenuItem1.Text = "系统维护"
        '
        'mnuModifyUser
        '
        Me.mnuModifyUser.Index = 0
        Me.mnuModifyUser.Text = "增加用户"
        '
        'mnuModifyPassword
        '
        Me.mnuModifyPassword.Index = 1
        Me.mnuModifyPassword.Text = "修改密码"
        '
        'ModifyAuthority
        '
        Me.ModifyAuthority.Index = 2
        Me.ModifyAuthority.Text = "修改用户权限"
        '
        'mnuLogout
        '
        Me.mnuLogout.Index = 3
        Me.mnuLogout.Text = "退出用户"
        '
        'mnuExit
        '
        Me.mnuExit.Index = 4
        Me.mnuExit.Text = "退出系统"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 1
        Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuRegister})
        Me.MenuItem7.Text = "旅客登记"
        '
        'mnuRegister
        '
        Me.mnuRegister.Index = 0
        Me.mnuRegister.Text = "旅客入住登记"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 2
        Me.MenuItem8.Text = "旅客结帐"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 3
        Me.MenuItem9.Text = "报表输出"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 4
        Me.MenuItem10.Text = "黑名单管理"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 5
        Me.MenuItem11.Text = "客房管理"
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=4D3A93FBF8BE4E6;packet size=4096;user id=sa;data source=4D3A93FBF8" & _
        "BE4E6;persist security info=False;initial catalog=sqlqtgl"
        '
        'SqlCommand1
        '
        Me.SqlCommand1.Connection = Me.SqlConnection1
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(576, 266)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMain"
        Me.Text = "前厅管理系统"

    End Sub

#End Region

    Private Sub frmMain_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        If blnfirstrun Then
            blnfirstrun = True
            Dim frmpassword As New frmpassword
            If frmpassword.ShowDialog = DialogResult.Cancel Then
                Me.Close()
            Else
                struserid = frmpassword.MyUser

            End If
        End If
    End Sub

    Private Function CheckAuthority(ByVal ProgramName As String) As Boolean
        Dim blnrunning As Boolean = True
        Try
            SqlCommand1.CommandText = "select * from 用户权限 where 用户名='" & struserid & "' and 程序名='" & strProgramName & "'" & "and 运行权限=1"
            SqlConnection1.Open()
            blnrunning = CType(SqlCommand1.ExecuteScalar(), Boolean)

        Finally
            SqlConnection1.Close()

        End Try
        CheckAuthority = blnrunning

    End Function
    Private Sub mnulogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLogout.Click
        strProgramName = ""
        struserid = ""
        Dim frmpassword As New frmpassword
        If frmpassword.ShowDialog = DialogResult.Cancel Then
            Me.Close()
        Else
            struserid = frmpassword.MyUser
        End If
    End Sub

    Private Sub mnuexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        If MessageBox.Show("退出前厅管理系统?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub mnuModifyUser_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuModifyUser.Click
        Me.strProgramName = "ModifyUser"
        If Not CheckAuthority(strProgramName) Then
            MessageBox.Show("您无执行本程序的权限!", "权限检查", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim frmModifyUser As New frmModifyUser
        frmModifyUser.ShowDialog()

    End Sub

    Private Sub mnuModifyPassword_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuModifyPassword.Click
        Me.strProgramName = "ModifyPassword"
        If Not CheckAuthority(strProgramName) Then
            MessageBox.Show("您无执行本程序的权限!", "权限检查", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim frmmodifypassword As New frmModifyPassword
        frmmodifypassword.ShowDialog()

    End Sub

    Private Sub ModifyAuthority_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ModifyAuthority.Click
        Me.strProgramName = "ModifyAuthority"
        If Not CheckAuthority(strProgramName) Then
            MessageBox.Show("您无执行本程序的权限!", "权限检查", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim frmmodifyauthority As New frmModifyAuthority
        frmmodifyauthority.ShowDialog()

    End Sub

    Private Sub mnuRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRegister.Click
        Me.strProgramName = "CustomerRegister"
        If Not CheckAuthority(strProgramName) Then
            MessageBox.Show("您无执行本程序的权限!", "权限检查", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim frmcustomerregister As New frmCustomerRegister
        frmcustomerregister.ShowDialog()
    End Sub


End Class