三层结构:实体层

原创 2004年06月23日 17:16:00

实体层类:

Imports System.Data
Imports System.Data.SqlClient
Imports Global_utility

Public Class DataBaseOperate
    Private StrSqlConn As String
    Private DbConn As SqlConnection

    Public Sub New()
        '构造函数
        MyBase.New()
        Dim gp As Global_params = New Global_params
        Dim ci As CONFIG_INFO = gp.Get_Params("g_info")
        Dim StrServername, StrUser, StrPwd As String
        StrServername = ci.SERVER_NAME
        StrUser = ci.USER_ID
        StrPwd = ci.PASSWORD
        StrSqlConn = "server=" & StrServername & ";Initial Catalog=XJOADATA;User Id=" & StrUser & ";Password=" & StrPwd & ";"
        DbConn = New SqlConnection(StrSqlConn)
    End Sub

    Public Function GetConnection() As SqlConnection
        Return DbConn
    End Function

    Public Function Read(ByVal StrTableName As String, ByVal StrField As String, ByVal StrParameter As String, ByVal StrField2 As String, ByVal StrParameter2 As String) As DataView
        '读取数据库中表StrTableName中字段StrField值等于StrParameter并且字段StrField2值等于StrParameter2的所有记录
        Dim DbComm As SqlDataAdapter
        Dim Ds As New DataSet
        Dim StrSql As String
        StrSql = "select * from " & StrTableName & " where " & StrField & " = '" & StrParameter & "'and " & StrField2 & " = '" & StrParameter2 & "'"
        DbComm = New SqlDataAdapter(StrSql, DbConn)
        DbConn.Open()
        DbComm.Fill(Ds, StrTableName)
        DbConn.Close()
        Return Ds.Tables(StrTableName).DefaultView
    End Function

    Public Function Delete(ByVal DbConnTran As SqlConnection, ByVal Tx As SqlTransaction, ByVal StrTableName As String, ByVal StrField As String, ByVal StrParameter As String, ByVal StrField2 As String, ByVal StrParameter2 As String) As Integer
        '读取数据库中表StrTableName中字段StrField值等于StrParameter并且字段StrField2值等于StrParameter2的所有记录
        Dim DbComm As SqlCommand
        Dim StrSql As String

        StrSql = "delete from " & StrTableName & " where " & StrField & " = '" & StrParameter & "'and " & StrField2 & " = '" & StrParameter2 & "'"
        DbComm = New SqlCommand(StrSql, DbConnTran, Tx)

        DbComm.ExecuteNonQuery()

    End Function

    Public Function Insert(ByVal DbConnTran As SqlConnection, ByVal Tx As SqlTransaction, ByVal Dr As DataRow) As Integer
        '把Dr中的数据以事务方式插入到数据库
        Dim DbComm As SqlCommand
        Dim StrField, StrParameter, StrSql As String
        Dim Count As Integer
        Dim DataParam As SqlParameter

        StrField = "" '格式化Sql语句中的字段和参数
        StrParameter = ""
        For Count = 0 To Dr.Table.Columns.Count - 1
            StrField = StrField & Dr.Table.Columns(Count).ColumnName() & ","
            StrParameter = StrParameter & "@" & Dr.Table.Columns(Count).ColumnName() & ","
        Next
        StrField = Left(StrField, Len(StrField) - 1)
        StrParameter = Left(StrParameter, Len(StrParameter) - 1)

        StrSql = "insert into " & Dr.Table.TableName & " ( " & StrField & ") values ( " & StrParameter & ")"

        DbComm = New SqlCommand(StrSql, DbConnTran, Tx)

        For Count = 0 To Dr.Table.Columns.Count - 1 '给Sql语句中的所有参数赋值
            DataParam = New SqlParameter("@" & Dr.Table.Columns(Count).ColumnName(), Dr(Count))
            DbComm.Parameters.Add(DataParam)
        Next

        DbComm.ExecuteNonQuery() '执行插入操作
    End Function

    Public Function Update(ByVal DbConnTran As SqlConnection, ByVal Tx As SqlTransaction, ByVal Dr As DataRow) As Integer
        '根据ID修改数据库中数据
        Dim DbComm As SqlCommand
        Dim StrSql As String
        Dim Count As Integer
        Dim DataParam As SqlParameter

        StrSql = ""
        For Count = 1 To Dr.Table.Columns.Count - 1
            StrSql = StrSql & Dr.Table.Columns(Count).ColumnName & "=@" & Dr.Table.Columns(Count).ColumnName & ","
        Next
        StrSql = Left(StrSql, Len(StrSql) - 1)
        StrSql = "update " & Dr.Table.TableName & " set " & StrSql & " where " & Dr.Table.Columns(0).ColumnName & "='" & Dr(0) & "'"

        DbComm = New SqlCommand(StrSql, DbConnTran, Tx)

        For Count = 1 To Dr.Table.Columns.Count - 1 '给Sql语句中的所有参数赋值
            DataParam = New SqlParameter("@" & Dr.Table.Columns(Count).ColumnName(), Dr(Count))
            DbComm.Parameters.Add(DataParam)
        Next

        DbComm.ExecuteNonQuery() '执行修改操作
    End Function


    Public Function ReadSql(ByVal StrSql As String) As DataView
        Dim DbComm As SqlDataAdapter
        Dim Ds As New DataSet
        DbComm = New SqlDataAdapter(StrSql, DbConn)
        DbConn.Open()
        DbComm.Fill(Ds)
        DbConn.Close()
        Return Ds.Tables(0).DefaultView
    End Function

End Class

三层网络结构(核心层 汇聚层 接入层)

三层网络结构: 三层网络结构是采用层次化架构的三层网络。三层网络架构采用层次化模型设计,即将复杂的网络设计分成几个层次,每个层次着重于某些特定的功能,这样就能够使一个复杂的大问题变成许多简单的小...
  • kingmax54212008
  • kingmax54212008
  • 2015年05月28日 22:20
  • 7584

javaEE三层架构设计

1.三层架构由:表现层(UI) 业务逻辑层(BLL) 数据访问层(DAL).常称为:servlet层,service层,dao层....
  • chanjkf
  • chanjkf
  • 2016年11月23日 16:42
  • 901

关于ASP.NET中的三层结构

在ASP.NET中,前台为HTML源代码,.aspx设计页面等文件,中间层为.cs或.vb文件编译而成的.dll文件或组件,后台为数据库服务器。在ASP.NET3层架构上,数据库层通过中间层来连接并进...
  • SmallXianNotImmortal
  • SmallXianNotImmortal
  • 2016年03月11日 11:28
  • 323

自定义实体类在三层架构之间传递数据

自定义实体类是专门承载业务实体数据的类,一般将方法分离出来,只包含属性和字段的定义。每个实体类对应数据库中的一个表,每个属性对应表中的一个相应的字段。使用实体类属于面向对象编程的思想,将每个表封装成对...
  • u013065023
  • u013065023
  • 2015年01月30日 19:23
  • 2060

三层架构下带实体参数泛型集合的“传递”

不知道大家
  • u010191243
  • u010191243
  • 2014年08月31日 22:23
  • 987

三层架构的原理及实现

三层架构 代码的可扩展性和系统的后期维护: 1、三层就很好的为我们解决了这个问题.让我们不必为了业务逻辑上的微小变化而迁至整个程序的修改,只需要修改商业逻辑层中的一个函数或一个过程; 2、增强了...
  • wenyusuran
  • wenyusuran
  • 2014年12月01日 15:29
  • 3955

在winform中使用三层架构学习总结

Winform 三层架构小例子 http://www.cnblogs.com/jacky73/archive/2009/09/01/1558083.html 在web开发中常常用到工厂模式三层架构...
  • bcbobo21cn
  • bcbobo21cn
  • 2017年04月15日 16:17
  • 1620

从MVC和三层架构说到ssh整合开发-上

相信很多人都认同JavaWeb开发是遵从MVC开发模式的,遵从三层架构进行开发的,是的,大家都这么认同。但是相信大家都会有过这样一个疑问,if(MVC三层模式==三层架构思想)out.println(...
  • peace1213
  • peace1213
  • 2016年01月20日 14:42
  • 4271

现代前端技术解析:前端三层结构与应用

前端三层结构与应用前端三个基本结构:结构层HTML、表现层CSS、行为层JavaScript。现在的Web前端应用已经不是简单的三层结构就能轻松解决,而是已经形成了编译流程化、生产环境基础优化结构运行...
  • ligang2585116
  • ligang2585116
  • 2017年07月26日 20:27
  • 2959

MVC和三层架构

一、MVC M:(Model)  模型  :  应用程序的核心功能,管理这个模块中用的数据和值; V(View )视图:   视图提供模型的展示,管理模型如何显示给用户,它是应用程序的外观; C...
  • lyx1980916167
  • lyx1980916167
  • 2017年04月01日 16:04
  • 1934
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:三层结构:实体层
举报原因:
原因补充:

(最多只允许输入30个字)