【正文】 = strCriG Then 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 19 MsgBox(您沒有修改罪犯信息 !, + , 沒有修改 ) 39。在 調(diào)入和 修改罪犯信息時對提交的罪犯編號進(jìn)行了核查，防止編號相同。 “查看承包組罪犯”、“查看所有罪犯”的代碼與“ 分監(jiān)區(qū)業(yè)務(wù) 管理 系統(tǒng)主程序 界面 的實現(xiàn)”上查詢并顯示重點罪犯的代碼類似，在此不 列舉。查找到結(jié)果 Dim cell_crime As DataGridViewCell = 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。 amp。 39。 And amp。 39。 amp。 39。 ElseIf And Then 39。 % amp。 amp。輸入了罪犯姓名，編號空 strCrimefind = select 編號 ,姓名 ,罪名 ,刑期止日 from 罪犯 where 姓名 like amp。 39。 amp。輸入了罪犯編號，姓名空 strCrimefind = select 編號 ,姓名 ,罪名 ,刑期止日 from 罪犯 where 編號 = amp。 “查找罪犯”按鈕的響應(yīng)代碼： Private Sub butCriF_Click(ByVal sender As , ByVal e As ) Handles 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 刪除用戶按鈕的實現(xiàn) 的 SQL語句： delete from 警察 where 警號 = 39。 Dim As New OleDbCommand(updatestring) Try With .Connection = New OleDbConnection(gLinkSting) .() .ExecuteReader() .() End With MsgBox(用戶信息已經(jīng)成功修改！ , + , 恭喜 ) () Catch () MsgBox(, + , 錯誤 ) End Try End If = strFPNu () End Sub 39。 strFPNu amp。where 警號 = 39。 amp。,備注=39。 amp。,承包組 =39。 amp。,姓名 =39。 amp。,職務(wù)=39。 amp。如果沖突的話必須重填 ifchanged = false End If End If If ifchanged = ture Then Dim updatestring As String = update 警察 set 警號 =39。 修改用戶按鈕的實現(xiàn) Dim sql As String Dim ifchanged As String = ture If strFPNu = And = False And = False And = strFPMa And = False Then 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 15 MsgBox(您沒有修改用戶信息 !, , 沒有修改 ) ifchanged = false ElseIf strFPNu Then 39。 39。 amp。 在 frmChangUse窗體 類 中 “ 查找用戶 ” 按鈕的響應(yīng)代碼的功能段節(jié)選 ： Dim sql As String If Then 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 14 Try sql = select * from 警察 where 警號 = amp。 39。 amp。 39。 amp。 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 12 UfrmChangPW窗體類中 OK_Click按鈕（“提交”按鈕）的響應(yīng)代碼： Private Sub OK_Click(ByVal sender As , ByVal e As ) Handles 39。禁調(diào)出罪犯 = False 39。禁調(diào)入罪犯 = False 39。禁添加用戶 = False 39。查詢后， 設(shè)置權(quán)限 的功能代碼 Select Case authority Case 指導(dǎo)員 = False 39。 39。 amp。更新主界面顯示重點犯的 datagridview界面的 自定義 函數(shù) Try Dim strfre As String = select 重點關(guān)注 .編號 ,罪犯 .姓名 ,出生日期 ,罪犯 .罪名 ,犯罪類型 ,罪犯 .原判刑期 ,刑期起日 ,刑期止日 ,(重點關(guān)注 .理由 ) as 關(guān)注原因 from 罪犯 ,重點關(guān)注 where 重點關(guān)注 .編號 =罪犯 .編號 Dim da As New OleDbDataAdapter(strfre, gLinkSting) Dim ds As New DataSet() (ds, crimeinfo) = (crimeinfo).DefaultView Catch MsgBox(, + , 錯誤 ) End Try End Sub 39。同時 通過設(shè)定界面上菜單的enabled 屬性控制用戶的權(quán)限。 請重新登錄 , + , 登錄失敗 ) () Else Dim mainf As New frmmain() 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(對不起，您輸入的警號不存在 !, , 謝謝使用 ) () ElseIf (0).Item(密碼 ).ToString Then MsgBox(同志 amp。 amp。 39。 frmLogin 窗體代碼 (“確定”按鈕響應(yīng) )： Private Sub OK_Click(ByVal sender As , ByVal e As ) Handles 39。實際應(yīng)用的業(yè)務(wù)流程中，嚴(yán)格控制了勞動分、日常分生成和月考分生成的先后順序（勞動分、日常分本月生成，月考分次月生成），在勞動分和日常分調(diào)整后方可以匯 總成月考分，生成后考分不可以進(jìn)行更改，如此避免了數(shù)據(jù)不一致，故為了方便地實現(xiàn)系統(tǒng)功能，不將其分解為 3FN。 （ 1） 罪犯（ 編號 、姓名、出生年月、籍貫、罪名、犯罪類型、原判刑期、刑期起日、刑期止日、所在小組） ； （ 2） 警察（ 警號 、姓名、職務(wù)、承包小組、密碼、備注） ； （ 3） 考核（序號、 警號、編號 、時間、勞動分、日常分、理由） ； （ 4） 重點關(guān)注（時間、 警號、編號 、 原因 ） ； （ 5） 月考分（月份、 編號 、姓名、得分） 。 第二步是進(jìn)行視圖的集成：各子系統(tǒng)的 ER 圖設(shè)計好之后，下一步就是要將所民警用戶 信息管理 登陸 系統(tǒng) 罪犯信 息管理 計分考核 信息管理 罪犯評價 信息管理 其他 功能 退出 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 6 有的分 ER 圖合成一個系統(tǒng)的總 ER圖。 (5)其他功能：日歷查詢、業(yè)務(wù)說明、電話簿等功能。 (3) 計分考核信息管理 ： 民警根據(jù)權(quán)限進(jìn)行罪犯日常分和勞動分的錄入、修改、月得分匯總 。 圖 概要設(shè)計形象圖 說明： (1) 民警用戶信息管理 ： 民警根據(jù)分配的權(quán)限（職務(wù)）進(jìn)行自己的信息維護(hù)、他人信息的查詢、用戶的增加、刪除、修改 。 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 4 圖 分監(jiān)區(qū)業(yè)務(wù) 系統(tǒng) 總框架圖 數(shù)據(jù)字典 表 數(shù)據(jù)字典 名字 描 述 定 義 罪犯 罪犯的有關(guān)信息，用于對罪犯的確認(rèn) 罪犯 = 編號 +姓名 +出生日期 +籍貫 +罪名 +原判 刑期 +刑期起日 +刑期止日 +所在小組犯罪類型 民警 定義了民警的有關(guān)信息 民警 =警號 +職務(wù) +姓名 +承包組號 +登錄密碼 考 核 定義了考分的有關(guān)信息 考 核 =序號 +時間 +警號 +編號 +勞動分 +日常分 +理由 月考分 =月份 +編號 +姓名 +得分 重點罪犯 定義了評價的有關(guān)信息 重點罪犯 =日期 +編號 +警號 +原因 改 造 評 價 系 統(tǒng) 計分信息管理系統(tǒng) 罪 犯 管 理 系 統(tǒng) 分監(jiān)區(qū)業(yè)務(wù)系統(tǒng) 用 戶 管 理 系 統(tǒng) 罪犯信息的錄入 罪犯信息的查詢 罪犯信息的修改 勞動分的計量 日常分的計量 犯罪成因分析 現(xiàn)實表現(xiàn)分析 用戶登錄 密碼設(shè)定 用戶信息維護(hù) 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 5 概念模型設(shè)計 概念模型設(shè)計的方法 概念設(shè)計階段我采用自底向上的方法，即自頂向下的進(jìn) 行需求分析，然后再自底向上的進(jìn)行概念結(jié)構(gòu)設(shè)計。 承包民警：直接管理其承包的罪犯，平時依據(jù)條例賦予罪犯日常獎、扣分；可查閱罪犯信息。 指導(dǎo)員：管理民警權(quán)限；召開區(qū)務(wù)會討論罪犯考分情況，根據(jù)區(qū)務(wù)會要求調(diào)整罪犯考分； 內(nèi)勤：次月初匯總罪犯上月日常分和勞動分，形成罪犯考核分。 (4)用戶權(quán)限管理功能 :主要實現(xiàn) 民警 權(quán)限的分配 保障數(shù)據(jù)安全 。 (2) 計分 信息管理 功能 :主要 實現(xiàn) 考核分 的一些基本信息，如 勞動分、日常獎扣分 的 錄入 、修改、 匯總、 查詢 等功能 。 自考計算機及應(yīng)用（本科）畢業(yè)設(shè)計 3 2 系統(tǒng)設(shè)計 分監(jiān)區(qū)業(yè)務(wù)系統(tǒng)的需求分析 系統(tǒng)調(diào)查 通過詳細(xì)的系統(tǒng)調(diào)查。 但由于本人的水平有限，且完成畢業(yè)設(shè)計僅一人獨立操場，錯誤和不足難免。 針對這種情況， 在系統(tǒng)學(xué)習(xí)了計算機應(yīng)用本科專業(yè)的全部理論課程后，我打算應(yīng)用計算機科學(xué)理論和技術(shù)以及工程管理原則和方法，按進(jìn)度實現(xiàn) [2]“分監(jiān)區(qū)業(yè)務(wù) 系統(tǒng)”。 推進(jìn)監(jiān)獄基層單位信息化辦公 ，按照現(xiàn)代監(jiān)獄的工作模式設(shè)計工作流程， 能夠 以信息系統(tǒng)的強制型，來保障執(zhí)法過程