【正文】 ) () () () Dim sqlstr AsString = select * from bookinfo BindDBGrd(sqlstr, DataGrid1) Dim ds As DataSet = New DataSet EndSub PrivateSub Button1_Click(ByVal sender As , ByVal e As ) Handles () EndSub PrivateSub Button2_Click(ByVal sender As , ByVal e As ) Handles () EndSub PrivateSub Button3_Click(ByVal sender As , ByVal e As ) Handles () EndSub PrivateSub DataGrid1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles EndSub EndClass : Imports PublicClass History Inherits PrivateconnectingstringAsString PrivatemyConnAs SqlConnection Private ds As DataSet PrivatemyAdapterAs SqlDataAdapter ProtectedWithEvents TextBox1 As PrivatemyCmdAs SqlCommand Region Web 窗體設計器生成的代碼 39。該調用是 Web 窗體設計器所必需的。 ()PrivateSub InitializeComponent() EndSub ProtectedWithEvents HistoryDGrid As ProtectedWithEvents HyperLink1 As 39。注意 : 以下占位符聲明是 Web 窗體設計器所必需的。 39。不要刪除或移動它。 PrivatedesignerPlaceholderDeclarationAs PrivateSub Page_Init(ByVal sender As , ByVal e As ) 39。CODEGEN: 此方法調用是 Web 窗體設計器所必需的 39。不要使用代碼編輯器修改它。 InitializeComponent() EndSub EndRegion PrivateSub Page_Load(ByVal sender As , ByVal e As ) 39。在此處放置初始化頁的用戶代碼 connectingstring = (ConnectionString). myConn = New SqlConnection(connectingstring) Dim user AsString user = Session(UserID) = user IfNot IsPostBack Then Dim sqlstr AsString = select ,BookName,BookAuthor,SearchNO,LendDate from BookInfo,LendInfo where = and = sqlstr += 39。 + + 39。 BindDBGrd(sqlstr, HistoryDGrid) Dim ds As DataSet = New DataSet EndIf EndSub PublicSubFill(ByVal sqlstr AsString) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid) If = Then () EndIf Fill(sqlstr) = (0).DefaultView () EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid, ByVal SortExp AsObject) If = Then () EndIf Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () EndSub 39。Private Sub BindDBGrid() 39。Dim sqlstr As String = select * from LendInfo where 1=1 39。BindDBGrd(sqlstr, HistoryDGrid) 39。End Sub EndClass : Imports PublicClass Lend Inherits Dim myConn As SqlConnection Dim ds As DataSet PrivatemyAdapterAs SqlDataAdapter PrivateconnectingstringAsString Region Web 窗體設計器生成的代碼 39。該調用是 Web 窗體設計器所必需的。 ()PrivateSub InitializeComponent() EndSub ProtectedWithEvents DataGrid1 As ProtectedWithEvents HyperLink1 As 39。注意 : 以下占位符聲明是 Web 窗體設計器所必需的。 39。不要刪除或移動它。 PrivatedesignerPlaceholderDeclarationAs PrivateSub Page_Init(ByVal sender As , ByVal e As ) 39。CODEGEN: 此方法調用是 Web 窗體設計器所必需的 39。不要使用代碼編輯器修改它。 InitializeComponent() EndSub EndRegion PrivateSub Page_Load(ByVal sender As , ByVal e As ) 39。在此處放置初始化頁的用戶代碼 connectingstring = (ConnectionString). myConn = New SqlConnection(connectingstring) BindDBGrid() EndSub PublicSubFill(ByVal sqlstr AsString) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid) If = Then () EndIf Fill(sqlstr) = (0).DefaultView () EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid, ByVal SortExp AsObject) If = Then () EndIf Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () EndSub PrivateSubBindDBGrid() Dim sqlstr AsString = select * from BookInfo,LendInfo where = and UserID=39。 + Session(UserID) + 39。 BindDBGrd(sqlstr, DataGrid1) EndSub EndClass : Imports PublicClass lendbook Inherits PrivateconnectingstringAsString PrivatemyConnAs SqlConnection Private ds As DataSet PrivatemyAdapterAs SqlDataAdapter ProtectedWithEvents Button2 As PrivatemyCmdAs SqlCommand Region Web 窗體設計器生成的代碼 39。該調用是 Web 窗體設計器所必需的。 ()PrivateSub InitializeComponent() EndSub ProtectedWithEvents txtUserID As ProtectedWithEvents txtBookID As ProtectedWithEvents ListDGrid As ProtectedWithEvents Button1 As 39。注意 : 以下占位符聲明是 Web 窗體設計器所必需的。 39。不要刪除或移動它。 PrivatedesignerPlaceholderDeclarationAs PrivateSub Page_Init(ByVal sender As , ByVal e As ) 39。CODEGEN: 此方法調用是 Web 窗體設計器所必需的 39。不要使用代碼編輯器修改它。 InitializeComponent() EndSub EndRegion PrivateSub Page_Load(ByVal sender As , ByVal e As ) 39。在此處放置初始化頁的用戶代碼 connectingstring = (ConnectionString). myConn = New SqlConnection(connectingstring) If Then EndIf EndSub PublicSubExecNonSql(ByVal sqlstr AsString) If = Then () EndIf myCmd = New SqlCommand(sqlstr, myConn) () () () EndSub PublicSubFill(ByVal sqlstr AsString) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid) If = Then () EndIf Fill(sqlstr) = (0).DefaultView () EndSub PublicSubBindDBGrd(ByVal sqlstr AsString, ByVal myDBGrd As DataGrid, ByVal SortExp AsObject) If = Then () EndIf Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () EndSub PrivateSubBindDBGrid() Dim sqlstr AsString = select * from BookInfo,LendInfo where = and IsBack=0 and UserID=39。 + + 39。 BindDBGrd(sqlstr, ListDGrid) EndSub PublicFunctionExecReaderSql(ByVal sqlstr AsString) As SqlDataReader If = Then () EndIf myCmd = New SqlCommand(sqlstr, myConn) Dim reader As SqlDataReader reader = () Return reader EndFunction PrivateFunctionGetBookID() AsString Dim sqlstr AsString = select BookID from Boo