VB.NET版机房收费系统之视图

时间:2022-08-08 13:55:52

         这次.NET版机房收费系统数据库设计遵循了三范式,变动最大的就是实现了学生和卡的分离,这样避免了非关键字对关键字的传递依赖,卡表中的卡号在学生表中作为一个外键,同样将卡和学生联系起来,不过这样分离以后问题也来了,比如想实现查询学生余额,有学生的信息,也有卡的信息,这样查询反而增添了麻烦,方法是伴随问题而来的,之前学数据库视频有听说过视图、存储过程、触发器,不过没有使用过,还是那句话,出来混迟早都要还的。

        视图很好的解决了多张表的查询问题,前提肯定是这些表之间都有联系,我理解的是通过一个公共字段将你需要的字段临时组成的一张虚拟表,它跟表的功能一样的,只不过是临时建立的。使用之后,会发现原来世界就是这么简单的。首先,选择使用数据库—视图—新建视图—选择涉及表,

VB.NET版机房收费系统之视图

然后添加需要字段,保存视图。

VB.NET版机房收费系统之视图

在代码实现中,要将试图当作一张表来处理,建立一个独立的实体,其他层代码和查询一张表是完全相同的,不过在DSQL语句中为查询视图,真是so easy

Imports System.Data.SqlClient
Imports ChargeEntity
'/*********************
'类名称:SsInquireCashDAL
'功能:
'命名空间:Charge.DAL
'作者:李立平
'小组:
'时间:2014/8/27 18:01:07
'版本号:v2.0.0

'**********************/
Public Class V_SsInquireCashDAL : Implements ChargeIDAL.IStuCardView
''' <summary>
''' 学生查看余额
''' </summary>
''' <param name="CardNo"></param>
''' <returns>视图学生卡实体</returns>
''' <remarks></remarks>
Public Function SsInquireCash(ByVal CardNo As String) As List(Of ChargeEntity.StuCardViewEntity) Implements ChargeIDAL.IStuCardView.SsInquireCash
Dim cmdText As String = "select * from V_SsInquireCash where cardNo = @cardNo" '和sql语句一样,只是现在是查询视图而不是表
Dim cmdType As CommandType = CommandType.Text '命令类型
Dim SqlHelper As New SqlHelper '实例化SqlHelper
Dim Parameter As SqlParameter()
Dim dt As DataTable
Dim mylist As List(Of ChargeEntity.StuCardViewEntity)

Parameter = {New SqlParameter("@cardNo", CardNo)} '传参
dt = SqlHelper.GetDataTable(cmdText, cmdType, Parameter) '调用SqlHelper类GetDataTable方法,并返回dt
mylist = EntityHelper.convertToList(Of ChargeEntity.StuCardViewEntity)(dt) '将dt转换为泛型集合
Return mylist

End Function
End Class

下面是效果:红色为学生信息,黑色为卡信息。

VB.NET版机房收费系统之视图

        当我们遇到问题时要想着如何让问题变得简单,这是一种态度,也是一种思维方式。