mainform.vb

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

Imports System.Data.SqlClient
Imports System.Text
Public Class MainForm

    Private Sub 基本档案ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 基本档案ToolStripMenuItem.Click, 基本档案ToolStripButton.Click
        Dim MyDlg As New PersonnelForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 家庭成员ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 家庭成员ToolStripMenuItem.Click, 家庭成员ToolStripButton.Click
        Dim MyDlg As New FamilyForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 工作简历ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工作简历ToolStripMenuItem.Click, 工作简历ToolStripButton.Click
        Dim MyDlg As New ResumeForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 奖惩记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 奖惩记录ToolStripMenuItem.Click, 奖惩记录ToolStripButton.Click
        Dim MyDlg As New RewardsForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 培训记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 培训记录ToolStripMenuItem.Click, 培训记录ToolStripButton.Click
        Dim MyDlg As New TrainingForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 工作业绩ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工作业绩ToolStripMenuItem.Click, 工作业绩ToolStripButton.Click
        Dim MyDlg As New ArchievementForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 离职管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 离职管理ToolStripMenuItem.Click, 离职管理ToolStripButton.Click
        Dim MyDlg As New LeaveForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 月度部门考勤ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 月度部门考勤ToolStripMenuItem.Click, 部门考勤ToolStripButton.Click
        Dim MyDlg As New CheckForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 年度个人考勤ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 年度个人考勤ToolStripMenuItem.Click, 个人考勤ToolStripButton.Click
        Dim MyDlg As New QueryCheckForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 工资核算ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资核算ToolStripMenuItem.Click, 工资核算ToolStripButton.Click
        Dim MyDlg As New ComputeForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 工资发放ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 工资发放ToolStripMenuItem.Click, 工资发放ToolStripButton.Click
        Dim MyDlg As New PayForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 个人员工档案ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 个人员工档案ToolStripMenuItem.Click, 个人档案ToolStripButton.Click
        Dim MyDlg As New QueryPersonnelForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 部门员工档案ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 部门员工档案ToolStripMenuItem.Click, 部门档案ToolStripButton.Click
        Dim MyDlg As New QueryDepartmentForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 全部考勤记录ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全部考勤记录ToolStripMenuItem.Click, 考勤记录ToolStripButton.Click
        Dim MyDlg As New QueryAllCheckForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 全部工资信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全部工资信息ToolStripMenuItem.Click, 工资信息ToolStripButton.Click
        Dim MyDlg As New QueryPayForm()
        MyDlg.MyCompany = Me.MyCompany
        MyDlg.ShowDialog()
    End Sub

    Private Sub 操作权限设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 操作权限设置ToolStripMenuItem.Click
        Dim MyDlg As New OperatorForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 修改用户密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改用户密码ToolStripMenuItem.Click
        Dim MyDlg As New ChangeUserPasswordForm()
        MyDlg.用户名称TextBox.Text = Me.MyOperator
        MyDlg.ShowDialog()
    End Sub

    Private Sub 公司信息设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 公司信息设置ToolStripMenuItem.Click
        Dim MyDlg As New CompanyForm()
        MyDlg.ShowDialog()
        Dim MyTempPath As New StringBuilder(Me.MyBgPhotoShow)
        Me.GetCompanyInformation()
        '生成系统背景图像
        If (Not System.IO.File.Exists(MyBgPhotoShow)) Then
            Dim MyImage As New Bitmap(MyBgPhoto, True)
            Dim PosX As Integer = 10
            Dim PosY As Integer = MyImage.Height / 2 + 150
            Dim MyFont As Integer = 150
            Dim bMyFound As Boolean = False
            Dim MyWidth As Integer = MyImage.Width
            Dim MyHeight As Integer = MyImage.Height
            Dim MySize As Integer = MyWidth * MyHeight
            Dim MyPattern As New Bitmap(MyWidth, MyHeight)
            Dim MyBitmap As New Bitmap(MyImage)
            Dim g As Graphics = Graphics.FromImage(MyPattern)
            Dim MyGraphics As Graphics = Graphics.FromImage(MyImage)
            g.Clear(Color.White)
            While (bMyFound = False)
                Dim NewFont As New Font("宋体", MyFont, FontStyle.Bold)
                Dim MyString As New SizeF(MyWidth, MyHeight)
                MyString = g.MeasureString(MySlogan, NewFont)
                If (MyString.Width < MyPattern.Width) Then
                    If (MyString.Height < MyPattern.Height) Then
                        bMyFound = True
                        g.DrawString(MySlogan, NewFont, New SolidBrush(Color.Black), PosX, PosY)
                    End If
                Else
                    MyFont = MyFont - 1
                End If
            End While
            For x As Integer = 1 To MyPattern.Width - 1 Step 1
                For y As Integer = 1 To MyPattern.Height - 1 Step 1
                    Dim a, re, gr, bl, x1, y1, z1 As Integer
                    If (MyPattern.GetPixel(x, y).ToArgb() = Color.Black.ToArgb()) Then
                        a = MyBitmap.GetPixel(x, y).A
                        re = MyBitmap.GetPixel(x, y).R
                        gr = MyBitmap.GetPixel(x, y).G
                        bl = MyBitmap.GetPixel(x, y).B
                        x1 = re
                        y1 = gr
                        z1 = bl
                        If (bl + 25 < 255) Then
                            bl = bl + 25
                        End If
                        If (gr + 25 < 255) Then
                            gr = gr + 25
                        End If
                        If (re + 25 < 255) Then
                            re = re + 25
                        End If
                        If (x1 - 25 > 0) Then
                            x1 = x1 - 25
                        End If
                        If (y1 - 25 > 0) Then
                            y1 = y1 - 25
                        End If
                        If (z1 - 25 > 0) Then
                            z1 = z1 - 25
                        End If
                        MyGraphics.DrawEllipse(New Pen(New SolidBrush(Color.Black)), x, y + 1, 3, 3)
                        MyGraphics.DrawEllipse(New Pen(New SolidBrush(Color.FromArgb(a, x1, y1, z1))), x, y, 1, 1)
                    End If
                Next
            Next
            MyGraphics.DrawString("公司地址：" + MyAddress, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 60)
            MyGraphics.DrawString("服务电话：" + MyTel, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 80)
            MyGraphics.DrawString("公司网站：" + MyWeb, New Font("宋体", 12, FontStyle.Regular), New SolidBrush(Color.Yellow), 10, 100)
            MyImage.Save(MyBgPhotoShow, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
        Me.BackgroundImage = New Bitmap(Me.MyBgPhotoShow, True)
        Me.Text = MySlogan
    End Sub

    Private Sub 公司部门设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 公司部门设置ToolStripMenuItem.Click
        Dim MyDlg As New DepartmentForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 系统帮助信息HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系统帮助信息HToolStripMenuItem.Click
        Dim MyDlg As New VersionForm()