frmmodufystinfo.vb

是一套开发的VB的学生成绩管理系统,希望有需要的人去参考

        Me.btmodify.TabIndex = 0
        Me.btmodify.Text = "修改记录"
        '
        'txtsid
        '
        Me.txtsid.Location = New System.Drawing.Point(88, 16)
        Me.txtsid.Name = "txtsid"
        Me.txtsid.TabIndex = 11
        Me.txtsid.Text = ""
        '
        'txtname
        '
        Me.txtname.Location = New System.Drawing.Point(288, 16)
        Me.txtname.Name = "txtname"
        Me.txtname.TabIndex = 12
        Me.txtname.Text = ""
        '
        'txtborndate
        '
        Me.txtborndate.Location = New System.Drawing.Point(288, 48)
        Me.txtborndate.Name = "txtborndate"
        Me.txtborndate.TabIndex = 13
        Me.txtborndate.Text = ""
        '
        'txttel
        '
        Me.txttel.Location = New System.Drawing.Point(288, 80)
        Me.txttel.Name = "txttel"
        Me.txttel.TabIndex = 15
        Me.txttel.Text = ""
        '
        'txtrudate
        '
        Me.txtrudate.Location = New System.Drawing.Point(88, 112)
        Me.txtrudate.Name = "txtrudate"
        Me.txtrudate.TabIndex = 16
        Me.txtrudate.Text = ""
        '
        'txtaddress
        '
        Me.txtaddress.Location = New System.Drawing.Point(288, 112)
        Me.txtaddress.Name = "txtaddress"
        Me.txtaddress.TabIndex = 17
        Me.txtaddress.Text = ""
        '
        'txtcomment
        '
        Me.txtcomment.Location = New System.Drawing.Point(88, 144)
        Me.txtcomment.Name = "txtcomment"
        Me.txtcomment.TabIndex = 18
        Me.txtcomment.Text = ""
        '
        'combosex
        '
        Me.combosex.Location = New System.Drawing.Point(88, 48)
        Me.combosex.Name = "combosex"
        Me.combosex.Size = New System.Drawing.Size(40, 20)
        Me.combosex.TabIndex = 19
        '
        'comboclassno
        '
        Me.comboclassno.Location = New System.Drawing.Point(88, 80)
        Me.comboclassno.Name = "comboclassno"
        Me.comboclassno.Size = New System.Drawing.Size(64, 20)
        Me.comboclassno.TabIndex = 20
        '
        'frmmodufystinfo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(408, 325)
        Me.Controls.Add(Me.comboclassno)
        Me.Controls.Add(Me.combosex)
        Me.Controls.Add(Me.txtcomment)
        Me.Controls.Add(Me.txtaddress)
        Me.Controls.Add(Me.txtrudate)
        Me.Controls.Add(Me.txttel)
        Me.Controls.Add(Me.txtborndate)
        Me.Controls.Add(Me.txtname)
        Me.Controls.Add(Me.txtsid)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Name = "frmmodufystinfo"
        Me.Text = "frmmodufystinfo"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmmodufystinfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtsid.Enabled = False
        txtname.Enabled = False
        txtborndate.Enabled = False
        txttel.Enabled = False
        txtrudate.Enabled = False
        txtaddress.Enabled = False
        txtcomment.Enabled = False
        Combosex.Enabled = False
        Comboclassno.Enabled = False
        Dim tablename As String = "student"
        searchsql = "select * from student"
        Module1.executesql(searchsql, tablename)
        showdata()
    End Sub
    Private Sub showdata()
        Module1.myrow = Module1.mytable.Rows.Item(rownumber)
        txtsid.Text = Module1.myrow.Item(0).ToString
        txtname.Text = Module1.myrow.Item(1).ToString
        combosex.Text = Module1.myrow.Item(2).ToString
        txtborndate.Text = Module1.myrow.Item(3).ToString
        comboclassno.Text = Module1.myrow.Item(4).ToString
        txttel.Text = Module1.myrow.Item(5).ToString
        txtrudate.Text = Module1.myrow.Item(6).ToString
        txtaddress.Text = Module1.myrow.Item(7).ToString
        txtcomment.Text = Module1.myrow.Item(8).ToString
    End Sub

    Private Sub btfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfirst.Click
        rownumber = 0
        showdata()
    End Sub

    Private Sub btprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btprev.Click
        btnext.Enabled = True
        rownumber = rownumber - 1
        If rownumber < 0 Then
            rownumber = 0
            btprev.Enabled = False
        End If
        showdata()
    End Sub

    Private Sub btnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnext.Click
        btprev.Enabled = True
        rownumber = rownumber + 1
        If rownumber > Module1.mytable.Rows.Count - 1 Then
            rownumber = Module1.mytable.Rows.Count - 1
            btnext.Enabled = False
        End If
        showdata()
    End Sub

    Private Sub btlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlast.Click
        rownumber = Module1.mytable.Rows.Count - 1
        showdata()
    End Sub

    Private Sub btmodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmodify.Click
        txtsid.Enabled = False
        txtname.Enabled = True
        txtborndate.Enabled = True
        txttel.Enabled = True
        txtrudate.Enabled = True
        txtaddress.Enabled = True
        txtcomment.Enabled = True
        combosex.Enabled = True
        comboclassno.Enabled = True
    End Sub

    Private Sub btupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btupdate.Click
        If Not testtxt(txtname.Text) Then
            MsgBox("请输入姓名", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(combosex.Text) Then
            MsgBox("请输入性别", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(txtborndate.Text) Then
            MsgBox("请输入出生日期", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(comboclassno.Text) Then
            MsgBox("请输入班级", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(txttel.Text) Then
            MsgBox("请输入电话", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(txtrudate.Text) Then
            MsgBox("请输入入学日期", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(txtaddress.Text) Then
            MsgBox("请输入地址", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not testtxt(txtcomment.Text) Then
            MsgBox("请输入备注", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not IsNumeric(Trim(txttel.Text)) Then
            MsgBox("请输入数字!", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not IsDate(Trim(txtborndate.Text)) Then
            MsgBox("时间格式为(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告")
            Exit Sub
        End If
        If Not IsDate(Trim(txtrudate.Text)) Then
            MsgBox("时间格式为(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告")
            txtrudate.Focus()
            Exit Sub
        End If
        Module1.myrow.Item(0) = Trim(txtsid.Text)
        Module1.myrow.Item(1) = Trim(txtname.Text)
        Module1.myrow.Item(2) = Trim(combosex.Text)
        Module1.myrow.Item(3) = Trim(txtborndate.Text)
        Module1.myrow.Item(4) = Trim(comboclassno.Text)
        Module1.myrow.Item(5) = Trim(txttel.Text)
        Module1.myrow.Item(6) = Trim(txtrudate.Text)
        Module1.myrow.Item(7) = Trim(txtaddress.Text)
        Module1.myrow.Item(8) = Trim(txtcomment.Text)

        Module1.mytable.GetChanges()
        Module1.sqlcmd = New SqlCommandBuilder(Module1.sqladapter)
        Module1.sqladapter.UpdateCommand = Module1.sqlcmd.GetUpdateCommand
        Module1.sqladapter.Update(Module1.ds, "student")
        MsgBox("修改成功", vbOKOnly + vbExclamation, "警告")
    End Sub

    Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click
        txtsid.Enabled = False
        txtname.Enabled = False
        txtborndate.Enabled = False
        txttel.Enabled = False
        txtrudate.Enabled = False
        txtaddress.Enabled = False
        txtcomment.Enabled = False
        combosex.Enabled = False
        comboclassno.Enabled = False
    End Sub

    Private Sub btdelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btdelete.Click
        Module1.mytable.Rows.Item(rownumber).Delete()
        If MsgBox("确定要删除改记录吗？", MsgBoxStyle.OKCancel + vbExclamation, "警告") = MsgBoxResult.OK Then
            Module1.sqlcmd = New SqlCommandBuilder(Module1.sqladapter)
            Module1.sqladapter.Update(Module1.ds, "student")
            btnext.PerformClick()
        End If
    End Sub
End Class