VB.NET人力资源管理系统(程序下载)(5)

计算机毕业设计介绍：

4.3 人事管理模块设计
4.3.1 人事信息维护
人事信息管理模块设计主要包括对企业员工的管理。管理员通过相关按钮的使用可修改、删除、添加和更新部门信息。使用Connection对象与数据库建立连接后，可以使用Command对象来对数据源执行查询、插入、删除、更新等各种操作，操作实现的方式可以是使用SQL语句，也可以是使用存储过程，本设计使用的是SQL语句。
代码编写：
引用空间名称：
Imports System.Data.SqlClient
Imports 人力资源管理系统1._0.dbcon
Imports System.IO
Imports System.Drawing.Imaging
Imports System.Text
Public Class Frmyg
    Dim cm As New SqlCommand
    Dim da As New SqlDataAdapter
    Dim ds As New DataSet
    Dim dt As New DataGridView
    Dim picname As String = ""
    Dim opendlg As New OpenFileDialog
    Dim mycurrencymanger As CurrencyManager
    Private Sub My_postionChanged(ByVal sender As Object, ByVal e As EventArgs)
        If mycurrencymanger.Position > -1 Then
            With ds.Tables("tbrs").Rows
                Me.txtID.Text = .Item(mycurrencymanger.Position)("编号").ToString
                Me.txtname.Text = .Item(mycurrencymanger.Position)("姓名").ToString
                Me.cmbsex.Text = .Item(mycurrencymanger.Position)("性别").ToString
                Me.txtpsID.Text = .Item(mycurrencymanger.Position)("身份证号").ToString
                Me.dtpsr.Text = .Item(mycurrencymanger.Position)("出生年月").ToString
                Me.txtage.Text = .Item(mycurrencymanger.Position)("年龄").ToString
                Me.cmbmz.Text = .Item(mycurrencymanger.Position)("民族").ToString
                Me.cmbhy.Text = .Item(mycurrencymanger.Position)("婚姻状况").ToString
                Me.cmbzm.Text = .Item(mycurrencymanger.Position)("政治面貌").ToString
                Me.dtprddate.Text = .Item(mycurrencymanger.Position)("入党团时间").ToString
                Me.txtjg.Text = .Item(mycurrencymanger.Position)("籍贯").ToString
                Me.txtdianhua.Text = .Item(mycurrencymanger.Position)("联系电话").ToString
                Me.txtshouji.Text = .Item(mycurrencymanger.Position)("手机号码").ToString
                Me.txtzhuzhi.Text = .Item(mycurrencymanger.Position)("家庭地址").ToString
                Me.txtbyxx.Text = .Item(mycurrencymanger.Position)("毕业院校").ToString
                Me.txtzhuanye.Text = .Item(mycurrencymanger.Position)("专业").ToString
                Me.cmbxl.Text = .Item(mycurrencymanger.Position)("文化程度").ToString
                Me.txttc.Text = .Item(mycurrencymanger.Position)("特长").ToString
                Me.dtpgzsj.Text = .Item(mycurrencymanger.Position)("参加工作时间").ToString
                Me.txtgl.Text = .Item(mycurrencymanger.Position)("总工龄").ToString
                Me.lpic.Text = .Item(mycurrencymanger.Position)("照片").ToString
                Me.cbmbm.Text = .Item(mycurrencymanger.Position)("部门").ToString
                Me.cbmzw.Text = .Item(mycurrencymanger.Position)("职务").ToString

〖资料来源:计算机毕业论文 www.xiaoniu168.com〗

第6页为计算机毕业论文部分......