【文章內(nèi)容簡介】 nd If End Sub Private Sub button1_Click(ByVal sender As , ByVal e As ) Handles Dim sign As String = If = True Then sign = % End If Dim sqlstr As String = select * from BookInfo where 1=1 sqlstr += and + + like 39。 + sign + + sign + 39。 Session(sqlstr) = sqlstr BindGrid() End Sub Private Sub ResultGrid_PageIndexChanged(ByVal source As Object, ByVal e As ) Handles = BindGrid() End Sub Private Sub ResultGrid_SortCommand(ByVal source As Object, ByVal e As ) Handles Dim sqlstr As String If viewstate(sortexp) Is Nothing Then viewstate(sortexp) = ElseIf viewstate(sortexp) = Then viewstate(sortexp) += desc Else viewstate(sortexp) = End If If Not Session(sqlstr) Is Nothing Then sqlstr = CType(Session(sqlstr), String) BindDBGrd(sqlstr, ResultGrid, Viewstate(sortexp)) End If End Sub Public Sub ExecNonSql(ByVal sqlstr As String) If = Then () End If myCmd = New SqlCommand(sqlstr, myConn) () () Close() End SubEnd Class可以根據(jù)書名，內(nèi)容進(jìn)行查詢，我們選取任意匹配：如上圖所示最上方為自定義用戶控件：bar點(diǎn)擊權(quán)限維護(hù)：Imports Public Class user Inherits Private connectingstring As String Private myConn As SqlConnection Private ds As DataSet Private myAdapter As SqlDataAdapter Protected WithEvents Button2 As Protected WithEvents Label1 As Protected WithEvents Label2 As Protected WithEvents TextBox1 As Protected WithEvents Label3 As Protected WithEvents TextBox2 As Protected WithEvents Login_trname As Protected WithEvents Login_trpassword As Private myCmd As SqlCommand Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。在此處放置初始化頁的用戶代碼 connectingstring = data source=(local)。Database=library。uid=sa。pwd=123456。 myConn = New SqlConnection(connectingstring) End Sub Public Function CheckUserberInfo(ByVal Userstr As String, ByVal Pwdstr As String) As Integer If = Then () End If Dim sqlstr As String If Pwdstr = Then sqlstr = select * from manage where manageid=39。 + + 39。 and Pass is null Else sqlstr = select * from manage where manageid=39。 + + 39。 and Pass=39。 + Pwdstr + 39。 End If Fill(sqlstr) If (0). = 0 Then Close() Return 1 End If () Close() Return 1 End Function Public Sub Open() () End Sub Public Sub Close() () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If CheckUserberInfo(, ) = 1 Then Session(UserID) = () Else (scriptjavascript:alert(39。登陸失?。。。?9。)。/script) (javascript:=39。39。) End If End SubEnd Class登陸成功后：點(diǎn)擊刪除后：再次查詢時：Imports Public Class delete Inherits Dim myconn As SqlConnection Private connectingstring As String Private ds As DataSet Private myAdapter As SqlDataAdapter Private myCmd As SqlCommand Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid) If = Then () End If Fill(sqlstr) = (0).DefaultView () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object) If = Then () End If Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () End Sub Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。在此處放置初始化頁的用戶代碼 connectingstring = data source=(local)。Database=library。uid=sa。pwd=123456。 myconn = New SqlConnection(connectingstring) If Not IsPostBack Then Dim sqlstr As String = select * from bookinfo BindDBGrd(sqlstr, DataGrid1) Dim ds As DataSet = New DataSet End If End Sub Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As ) Handles Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim uid As String = ().Cells(0).Text sql = delete from bookinfo where bookid=39。 + uid + 39。 mycmd = New SqlCommand(s