form7.vb

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

        Me.Button2.TabIndex = 1
        Me.Button2.Text = "查  看"
        '
        'DataGrid1
        '
        Me.DataGrid1.BackgroundColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.CaptionBackColor = System.Drawing.SystemColors.ControlDarkDark
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(24, 40)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(472, 176)
        Me.DataGrid1.TabIndex = 0
        '
        '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=""URES-884C196607"";packet size=4096;integrated security=SSPI;initia" & _
        "l 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")
        '
        'Form7
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 342)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form7"
        Me.Text = "Form7"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      

        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11, "职工表")
        DataGrid2.SetDataBinding(DataSet11, "职工表")
        Dim dv As DataView = New DataView(DataSet11.Tables("职工表"))
        If ComboBox1.SelectedItem = "编号" Then

            Dim t As String = TextBox1.Text
            Dim t1 As String = "'"
            Dim t2 As String = "'"
            dv.RowFilter = "编号=" & t1 & t & t2
        End If

        If ComboBox1.SelectedItem = "姓名" Then

            Dim t As String = TextBox1.Text
            Dim t1 As String = "'"
            Dim t2 As String = "'"
            dv.RowFilter = "姓名=" & t1 & t & t2
        End If

        If ComboBox1.SelectedItem = "性别" Then

            Dim t As String = TextBox1.Text
            Dim t1 As String = "'"
            Dim t2 As String = "'"
            dv.RowFilter = "性别=" & t1 & t & t2
        End If

        DataGrid2.SetDataBinding(dv, "")
    End Sub

    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11, "职工表")
        DataGrid1.SetDataBinding(DataSet11, "职工表")
        Dim dv As DataView = New DataView(DataSet11.Tables("职工表"))
        DataGrid1.SetDataBinding(dv, "")
    End Sub

    Private Sub TabControl1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

    End Sub
End Class