mainform.vb

这是一个人事工资管理系统

        MyDlg.label1.Text = Me.MySlogan
        MyDlg.ShowDialog()
    End Sub

    Private Sub 退出系统EToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统EToolStripMenuItem.Click, 退出系统ToolStripButton.Click
        If (MessageBox.Show("您确定现在退出本系统吗？", "信息提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Then
            Me.Close()
        End If
    End Sub
    Private MyBgPhoto As String
    Private MyAddress As String
    Private MyTel As String
    Private MyCode As String
    Private MyWeb As String
    Private MySlogan As String
    Private MyBgPhotoShow As String
    Private MyOperator As String
    Private MyCompany As String
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '添加ThreadException事件关联程序
        AddHandler Application.ThreadException, AddressOf MyThreadException
        '从公司信息数据表中读取基本信息
        GetCompanyInformation()
        '显示登录对话框
        Dim MyDlg As New LoginForm()
        MyDlg.Text = "欢迎使用" + MySlogan
        MyDlg.ShowDialog(Me)
        Me.MyOperator = MyDlg.用户名称TextBox.Text
        '根据用户的操作权限配置系统菜单
        SetUserOperateMenu()
        '最大化显示系统主窗体
        If (MyOperator.Length > 0) Then
            Me.WindowState = FormWindowState.Maximized
        End If
        '设置系统背景图像信息
        Me.BackgroundImage = New Bitmap(Me.MyBgPhotoShow, True)
        '设置系统标题栏显示文字
        Me.Text = MySlogan
    End Sub
    '系统异常处理代码
    Public Sub MyThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
        Dim MyInfo As String = "错误名称：" + e.Exception.Source + "，错误信息：" + e.Exception.Message
        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Protected Overrides Sub WndProc(ByRef SystemMessage As Message)
        If SystemMessage.Msg = 274 Then
            If ((SystemMessage.WParam) = 61536) Then
                退出系统EToolStripMenuItem_Click(Nothing, Nothing)
            Else
                MyBase.WndProc(SystemMessage)
            End If
        Else
            MyBase.WndProc(SystemMessage)
        End If
    End Sub
    '从公司信息数据表中读取基本信息
    Public Sub GetCompanyInformation()
        Dim MySQLConnectionString As String = My.Settings.MyPersonnelConnectionString
        Dim MySQL As String = "Select  *  From 公司信息 Where 显示优先级=1"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyTable)
        MyBgPhoto = Application.StartupPath + "\Data\" + MyTable.Rows(0)("管理系统背景照片")
        MyAddress = MyTable.Rows(0)("公司地址")
        MyTel = MyTable.Rows(0)("服务电话")
        MyCode = MyTable.Rows(0)("邮政编码")
        MyWeb = MyTable.Rows(0)("公司网站")
        MySlogan = MyTable.Rows(0)("管理系统显示名称")
        MyCompany = MyTable.Rows(0)("公司名称")
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        MyBgPhotoShow = Application.StartupPath + "\Data\Show" + MyTable.Rows(0)("管理系统背景照片")
    End Sub
    '根据用户的操作权限配置系统菜单
    Public Sub SetUserOperateMenu()
        Dim MySQLConnectionString As String = My.Settings.MyPersonnelConnectionString
        Dim MySQL As String = "Select  *  From 操作用户 Where 用户名称='" + Me.MyOperator + "'"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyTable)
        If (MyTable.Rows(0)("人事管理之基本档案") = 0) Then
            Me.基本档案ToolStripMenuItem.Visible = False
            Me.基本档案ToolStripSeparator.Visible = False
            Me.基本档案ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之家庭成员") = 0) Then
            Me.家庭成员ToolStripMenuItem.Visible = False
            Me.家庭成员ToolStripSeparator.Visible = False
            Me.家庭成员ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之工作简历") = 0) Then
            Me.工作简历ToolStripMenuItem.Visible = False
            Me.工作简历ToolStripSeparator.Visible = False
            Me.工作简历ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之奖惩记录") = 0) Then
            Me.奖惩记录ToolStripMenuItem.Visible = False
            Me.奖惩记录ToolStripSeparator.Visible = False
            Me.奖惩记录ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之培训记录") = 0) Then
            Me.培训记录ToolStripMenuItem.Visible = False
            Me.培训记录ToolStripSeparator.Visible = False
            Me.培训记录ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之工作业绩") = 0) Then
            Me.工作业绩ToolStripMenuItem.Visible = False
            Me.工作业绩ToolStripSeparator.Visible = False
            Me.工作业绩ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("人事管理之离职管理") = 0) Then
            Me.离职管理ToolStripMenuItem.Visible = False
            Me.工作业绩ToolStripSeparator.Visible = False
            Me.离职管理ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("考勤管理之月度部门考勤") = 0) Then
            Me.月度部门考勤ToolStripMenuItem.Visible = False
            Me.月度部门考勤ToolStripSeparator.Visible = False
            Me.部门考勤ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("考勤管理之年度个人考勤") = 0) Then
            Me.年度个人考勤ToolStripMenuItem.Visible = False
            Me.月度部门考勤ToolStripSeparator.Visible = False
            Me.个人考勤ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("工资管理之工资核算") = 0) Then
            Me.工资核算ToolStripMenuItem.Visible = False
            Me.工资核算ToolStripSeparator.Visible = False
            Me.工资核算ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("工资管理之工资发放") = 0) Then
            Me.工资发放ToolStripMenuItem.Visible = False
            Me.工资核算ToolStripSeparator.Visible = False
            Me.工资发放ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("查询管理之个人员工档案") = 0) Then
            Me.个人员工档案ToolStripMenuItem.Visible = False
            Me.个人员工档案ToolStripSeparator.Visible = False
            Me.个人档案ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("查询管理之部门员工档案") = 0) Then
            Me.部门员工档案ToolStripMenuItem.Visible = False
            Me.部门员工档案ToolStripSeparator.Visible = False
            Me.部门档案ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("查询管理之全部考勤记录") = 0) Then
            Me.全部考勤记录ToolStripMenuItem.Visible = False
            Me.全部考勤记录ToolStripSeparator.Visible = False
            Me.考勤记录ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("查询管理之全部工资信息") = 0) Then
            Me.全部工资信息ToolStripMenuItem.Visible = False
            Me.全部考勤记录ToolStripSeparator.Visible = False
            Me.工资信息ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之操作权限设置") = 0) Then
            Me.操作权限设置ToolStripMenuItem.Visible = False
            Me.操作权限设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之修改用户密码") = 0) Then
            Me.修改用户密码ToolStripMenuItem.Visible = False
            Me.修改用户密码ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之公司信息设置") = 0) Then
            Me.公司信息设置ToolStripMenuItem.Visible = False
            Me.公司信息设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之公司部门设置") = 0) Then
            Me.公司部门设置ToolStripMenuItem.Visible = False
            Me.公司部门设置ToolStripSeparator.Visible = False
        End If
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
End Class