个人重构机房收费系统DataGridView显示用户信息

前端之家收集整理的这篇文章主要介绍了个人重构机房收费系统DataGridView显示用户信息前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

@H_502_1@ 在做机房收费系统的过程中,删除用户需要将数据库的表显示程序的窗体中,我使用的控件是DataGridView

@H_502_1@ 先说说我编写程序的思路把。

@H_502_1@ ①、将数据库T_UserInfo表中某些特定的字段信息读取出来

@H_502_1@ ②、将读取出来的数据添加DataGridView

@H_502_1@ PS:需要注意的是数据库中字段的名称不是你DataGridView想要显示的。比如:数据库表中的一个字段名称为:username,而我DataGridView显示的正好却是中文意思:用户姓名。

@H_502_1@下面是我的具体操作以及表和窗体的图。

@H_502_1@数据库表T_UserInfo 表:

@H_502_1@

@H_502_1@DAL层数据:其中D层的方法返回值类型为 DataTable。

@H_502_1@

    '验证 查看 用户的信息
    Public Function Querydeleteuser(user As Entity.LoginEntity) As DataTable Implements IDAL.IEditUser.Querydeleteuser
        '数据库连接字符串
        Dim str As String = "Data Source=192.168.24.76;Initial Catalog=Charge_System;uid=sa;Pwd=123456"
        Dim conn As New sqlConnection(str)
        conn.Open()
        '查看视图中 的数据 
        Dim sql As String = " select UserID  as 用户名,UserName as 姓名,Head as 开户人  from T_UserInfo where Level= '" & user.level & "'"



        '分别创建  DataAdapter 对象  DataSet 对象  和 DataTable 对象
        '初始化myAdapter
        Dim myAdapter As New sqlDataAdapter(sql,conn)
        Dim mySet As New DataSet
        Dim myTable As New DataTable

        '将查询结果表 标题定位“用户信息”,并将用户信息表传给 datatable 
        myAdapter.Fill(mySet,"用户信息")
        myTable = mySet.Tables("用户信息")
        '关闭数据库
        conn.Close()
        '返回 datatable 表
        Return myTable
    End Function

接下来只需要将DataTable传给UI 层使用就行。

@H_502_1@UI层:

@H_502_1@DataGridView.DataSource=myTable

@H_502_1@myTable为DLL 层返回的DataTable。

@H_502_1@结果显示

@H_502_1@

原文链接:https://www.f2er.com/vb/258684.html

猜你在找的VB相关文章