数据库应用设计-计算机应用毕业设计-监区业务系统的分析与设计

1、精品文档分监区业务系统的分析与设计摘要:?分监区业务系统?是采用面向对象语言Visual basic.Net开发的一个关于监狱基层单位进行业务处理的数据库应用软件。本文主要介绍开发该应用软件的步骤：系统分析、系统设计、系统实现、系统测试。在系统分析中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块、所需的数据库表及表字段、菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码、以及菜单实现的方法。文章的最后那么给出了本系统的主要功能源代码。本系统具有数据输入，数据存储，信息查询，数据分析等功能，具有人机对话界面

2、友好、功能全面、操作方便等特点。关键词：面向对象Visual basic.Net 监狱 业务系统Abstract:“The service system of the prison area adopts a data base management system that Visual basic.Net developed .This design instruction has recommend the basic developing step of this system one by one: Network analysis,designs systematically,rea

3、lizes systematically,safeguards systematicallying. Successively with dataflow picture, data dictionary, function structure chart various kinds of datum analyticl system take of system in network analysis. In the design of the system, detailed each function module which has represented the system. Ne

4、cessary database form and literary name section. Design of the menu ,etc. In the realization of the system, provide and realize the incidents and codes of the corresponding function controlling part among forms. And the method that the menu realize. Provide the main function source code of this syst

5、em at the end of the article. This system has data entry , the data are stored, file inquiry, such functions as the report form is typed, the interactive interface friendship of the system. The systematic function is overall, it is a characteristic that is originally designed that users are easy to

6、operate. Key words: Archives Visual Basic.Net Prison The service system 1 绪 论1.1 设计目的监狱最基层的押犯单位分监区对在押罪犯进行考核评价是促其改造的重要方式，是表达司法公正的重要手段。本着理论联系实际的宗旨，我利用这次毕业设计实践的时机，在指导教师的帮助下，打算设计一套分监区业务系统，其主要功能是对罪犯考核评价。通过在实践中熟悉掌握软件的设计、编制、调试以及系统评价的一般过程，提升用计算机知识解决实际问题的能力，为以后的工作打下良好根底。1.2 设计背景“监狱信息化是引领监狱工作科学开展的必然要求。 1监狱传统的

7、运作方式中存在着工作随意、尺度不一、监管滞后的问题。推进监狱基层单位信息化办公，按照现代监狱的工作模式设计工作流程，能够以信息系统的强制型，来保障执法过程的标准型。目前，安徽省监狱办公、执法的信息化程度相对较低，“监狱综合业务平台虽然已经运行了近两年，但其针对分监区直接管理、评价罪犯的功能还有待细化。针对这种情况，在系统学习了计算机应用本科专业的全部理论课程后，我打算应用计算机科学理论和技术以及工程管理原那么和方法，按进度实现2“分监区业务系统。我提出了一套比拟适宜的施行方案：在熟悉计算机应用专业各门理论课的根底进行了大量的系统调查、分析、设计工作，在明晰整个系统构架、各阶段目标的前提下再着手

8、系统实现，如此既兼顾了个人能力水平有限，又兼顾了软件质量和进度要求。但由于本人的水平有限，且完成毕业设计仅一人独立操场，错误和缺乏难免。1.3 设计过程结合工作经历完成系统调查、需求分析，明确开发的应用程序要到达的目标和要实现的功能，再通过概念结构设计、逻辑结构设计、软件的编制、调试等一系列步骤实现软件的根本功能和完成设计报告。2 系统设计2.1 分监区业务系统的需求分析2.1.1 系统调查通过详细的系统调查。可以得到人工处理业务的流程，经总结后得到“分监区业务处理流程图，如下：指导员：管理民警权限；召开区务会讨论罪犯考分情况，根据区务会要求调整罪犯考分；内勤：次月初汇总罪犯上月日常分和劳动分

9、，形成罪犯考核分。负责维护罪犯的根本信息，添加新入罪犯、删除释放罪犯。承包民警：直接管理其承包的罪犯，平时依据条例赋予罪犯日常奖、扣分；可查阅罪犯信息。队长：负责生产，根据罪犯生产情况赋予罪犯劳动改造分；可查阅罪犯信息。图2.1 分监区业务处理流程图2.1.2 功能分析(1) 罪犯根本信息管理功能:主要实现罪犯的一些根本信息，如罪犯编号、姓名、籍贯、出生年月、罪名、犯罪类型、刑期、刑期起日、刑期止日、所在小组等，的修改、删除和查询功能。(2) 计分信息管理功能:主要实现考核分的一些根本信息，如劳动分、日常奖扣分的录入、修改、汇总、查询等功能。(3) 罪犯改造现状的评价功能:主要实现通过对罪犯根

10、本情况、考分情况的分析得出罪犯改造的现状、犯罪成因以供参考。(4)用户权限管理功能:主要实现民警权限的分配保障数据平安。 分监区业务系统的功能设计根据上述的功能，可以设计出系统的总体功能框架，如图2.1所示。分监区业务系统计分信息管理系统罪 犯 管 理 系 统改 造 评 价 系 统用 户 管 理 系 统密码设定用户登录用户信息维护罪犯信息的录入罪犯信息的查询罪犯信息的修改劳动分的计量日常分的计量现实表现分析犯罪成因分析图2.2 分监区业务系统总框架图 数据字典名字描 述定 义罪犯罪犯的有关信息，用于对罪犯确实认罪犯= 编号+姓名+出生日期+籍贯+罪名+原判刑期+刑期起日+刑期止日+所在小组犯罪

11、类型民警定义了民警的有关信息民警=警号+职务+姓名+承包组号+登录密码考核定义了考分的有关信息考核=序号+时间+警号+编号+劳动分+日常分+理由月考分=月份+编号+姓名+得分重点罪犯定义了评价的有关信息重点罪犯=日期+编号+警号+原因表2.1 数据字典2.2 概念模型设计2.2.1 概念模型设计的方法概念设计阶段我采用自底向上的方法，即自顶向下的进行需求分析，然后再自底向上的进行概念结构设计。对已经细化到无法再分的阶段逐步集成在一起，最终合成一个全局概念模式。民警用户信息管理登陆系统罪犯信息管理计分考核信息管理罪犯评价信息管理其他功能退出图2.3 概要设计形象图说明：(1) 民警用户信息管理：

12、民警根据分配的权限职务进行自己的信息维护、他人信息的查询、用户的增加、删除、修改。(2) 罪犯信息管理：民警根据权限进行罪犯信息的添加、修改、删除、查询。(3) 计分考核信息管理：民警根据权限进行罪犯日常分和劳动分的录入、修改、月得分汇总。(4)罪犯评价：分为重点关注犯评价、犯群分析、个别分析，系统量化分析辅助民警管理。(5)其他功能：日历查询、业务说明、 簿等功能。 概念模型设计的步骤第一步是进行局部视图的设计：由于高层的数据流图只能反映系统的概貌，而中层流图能较好的反映系统中各局部应用的子系统组成，因此我先逐一的设计分E-R图。第二步是进行视图的集成：各子系统的E-R图设计好之后，下一步就

13、是要将所有的分E-R图合成一个系统的总E-R图。2.2.2 分监区业务系统总E-R图罪犯编号民警承包组号日常分劳动分分民警重点关注考核姓名出生日期罪名刑期时间得分民警警号姓名职务日期成因现状刑期起日密码刑期止日图2.4 分监区业务系统总E-R图2.3 逻辑结构设计2.3.1 E-R图向关系模型的转换 将概念结构E-R图转化成关系模型。1罪犯编号、姓名、出生年月、籍贯、罪名、犯罪类型、原判刑期、刑期起日、刑期止日、所在小组；2警察警号、姓名、职务、承包小组、密码、备注；3考核序号、警号、编号、时间、劳动分、日常分、理由；4重点关注时间、警号、编号、原因；5月考分月份、编号、姓名、得分。2.3.2

14、 转化的关系模式进行优化经验证：1罪犯编号、姓名、出生年月、籍贯、罪名、犯罪类型、原判刑期、刑期起日、刑期止日、所在小组；2警察警号、姓名、职务、承包小组、密码、备注；3考核序号、警号、编号、时间、劳动分、日常分、理由；4重点关注时间、警号、编号、原因；四个关系中的数据依赖均是直接依赖，但是有：考核.序号，考核.警号,考核.编号 考核.劳动分，考核.日常分月考分.得分，即存在传递依赖，可能导致数据库数据不一致的现象存在。实际应用的业务流程中，严格控制了劳动分、日常分生成和月考分生成的先后顺序劳动分、日常分本月生成，月考分次月生成，在劳动分和日常分调整前方可以汇总成月考分，生成后考分不可以进行更

15、改，如此防止了数据不一致，故为了方便地实现系统功能，不将其分解为3FN。2.3.3 数据库的结构 各表的结构，其相应标的定义如下：表2.2 民警信息的结构字段号数据类型长度约束警号文本10主键姓名文本8不为空职务文本20不为空承包组文本2不为空密码文本10不为空备注文本40可为空表2.3 罪犯信息的结构字段名数据类型长度约束编号文本10主键姓名文本10不为空出生日期日期不为空籍贯文本10不为空罪名文本20不为空原判刑期文本10不为空刑期起日日期不为空刑期止日日期不为空所在小组文本1不为空犯罪类型文本20不为空表2.4 考核信息的结构字段名数据类型长度约束序号长整型主键警号文本10主键外键编号文

16、本10主键外键劳动分数字不为空日常分数字不为空理由文本30不为空时间时间不为空表2.5 重点关注信息的结构字段名数据类型长度约束日期日期主键警号文本10主键外键编号文本10主键外键理由文本30不为空表2.6 月得分信息的结构字段名数据类型长度约束月份文本20主键编号文本10主键外键姓名文本20主键外键得分数字不为空3 应用系统实现3.1 用户登录界面的实现图3.1 用户登录界面算法描述：通过连接命令连接数据库，把用户输入的“警号和“密码信息和数据库信息进行比对，如相符那么加载主页面，否那么拒绝。frmLogin窗体代码(“确定按钮响应)：Private Sub OK_Click(ByVal s

17、ender As System.Object, ByVal e As System.EventArgs) Handles OK.Click '确定按钮响应 Dim sql As String If UsernameTextBox.Text <> "" And PasswordTextBox.Text <> "" Then Try sql = "select * from 警察 where 警号=" & "'" & UsernameTextBox.Text &a

18、mp; "'" Dim da As New OleDbDataAdapter(sql, gLinkSting) Dim ds As New DataSet() Dim tb As DataTable da.Fill(ds, "Mytable") tb = ds.Tables("Mytable") If tb.Rows.Count() = 0 Then MsgBox("对不起，您输入的警号不存在!", MsgBoxStyle.OkOnly, "谢谢使用") UsernameTextBox.

19、Focus() ElseIf tb.Rows(0).Item("密码").ToString <> PasswordTextBox.Text Then MsgBox("同志" & Chr(13) & "您的警号或密码不正确" & Chr(13) & "请重新登录", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "登录失败") UsernameTextBox.Focus() Else Dim mainf As Ne

20、w frmmain() '加载程序主界面 mainf.ShowDialog(Me) End If Catch MsgBox(Err.Description) UsernameTextBox.Focus() End Try Else UsernameTextBox.Focus() If UsernameTextBox.Text = "" Then MsgBox("警号不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, " 警号为空") Else MsgBox("密码

21、不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "密码为空") End If End If UsernameTextBox.Text = "" PasswordTextBox.Text = "" End Sub3.2 分监区业务管理系统主程序界面的实现图3,2 分监区业务系统主界面算法描述：frmmain窗体加载时统计罪犯总数、登录民警的姓名、承包组、当日重点罪犯情况并利用laber和datagridview控件显示。同时通过设定界面上菜单的enabled属性控制用户

22、的权限。frmmain窗体类加载窗体事件的代码节选： Public Sub refreshmainC() '更新主界面显示重点犯的datagridview界面的自定义函数 Try Dim strfre As String = "select 重点关注.编号,罪犯.姓名,出生日期,罪犯.罪名,犯罪类型,罪犯.原判刑期,刑期起日,刑期止日,(重点关注.理由) as 关注原因from 罪犯,重点关注where 重点关注.编号=罪犯.编号" Dim da As New OleDbDataAdapter(strfre, gLinkSting) Dim ds As New Da

23、taSet() da.Fill(ds, "crimeinfo") datagridview_crime.DataSource = ds.Tables.Item("crimeinfo").DefaultView Catch MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, " 错误") End Try End Sub'更新主界面显示用户信息的datagridview界面的公共函数refreshmainP()与refreshmain类似，此处不列举

24、查询登录民警职务的功能代码： Dim comfineauth As New OleDbCommand("select 职务from 警察where 警号='" & frmLogin.strPoliceNumber & "'") With comfineauth .Connection = New OleDbConnection(gLinkSting) .Connection.Open() authority = .ExecuteScalar() .Connection.Close() End With '查询后，设

25、置权限的功能代码 Select Case authority Case "指导员" mnuChUM.Enabled = False '禁修改用户 mnuChUA.Enabled = False '禁添加用户 mnuChUD.Enabled = False '禁删除用户 mnuAddCr.Enabled = False '禁调入罪犯 mnuChangeCri.Enabled = False '禁修改罪犯 mnuDeleteCri.Enabled = False '禁调出罪犯 mnuWriWsco.Enabled = False

26、'禁劳动分录入队长、内勤、承包民警权限设置的代码与上述代码类似，此处不列举 End Select3.3 修改密码界面的实现图3,3 用户管理-修改密码 界面算法描述：单击主界面 frmmain窗体类中“更改密码菜单项后弹出“更改密码界面UfrmChangPW窗体对象，其中“提交按钮响应更改操作：首先核实输入信息是否正确，输入合法后更新数据库并提示结果。UfrmChangPW窗体类中OK_Click按钮“提交按钮的响应代码：Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha

27、ndles cmdSubmit.Click '“提交按钮响应 If txtOldPass.Text <> frmLogin.strPolicePass Then MsgBox("密码不正确！", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "密码错误") txtOldPass.Text = "" txtOldPass.Focus() ElseIf txtNewPass.Text = "" Then MsgBox("新密码不能为空！&quo

28、t;, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, "新密码为空") txtNewPass.Focus() ElseIf txtNewPass.Text <> txtNewPass2.Text Then MsgBox("两次输入的密码不相符！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "警告") txtNewPass.Text = "" txtNewPass2.Text = "" txtNew

29、Pass.Focus() Else Dim updatestring As String = "update 警察 set 密码='" & txtNewPass.Text & "'where 警号 = '" & frmLogin.strPoliceNumber & "'" Dim com As New OleDbCommand(updatestring) Try With com .Connection = New OleDbConnection(gLinkSting)

30、.Connection.Open() .ExecuteReader() .Connection.Close() End With MsgBox("密码已经成功修改！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "恭喜") Me.Close() Catch com.Connection.Close() MsgBox(Err.Description, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "错误") End Try txtOldPass.Tex

31、t = "" txtNewPass.Text = "" txtNewPass2.Text = "" End If End Sub3.4 查看、修改用户、添加用户、删除用户界面的实现图3,4 用户管理-查看现有用户 界面图3,5 用户管理-修改用户信息 界面算法描述：“查看用户功能是通过单击在主界面的“查看现有用户菜单项，通过查询数据库并在datagridview控件上显示，查询语句是： "select 警号,姓名,职务,承包组,备注from 警察"，实现过程与“3.2 分监区业务管理系统主程序界面的实现局部列举的r

32、efreshmainC函数实现类似，详细代码在此不列举；“修改用户、 “添加用户、 “删除用户操作的实现均是通过先在数据库中查找用户并对输入信息进行核实，再对数据库进行相应的修改、添加、删除操作。在frmChangUse窗体类中“查找用户按钮的响应代码的功能段节选： Dim sql As String If boxChUNu.Text <> "" Then Try sql = "select * from 警察 where 警号=" & "'" & boxChUNu.Text & "

33、;'" Dim da As New OleDbDataAdapter(sql, gLinkSting) Dim ds As New DataSet() Dim tb As DataTable da.Fill(ds, "Mytable") tb = ds.Tables("Mytable") If tb.Rows.Count() = 0 Then MsgBox("对不起，输入的警号不存在!", MsgBoxStyle.OkOnly, "请重新输入警号") Else boxChUNu.Text = tb

34、.Rows(0).Item("警号") strFPNu = boxChUNu.Text boxChUNa.Text = tb.Rows(0).Item("姓名") boxChUDu.Text = tb.Rows(0).Item("职务") boxChUMa.Text = tb.Rows(0).Item("承包组") boxChUOt.Text = tb.Rows(0).Item("备注") butChUM.Enabled = True butChUD.Enabled = True butChUA

35、.Enabled = True End If Catch MsgBox(Err.Description) boxChUNu.Focus() End Try Else boxChUNu.Focus() MsgBox("警号不能为空", MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, " 警号为空") End If strFPMa = boxChUMa.Text labChangeU.Text = "请进行修改或者删除用户"在frmChangUse窗体类中修改用户按钮的代码选段 Private

36、Sub butChUM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butChUM.Click ' 修改用户按钮的实现 Dim sql As String Dim ifchanged As String = "ture" If strFPNu = boxChUNu.Text And boxChUNa.Modified = False And boxChUDu.Modified = False And boxChUMa.Text = strFPMa And boxC

37、hUOt.Modified = False Then MsgBox("您没有修改用户信息!", MsgBoxStyle.OkOnly , "没有修改") ifchanged = "false" ElseIf strFPNu <> boxChUNu.Text Then '对警号进行了修改那么先查找警号是否冲突 查找代码与本节“查找用户局部查找代码相同，此处略 MsgBox("警号冲突！", MsgBoxStyle.OkOnly, "警号冲突") '如果冲突的话必须重填

38、ifchanged = "false" End If End If If ifchanged = "ture" Then Dim updatestring As String = "update 警察 set 警号='" & boxChUNu.Text & " ',职务='" & boxChUDu.Text & " ',姓名='" & boxChUNa.Text & " ',承包组='

39、;" & boxChUMa.Text & " ',备注='" & boxChUOt.Text & " 'where 警号 = '" & strFPNu & " '" Dim com As New OleDbCommand(updatestring) Try With com .Connection = New OleDbConnection(gLinkSting) .Connection.Open() .ExecuteReader() .

40、Connection.Close() End With MsgBox("用户信息已经成功修改！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "恭喜") Me.Close() Catch com.Connection.Close() MsgBox(Err.Description, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "错误") End Try End If labChangeU.Text = strFPNu mymainfrom.refre

41、shmainP()End Sub' 添加和删除用户功能的实现与修改用户代码类似，详细代码在此不列举' 删除用户按钮的实现的SQL语句："delete from 警察 where 警号 = '" & boxChUNu.Text & "'"' 添加用户按钮的实现的SQL语句："insert into 警察(警号,密码,姓名,职务,承包组,备注) values('" & boxChUNu.Text & "','" &

42、boxChUNu.Text & "','" & boxChUNa.Text & "','" & boxChUDu.Text & "','" & boxChUMa.Text & "','" & boxChUOt.Text & "') "，在添加用户前判断了警号是否冲突3.5 查看承包组、查看所有罪犯、查找罪犯界面的实现图3.6 罪犯信息-查看所有罪犯 界面

43、图3.7 罪犯信息-查看承包组罪犯 界面算法描述：在主界面 frmmain窗体对象上单击“查看承包组罪犯、“查看所有罪犯、“查找罪犯菜单项，通过连接命令查询数据库，并将结果用datagridview控件上显示出来。“查找罪犯按钮的响应代码： Private Sub butCriF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCriF.Click '响应“查找罪犯按钮 labmain.Text = "罪犯信息如下：" Try Dim strCrimefind

44、As String = "" If tbCrimeNa.Text = "" And tbCrimeNu.Text <> "" Then '输入了罪犯编号，姓名空 strCrimefind = "select 编号,姓名,罪名,刑期止日 from 罪犯where 编号=" & "'" & tbCrimeNu.Text & "'" ElseIf tbCrimeNa.Text <> "" A

45、nd tbCrimeNu.Text = "" Then '输入了罪犯姓名，编号空 strCrimefind = "select 编号,姓名,罪名,刑期止日 from 罪犯where 姓名like " & "'" & tbCrimeNa.Text & "%" & "'" ElseIf tbCrimeNa.Text <> "" And tbCrimeNu.Text <> "" Th

46、en '输入了姓名和编号 strCrimefind = "select 编号,姓名,罪名,刑期止日 from 罪犯where 姓名like " & "'" & tbCrimeNa.Text & "%" & "'" & "And" & " 编号= " & " '" & tbCrimeNu.Text & "'" End If If

47、 strCrimefind <> "" Then Dim da As New OleDbDataAdapter(strCrimefind, gLinkSting) Dim ds As New DataSet() da.Fill(ds, "findcrimeinfo") datagridview_crime.DataSource = ds.Tables.Item("findcrimeinfo").DefaultView If datagridview_crime.RowCount = 0 Then '查无此人 Msg

48、Box("查无此人，请确保输入的信息无误", MsgBoxStyle.OkOnly, "查无此人") Else '查找到结果 Dim cell_crime As DataGridViewCell = datagridview_crime.CurrentCell ' tbCrimeNu.Text = datagridview_crime(0, rownuber).Value.ToString tbCrimeNa.Text = datagridview_crime(1, rownuber).Value.ToString CrimeNuber

49、= tbCrimeNu.Text butCriM.Enabled = True butCriD.Enabled = True End If Else : MsgBox("请输入罪犯编号或者姓名", MsgBoxStyle.OkOnly, "编号和姓名为空") End If Catch MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, " 错误") End TryEnd Sub' “查看承包组罪犯、“查看所有罪犯的代码与“3.2 分监区业务管理系

50、统主程序界面的实现上查询并显示重点罪犯的代码类似，在此不列举。3.6 调入、修改、调出罪犯界面以修改罪犯信息为例的实现图3.8 罪犯信息-调入罪犯 界面图3.9 罪犯信息-修改罪犯信息 界面算法描述：调入罪犯通过对用户提交的信息进行审核后提交数据库、“修改罪犯信息和“调出罪犯操作均先通过“查找按钮查找罪犯，再在datagridview上单击选择列表中的查找结果记录，通过cellclick事件将信息框填满，最后进行“修改或“删除操作。在调入和修改罪犯信息时对提交的罪犯编号进行了核查，防止编号相同。在主界面CfrmChangeCrime窗体类中“提交按钮事件的代码： Private Sub but

51、MC_subm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butMC_subm.Click ' 提交修改罪犯信息按钮的实现 Dim sql As String Dim ifchanged As String = "ture" If tbMC_nu.Modified = False And tbMC_na.Modified = False And tbMC_br.Modified = False And tbMC_ht.Modified = False And t

52、bMC_gu.Modified = False And tbMC_gt.Modified = False And tbMC_sd.Modified = False And tbMC_ed.Modified = False And tbMC_cl.Text = strCriL And tbMC_gn.Text = strCriG Then MsgBox("您没有修改罪犯信息!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "没有修改") '没有修改任何信息的情况 ifchanged = "

53、false" ElseIf tbMC_nu.Modified = True Then '对罪犯编号进行了修改那么先查找编号是否冲突 sql = "select 编号 from 罪犯 where 编号='" & tbMC_nu.Text & "'" Dim da As New OleDbDataAdapter(sql,gLinkSting) Dim ds As New DataSet() Dim tb As DataTable da.Fill(ds, "Mytable") tb = ds

54、.Tables("Mytable") If tb.Rows.Count() <> 0 Then '有冲突那么进行进一步修改 MsgBox("罪犯编号冲突！", MsgBoxStyle.OkOnly + MsgBoxStyle.OkOnly, "编号冲突") ifchanged = "false" End If ElseIf tbMC_nu.Modified = False Then ifchanged = "ture" End If If ifchanged = "ture" Then Dim updatestring As String = "update 罪犯 set 编号='" & tbMC_nu.Text & " ',姓名='" & tbMC_na.Text & " ',出生日期='" & tbMC_br.Text & " ',籍贯='" & tbMC_ht.Text & " &