【文章內(nèi)容簡(jiǎn)介】 Imports Public Class FormDuZheGuanLi Private Sub ToolStripLabel6_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ToolStripLabel1_Click(ByVal sender As , ByVal e As ) Handles = True = 讀者信息添加對(duì)話框 () Dim sqlm As New SqlCommand = sqlconn = select * from DuZheXinXi form_data(sqlm) End Sub Private Sub FormDuZheGuanLi_Shown(ByVal sender As Object, ByVal e As ) Handles Dim sqlm As New SqlCommand = select * from DuZheXinXi = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm form_data(sqlm) = select 職業(yè) from DuZheXinXi group by 職業(yè) = sqlconn = sqlm (sqlds, zhiye) () Dim i As Integer For i = 1 To (zhiye). ((zhiye).Rows(i 1)(0), (zhiye).Rows(i 1)(0)) = select 姓名 from DuZheXinXi where 職業(yè)=39。 amp。 (zhiye).Rows(i 1)(0) amp。 39。 = 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。 amp。 amp。 39。 = 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(你沒有選中想要修改的行,用戶鼠標(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(你沒有選中想要?jiǎng)h除的行,用戶鼠標(biāo)點(diǎn)擊圖表中向右的黑色小箭頭即可選中該行., , 提示) Else = delete from DuZheXinXi where 編號(hào)=39。 amp。 (0).Cells(0).Value amp。 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 SubEnd 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。 amp。 amp。 39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, duzhekahao) If (duzhekahao). = 0 Then If MsgBox(沒有與之想對(duì)應(yīng)的讀者卡號(hào),是否重新輸入., , 提示) = Then = () Else () End If Else = select * from DuZheXinXi where 讀者卡號(hào)=39。 amp。 amp。 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。掛失39。 where 讀者卡號(hào)=39。 amp。 amp。 39。 = sqlconn () = select 姓名,性別,類型,讀者卡號(hào),操作員 from duzhexinxi where 讀者卡號(hào)=39。 amp。 amp。 39。 Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, xinxi) = insert into duzhezhuangtai values(39。 amp。 (xinxi).Rows(0)(0) amp。 39。,39。 amp。 (xinxi).Rows(0)(1) amp。 39。,39。 amp。 (xinxi).Rows(0)(2) amp。 39。, amp。 (xinxi).Rows(0)(3) amp。 ,39。 amp。 amp。 39。,39。 amp。 (xinxi).Rows(0)(4) amp。 39。,39。掛失39。) = sqlconn () MsgBox(卡號(hào) amp。 amp。 掛失成功, , 提示) () Else If MsgBox( amp。 該卡號(hào)已經(jīng)掛失,不能進(jìn)行重復(fù)掛失操作,是否繼續(xù)?, , 錯(cuò)誤) = Then () Else () End If End If Else If Trim() 正常 Then = update duzh