form3.vb

VB 人事管理系统 能够为管理人员提供充足的信息和快捷的查询手段

        Me.DataGrid1.TabIndex = 5
        '
        'Button2
        '
        Me.Button2.BackColor = System.Drawing.SystemColors.ControlText
        Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button2.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Button2.Location = New System.Drawing.Point(328, 272)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(112, 40)
        Me.Button2.TabIndex = 6
        Me.Button2.Text = "查看工龄信息"
        '
        'Button4
        '
        Me.Button4.BackColor = System.Drawing.SystemColors.ControlText
        Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Button4.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Button4.Location = New System.Drawing.Point(480, 272)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(104, 40)
        Me.Button4.TabIndex = 7
        Me.Button4.Text = "查看洗理费"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "职工表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("编号", "编号"), New System.Data.Common.DataColumnMapping("姓名", "姓名"), New System.Data.Common.DataColumnMapping("性别", "性别"), New System.Data.Common.DataColumnMapping("出生日期", "出生日期"), New System.Data.Common.DataColumnMapping("参加工作日期", "参加工作日期"), New System.Data.Common.DataColumnMapping("住址", "住址"), New System.Data.Common.DataColumnMapping("电话", "电话"), New System.Data.Common.DataColumnMapping("来自本单位的时间", "来自本单位的时间"), New System.Data.Common.DataColumnMapping("职称名", "职称名"), New System.Data.Common.DataColumnMapping("评定时间", "评定时间"), New System.Data.Common.DataColumnMapping("工龄年数", "工龄年数")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 职工表 WHERE (编号 = @Original_编号) AND (住址 = @Original_住址 OR @Original_住址 " & _
        "IS NULL AND 住址 IS NULL) AND (出生日期 = @Original_出生日期 OR @Original_出生日期 IS NULL AND" & _
        " 出生日期 IS NULL) AND (参加工作日期 = @Original_参加工作日期 OR @Original_参加工作日期 IS NULL AND 参加" & _
        "工作日期 IS NULL) AND (姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS NULL) AND" & _
        " (工龄年数 = @Original_工龄年数 OR @Original_工龄年数 IS NULL AND 工龄年数 IS NULL) AND (性别 = @O" & _
        "riginal_性别 OR @Original_性别 IS NULL AND 性别 IS NULL) AND (来自本单位的时间 = @Original_来自本" & _
        "单位的时间 OR @Original_来自本单位的时间 IS NULL AND 来自本单位的时间 IS NULL) AND (电话 = @Original_电话" & _
        " OR @Original_电话 IS NULL AND 电话 IS NULL) AND (职称名 = @Original_职称名 OR @Original_职" & _
        "称名 IS NULL AND 职称名 IS NULL) AND (评定时间 = @Original_评定时间 OR @Original_评定时间 IS NULL" & _
        " AND 评定时间 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_住址", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "住址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_出生日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "出生日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_参加工作日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "参加工作日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工龄年数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工龄年数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_来自本单位的时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "来自本单位的时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电话", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职称名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职称名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_评定时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "评定时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=FB60FF2059274FF;packet size=4096;integrated security=SSPI;initial " & _
        "catalog=人事管理系统;persist security info=False"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 职工表(编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数) VALU" & _
        "ES (@编号, @姓名, @性别, @出生日期, @参加工作日期, @住址, @电话, @来自本单位的时间, @职称名, @评定时间, @工龄年数); SEL" & _
        "ECT 编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数 FROM 职工表 WHERE (" & _
        "编号 = @编号)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号", System.Data.SqlDbType.VarChar, 50, "编号"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 50, "姓名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 10, "性别"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@出生日期", System.Data.SqlDbType.DateTime, 8, "出生日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参加工作日期", System.Data.SqlDbType.DateTime, 8, "参加工作日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@住址", System.Data.SqlDbType.VarChar, 50, "住址"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 50, "电话"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@来自本单位的时间", System.Data.SqlDbType.DateTime, 8, "来自本单位的时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@职称名", System.Data.SqlDbType.VarChar, 50, "职称名"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@评定时间", System.Data.SqlDbType.DateTime, 8, "评定时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数 FROM 职工表"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 职工表 SET 编号 = @编号, 姓名 = @姓名, 性别 = @性别, 出生日期 = @出生日期, 参加工作日期 = @参加工作日期, 住址 =" & _
        " @住址, 电话 = @电话, 来自本单位的时间 = @来自本单位的时间, 职称名 = @职称名, 评定时间 = @评定时间, 工龄年数 = @工龄年数 WHE" & _
        "RE (编号 = @Original_编号) AND (住址 = @Original_住址 OR @Original_住址 IS NULL AND 住址 IS " & _
        "NULL) AND (出生日期 = @Original_出生日期 OR @Original_出生日期 IS NULL AND 出生日期 IS NULL) AND" & _
        " (参加工作日期 = @Original_参加工作日期 OR @Original_参加工作日期 IS NULL AND 参加工作日期 IS NULL) AND " & _
        "(姓名 = @Original_姓名 OR @Original_姓名 IS NULL AND 姓名 IS NULL) AND (工龄年数 = @Original" & _
        "_工龄年数 OR @Original_工龄年数 IS NULL AND 工龄年数 IS NULL) AND (性别 = @Original_性别 OR @Ori" & _
        "ginal_性别 IS NULL AND 性别 IS NULL) AND (来自本单位的时间 = @Original_来自本单位的时间 OR @Original" & _
        "_来自本单位的时间 IS NULL AND 来自本单位的时间 IS NULL) AND (电话 = @Original_电话 OR @Original_电话 I" & _
        "S NULL AND 电话 IS NULL) AND (职称名 = @Original_职称名 OR @Original_职称名 IS NULL AND 职称名" & _
        " IS NULL) AND (评定时间 = @Original_评定时间 OR @Original_评定时间 IS NULL AND 评定时间 IS NULL)" & _
        "; SELECT 编号, 姓名, 性别, 出生日期, 参加工作日期, 住址, 电话, 来自本单位的时间, 职称名, 评定时间, 工龄年数 FROM 职工表 WH" & _
        "ERE (编号 = @编号)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@编号", System.Data.SqlDbType.VarChar, 50, "编号"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@姓名", System.Data.SqlDbType.VarChar, 50, "姓名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@性别", System.Data.SqlDbType.VarChar, 10, "性别"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@出生日期", System.Data.SqlDbType.DateTime, 8, "出生日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@参加工作日期", System.Data.SqlDbType.DateTime, 8, "参加工作日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@住址", System.Data.SqlDbType.VarChar, 50, "住址"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@电话", System.Data.SqlDbType.VarChar, 50, "电话"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@来自本单位的时间", System.Data.SqlDbType.DateTime, 8, "来自本单位的时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@职称名", System.Data.SqlDbType.VarChar, 50, "职称名"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@评定时间", System.Data.SqlDbType.DateTime, 8, "评定时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@工龄年数", System.Data.SqlDbType.Int, 4, "工龄年数"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_住址", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "住址", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_出生日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "出生日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_参加工作日期", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "参加工作日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_姓名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "姓名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_工龄年数", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "工龄年数", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_性别", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "性别", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_来自本单位的时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "来自本单位的时间", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_电话", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "电话", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_职称名", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "职称名", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_评定时间", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "评定时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'TextBox1
        '
        Me.TextBox1.AutoSize = False
        Me.TextBox1.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox1.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TextBox1.Location = New System.Drawing.Point(8, 216)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(120, 24)
        Me.TextBox1.TabIndex = 8
        Me.TextBox1.Text = ""
        '
        'SqlDataAdapter2
        '
        Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
        Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
        Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
        Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "职称表", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("职称名", "职称名"), New System.Data.Common.DataColumnMapping("工资级别", "工资级别"), New System.Data.Common.DataColumnMapping("基本工资", "基本工资"), New System.Data.Common.DataColumnMapping("职务补助", "职务补助"), New System.Data.Common.DataColumnMapping("房补", "房补")})})
        Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
        '
        'SqlDeleteCommand2
        '