frmteacherpay.vb

师生情况管理系统

        Me.GroupBoxTeacherinfo.Enabled = False
        Me.GroupBoxTeacherinfo.Location = New System.Drawing.Point(6, 6)
        Me.GroupBoxTeacherinfo.Name = "GroupBoxTeacherinfo"
        Me.GroupBoxTeacherinfo.Size = New System.Drawing.Size(414, 144)
        Me.GroupBoxTeacherinfo.TabIndex = 0
        Me.GroupBoxTeacherinfo.TabStop = False
        Me.GroupBoxTeacherinfo.Text = "教师工资信息"
        '
        'TxtPlive
        '
        Me.TxtPlive.Location = New System.Drawing.Point(282, 65)
        Me.TxtPlive.Maximum = New Decimal(New Integer() {276447231, 23283, 0, 0})
        Me.TxtPlive.Minimum = New Decimal(New Integer() {276447231, 23283, 0, -2147483648})
        Me.TxtPlive.Name = "TxtPlive"
        Me.TxtPlive.TabIndex = 2
        '
        'LabTeacherID
        '
        Me.LabTeacherID.Location = New System.Drawing.Point(14, 28)
        Me.LabTeacherID.Name = "LabTeacherID"
        Me.LabTeacherID.Size = New System.Drawing.Size(56, 14)
        Me.LabTeacherID.TabIndex = 1
        Me.LabTeacherID.Text = "教师编号"
        '
        'TxtTeacherID
        '
        Me.TxtTeacherID.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.TxtTeacherID.Location = New System.Drawing.Point(82, 28)
        Me.TxtTeacherID.Name = "TxtTeacherID"
        Me.TxtTeacherID.ReadOnly = True
        Me.TxtTeacherID.TabIndex = 0
        Me.TxtTeacherID.Text = ""
        '
        'LabPlive
        '
        Me.LabPlive.Location = New System.Drawing.Point(216, 68)
        Me.LabPlive.Name = "LabPlive"
        Me.LabPlive.Size = New System.Drawing.Size(56, 14)
        Me.LabPlive.TabIndex = 1
        Me.LabPlive.Text = "生活补助"
        '
        'LabPbase
        '
        Me.LabPbase.Location = New System.Drawing.Point(14, 68)
        Me.LabPbase.Name = "LabPbase"
        Me.LabPbase.Size = New System.Drawing.Size(56, 14)
        Me.LabPbase.TabIndex = 1
        Me.LabPbase.Text = "基本工资"
        '
        'LabPallowance
        '
        Me.LabPallowance.Location = New System.Drawing.Point(14, 108)
        Me.LabPallowance.Name = "LabPallowance"
        Me.LabPallowance.Size = New System.Drawing.Size(56, 14)
        Me.LabPallowance.TabIndex = 1
        Me.LabPallowance.Text = "津    贴"
        '
        'LabPinsure
        '
        Me.LabPinsure.Location = New System.Drawing.Point(216, 108)
        Me.LabPinsure.Name = "LabPinsure"
        Me.LabPinsure.Size = New System.Drawing.Size(56, 14)
        Me.LabPinsure.TabIndex = 1
        Me.LabPinsure.Text = "保    险"
        '
        'TxtPbase
        '
        Me.TxtPbase.Location = New System.Drawing.Point(82, 65)
        Me.TxtPbase.Maximum = New Decimal(New Integer() {276447231, 23283, 0, 0})
        Me.TxtPbase.Minimum = New Decimal(New Integer() {276447231, 23283, 0, -2147483648})
        Me.TxtPbase.Name = "TxtPbase"
        Me.TxtPbase.TabIndex = 2
        '
        'TxtPallowance
        '
        Me.TxtPallowance.Location = New System.Drawing.Point(82, 105)
        Me.TxtPallowance.Maximum = New Decimal(New Integer() {276447231, 23283, 0, 0})
        Me.TxtPallowance.Minimum = New Decimal(New Integer() {276447231, 23283, 0, -2147483648})
        Me.TxtPallowance.Name = "TxtPallowance"
        Me.TxtPallowance.TabIndex = 2
        '
        'TxtPinsure
        '
        Me.TxtPinsure.Location = New System.Drawing.Point(282, 105)
        Me.TxtPinsure.Maximum = New Decimal(New Integer() {276447231, 23283, 0, 0})
        Me.TxtPinsure.Minimum = New Decimal(New Integer() {276447231, 23283, 0, -2147483648})
        Me.TxtPinsure.Name = "TxtPinsure"
        Me.TxtPinsure.TabIndex = 2
        '
        'TxtTeacherPayTatol
        '
        Me.TxtTeacherPayTatol.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.TxtTeacherPayTatol.Location = New System.Drawing.Point(234, 28)
        Me.TxtTeacherPayTatol.Name = "TxtTeacherPayTatol"
        Me.TxtTeacherPayTatol.ReadOnly = True
        Me.TxtTeacherPayTatol.Size = New System.Drawing.Size(166, 14)
        Me.TxtTeacherPayTatol.TabIndex = 0
        Me.TxtTeacherPayTatol.Text = ""
        '
        'FrmTeacherPay
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(660, 387)
        Me.Controls.Add(Me.GroupBoxTeacher)
        Me.Controls.Add(Me.Panel1)
        Me.Name = "FrmTeacherPay"
        Me.Text = "教师工资"
        Me.GroupBoxTeacher.ResumeLayout(False)
        CType(Me.DGVTeacherList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.GroupBoxOp.ResumeLayout(False)
        Me.GroupBoxTeacherinfo.ResumeLayout(False)
        CType(Me.TxtPlive, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TxtPbase, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TxtPallowance, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TxtPinsure, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private MyDataSet As New DataSet
    Private Da As SqlClient.SqlDataAdapter
    Private sql As String = "select TID,Pbase,Plive,Pallowance,Pinsure FROM TeacherPay"

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        GroupBoxTeacherinfo.Enabled = True
        BtnEdit.Enabled = False
        BtnSave.Enabled = True
        BtnCancel.Enabled = True
    End Sub

    Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(0) = TxtTeacherID.Text
        MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(1) = TxtPbase.Value
        MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(2) = TxtPlive.Value
        MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(3) = TxtPallowance.Value
        MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(4) = TxtPinsure.Value
        Da.Update(MyDataSet, "Pay")
        GroupBoxTeacherinfo.Enabled = False
        BtnEdit.Enabled = True
        BtnSave.Enabled = False
        BtnCancel.Enabled = False
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        GroupBoxTeacherinfo.Enabled = False
        BtnEdit.Enabled = True
        BtnSave.Enabled = False
        BtnCancel.Enabled = False
    End Sub

    Private Sub FrmTeacherPay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Con As New SqlClient.SqlConnection(FrmMain.DBCONN.DataConStr)
        Try
            Da = New SqlClient.SqlDataAdapter(sql, Con)
            Con.Open()
            Da.Fill(MyDataSet, "Pay")
            Dim MyCommandBuilder As New SqlClient.SqlCommandBuilder(Da)
            DGVTeacherList.DataSource = MyDataSet.Tables(0)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Con.Close()
        End Try
        If MyDataSet.Tables(0).Rows.Count > 0 Then
            TxtTeacherID.Text = MyDataSet.Tables(0).Rows(0).Item(0)
            TxtPbase.Value = MyDataSet.Tables(0).Rows(0).Item(1)
            TxtPlive.Value = MyDataSet.Tables(0).Rows(0).Item(2)
            TxtPallowance.Value = MyDataSet.Tables(0).Rows(0).Item(3)
            TxtPinsure.Value = MyDataSet.Tables(0).Rows(0).Item(4)
            TxtTeacherPayTatol.Text = "实发工资: " & TxtPbase.Value + TxtPlive.Value + +TxtPallowance.Value + TxtPinsure.Value & "￥"
        End If
    End Sub

    Private Sub DGVTeacherList_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DGVTeacherList.CurrentCellChanged
        TxtTeacherID.Text = MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(0)
        TxtPbase.Value = MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(1)
        TxtPlive.Value = MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(2)
        TxtPallowance.Value = MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(3)
        TxtPinsure.Value = MyDataSet.Tables(0).Rows(DGVTeacherList.CurrentCell.RowNumber).Item(4)
        TxtTeacherPayTatol.Text = "实发工资: " & TxtPbase.Value + TxtPlive.Value + +TxtPallowance.Value + TxtPinsure.Value & "￥"
    End Sub
End Class