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

本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。

本文链接：https://blog.csdn.net/UruseiBest/article/details/120028135

本文介绍了一个使用VB.NET编写的个人信息查询系统，该系统能够展示用户的基本信息，包括账号、申请时间、真实姓名和身份证号码，并统计用户录入的题目和试卷数量。代码示例展示了如何从数据库中读取数据并显示在窗体上，对于C#开发者也有参考价值。

摘要由CSDN通过智能技术生成

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

窗体设计如下：

图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 教程目录