【正文】 AfrmAll_baoli_Click(ByVal sender As , ByVal e As ) Handles 39。響應(yīng)單擊 “暴力型 ” fill_dg(select 編號(hào) ,姓名 ,罪名 ,原判刑期 ,刑期止日 ,所在小組 from 罪犯 where 犯罪類(lèi)型 = 39。暴力型 39。) End Sub 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 26 罪犯?jìng)€(gè)別分析 界面 的實(shí)現(xiàn) 圖 罪犯分析 個(gè)別分析 界面 算法描述： 先輸入罪犯信息查找，在表框中列舉結(jié)果，用戶(hù)單擊罪犯記錄后顯示分析結(jié)果。勞動(dòng)、日常表現(xiàn)根據(jù)罪犯的計(jì)分考核情況判斷，刑期狀況根據(jù)罪犯 信息計(jì)算得出。 AfrmOne 窗口類(lèi)上用于分析的單擊 datagridview 單元響應(yīng)程序代碼（“查找”以及“設(shè)置重點(diǎn)罪犯”代碼在其他功能中 已 列舉，此處略） 如下 ： Private Sub dg_adcrime_CellClick(ByVal sender As Object, ByVal e As ) Handles 39。單擊顯示框記錄響應(yīng) = True Dim cell_crime As DataGridViewCell = Dim rownuber As Integer = 39。 = 您已經(jīng)選擇了罪犯 amp。 39。 amp。 datagridview_crime(0, rownuber). amp。 39。 amp。 請(qǐng)繼續(xù)操作 Dim CriNum As String = dg_adcrime(0, rownuber). 39。獲取選中記錄的編號(hào) = dg_adcrime(0, rownuber). 39。單擊記錄時(shí)填充編號(hào)和姓名 = dg_adcrime(1, rownuber). Dim richangfen, laodongfen As Single Dim ifrichang, iflaodong, mons As Integer 39。日常分?jǐn)?shù)，勞動(dòng)分?jǐn)?shù)，剩余刑期的天數(shù) 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 27 Dim yea, mon As String 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。 amp。 yea amp。 39。 and month(考核 .時(shí)間 )=39。 amp。 mon amp。 39。and 考核 .勞動(dòng)分 0 and 考核 .編號(hào) =39。 amp。 CriNum amp。 39。 39。****查詢(xún)選中的罪犯是否進(jìn)行勞動(dòng)分考核 iflaodong = jisuan(strfind0) If iflaodong = 0 Then 39。沒(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。 amp。 yea amp。 39。 and month(考核 .時(shí)間 )=39。 amp。 mon amp。 39。 and 考核 .編號(hào) =39。 amp。 CriNum amp。 39。 39。****查詢(xún)選中罪犯的上月勞動(dòng)分 laodongfen = jisuan(strfind1) If laodongfen = 5 Then = 勞動(dòng)表現(xiàn)：上月勞動(dòng)分超過(guò) 5分，表現(xiàn)積極； ElseIf (laodongfen 5 And laodongfen = 2) Then = 勞動(dòng)表現(xiàn)：上月勞動(dòng)分低于 5分，表現(xiàn)一般； Else = 勞動(dòng)表現(xiàn)：上月勞動(dòng)分低于 2分，表現(xiàn)較差，建議關(guān)注； = End If End If ‘ 對(duì)勞動(dòng)分和刑期狀況評(píng)價(jià)略 End Sub 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 28 重點(diǎn)罪犯管理 界面 的實(shí)現(xiàn) 圖 重點(diǎn)犯管理界面 圖 重點(diǎn)犯管理 添加 重點(diǎn)犯 和 個(gè)別分析 設(shè)為重點(diǎn)犯 界面 算法描述： 單擊“確定”按鈕時(shí)先判斷輸入信息是否完整、正確，再檢索記錄是否已存在，最后進(jìn)行“添加”、“刪除”數(shù)據(jù)庫(kù)記錄處理。 在 AfrmAddSer 窗口類(lèi)中響應(yīng)“確定”按鈕 代碼 如下 : Private Sub submitSC_Click(ByVal sender As , ByVal e As ) Handles 39。響應(yīng) “確定 ”按鈕 ‘查找代碼略 If () = 0 Then 39。信息有誤 MsgBox(您輸入的罪犯不存在，請(qǐng)核實(shí)您輸入的罪犯姓名和編號(hào) !, + , 輸入信息有誤 ) Else 39。信息正確 ， 判斷添加的重點(diǎn)罪犯記錄是否已存在 Try 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 29 Dim Sql1 As String = select 編號(hào) from 重點(diǎn)關(guān)注 where 編號(hào) =39。 amp。 amp。 39。 ‘查找數(shù)據(jù)庫(kù)代碼略 If () 0 Then 39。該犯已 經(jīng)是重點(diǎn)罪犯：更新記錄 Dim upsetstring As String = update 重點(diǎn)關(guān)注 set 日期 =39。 amp。 Today amp。 39。, 警號(hào) = 39。 amp。 amp。 39。,理由 = 39。 amp。 amp。 39。where 編號(hào)=39。 amp。 amp。 39。 ‘?dāng)?shù)據(jù)庫(kù)操作代碼，略 MsgBox( amp。 號(hào)罪犯已經(jīng)是重點(diǎn)罪犯，已更新了重點(diǎn)關(guān)注記錄 !, + , 已經(jīng)是重點(diǎn)罪犯 ) Catch () MsgBox(, + , 更新記錄錯(cuò)誤 ) End Try Else 39。新添加的重點(diǎn)罪犯：添加記錄 Dim addstring As String = insert into 重點(diǎn)關(guān)注 (日期 ,警號(hào) ,編號(hào) ,理由 ) values(39。 amp。 Today amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) Dim As New OleDbCommand(addstring) Try ‘?dāng)?shù)據(jù)庫(kù)操作代碼，略 MsgBox( amp。 號(hào)罪犯已被添加為重點(diǎn)關(guān)注罪犯 , 添加成功 ) Catch () MsgBox(, + , 插入記錄錯(cuò)誤 ) End Try End If Catch MsgBox(, + , 查詢(xún)是否錯(cuò)誤 ) End Try End If Catch MsgBox(, + ) End Try End If = = = End Sub 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 30 刑期變動(dòng) 界面 的實(shí)現(xiàn) 圖 刑期變動(dòng) 減刑摸排 界面 算法描述： 減刑摸排、假釋摸排、即將釋放罪犯摸排實(shí)現(xiàn)方法、界面類(lèi)似，都是通過(guò)對(duì)罪犯 的基本情況、考分情況進(jìn)行判定，篩選，顯示結(jié)果，此處以減刑摸排為例進(jìn)行說(shuō)明。在 主窗口 Frmmain 對(duì)象 上 單擊 “即將刑滿(mǎn)釋放”菜單項(xiàng) 時(shí) 調(diào)用函數(shù) 單擊“即將刑滿(mǎn)釋放”菜單項(xiàng)的響應(yīng)代碼 ： Private Sub mnuLetout_Click(ByVal sender As , ByVal e As ) Handles 39。單擊 “即將刑滿(mǎn)釋放 ”菜單項(xiàng) Dim release_crimerfrm As New SfrmscoreHZ() = 刑期變動(dòng) 即將刑滿(mǎn)釋放 = 即將刑滿(mǎn)釋放罪犯名單 = 分監(jiān)區(qū)刑期不足一月的罪犯情況如下： = False Dim strsqld As String = select 編號(hào) ,姓名 ,datediff(39。yyyy39。,出生日期 ,now())as 年齡 ,籍貫 ,罪名 ,原判刑期 ,datediff(39。d39。,now(),刑期止日 )as 剩余刑期天數(shù) from 罪犯 where datediff(39。d39。,now(),刑期止日 )=30 (strsqld) 39。調(diào)用函數(shù)在彈出的面板中顯示考分信息 (Me) End Sub 調(diào)用的函數(shù) load_scoredgHZ代碼 ： Public Sub load_scoredgHZ(ByVal strsql As String) 39。自定義的公用函數(shù)，用于 frmmain窗口中的菜單命令初始化彈出界面的 datagridview Try 自考計(jì)算機(jī)及應(yīng)用（本科）畢業(yè)設(shè)計(jì) 31 Dim da As New OleDbDataAdapter(strsql, gLinkSting) Dim ds As New DataSet() (ds, scoreinfo) = (scoreinfo).DefaultView Catch MsgBox(, + , 錯(cuò)誤 ) End Try End Sub 其他功能 界面 （ 代碼 略） 算法描述： 日歷功能調(diào)用 vs2021自帶的控件實(shí)現(xiàn)，辦公電話、關(guān)于、業(yè)務(wù)說(shuō)明界面均是靜態(tài)顯示界面 ，代碼略 。 圖 辦公助手 日歷查詢(xún)界面 圖 辦公助手 辦公電話界面 圖 幫助 關(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]孫惠滿(mǎn) .余國(guó)清 .楊昕 .數(shù)據(jù)庫(kù)應(yīng)用基礎(chǔ) .