form3.vb

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

        Me.Label3.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Font = New System.Drawing.Font("楷体_GB2312", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label3.Location = New System.Drawing.Point(160, 184)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(120, 16)
        Me.Label3.TabIndex = 11
        Me.Label3.Text = "请输入您的职称"
        '
        'TextBox3
        '
        Me.TextBox3.AutoSize = False
        Me.TextBox3.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox3.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TextBox3.Location = New System.Drawing.Point(328, 216)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(112, 24)
        Me.TextBox3.TabIndex = 12
        Me.TextBox3.Text = ""
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Font = New System.Drawing.Font("楷体_GB2312", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label4.Location = New System.Drawing.Point(320, 184)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(136, 16)
        Me.Label4.TabIndex = 13
        Me.Label4.Text = "请输入您的工龄年数"
        '
        'TextBox4
        '
        Me.TextBox4.AutoSize = False
        Me.TextBox4.BackColor = System.Drawing.SystemColors.ControlText
        Me.TextBox4.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.TextBox4.Location = New System.Drawing.Point(472, 216)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(112, 24)
        Me.TextBox4.TabIndex = 14
        Me.TextBox4.Text = ""
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Font = New System.Drawing.Font("楷体_GB2312", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.Label5.Location = New System.Drawing.Point(472, 184)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(120, 16)
        Me.Label5.TabIndex = 15
        Me.Label5.Text = "请输入您的性别"
        '
        'Form3
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(600, 326)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form3"
        Me.Text = "Form3"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim f113 As New Form1
        f113.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        DataSet11.Clear()
        SqlDataAdapter1.Fill(DataSet11, "职工表")
        DataGrid1.SetDataBinding(DataSet11, "职工表")
        Dim dv As DataView = New DataView(DataSet11.Tables("职工表"))
        Dim t As String = TextBox1.Text
        Dim t1 As String = "'"
        Dim t2 As String = "'"
        dv.RowFilter = "编号=" & t1 & t & t2
        DataGrid1.SetDataBinding(dv, "")

    

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataSet11.Clear()
        SqlDataAdapter2.Fill(DataSet11, "职称表")
        DataGrid1.SetDataBinding(DataSet11, "职称表")
        Dim dv As DataView = New DataView(DataSet11.Tables("职称表"))
        Dim t As String = TextBox2.Text
        Dim t1 As String = "'"
        Dim t2 As String = "'"
        dv.RowFilter = "职称名=" & t1 & t & t2
        DataGrid1.SetDataBinding(dv, "")

      
    End Sub

    Private Sub OleDbDataAdapter2_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs)

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        DataSet11.Clear()
        SqlDataAdapter3.Fill(DataSet11, "工龄表")
        DataGrid1.SetDataBinding(DataSet11, "工龄表")
        Dim dv As DataView = New DataView(DataSet11.Tables("工龄表"))
        Dim t As String = TextBox3.Text
        Dim t1 As String = "'"
        Dim t2 As String = "'"
        dv.RowFilter = "工龄年数=" & t1 & t & t2
        DataGrid1.SetDataBinding(dv, "")

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        DataSet11.Clear()
        SqlDataAdapter4.Fill(DataSet11, "洗理费")
        DataGrid1.SetDataBinding(DataSet11, "洗理费")
        Dim dv As DataView = New DataView(DataSet11.Tables("洗理费"))
        Dim t As String = TextBox4.Text
        Dim t1 As String = "'"
        Dim t2 As String = "'"
        dv.RowFilter = "性别=" & t1 & t & t2
        DataGrid1.SetDataBinding(dv, "")


    End Sub
End Class