【正文】 Else () End If End If End Sub End Class 讀者掛失查詢窗體代碼 : Imports Public Class FormDuZheGuaShiChaXun Public biaozi As Boolean Dim sqlm As New SqlCommand Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub FormDuZheGuaShiChaXun_Shown(ByVal sender As Object, ByVal e As ) Handles If biaozi = True Then = select * from duzhezhuangtai where 操作方式 =39。 amp。解掛 39。 39。 amp。 39。 amp。 (xinxi).Rows(0)(3) amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。正常 39。 掛失成功 , , 提示 ) () Else If MsgBox( amp。) = sqlconn () MsgBox(卡號(hào) amp。,39。 (xinxi).Rows(0)(4) amp。,39。 amp。 ,39。, amp。 (xinxi).Rows(0)(2) amp。,39。 (xinxi).Rows(0)(1) amp。,39。 (xinxi).Rows(0)(0) amp。 Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, xinxi) = insert into duzhezhuangtai values(39。 amp。 = sqlconn () = select 姓名 ,性別 ,類型 ,讀者卡號(hào) ,操作員 from duzhexinxi where 讀者卡號(hào) =39。 amp。 where 讀者卡號(hào) =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(請(qǐng)輸入讀者卡號(hào) ., , 提示 ) = 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。 = 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 () = 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 讀者卡號(hào) from DuZheXinXi where 讀者卡號(hào) =39。 (0).Cells(0).Value amp。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, DuZheXinXi) If (DuZheXinXi). 0 Then form_data(sqlm) End If End Sub Private Sub ToolStripLabel2_Click(ByVal sender As , ByVal e As ) Handles = False If = 0 Then MsgBox(你沒(méi)有選中想要修改的行 ,用戶鼠標(biāo)點(diǎn)擊圖表中向右的黑色小箭頭即可選中該行 ., , 提示 ) Else = 讀者信息修改對(duì)話框 () Dim sqlm As New SqlCommand = sqlconn = select * from DuZheXinXi form_data(sqlm) End If End Sub Private Sub ToolStripLabel3_Click(ByVal sender As , ByVal e As ) Handles Dim sqlm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter If = 0 Then MsgBox(你沒(méi)有選中想要?jiǎng)h除的行 ,用戶鼠標(biāo)點(diǎn)擊圖表中向右的黑色小箭頭即可選中該行 ., , 提示 ) Else = delete from DuZheXinXi where 編號(hào) =39。 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。 (zhiye).Rows(i 1)(0) amp。 , , 提示 ) = Then () Else () End If End If End Sub Private Sub form_data(ByVal sqlcmd As SqlCommand) Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlcmd (sqlds, chazhao) = (chazhao) End Sub End Class 讀者管理窗體代碼 : Imports Public Class FormDuZheGuanLi Private Sub ToolStripLabel6_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ToolStripLabel1_Click(ByVal s