【正文】 = False 39。 amp。 amp。 在 frmChangUse窗體 類 中 “ 查找用戶 ” 按鈕的響應(yīng)代碼的功能段節(jié)選 ： Dim sql As String If Then 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 14 Try sql = select * from 警察 where 警號(hào) = amp。 39。如果沖突的話必須重填 ifchanged = false End If End If If ifchanged = ture Then Dim updatestring As String = update 警察 set 警號(hào) =39。,職務(wù)=39。,姓名 =39。,承包組 =39。,備注=39。where 警號(hào) = 39。 Dim As New OleDbCommand(updatestring) Try With .Connection = New OleDbConnection(gLinkSting) .() .ExecuteReader() .() End With MsgBox(用戶信息已經(jīng)成功修改！ , + , 恭喜 ) () Catch () MsgBox(, + , 錯(cuò)誤 ) End Try End If = strFPNu () End Sub 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 “查找罪犯”按鈕的響應(yīng)代碼： Private Sub butCriF_Click(ByVal sender As , ByVal e As ) Handles 39。 amp。輸入了罪犯姓名，編號(hào)空 strCrimefind = select 編號(hào) ,姓名 ,罪名 ,刑期止日 from 罪犯 where 姓名 like amp。 % amp。 39。 39。 39。 End If If strCrimefind Then Dim da As New OleDbDataAdapter(strCrimefind, gLinkSting) Dim ds As New DataSet() (ds, findcrimeinfo) = (findcrimeinfo).DefaultView If = 0 Then 39。 “查看承包組罪犯”、“查看所有罪犯”的代碼與“ 分監(jiān)區(qū)業(yè)務(wù) 管理 系統(tǒng)主程序 界面 的實(shí)現(xiàn)”上查詢并顯示重點(diǎn)罪犯的代碼類似，在此不 列舉。 提交修改罪犯信息按鈕的實(shí)現(xiàn) Dim sql As String Dim ifchanged As String = ture If = False And = False And = False And = False And = False And = False And = False And = False And = strCriL And = strCriG Then 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 19 MsgBox(您沒(méi)有修改罪犯信息 !, + , 沒(méi)有修改 ) 39。 amp。 amp。 amp。 amp。 amp。 amp。,原判刑期 =39。,刑期起日 =39。,刑期止日 =39。,犯罪類型 =39。 amp。 amp。 39。 39。 amp。 amp。 amp。 amp。 amp。如果信息沒(méi)有填寫(xiě)完整，提升重填 End If = = = = End Sub 勞動(dòng)分錄入 界面 的實(shí)現(xiàn) 圖 計(jì)分考核 勞動(dòng)分錄入 界面 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 22 算法描述 ： 在圖 了 本月未錄勞動(dòng)分罪犯，右框列舉 了 本月已錄勞動(dòng)情況；在左框選中罪犯并輸入分值、理由，單擊提交即完成操作。理由輸入框內(nèi)容 Dim crimenum As String = (0).Text 39。 39。 39。 39。 39。 39。 在界面 frmexam窗體類中，考分明細(xì)查詢選項(xiàng)卡中的單擊 datagridview事件的代碼： Private Sub dg_fexam_csfa_CellClick(ByVal sender As Object, ByVal e As ) Handles Dim cell_score As DataGridViewCell = Dim rownuber As Integer = = 該犯的考分明細(xì)如右上所 示 Dim y_a_m As String = dg_fexam_csfa(0, rownuber). 39。 amp。 amp。 amp。通過(guò)調(diào)用統(tǒng)計(jì)、顯示函數(shù)來(lái)實(shí)現(xiàn)功能 界面 AfrmAll 窗體類上 自定義的 更新顯示代碼、統(tǒng)計(jì)函數(shù)代碼、“加載事件”代碼及相應(yīng)單擊文字 響應(yīng) 的代碼 （部分） : Public Sub fill_dg(ByVal strsql As String) 39。統(tǒng)計(jì)罪犯總?cè)藬?shù) Dim a1, a11, a2, a22, a3, a33, b1, b11, b2, b22, c1, c11, c2, c22, c3, c33, c4, c44 As Single sum = jisuan(select count(編號(hào) ) from 罪犯 ) = 目前，本監(jiān)區(qū)押犯 amp。暴力型 39。 a1 amp。) a2 = a22 / sum * 100 = （ 2）侵財(cái)型 : amp。 %； 39。 a3 amp。) End Sub 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 26 罪犯?jìng)€(gè)別分析 界面 的實(shí)現(xiàn) 圖 罪犯分析 個(gè)別分析 界面 算法描述： 先輸入罪犯信息查找，在表框中列舉結(jié)果，用戶單擊罪犯記錄后顯示分析結(jié)果。 = 您已經(jīng)選擇了罪犯 amp。 39。單擊記錄時(shí)填充編號(hào)和姓名 = dg_adcrime(1, rownuber). Dim richangfen, laodongfen As Single Dim ifrichang, iflaodong, mons As Integer 39。 yea amp。 mon amp。 CriNum amp。沒(méi)有進(jìn)行勞動(dòng)分考核 = 勞動(dòng)表現(xiàn)：上月沒(méi)有獲得勞動(dòng)獎(jiǎng)扣分，建議關(guān)注； = Else Dim strfind1 As String = select sum(勞動(dòng)分 ) from 考 核 where year(考核 .時(shí)間 )=39。 and month(考核 .時(shí)間 )=39。 and 考核 .編號(hào) =39。 39。信息有誤 MsgBox(您輸入的罪犯不存在，請(qǐng)核實(shí)您輸入的罪犯姓名和編號(hào) !, + , 輸入信息有誤 ) Else 39。 39。 Today amp。 amp。 amp。 amp。新添加的重點(diǎn)罪犯：添加記錄 Dim addstring As String = insert into 重點(diǎn)關(guān)注 (日期 ,警號(hào) ,編號(hào) ,理由 ) values(39。,39。,39。,39。) Dim As New OleDbCommand(addstring) Try ‘?dāng)?shù)據(jù)庫(kù)操作代碼，略 MsgBox( amp。yyyy39。d39。 圖 辦公助手 日歷查詢界面 圖 辦公助手 辦公電話界面 圖 幫助 關(guān)于 界面 圖 幫助 業(yè)務(wù)說(shuō)明 界面 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 32 參考文獻(xiàn) [1]項(xiàng)長(zhǎng)名 .信息化引領(lǐng)監(jiān)獄工作科學(xué)發(fā)展的實(shí)踐與思考 .監(jiān)獄 工作調(diào)研 ， 2021年，第10期 .第 1頁(yè) . [2]王立福 .軟件工程 .北京：機(jī)械工業(yè)出版社 , 15頁(yè) . [3]楊毅 .郭聰賓 .劉曉宏 . 數(shù)據(jù)庫(kù)編程 .北京科海電子出版社， 2021. [4]盧智勇 .譚小丹 .李光明 .visual 數(shù)據(jù)庫(kù)程序設(shè)計(jì)與實(shí)例 .北京：冶金工業(yè)出版社， 2021. [5]劉文濤 Visual Basic + Access 數(shù)據(jù)庫(kù)開(kāi)發(fā)與實(shí)例 .北京：清華大學(xué)出版社， 2021. [6]孫惠滿 .余國(guó)清 .楊昕 .數(shù)據(jù)庫(kù)應(yīng)用基礎(chǔ) . 。調(diào)用函數(shù)在彈出的面板中顯示考分信息 (Me) End Sub 調(diào)用的函數(shù) load_scoredgHZ代碼 ： Public Sub load_scoredgHZ(ByVal strsql As String) 39。d39。在 主窗口 Frmmain 對(duì)象 上 單擊 “即將刑滿釋放”菜單項(xiàng) 時(shí) 調(diào)用函數(shù) 單擊“即將刑滿釋放”菜單項(xiàng)的響應(yīng)代碼 ： Private Sub mnuLetout_Click(ByVal sender As , ByVal e As ) Handles 39。 amp。 amp。 amp。 Today amp。 ‘?dāng)?shù)據(jù)庫(kù)操作代碼，略 MsgBox( amp。where 編號(hào)=39。,理由 = 39。, 警號(hào) = 39。該犯已 經(jīng)是重點(diǎn)罪犯：更新記錄 Dim upsetstring As String = update 重點(diǎn)關(guān)注 set 日期 =39。 amp。 在 AfrmAddSer 窗口類中響應(yīng)“確定”按鈕 代碼 如下 : Private Sub submitSC_Click(ByVal sender As , ByVal e As ) Handles 39。 CriNum amp。 mon amp。 yea amp。 39。and 考核 .勞動(dòng)分 0 and 考核 .編號(hào) =39。 and month(考核 .時(shí)間 )=39。獲取上月的年數(shù)和月數(shù) If = 1 Then mon = 12 yea = ( 1).ToString Else mon = 1 yea = End If Dim strfind0 As String = select count(編號(hào) ) from 考核 where year(考核 .時(shí)間 )=39。 請(qǐng)繼續(xù)操作 Dim CriNum As String = dg_adcrime(0, rownuber). 39。 amp。 AfrmOne 窗口類上用于分析的單擊 datagridview 單元響應(yīng)程序代碼（“查找”以及“設(shè)置重點(diǎn)罪犯”代碼在其他功能中 已 列舉，此處略） 如下 ： Private Sub dg_adcrime_CellClick(ByVal sender As Object, ByVal e As ) Handles 39。響應(yīng)單擊 “暴力型 ” fill_dg(select 編號(hào) ,姓名 ,罪名 ,原判刑期 ,刑期止日 ,所在小組 from 罪犯 where 犯罪類型 = 39。 a33 amp。