databusiness.vb

来自「《ASP.NET C#程序设计案例教程》」· VB 代码 · 共 82 行

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System.Web													'因为要用到HttpContextContext类，所以导入该名称空间

NameSpace nsAddress													'nsAddress为自己定义的名称空间的名称
Public Class DataBusiness											'DataBusiness是自己定义的类的名称
	Private _strConn As String										'定义一个私有变量，用来设置数据库连接字符串

	Public Sub New(strConn As String)
		_strConn=strConn											'将传入字符串赋值给私有变量_strConn
	End Sub

	'该过程对客户插入的记录进行预处理
	Public Sub PreInsert(strName As String,strTel As String,strEmail As String,strIntro As String,dtmSubmit_Date As Date,strUserPWD As String)
		'对个人简介进行处理
		If strIntro.Length>1000 Then								'如果大于1000个字符
			strIntro=strIntro.SubString(1,1000)						'则只取前1000个字符						
		End If
		'下面建立DataUsers对象，然后调用Insert方法添加数据
		Dim dus As New DataUsers(_strConn)
		Call dus.Insert(strName,strTel,strEmail,strIntro,dtmSubmit_Date,strUserPWD)
	End Sub

	'该函数判断客户输入的密码是否正确，如果正确，则更新相关记录，并返回True
	Public Function PreUpdate(intId As integer,strName As String,strTel As String,strEmail As String,strIntro As String,strUserPWD As String) As Boolean
		'建立DataUsers对象
		Dim dus As New DataUsers(_strConn)
		'这里dus.Items(intId)会返回一个DataUser对象，然后利用它的UserPWD属性就会返回该记录的UserPWD字段值。
		If dus.Items(intId).UserPWD=strUserPWD Then
			Call dus.Update(intId,strName,strTel,strEmail,strIntro)
			Return(True)
		Else
			Return(False)
		End If
	End Function

	'该函数判断客户输入的密码是否正确，如果正确，则删除相关记录，并返回True
	Public Function PreDelete(intId As integer,strUserPWD As String) As Boolean
		'建立DataUsers对象
		Dim dus As New DataUsers(_strConn)
		'这里dus.Items(intId)会返回一个DataUser对象，然后利用它的UserPWD属性就会返回该记录的UserPWD字段值。
		If dus.Items(intId).UserPWD=strUserPWD Then
			Call dus.Delete(intId)
			Return(True)
		Else
			Return(False)
		End If
	End Function
	
	'下面查询记录，返回符合条件的DataView对象
	Public Function PreGetUsers() As DataView
		'下面返回DataView对象
		Dim dus As New DataUsers(_strConn)
		Dim dv As DataView=dus.GetUsers()

		'下面读取排序和查找变量，分别用来查询和排序
		Dim strKeyword,strSortField As String
		strKeyword=HttpContext.Current.Session("Keyword")
		strSortField=HttpContext.Current.Session("SortField")
		'下面根据查找关键词设置筛选条件
		Dim strSql As String
		If strKeyword<>"" Then
			Dim arryKeyword(),strFilter As String
			Dim I As Integer
			arryKeyword=Split(strKeyword," ")								'按空格拆分多个关键词
			strFilter="name Like '%" & arryKeyword(0) & "%'"				'先添加第一个关键词
			For I=1 To arryKeyword.Length-1
				strFilter &= " And name Like '%" & arryKeyword(I) & "%'"	'注意And前留一个空格
			Next
			dv.RowFilter = strFilter		'设置筛选条件
		End If
		'下面根据排序字段设置排序效果，为了简单，始终按倒叙排列
		If strSortField<>"" Then
			dv.Sort=strSortField & " Desc"	'注意Desc前留一个空格
		End If
		'最后返回检索、排序后的DataView
		Return dv
	End Function
	End Class
End NameSpace