【正文】 where 讀者卡號 =39。 amp。 = True 39。 amp。 amp。 39。 39。 39。 = 39。 amp。 amp。,39。,39。,39。 39。掛失 39。 (xinxi).Rows(0)(4) amp。, amp。,39。 = sqlconn () = select 姓名 ,性別 ,類型 ,讀者卡號 ,操作員 from duzhexinxi where 讀者卡號 =39。 amp。 39。 amp。 amp。 amp。 39。 39。 End If form_data(sqlm) () Else If MsgBox(你沒有選擇要查詢的條件或關(guān)鍵字，請輸入完整。 amp。 Dim i As Integer 39。 \picture\) = New Bitmap( amp。 \picture\) = New Bitmap( amp。 amp。initial catalog=重慶新華電腦學(xué)校圖書管理系統(tǒng) 。 39。 vbCrLf amp。 Dim PrintLeft, PrintTop As Integer PrintTop = PrintLeft = 39。 amp。% amp。 = sqlm (sqlds, xingming) Dim j As Integer For j = 1 To (xingming). ((zhiye).Rows(i 1)(0)).((xingming).Rows(j 1)(0), (xingming).Rows(j 1)(0)) Next (xingming).Clear() Next End Sub Private Sub form_data(ByVal sqlcmd As SqlCommand) Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlcmd (sqlds, DuZheXinXi) = (DuZheXinXi) End Sub Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As ) Handles Dim sqlm As New SqlCommand = select * from DuZheXinXi where 姓名 =39。 = sqlconn () = select * from DuZheXinXi = sqlm form_data(sqlm) End If End Sub Private Sub ToolStripLabel4_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ToolStripLabel5_Click(ByVal sender As , ByVal e As ) Handles = False () End Sub End Class 讀者掛失窗體代碼 : Imports Public Class FormDuZheGuaShi Dim sqlm As New SqlCommand Public biaozi As Boolean Private Sub ButtonJianCe_Click(ByVal sender As , ByVal e As ) Handles If Then = select 讀者卡號 from DuZheXinXi where 讀者卡號 =39。 = sqlconn = sqlm (sqlds, duzhexinxi) = (duzhexinxi).Rows(0)(1) = (duzhexinxi).Rows(0)(2) = (duzhexinxi).Rows(0)(3) = (duzhexinxi).Rows(0)(4) = (duzhexinxi).Rows(0)(13) = (duzhexinxi).Rows(0)(15) End If Else If MsgBox(請輸入讀者卡號 ., , 提示 ) = Then () Else () End If End If End Sub Private Sub ButtonQuXiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ButtonQueDing_Click(ByVal sender As , ByVal e As ) Handles If Then If Trim() 注銷 Then If biaozi = True Then If Trim() 掛失 Then = update duzhexinxi set 當(dāng)前狀態(tài) =39。 amp。 (xinxi).Rows(0)(1) amp。 ,39。,39。 amp。 amp。 amp。 39。 amp。 amp。 amp。 amp。 amp。 amp。 39。Else 39。End If Else = update duzhexinxi set 姓名 =39。,類型 =39。,讀者卡號 =39。,押金 = amp。 amp。 (0).Cells(0).Value amp。() End Sub Private Sub RadioButtonleixing_Click(ByVal sender As Object, ByVal e As ) Handles = True = select 類型 ,count(*) as 數(shù)量 from duzhexinxi group by 類型 = sqlconn = sqlm (sqlds, leixing) Dim i As Integer = 1 = (leixing). For i = 1 To (leixing). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (leixing).Rows(i 1)(0) .Data = (leixing).Rows(i 1)(1) End With Next 39。 39。 39。 amp。() = True = select 當(dāng)前狀態(tài) ,count(*) as 數(shù)量 from duzhexinxi group by 當(dāng)前狀態(tài) = sqlconn = sqlm (sqlds, zhuangtai) Dim i As Integer = 1 = (zhuangtai). For i = 1 To (zhuangtai). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (zhuangtai).Rows(i 1)(0) .Data = (zhuangtai).Rows(i 1)(1) End With Next = True = = select * from duzhexinxi = sqlconn = sqlm (sqlds, duzhe) = (duzhe) End Sub Private Sub RadioButtonzhuangtai_Click(ByVal sender As Object, ByVal e As ) Handles = True = select 當(dāng)前狀態(tài) ,count(*) as 數(shù)量 from duzhexinxi group by 當(dāng)前狀態(tài) = sqlconn = sqlm (sqlds, zhuangtai) Dim i As Integer = 1 = (zhuangtai). For i = 1 To (zhuangtai). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (zhuangtai).Rows(i 1)(0) .Data = (zhuangtai).Rows(i 1)(1) End With Next 39。 where 編號 =39。,職業(yè) =39。 amp。 amp。 xinbbie amp。 () 39。 amp。 amp。 39。 39。 39。(myds, DuZheXinXi) 39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, jiegua) End If form_data(sqlm) End Sub Private Sub form_data(ByVal sqlcmd As SqlCommand) Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlcmd