info.vb

ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OleDb

Namespace Packaging

	Public Class Info
		Public Id As Integer
		Public UserAccount As String
		Public Name As String
		Public Number As String
		Public Gender As String
		Public Dorm As String
		Public Tel As String
		Public Address As String
		Public Desc As String
		Public Tel2 As String
		Public BP As String
		Public Mobile As String
		Public Email As String
		Public QQ As String
		Public MSN As String
		Public Homepage As String
		Public Hobbies As String
		Public Future As String
		Public Template As String
		Public Grade As String
	End Class


	Public Class InfoDB

		Public Function GetList(ByVal t As Integer) As DataView
			Dim MySQL As String="SELECT Name, Id FROM [Info] "
			MySQL &= "WHERE [type]=" & t

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()

			Dim DV As DataView=MyDS.Tables("My").DefaultView
			Return DV
		End Function

		Public Function GetAllInfo() As DataView
			Dim MySQL As String="SELECT * FROM [Info] "

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()

			Dim DV As DataView=MyDS.Tables("My").DefaultView
			Return DV
		End Function

		Public Function GetInfo(ByVal id As Integer) As DataView
			Dim MySQL As String="SELECT * FROM [Info] WHERE Id="
			MySQL &= Id

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()

			Dim DV As DataView=MyDS.Tables("My").DefaultView
			Dim MyFilter As StringFilter=New StringFilter()
			MyFilter.FilterDegree=2

			Dim i As Integer
			For i=0 to DV.Table.Rows.Count-1
				Try
				DV.Table.Rows(i)("Desc")=MyFilter.Change4Showing(DV.Table.Rows(i)("Desc"))
				DV.Table.Rows(i)("Hobbies")=MyFilter.Change4Showing(DV.Table.Rows(i)("Hobbies"))
				DV.Table.Rows(i)("Future")=MyFilter.Change4Showing(DV.Table.Rows(i)("Future"))
				Catch
				End Try
			Next

			Return DV
		End Function

		Public Function GetInfo1(ByVal id As Integer) As DataView
			Dim MySQL As String="SELECT * FROM [Info] WHERE Id="
			MySQL &= Id

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()

			Dim DV As DataView=MyDS.Tables("My").DefaultView
			Return DV
		End Function

		Public Sub AddNew(ByVal t As Integer, ByVal Account As String, ByVal Name As String)
			Dim MyFilter As StringFilter=New StringFilter()
			MyFilter.FilterDegree=0
			Account=MyFilter.Change4Saving(Account)
			Name=MyFilter.Change4Saving(Name)
			Dim MySQL As String="INSERT INTO [Info] (UserAccount, type, Name) VALUES ('"
			MySQL &= Account & "', " & t & ", '" & Name & "')"

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub

		Private Sub Change4SQL(ByRef MyInfo As Info)
			Dim MyFilter As StringFilter=New StringFilter()
			MyFilter.FilterDegree=0
			MyInfo.UserAccount=MyFilter.Change4Saving(MyInfo.UserAccount)
			MyInfo.Name=MyFilter.Change4Saving(MyInfo.Name)
			MyInfo.Number=MyFilter.Change4Saving(MyInfo.Number)
			MyInfo.Dorm=MyFilter.Change4Saving(MyInfo.Dorm)
			MyInfo.Tel=MyFilter.Change4Saving(MyInfo.Tel)
			MyInfo.Address=MyFilter.Change4Saving(MyInfo.Address)
			MyInfo.Desc=MyFilter.Change4Saving(MyInfo.Desc)
			MyInfo.Tel2=MyFilter.Change4Saving(MyInfo.Tel2)
			MyInfo.BP=MyFilter.Change4Saving(MyInfo.BP)
			MyInfo.Mobile=MyFilter.Change4Saving(MyInfo.Mobile)
			MyInfo.Email=MyFilter.Change4Saving(MyInfo.Email)
			MyInfo.QQ=MyFilter.Change4Saving(MyInfo.QQ)
			MyInfo.MSN=MyFilter.Change4Saving(MyInfo.MSN)
			MyInfo.Homepage=MyFilter.Change4Saving(MyInfo.Homepage)
			MyInfo.Hobbies=MyFilter.Change4Saving(MyInfo.Hobbies)
			MyInfo.Future=MyFilter.Change4Saving(MyInfo.Future)
			MyInfo.Template=MyFilter.Change4Saving(MyInfo.Template)
		End Sub

		Public Sub ChangeInfo(ByVal MyInfo As Info)
			Change4SQL(MyInfo)
			Dim MySQL As String="UPDATE [Info] SET "
			MySQL &= "[Name]='" & MyInfo.Name & "', "
			MySQL &= "[Number]='" & MyInfo.Number & "', "
			MySQL &= "[Dorm]='" & MyInfo.Dorm & "', "
			MySQL &= "[Tel]='" & MyInfo.Tel & "', "
			MySQL &= "[Address]='" & MyInfo.Address & "', "
			MySQL &= "[Desc]='" & MyInfo.Desc & "', "
			MySQL &= "[Tel2]='" & MyInfo.Tel2 & "', "
			MySQL &= "[BP]='" & MyInfo.BP & "', "
			MySQL &= "[Mobile]='" & MyInfo.Mobile & "', "
			MySQL &= "[Email]='" & MyInfo.Email & "', "
			MySQL &= "[QQ]='" & MyInfo.QQ & "', "
			MySQL &= "[MSN]='" & MyInfo.MSN & "', "
			MySQL &= "[Homepage]='" & MyInfo.Homepage & "', "
			MySQL &= "[Hobbies]='" & MyInfo.Hobbies & "', "
			MySQL &= "[Future]='" & MyInfo.Future & "', "
			MySQL &= "[Template]='" & MyInfo.Template & "', "
			MySQL &= "[Gender]='" & MyInfo.Gender & "', "
			MySQL &= "[Grade]='" & MyInfo.Grade & "' "
			MySQL &= "WHERE Id=" & MyInfo.Id & " "

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub

		Sub ChangePhoto(ByVal id As Integer, ByVal photo As String)
			Dim MySQL As String="UPDATE [Info] SET photo='"
			MySQL &= photo & "' WHERE id=" & id
			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub

		Function GetMyId(ByVal UAccount As String) As Integer
			Dim MySQL As String="SELECT UserId FROM [User] WHERE UserAccount='"
			MySQL &= UAccount & "'"
			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()
			Dim DV As DataView=MyDS.Tables("My").DefaultView
			If DV.Table.Rows.Count<1 Then
				Return 0
			Else
				MySQL="SELECT [Id] FROM [Info] WHERE UserAccount='"
				MySQL &= UAccount & "'"
				MyDB.strSQL=MySQL
				Dim MyDS2 As DataSet=MyDB.SelectFromDB()
				Dim DV2 As DataView=MyDS2.Tables("My").DefaultView
				If DV2.Table.Rows.Count<1 Then
					Return 0
				Else
					Return(DV2.Table.Rows(0)("Id"))
				End If
			End If
		End Function

		Function GetMyType(ByVal UAccount As String) As Integer
			Dim MySQL As String="SELECT UserId FROM [User] WHERE UserAccount='"
			MySQL &= UAccount & "'"
			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			Dim MyDS As DataSet=MyDB.SelectFromDB()
			Dim DV As DataView=MyDS.Tables("My").DefaultView
			If DV.Table.Rows.Count<1 Then
				Return 0
			Else
				MySQL="SELECT [type] FROM [Info] WHERE UserAccount='"
				MySQL &= UAccount & "'"
				MyDB.strSQL=MySQL
				Dim MyDS2 As DataSet=MyDB.SelectFromDB()
				Dim DV2 As DataView=MyDS2.Tables("My").DefaultView
				If DV2.Table.Rows.Count<1 Then
					Return 0
				Else
					Return(DV2.Table.Rows(0)("type"))
				End If
			End If
		End Function

		Public Sub UpdateInfo(ByVal Id As Integer, ByVal UserAccount As String,  ByVal iType As Integer)
			Dim MyFilter As StringFilter=New StringFilter()
			MyFilter.filterDegree=0
			UserAccount=MyFilter.Change4Saving(UserAccount)
			Dim MySQL As String="UPDATE [Info] SET "
			MySQL &= "[UserAccount]='" & UserAccount & "',"
			MySQL &= "[type]=" & iType & " "
			MySQL &= "WHERE Id=" & Id & " "

			Dim MyDB As SQLDB=New SQLDB()
			MyDB.strSQL=MySQL
			MyDB.ExecuteSQL()
		End Sub	

	End Class

End Namespace