form4.vb

教师管理系统

        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "扣款"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(80, 104)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(88, 21)
        Me.TextBox10.TabIndex = 39
        Me.TextBox10.Text = "TextBox10"
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(80, 64)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.Size = New System.Drawing.Size(88, 21)
        Me.TextBox9.TabIndex = 38
        Me.TextBox9.Text = "TextBox9"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(80, 24)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(88, 21)
        Me.TextBox8.TabIndex = 37
        Me.TextBox8.Text = "TextBox8"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 104)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 24)
        Me.Label10.TabIndex = 36
        Me.Label10.Text = "住房公积"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(8, 64)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 24)
        Me.Label9.TabIndex = 35
        Me.Label9.Text = "养老保险"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 24)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 24)
        Me.Label8.TabIndex = 34
        Me.Label8.Text = "医疗保险"
        '
        'txtAllsalary
        '
        Me.txtAllsalary.Controls.Add(Me.TextBox11)
        Me.txtAllsalary.Location = New System.Drawing.Point(216, 168)
        Me.txtAllsalary.Name = "txtAllsalary"
        Me.txtAllsalary.Size = New System.Drawing.Size(216, 80)
        Me.txtAllsalary.TabIndex = 11
        Me.txtAllsalary.TabStop = False
        Me.txtAllsalary.Text = "实发工资"
        '
        'TextBox11
        '
        Me.TextBox11.Location = New System.Drawing.Point(24, 32)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.Size = New System.Drawing.Size(168, 21)
        Me.TextBox11.TabIndex = 35
        Me.TextBox11.Text = "TextBox11"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(40, 320)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(64, 24)
        Me.Button1.TabIndex = 23
        Me.Button1.Text = "更新"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(128, 320)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(64, 24)
        Me.Button2.TabIndex = 24
        Me.Button2.Text = "前一条"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(224, 320)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(64, 24)
        Me.Button3.TabIndex = 25
        Me.Button3.Text = "后一条"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(312, 320)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(64, 24)
        Me.Button4.TabIndex = 26
        Me.Button4.Text = "退出 "
        '
        'frmtechsal
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(544, 352)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.txtAllsalary)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.txtID)
        Me.Name = "frmtechsal"
        Me.Text = "教师工资情况表"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.txtAllsalary.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim sconnstring As String = "data source=(local);initial catalog=学校管理系统;integrated secury=sspi"
    Dim mycn As New SqlConnection
    Dim mydataAdapter As New SqlDataAdapter
    Dim mydataset As New DataSet
    Dim mysaldataset As New DataSet
    Dim mytable As New DataTable
    Dim mysaltable As New DataTable
    Dim icount As Integer
    Dim icurrentpos As Integer
    Sub pageload(ByVal strid As String)
        Dim mysql As String = "select * from 教师工资情况表 where(编号=" & strid & " ) "
        Dim mycommand As New SqlCommand(mysql, mycn)

        mydataAdapter.SelectCommand = mycommand
        mysaldataset.Clear()
        mydataAdapter.Fill(mysaldataset, "教师工资情况表")
        mysaltable = mysaldataset.Tables("教师工资情况表")
        If mysaltable.Rows.Count = 0 Then
            Dim drow As DataRow
            drow = mysaltable.NewRow
            mysaltable.Rows.Add(drow)
            mysaltable.Rows(0)("基本工资") = 0
            mysaltable.Rows(0)("工龄工资") = 0
            mysaltable.Rows(0)("全勤奖") = 0
            mysaltable.Rows(0)("生活补贴") = 0
            mysaltable.Rows(0)("课时补贴") = 0

        End If

        With mysaltable
            txtbasicsal.text = CStr(.Rows(0)("基本工资"))
            txtagesal.text = .Rows(0)("工龄工资")
            txtoutsal.text = .Rows(0)("全勤奖")
            txtallowancesal.Text = .Rows(0)("生活补贴")
            txtteachallowance.text = .Rows(0)("课时补贴")
            txtbasicsal.Text = .Rows(0)("基本工资") * 0.02
            txtbasicsal.Text = .Rows(0)("基本工资") * 0.03
            txtbasicsal.Text = .Rows(0)("基本工资") * 0.05
            txtAllsalary.text = .Rows(0)("基本工资") + .Rows(0)("工龄工资") + .Rows(0)("生活补贴") + .Rows(0)("课时补贴") + .Rows(0)("全勤奖") - .Rows(0)("基本工资") * 0.01

        End With

    End Sub

    Private Sub frmtechsal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            Dim strname As String
            mycn.ConnectionString = sconnstring
            mycn.Open()
            Dim mysql As String = "select * from 教师基本情况表"
            Dim mycommand As New SqlCommand(mysql, mycn)
            Dim mydataAdapter As New SqlDataAdapter
            mydataAdapter.SelectCommand = mycommand
            mydataset.Clear()
            mydataAdapter.Fill(mydataset, "教师基本情况表")
            mycn.Close()
            mytable = mydataset.Tables("教师基本情况表")
            txtID.text = mytable.Rows(0)("编号")
            txtName.text = mytable.Rows(0)("姓名")
            icurrentpos = 0
            icount = mytable.Rows.Count - 1
            pageload(txtID.text)


        Catch myinformation As SqlException
            MessageBox.Show(myinformation.Message)

        End Try

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            With mysaltable
                .Rows(0)("编号") = CStr(txtID.text)
                .Rows(0)("基本工资") = Trim(txtbasicsal.text)
                .Rows(0)("生活补贴") =trim(txtallowancesal.text))
                .Rows(0)("工龄工资") = trim(txtagesal.text))
                .Rows(0)("课时补贴") = Trim(txtteachallowance.text)
                .Rows(0)("全勤奖") = Trim(txtoutsal.text)
                
            End With
            mycn.ConnectionString = sconnstring
            mycn.Open()
            Dim myinscbuilder As New SqlCommandBuilder(mydataAdapter)
            mydataAdapter.InsertCommand = myinscbuilder.GetDeleteCommand
            Dim mygetcbuilder As New SqlCommandBuilder(mydataAdapter)
            mydataAdapter.Update(mysaldataset, "教师工资情况表")
            mycn.Close()
            MessageBox.Show("修改成功!!")


        Catch myinformation As SqlException
            MessageBox.Show(myinformation.Message)
            Exit Sub
        End Try


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Select Case sender.tag
            Case 0
                icurrentpos += 1
                If icurrentpos > icount - 1 Then icurrentpos = 0
            Case 1
                icurrentpos -= 1
                If icurrentpos > icount - 1 Then icurrentpos = 0
        End Select
        txtID.text = mytable.Rows(icurrentpos)("编号")
        txtName.text = mytable.Rows(icurrentpos)("姓名")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()

    End Sub

End Class