【正文】 L Dim sql As String = select indexID,indexNumber,indexDescription from tindex 39。數(shù)據(jù)庫連接對象實例 Dim mydata As = New () Try 39。從數(shù)據(jù) 庫中取得數(shù)據(jù) Dim ds As DataSet = (sql) 39。綁定書編碼對象 = (0).DefaultView 39。顯示值 = indexDescription 39。真實值 = indexNumber 39。SQL sql = select booktypeno,typename,keyword,memo from booktype 39。提取數(shù)據(jù)值 Dim ds1 As DataSet = (sql) = (0).DefaultView39。綁定書類型 = typename = booktypeno = 1 39。選擇第一個值 = 1 39。格式化日期 =(yyyy/MM/dd) sql=SELECTbookid,booktype,bookname ,bookauthor,bookpub,bookpubdate,bookisbn,bookmemo,bookpic FROM books Dim ds2 As DataSet = (sql) = (0).DefaultView 39。將數(shù)據(jù)源與綁定對象綁定 = 39。添加幫定對象，并與值關(guān)聯(lián) (Text, , bookid) (Text, , bookisbn) (Text, , bookname) (Text, , booktype) (Text, , bookmemo) (Text, , bookpub) (Value, , bookisbn) (Text, , bookisbn) (Text, , bookpub) Catch ex As Exception () End Try End Sub Private Sub ComboBookCode_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = End Sub Private Sub ComboBookType_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = End Sub 39。點擊下按鈕時，數(shù)據(jù)源下移一條數(shù)據(jù)。 Private Sub BindingNavigatorMoveFirstItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub BindingNavigatorMovePreviousItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub BindingNavigatorMoveLastItem_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub bnaviModi_Click(ByVal sender As , ByVal e As ) End Sub Private Sub bnaviDele_Click(ByVal sender As , ByVal e As ) Handles 39。sQL Dim sql As String = delete books where bookid=39。 + + 39。 39。數(shù)據(jù)庫對象 Dim mydata As = New () Try (sql) (刪除成功 , 提示 ) Catch ex As Exception () End Try End Sub Private Sub bnaviClose_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub bnaviModi_Click_1(ByVal sender As , ByVal e As ) Handles 39。 設(shè)置控件可響應(yīng)。 For i As Integer = 0 To 1 IfNot((i).(TxtAdditionDate)And (i).(TxtSn)) Then (i).Enabled = True End If Next = False = False End Sub 創(chuàng)建讀者信息窗體 功能描 述 此窗體名為 讀者信息 ，為 圖書 管理員提供修改 讀者 信息的界面，實現(xiàn)添加、刪除 和 修改功能，但學(xué)號不可以修改 。 讀者信息管理窗體代碼 Private Sub Init() Dim sql As String = select ,ltrim(rtrim(readersex)) as ,readers.readertel,typeno fromreaders+_leftjoinreadertype on = Dim mydata As = New () Dim ds As DataSet = (sql) = (0).DefaultView = (Text, readerno) (Text, , readername) (Text, readersex) (Text, , typeno) (Text, address) (Text, readertel) (Text, readerdep) (Text, ) (Text, readermemo) (Value, checkdate) sql = select * from readertype Dim ds1 As DataSet = (sql) = (0).DefaultView = typeno = False = False = False = False = False = False = False = False = False = False = False = False End Sub Private Sub cbNo_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles If Not () Then Dim strNo As String = Dim sql As String = select * from readertype where typeno=39。 + + 39。 Dim mydata As = New () Dim reader As = (sql) While () = reader(typename).ToString().Trim() = reader(booknumber).ToString().Trim() = reader(bookdays).ToString().Trim() = reader(userfullife).ToString().Trim() 39。 = reader(memo).ToString().Trim() End While End If End Sub Private Sub txtReaderNo_KeyDown(ByVal sender As , ByVal e As ) Handles If = Them sql As String = select ,ltrim(rtrim(readersex)) asreade