【正文】 ，其中“提交”按鈕響應(yīng)更改操作： 首先核實(shí)輸入信息是否正確，輸入 合法后更新數(shù)據(jù)庫并提示結(jié)果?！疤峤?”按鈕響應(yīng) If Then MsgBox(密碼不正確！ , + , 密碼錯(cuò)誤 ) = () ElseIf = Then MsgBox(新密碼不能為空！ , + , 新密碼為空 ) () ElseIf Then MsgBox(兩次輸入的密碼不相符！ , + , 警告 ) = = () Else Dim updatestring As String = update 警察 set 密碼 =39。 amp。where 警號 = 39。 amp。 Dim As New OleDbCommand(updatestring) Try With .Connection = New OleDbConnection(gLinkSting) .() .ExecuteReader() .() End With MsgBox(密碼已經(jīng)成功修改！ , + , 恭喜 ) () Catch () MsgBox(, + , 錯(cuò)誤 ) End Try = = = End If End Sub 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 13 查看 、 修改用戶、添加用戶、刪除用戶 界面 的實(shí)現(xiàn) 圖 3,4 用戶管理 查看現(xiàn)有用戶 界面 圖 3,5 用戶管理 修改用戶信息 界面 算法描述 ： “查看用戶”功能是通過單擊在主界面 的“查看現(xiàn)有用戶”菜單項(xiàng)，通過查詢數(shù)據(jù)庫并在 datagridview控件上顯示，查詢語句是： select 警號 ,姓名 ,職務(wù) ,承包組 ,備注 from 警察 ，實(shí)現(xiàn)過程與“ 分監(jiān)區(qū)業(yè)務(wù)管理系統(tǒng)主程序界面的 實(shí)現(xiàn)”部分列舉的 refreshmainC函數(shù)實(shí)現(xiàn)類似，詳細(xì)代碼在此不列舉； “ 修改用戶 ” 、 “ 添加用戶 ” 、 “ 刪除用戶 ”操作的實(shí)現(xiàn) 均是 通過 先 在數(shù)據(jù)庫中 查找 用戶并對輸入信息進(jìn)行核實(shí) ， 再對數(shù)據(jù)庫 進(jìn)行 相應(yīng)的修改、添加、刪除 操作 。 39。 amp。 Dim da As New OleDbDataAdapter(sql, gLinkSting) Dim ds As New DataSet() Dim tb As DataTable (ds, Mytable) tb = (Mytable) If () = 0 Then MsgBox(對不起，輸入的警號不存在 !, , 請重新輸入警號 ) Else = (0).Item(警號 ) strFPNu = = (0).Item(姓名 ) = (0).Item(職務(wù) ) = (0).Item(承包組 ) = (0).Item(備注 ) = True = True = True End If Catch MsgBox() () End Try Else () MsgBox(警號不能為空 , + , 警號為空 ) End If strFPMa = = 請進(jìn)行修改或者刪除用戶 在 frmChangUse窗體類中 修改用戶按鈕的 代碼選段 Private Sub butChUM_Click(ByVal sender As , ByVal e As ) Handles 39。對警號進(jìn)行了修改則先查找警號是否沖突 ‘ 查找代碼與本節(jié)“查找用戶”部分查找代碼相同，此處略 MsgBox(警號沖突！ , , 警號沖突 ) 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 添加和刪除用戶功能的實(shí) 現(xiàn)與修改用戶代碼類似，詳細(xì)代碼在此不列舉 39。 amp。 39。 添加用戶按鈕的實(shí)現(xiàn) 的 SQL語句： insert into 警察 (警號 ,密碼 ,姓名 ,職務(wù) ,承包組 ,備注 ) values(39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。) ，在添加用戶前判斷了警號是否沖突 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 16 查看承包組、查看所有罪犯、查找罪犯 界面 的實(shí)現(xiàn) 圖 罪犯信息 查看所有罪犯 界面 圖 罪犯信息 查看承包組罪犯 界面 算法描述： 在主界面 frmmain窗體 對象上單擊 “查看承包組罪犯”、“查看所有罪犯”、“查找罪犯”菜單 項(xiàng)，通過連接命令查詢數(shù)據(jù)庫，并將結(jié)果用 datagridview控件上顯示出來。響應(yīng) “查找 ”罪犯按鈕 = 罪犯信息如下： 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 17 Try Dim strCrimefind As String = If = And Then 39。 39。 amp。 ElseIf And = Then 39。 39。 amp。 39。輸入了姓名和編號 strCrimefind = select 編號 ,姓名 ,罪名 ,刑期止日 from 罪犯 where 姓名 like amp。 amp。 % amp。 amp。 編號 = amp。 amp。 39。查無此人 MsgBox(查無此人，請確保輸入的信息無誤 , , 查無此人 ) Else 39。 Dim rownuber As Integer = = datagridview_crime(0, rownuber). = datagridview_crime(1, rownuber). CrimeNuber = = True = True End If Else : MsgBox(請輸入罪犯編號或者姓名 , , 編號和姓名為空 ) End If Catch MsgBox(, + , 錯(cuò)誤 ) End Try End Sub 39。 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 18 調(diào)入、修改、調(diào)出罪犯 界面 （以修改罪犯信息為例）的實(shí)現(xiàn) 圖 罪犯信息 調(diào)入罪犯 界面 圖 罪犯信息 修改罪犯信息 界面 算法描述： 調(diào)入罪犯通過對用戶提交的信息進(jìn)行審核后提交數(shù)據(jù)庫、“修改罪犯信息”和“調(diào)出罪犯”操作均先通過“查找 ” 按鈕查找罪犯，再在 datagridview上單擊選擇列表中的查找結(jié)果記錄，通過 cellclick事件將信息框填滿，最后進(jìn)行“修改”或“刪除”操作。 在主界面 CfrmChangeCrime窗體類中“提交”按鈕事件的代碼： Private Sub butMC_subm_Click(ByVal sender As , ByVal e As ) Handles 39。沒有修改任何信息的情況 ifchanged = false ElseIf = True Then 39。 amp。 39。有沖突則進(jìn)行進(jìn)一步修改 MsgBox(罪犯編號沖突！ , + , 編號沖突 ) ifchanged = false End If ElseIf = False Then ifchanged = ture End If If ifchanged = ture Then Dim updatestring As String = update 罪犯 set 編號 =39。 amp。,姓名=39。 amp。,出生日期 =39。 amp。,籍貫 =39。 amp。,罪名 =39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。,所在小組 =39。 amp。where 編號 = 39。 amp。 Dim As New OleDbCommand(updatestring) Try With .Connection = New OleDbConnection(gLinkSting) .() .ExecuteReader() .() End With Dim strCrimefind As String = select 編號 ,姓名 ,罪名 ,刑期止日 from 罪犯 where 編號 = amp。 amp。 39。更新查找界面信息的顯示 Dim daa As New OleDbDataAdapter(strCrimefind, gLinkSting) Dim dss As New DataSet() (dss, findcrimeinfo) = 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 20 (findcrimeinfo).DefaultView () MsgBox(罪犯信息已經(jīng)成功修改！ , + , 恭喜 ) () Catch () MsgBox(, + , 錯(cuò)誤 ) End Try End If End Sub 日常分錄入界面 的實(shí)現(xiàn) 圖 計(jì)分考核 日常分錄入 界面 算法描述 ： 可單擊表中記錄選 擇 罪犯或直接輸入編號（或姓名）查找罪犯后打分、提交 ，在“提交”記錄時(shí)核查了信息的完整性和正確性。所有信息必填，否則報(bào)錯(cuò) Dim addstring As String = insert into 考核 (時(shí)間 ,警號 ,編號 ,日常分 ,理由 ) values(39。 Now amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。) Dim and As New OleDbCommand(addstring) 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 21 Try With and