mainform.vb

公司的人事变动,人事基本信息,人事的管理

Public Class MainForm
    Inherits System.Windows.Forms.Form

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

    Public Sub New()
        MyBase.New()

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

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

    End Sub

    '窗体重写处置以清理组件列表。
    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 Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents ListView1 As System.Windows.Forms.ListView
    Friend WithEvents MenuItem表 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuItem用户信息 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuItem联系方式 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuItem奖惩情况 As System.Windows.Forms.MenuItem
    Friend WithEvents MnuItem人事变动 As System.Windows.Forms.MenuItem
    Friend WithEvents Menu记录跳转 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem指定记录号 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem指定筛选条件 As System.Windows.Forms.MenuItem
    Friend WithEvents Menu编辑 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem添加 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem删除 As System.Windows.Forms.MenuItem
    Friend WithEvents Menu注册 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem注销 As System.Windows.Forms.MenuItem
    Public WithEvents TreeView1 As System.Windows.Forms.TreeView
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem表 = New System.Windows.Forms.MenuItem()
        Me.MnuItem用户信息 = New System.Windows.Forms.MenuItem()
        Me.MnuItem联系方式 = New System.Windows.Forms.MenuItem()
        Me.MnuItem奖惩情况 = New System.Windows.Forms.MenuItem()
        Me.MnuItem人事变动 = New System.Windows.Forms.MenuItem()
        Me.Menu记录跳转 = New System.Windows.Forms.MenuItem()
        Me.MenuItem指定记录号 = New System.Windows.Forms.MenuItem()
        Me.MenuItem指定筛选条件 = New System.Windows.Forms.MenuItem()
        Me.Menu编辑 = New System.Windows.Forms.MenuItem()
        Me.MenuItem添加 = New System.Windows.Forms.MenuItem()
        Me.MenuItem删除 = New System.Windows.Forms.MenuItem()
        Me.Menu注册 = New System.Windows.Forms.MenuItem()
        Me.MenuItem注销 = New System.Windows.Forms.MenuItem()
        Me.TreeView1 = New System.Windows.Forms.TreeView()
        Me.Splitter1 = New System.Windows.Forms.Splitter()
        Me.ListView1 = New System.Windows.Forms.ListView()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem表, Me.Menu记录跳转, Me.Menu编辑, Me.Menu注册})
        '
        'MenuItem表
        '
        Me.MenuItem表.Index = 0
        Me.MenuItem表.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuItem用户信息, Me.MnuItem联系方式, Me.MnuItem奖惩情况, Me.MnuItem人事变动})
        Me.MenuItem表.Text = "表"
        '
        'MnuItem用户信息
        '
        Me.MnuItem用户信息.Index = 0
        Me.MnuItem用户信息.Text = "显示用户信息"
        '
        'MnuItem联系方式
        '
        Me.MnuItem联系方式.Index = 1
        Me.MnuItem联系方式.Text = "显示联系方式"
        '
        'MnuItem奖惩情况
        '
        Me.MnuItem奖惩情况.Index = 2
        Me.MnuItem奖惩情况.Text = "显示奖惩情况"
        '
        'MnuItem人事变动
        '
        Me.MnuItem人事变动.Index = 3
        Me.MnuItem人事变动.Text = "显示人事变动"
        '
        'Menu记录跳转
        '
        Me.Menu记录跳转.Index = 1
        Me.Menu记录跳转.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem指定记录号, Me.MenuItem指定筛选条件})
        Me.Menu记录跳转.Text = "记录跳转"
        '
        'MenuItem指定记录号
        '
        Me.MenuItem指定记录号.Index = 0
        Me.MenuItem指定记录号.Text = "指定记录号"
        '
        'MenuItem指定筛选条件
        '
        Me.MenuItem指定筛选条件.Index = 1
        Me.MenuItem指定筛选条件.Text = "指定筛选条件"
        '
        'Menu编辑
        '
        Me.Menu编辑.Index = 2
        Me.Menu编辑.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem添加, Me.MenuItem删除})
        Me.Menu编辑.Text = "编辑"
        '
        'MenuItem添加
        '
        Me.MenuItem添加.Index = 0
        Me.MenuItem添加.Text = "添加"
        '
        'MenuItem删除
        '
        Me.MenuItem删除.Index = 1
        Me.MenuItem删除.Text = "删除"
        '
        'Menu注册
        '
        Me.Menu注册.Index = 3
        Me.Menu注册.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem注销})
        Me.Menu注册.Text = "注册"
        '
        'MenuItem注销
        '
        Me.MenuItem注销.Index = 0
        Me.MenuItem注销.Text = "注销"
        '
        'TreeView1
        '
        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.TreeView1.HideSelection = False
        Me.TreeView1.ImageIndex = -1
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.SelectedImageIndex = -1
        Me.TreeView1.Size = New System.Drawing.Size(121, 325)
        Me.TreeView1.TabIndex = 0
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(121, 0)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(6, 325)
        Me.Splitter1.TabIndex = 2
        Me.Splitter1.TabStop = False
        '
        'ListView1
        '
        Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListView1.FullRowSelect = True
        Me.ListView1.Location = New System.Drawing.Point(127, 0)
        Me.ListView1.MultiSelect = False
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(273, 325)
        Me.ListView1.TabIndex = 3
        Me.ListView1.View = System.Windows.Forms.View.Details
        '
        'MainForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(400, 325)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ListView1, Me.Splitter1, Me.TreeView1})
        Me.Menu = Me.MainMenu1
        Me.Name = "MainForm"
        Me.Text = "MainForm"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not MyRs.State = ADODB.ObjectStateEnum.adStateClosed Then
            MyRs.Close()
        End If
        '如果在窗体Login中创建的Recordset对象没有关闭
        '关闭该对象

        If User权限 = "系统管理员" Then
            Me.MnuItem用户信息.Visible = True
            Me.Menu编辑.Visible = True
        ElseIf User权限 = "操作员" Then
            Me.MnuItem用户信息.Visible = False
            Me.Menu编辑.Visible = True
        ElseIf User权限 = "普通用户" Then
            Me.MnuItem用户信息.Visible = False
            Me.Menu编辑.Visible = False
        End If

        MyRs.Open("Select * From 职工信息 Order By 编号", MyCnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
        MyRs.MoveFirst()
        '打开记录集，并移动到第一条记录
        Me.ListView1.Clear()
        '清空ListView1控件中的项

        Dim i As Integer
        For i = 0 To MyRs.RecordCount - 1
            Me.TreeView1.Nodes.Add(MyRs.Fields(1).Value.ToString + MyRs.Fields(2).Value.ToString)
            MyRs.MoveNext()
        Next
    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim i As Integer
        '定义一个整型变量用于For循环的计数
        Dim list As Windows.Forms.ListViewItem
        '定义一个ListViewItem对象变量

        Me.ListView1.Clear()
        Me.ListView1.Columns.Add("字段", 80, HorizontalAlignment.Left)
        Me.ListView1.Columns.Add("值", 80, HorizontalAlignment.Left)
        '为ListView1添加列并设置列名
        '共添加了两个，名称为“字段”和“值”