【正文】 End If Loop If j = 1 Then = True Else = False j = 0 End If End If End Sub End Class 讀者查找窗體代碼 : Imports Public Class FormDuZheChaZhao Private Sub FormDuZheChaZhao_Shown(ByVal sender As Object, ByVal e As ) Handles = True End Sub Private Sub ButtonFanHui_Click(ByVal sender As Object, ByVal e As ) Handles () End Sub Private Sub ButtonChaZhao_Click(ByVal sender As Object, ByVal e As ) Handles If And Then Dim sqlm As New SqlCommand = sqlconn If = True Then = select * from DuZheXinXi where amp。 =39。 amp。 Else = select * from DuZheXinXi where amp。 like 39。 amp。 End If form_data(sqlm) () Else If MsgBox(你沒(méi)有選擇要查詢的條件或關(guān)鍵字，請(qǐng)輸入完整。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。掛失 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 (xinxi).Rows(0)(3) amp。 amp。 39。 amp。 39。掛失 39。 amp。 該卡號(hào)已經(jīng)掛失 ,不能進(jìn)行重復(fù)掛失操作 ,是否繼續(xù) ?, , 錯(cuò)誤 ) = Then () Else () End If End If Else If Trim() 正常 Then = update duzhexinxi set 當(dāng)前狀態(tài) =39。 where 讀者卡號(hào) =39。 amp。 = sqlconn () = select 姓名 ,性別 ,類型 ,讀者卡號(hào) ,操作員 from duzhexinxi where 讀者卡號(hào) =39。 amp。 Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, xinxi) = insert into duzhezhuangtai values(39。 (xinxi).Rows(0)(0) amp。,39。 (xinxi).Rows(0)(1) amp。,39。 (xinxi).Rows(0)(2) amp。, amp。 ,39。 amp。,39。 (xinxi).Rows(0)(4) amp。,39。) = sqlconn () MsgBox(卡號(hào) amp。 解掛成功 , , 提示 ) () Else If MsgBox( amp。掛失 39。解掛 39。 = select * from TuShuXinXi where 書(shū)名 =39。 amp。 39。 = sqlm 39。If (DuZheXinXi). = 0 Then = insert into duzhexinxi(姓名 ,性別 ,類型 ,年齡 ,讀者卡號(hào) ,聯(lián)系電話 ,押金 ,備注 ,職業(yè) ,是否掛失 ) values(39。 amp。,39。 xinbbie amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。, amp。 ,39。 amp。,39。 amp。,39。 amp。) = sqlconn () MsgBox(讀者 amp。 添加成功 ., , 提示 ) () 39。 If MsgBox(該書(shū)名已存在，請(qǐng)重新輸入。 = 39。 Else 39。 End If 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 = True 39。 39。 () End Sub Private Sub RadioButtonxingbie_Click(ByVal sender As Object, ByVal e As ) Handles = True = select 性別 ,count(*) as 數(shù)量 from duzhexinxi group by 性別 = sqlconn = sqlm (sqlds, xingbie) Dim i As Integer = 1 = (xingbie). For i = 1 To (xingbie). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (xingbie).Rows(i 1)(0) .Data = (xingbie).Rows(i 1)(1) End With Next 39。() End Sub Private Sub RadioButtonZhuXing_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub RadioButtoZheXian_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub RadioButtonBingXing_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 讀者注銷窗體代碼 : Imports Public Class FormDuZheZhuXiao Dim sqlm As New SqlCommand Private Sub ButtonQuXiao_Click(ByVal sender As Object, ByVal e As ) Handles () End Sub Private Sub ButtonJianCe_Click(ByVal sender As , ByVal e As ) Handles If Then = select 讀者卡號(hào) from DuZheXinXi where 讀者卡號(hào) =39。 amp。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, duzhekahao) If (duzhekahao). = 0 Then If MsgBox(沒(méi)有與之想對(duì)應(yīng)的讀者卡號(hào) ,是否重新輸入 ., , 提示) = Then = () Else () End If Else = select * from DuZheXinXi where 讀者卡號(hào) =39。 amp。 = 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) = (duzhexinxi).Rows(0)(9) End If Else If MsgBox(請(qǐng)輸入讀者卡號(hào) ., , 提示 ) = Then () Else () End If End If End Sub Private Sub ButtonQueDing_Click(ByVal sender As , ByVal e As ) Handles If And Trim() 注銷 Then = update duzhexinxi set 當(dāng)前狀態(tài) =39。 where 讀者卡號(hào) =39。 amp。 = sqlconn ()