开发实践教程1：试卷生成系统6.21 用户信息（FormSelfInfo）

Posted 2021-09-15 VB.Net

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

查看自己的信息，包括对自己设计的题目和试卷的简单统计，读者可以根据需要增加更多内容。

窗体设计如下：

图1-31

具体代码如下：

Imports System.Data.SqlClient

Public Class FormSelfInfo


    Private Sub FormSelfInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim connection As SqlConnection

        connection = New SqlConnection(databaseConnString)
        connection.Open()

        Dim command As New SqlCommand()
        command.Connection = connection
        command.CommandText = "select 账号,申请时间,真实姓名,身份证号码,审核时间 from 用户表 where 编号=" & loginId

        Dim sqlReader As SqlDataReader
        sqlReader = command.ExecuteReader(CommandBehavior.SingleRow)
        If sqlReader.HasRows Then
            sqlReader.Read()
            lblName.Text = sqlReader(0).ToString
            lblTrueName.Text = sqlReader(2).ToString
            lblNumber.Text = sqlReader(3).ToString
            lblApplyTime.Text = sqlReader(1).ToString
            lblPassTime.Text = sqlReader(4).ToString
        End If
        sqlReader.Close()

        command.CommandText = "select count(*) from 题表 where 录入人ID=" & loginId
        sqlReader = command.ExecuteReader(CommandBehavior.SingleResult)
        If sqlReader.HasRows Then
            sqlReader.Read()
            lblExamCount.Text = sqlReader(0) & "个"
        End If
        sqlReader.Close()

        command.CommandText = "select count(*) from 用户试卷表 where 录入人ID=" & loginId
        sqlReader = command.ExecuteReader(CommandBehavior.SingleResult)
        If sqlReader.HasRows Then
            sqlReader.Read()
            lblPaperCount.Text = sqlReader(0) & "个"
        End If
        sqlReader.Close()

    End Sub

    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

End Class

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程 目录