影院订票管理系统实验报告

1、软件工程实验报告一系统概述；1项目需求 ；2需求分析； 二项目开发计划书； 三设计说明书；1分析与创建数据库2 创建登陆窗体模块；3 创建售票窗体模块4创建检票界面5创建维护界面1创建影库界面2 创建职工界面3 创建票务界面 四用户操作手册； 五改进意见； 六自我评价； 七参考资料、书籍； 一系统概述； 1项目需求；现在中国大部分的家庭都喜欢在家里置办属于自己风格的家庭影院。但是， 仍然有很多人喜欢到电影院去看电影。因为家里的气氛毕竟不如影院好。所以，现代家庭影院的出现并不会让电 影院没有生路。每个社会服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应该来说比其他的社

2、会服务系统的管理要简单一点。 电影院不外乎是引进电影， 制定播放影片的 时间表， 买票， 检票进场观看， 还有就是一些数据管理方面的事。 如工作人员管理， 票务管理等等。 为了工作机制简单有序，必然要引进一套管理系统。2需求分析；具体而言，影院售票系统需要实现以下的需求：（1）能够对播放电影，工作人员，售票事宜，检票事宜，无用数据进行处理。（2）售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就是 预订电影票其实也就相当于买票。两者可以当一回事处理。（3）检票管理事宜要完成观众进场时检票的事宜。其中包括了电影票的真假检测问题。（4）数据管理要处理电影的播放的次序，工

3、作人员的管理，以及过期电影票的处理问题。二项目开发计划书；根据需求分析的结果，本小组成员讨论协商，决定本系统主要划分为以下三个子模块：售票 管理模块、检票管理模块、数据管理模块。影院售票管理系统是一个基于电影院工作人员的系统， 不同类型的用户在系统中有不同的权限。 主 要有三种用户：1 售票管理人员： 主要负责卖票，订票及退票事宜；2 检票管理人员： 主要负责观众进场时检票工作，以及辨认电影票的真假（此工作自然可以由 服务系统来完成）；3 数据处理人员： 主要负责播放电影导入数据库，工作人员的应聘以及开除的数据管理，还有 过期电影票的数据处理；以下分别介绍此系统中各个系统（ 3 个子模块。）：

4、（1）售票系统模块给观众提供售票服务。不同的位置有不同的价格。要选购哪个位置由观众决定。工作人员根据 观众的需要进行操作。系统在购票成功后会产生一个验证码，此验证码连工作人员都不知道。是随 机生成的。用于对电影票真假的辩识。（2）检票系统模块 在观众进场时所使用的系统。由扫描仪扫描，取的验证码，然后进行辩识，看是不是和数据库 中数据一样，如果一样，则电影票为真，否则电影票为假。由此来决定让不让观众入场。（3）维护系统模块此模块是由电影院的数据库管理员来管理的。他根据电影院事情的需要对有关数据进行处理。 如电影票的管理，工作人员的管理，和电影库的管理等。整个系统的结构如下图 1 所示：以下分别介

5、绍系统中数据系统3个子模块。（1）影片播放管理模块影片播放管理是对电影院播放的电影的充实，设定电影的播放，以及电影时间的设定。当所设 定的电影已经播放完成后，要对其进行删除。还要对数据库进行清理，把一些没用的数据全部清除。（2 ）工作人员管理：电影院里当然有工作人员的增加与开除，以及他们的管理权限的变化。这一部分事件的发生都需要数据库管理人员将有关数据进行处理。保证数据库里数据的统一与完整。其中有他们的共号，登陆电影院管理系统的密码，以及所拥有的权限。（3 ）过期票务管理：电影院里的电影在放过以后，在数据库的电影票数据就会变成没有用的数据。通过此管理可以 把那些没用的过期的数据清除。这里指的是

6、与放过的电影同名的电影票清除，而其他的电影票保存不变。小组人员分工情况：王圣武登陆界面和售票界面、系统转换界面的程序编写，整个系统框架的设计，整个系统界面及美化设计，整个系统流程的管理，创建数据库张润驰检票系统和整个维护系统的程序编写，局部框架辅助设计，创建数据库本系统后台数据库采用目前比较流行的Microsoft SQLSever，该数据库系统在安全性、准确性、运行速度方面有绝对的优势，并且处理数据量大、效率高；前台采用Microsoft 公司的2003 作为主要的开发工具，其可与 SQL Sever 2000数据库无缝衔接。三.设计说明书；1 .分析与创建数据库；根据系统的功能分析结果，影

7、院售票管理系统将会使用Microsoft SQL Sever 2000 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之间进行频繁数 据交换，所以采用 Microsoft SQL Sever 2000作为后台的数据库管理系统。在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，由于要进行职工管理，还需要掌握使用本系统的职工。表1存储硬库信息列表，表2存储了电影院座位的相关数据连接关系，表3存储了电影票销售情况管理，表4存储了系统使用者职工的相关情况的管理列表。表1影库管理表-MOVIES字段名称数据类型字段属性字段大小作用必填字段索引是否主键Movi

8、e_idsmalli nt2电影号是有（无重复）是Movie_ nameNvarchar50电影名称是无actorNvarchar50导演否无actressNvarchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时间是无表2电影院座位管理表芟-SEATS字段名称数据类型字段属性字段大小作用必填字段索引是否主键seatidsmalli nt2座位号是有（无重复）是pricefloat8票价是无soldor notsmalli nt2是否售出是无表3电影票信息表-TICKETS字段名称数据类型字段属性字段大小作用必填字段索引是否主键ticke

9、tsidsmalli nt2电影票号是有（无重复）是seatidsmalli nt2座位号是有Movie_idsmalli nt2电影号是有Movie_ nameNvarchar50电影名否无palydatedatetime8上映时间是无pricefloat8价格是无yan zhe ngmasmalli nt2验证码是无是表4 职工信息表-WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmalli nt2职工号是无是passwordsmalli nt2职工密码是无leibiesmalli nt2职工类型是无根据规范化的设计理念，本管理系统的数据分成上面4

10、个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：2 .创建登陆窗体模块；（1）窗体模块的功能登陆窗体（2）窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面 的设计如图3所示。（3）窗体代码ImportsPublic Class Form1InheritsDim navigator As BindingManagerBaseDim mycon As NewSqlConnectionDim mycom As NewSqlCommandDim mycom1 As NewSqlCommandDim frm2

11、As NewForm2' 用来对记录导航' 连接对象' 命令对象Dim frm3 As NewForm3Dim frm8 As NewForm8Private Sub Timer1_Tick( ByVal sender As , ByVal e As Handles (0).Text =End SubPrivate Sub GroupBox1_Enter( ByVal sender As , ByVal e As Handles If = True Then= False= FalseElseIf = True Then= False= FalseElseIf = Tr

12、ue Then= False= FalseEnd IfEnd SubPrivate Sub Button1_Click( ByVal sender As , ByVal e As Handles 实验运行场 程序设计 电影院票务系统 登陆界面 "= False()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As Integertox1 = Valtox2 = Val= "initial c

13、atalog=ticketbooking;user id=sa;password=;"=mycon'通过MYCON连接对象操作数据库= ' 设置命令类型= "select * from workers"'设置要执行的命令Try()= mycomCatch ex As Exception("连接失败 ")Finally()End Try(myds, "workers")For i = 0 To ("workers"). - 1If tox1 = Val("workers&q

14、uot;).Rows(i).ItemArray(0)Thenj = 0Exit ForElse j = 1End IfNextFor i = 0 To ("workers"). - 1If tox2 = Val("workers").Rows(i).ItemArray(1)Thenj = 0Exit ForElse j = 1End IfNextIf j = 1 Then(" 您的工号或者密码错误 ", " 错误提示 ", ,ElseTry = mycon'通过MYCON连接对象操作数据库设置命令类型CSt

15、r (tox1) + "and password=" += "select leibie from workers where workerid=" +CStr (tox2) + ""' 设置要执行的命令Dim mydataadapter1 As NewSqlDataAdapter = mycom1Dim myds1 As NewDataSet(myds1, "workers")If = True And Val("workers").Rows(0)("leibie"

16、) = 1 ()()ElseIf = True And Val("workers").Rows(0)("leibie") = 2 ()()ElseIf = True And Val("workers").Rows(0)("leibie") = 3 ()()Else(" 您超出职责范围 或未选择服务系统，请重新输入！ End IfCatch ex As ExceptionEnd TryEnd IfThenThenThen错误提示 ", , ,End SubPrivate Sub Form1_Loa

17、d( ByVal sender As , ByVal e As Handles 实验运行场 程序设计 电影院票务系统 登陆界面 "()End SubPrivate Sub Button2_Click( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7If = Then()()()End IfEnd SubEnd Class3 创建售票窗体模块(1 ) 窗体模块的功能 为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位 不同的座位有不同的价格。此窗体还有退票功能。(2 ) 窗体界面的设计

18、 在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面 的设计如下图所示。(3) 代码编写ImportsPublic Class Form2用来对记录导航InheritsDim mycon As NewSqlConnectionDim mycom As NewSqlCommandDim navigator As BindingManagerBasePrivateSub Form2_Load( ByVal senderAs , ByVal e AsHandles()()'()实验运行场程序设计电影院票务系统销售界面 .swf"实验运行场程序设计电影院票务系统检票

19、界面下 .swf"Dim mydataadapterAs NewSqlDataAdapter连接对象命令对象Dim myds As NewDataSetDim i As IntegerDim j As IntegerDim strrow As StringDim dt As NewDataTable= "initial catalog=ticketbooking;user id=sa;password=;"=mycon'通过MYCON连接对象操作数据库= ' 设置命令类型= "select * from Movies"'

20、 设置要执行的命令 "Try= mycom(myds, "Movies")Catch ex As Exception (" 连接失败 ")Finally()End TryTryFor i = 0 To ("Movies"). - 1 strrow = ("Movies").Rows(i)("movie_name")NextCatch ex As ExceptionEnd TryEnd SubPrivate Sub Button1_Click_1( ByVal sender As , B

21、yVal e As Handles Dim i As IntegerDim tickethao As IntegerDim moviehao As IntegerDim suiji As IntegerDim mydataadapter3 As NewSqlDataAdapterDim myds3 As NewDataSetDim dt3 As NewDataTableDim mycom3 As NewSqlCommandDim mycon3 As NewSqlConnection Randomize() suiji = Int(9000 * Rnd() + 1000)Try ticketha

22、o = tickets_id() moviehao = movieid() = "initial catalog=ticketbooking;user id=sa;password=;"=mycon3'通过MYCON连接对象操作数据库= ' 设置命令类型 Catch ex As ExceptionEnd TryIf tickethao = 0 ThenTry(" 此座位已售出，请重新选择！ ", " 错误 ") III! III! III! III! III!Catch ex As ExceptionEnd TryEl

23、seTry()= "insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" +CStr (tickethao) + + "," +CStr (moviehao) + ",'" + + "','" + + "'," + + "," +CStr (suiji) + ")"Dim sql As Str

24、ingsql = "insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" +CStr (tickethao) + + "," +CStr (moviehao) + ",'" + + "','" + + "'," + + "," +CStr (suiji) + ")"= mycom3Try()(

25、" 售票成功！ ", " 谢谢观看 ")Catch ex As ExceptionMsgBoxEnd TryCatch ex As ExceptionEnd Try() III! III! III! III! III! III!End If revoke_seat() End Sub Private Sub ComboBox1_SelectedIndexChanged_1( ByVal sender As , ByVal e As Handles revoke_seat()Dim mydataadapter1 As NewSqlDataAdapterDi

26、m mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSetDim myds11 As NewDataSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommand= "initial catalog=ticketbooking;user id=sa;password=;"=mycon'通过MYCON连接对象操作数据库= ' 设置命令类型= mycon

27、= "select palydate from Movies where movie_name= '" + + "'"= "select * from tickets where movie_name= '" + + "'"= mycom1= mycom11(myds1, "tickets")(myds11, "Movies")dt1 = ("tickets")dt11 = ("Movies")Catch

28、 ex As ExceptionEnd TryTryIfThen(" 还未出售！ ")= (0)("palydate") revoke_seat()ElseShowSellInfo(dt1)= (0)("palydate")End IfCatch ex As ExceptionEnd Try()End SubPrivate Sub Button2_Click_1(ByVal sender As , ByVal e As HandlesDim tickethao As IntegerDim mydataadapter4 As NewSq

29、lDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnectionTry= "initial catalog=ticketbooking;user id=sa;password=;"=mycon4'通过MYCON连接对象操作数据库= ' 设置命令类型tickethao = tuipiao()Catch ex As ExceptionEnd TryIf tickethao = 0 Then(&quo

30、t; 座位号输入错误，请重新输入！", " 错误 ")ElseTry()CStr(tickethao) + ""= "delete from tickets where ticketsid=" +(" 退票成功！ ", " 谢谢观看 ")Catch ex As ExceptionMsgBoxEnd TryCatch ex As ExceptionMsgBoxEnd TryEnd If() III! III! III! III! III! III!revoke_seat()End Sub

31、Private Sub Button3_Click_1( ByVal sender As , ByVal e As HandlesIf = "" Then(" 请输入座位号！ ", " 提示 ")End IDim mydataadapter2 As NewSqlDataAdapterDim myds2 As NewDataSetDim dt2 As NewDataTableDim mycom2 As NewSqlCommand= "initial catalog=ticketbooking;user id=sa;passwo

32、rd=;"=mycon'通过MYCON连接对象操作数据库= ' 设置命令类型Try()= "select * from seats where seatid=" + + ""= mycom2(myds2, "seats")dt2 = ("seats")Catch ex As ExceptionEnd Try= (0)("price")()End SubPrivate Sub Button4_Click( ByVal sender As , ByVal e As Hand

33、lesDim exitform As NewForm7If = Then()()()End IfEnd SubEnd Class4 创建检票界面1）创建模块的功能 对进场观众检票，如果发现有假票或无票观众不允许入内。2）创建模块的窗体 在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。界面 的设计如下图所示。3）代码编写ImportsPublic Class Form3InheritsDim ds1 As NewDataSetDim sqlda1 As NewSqlDataAdapterDim RecordCount As IntegerPrivateSub Form3_Load

34、( ByVal sender As ,ByVal e As Handles实验运行场 程序设计 电影院票务系统检票界面 .swf"()实验运行场 程序设计 电影院票务系统检票界面下 .swf"()Dim sqlcmd1 As NewSqlCommandDim str1 As String = "select * from tickets"= sqlcn1= str1= sqlcmd1Try()()Catch ex As SqlExceptionMsgBoxFinally()End TryTry(ds1)Catch ex As SqlExceptionMs

35、gBoxEnd Try RecordCount = (0). = RecordCountEnd SubPrivate Sub Button1_Click_1(ByVal sender As ,ByVal e As HandlesDim i As IntegerDim flag As Boolean = FalseIf = "" Then= " 请认真填写票号！()Exit SubEnd IfIf = "" Then= " 请填写验证码！()ExitSubEnd IfFor i = 0 To RecordCount - 1If = CS

36、tr (0).Rows(i)("ticketsid") flag = TrueExit ForEnd IfNextIf flag = True ThenTry= (0).Rows(i)("seatid")= (0).Rows(i)("movie_name")= (0).Rows(i)("price")Catch ex As ExceptionMsgBoxEnd Try= "此票为真！ "Else= "此票为假！ "End If= RecordCountEnd SubPriva

37、te Sub Button2_Click_1( ByVal sender III! III! III! III! III! III! III!()End SubPrivate Sub Button3_Click_1( ByVal senderAnd = CStr (0).Rows(i)("yanzhengma")As , ByVal e As HandlesAs , ByVal e As HandlesThenDim exitform As NewForm7If = Then()()()End IfEnd SubEnd Class5 创建维护界面（1）创建模块的功能 给数据

38、库维护工作人员选择维护的系统数据库（2）创建模块的设计 在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面 的设计如下图所示。（3）代码编写Public Class Form8InheritsPrivate Sub Form8_Load( ByVal sender As , ByVal e As Handles实验运行场 程序设计 电影院票务系统 登陆界面 .swf"（）End SubPrivate Sub Button1_Click( ByVal sender As ,Dim frm4 As NewForm4()()End SubPrivate Sub Butto

39、n2_Click( ByVal sender As ,Dim frm6 As NewForm6()()End SubPrivate Sub Button3_Click( ByVal sender As ,Dim frm9 As NewForm9ByVal e As HandlesByVal e As HandlesByVal e As Handles()()End SubPrivate Sub Button4_Click( ByVal sender As ,Dim exitform As NewForm7ByVal e As HandlesIf = Then () () ()End IfEnd

40、 SubEnd Class1创建影库界面1）创建模块的功能对电影库播放列表的管理2）创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面的设计如下图所示3）代码编写Dim sqlAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPositionAs IntegerSub ShowPosition()If RecordCount = 0 Then= &

41、quot; 无记录 "ElseCurrentPosition = (DataSet11, "Movies").Position= ("movie_id")idnum(i) =i += 1= ("movie_name")= ("actor")= ("actress")= ("producer")= ("palydate")= CurrentPosition + 1 & "/" & RecordCountEnd I

42、fEnd SubPrivate Sub Form4_Load( ByVal sender As , ByVal e As ()ShowPosition()End SubPrivate Sub Button1_Click( ByVal sender As , ByVal e If (DataSet11, "Movies").Position > 0Then(DataSet11, "Movies").Position -= 1ShowPosition()Else(" 已到达首记录！ ", " 提示信息 ")End

43、 IfEnd SubPrivate Sub Button2_Click( ByVal sender As , ByVal e If (DataSet11, "Movies").Position < RecordCount - 1 (DataSet11, "Movies").Position += 1ShowPosition()Else(" 已到达尾记录！ ", " 提示信息 ")End IfEnd SubPrivate Sub Button4_Click( ByVal sender As , ByVal e

44、(DataSet11, "Movies").Position = RecordCount - 1 ShowPosition()HandlesAs HandlesAs HandlesThenAs HandlesEnd SubPrivate Sub Button5_Click( ByVal sender As , ByVal e As Handles ' 添加数据Dim j As IntegerDim flagAs Boolean = TrueFor j = 0To iIf =CStr (idnum(j)Thenflag =False("ID地址有冲突！&qu

45、ot;, " 提示 ")EndIfNextIf flag =True ThenDim MyNewData As DataRowTryWith MyNewData.BeginEdit()If <> "" Then.Item("movie_id") =Else(" 编号不能为空 ")Return End If.Item("movie_name") =.Item("actor") =.Item("actress") =.Item("prod

46、ucer") =.Item("palydate") =.EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim i As Integer = (DataSet11, "Movies")()(i & "条记录添加成功！ ")Catch ex As ExceptionEnd Tryidnum(i) =i = i + 1End IfEnd SubPrivate Sub Button6_Click( ByVal sender As , ByVal e As Hand

47、les ' 修改数据 Dim j As IntegerFor j = 0 To iIf = CStr (idnum(j) Then("ID 地址有冲突！ ", " 提示 ")End IfNextCurrentPosition = (DataSet11, "Movies").PositionTryWith movieRow.BeginEdit().Item("movie_id") =.Item("movie_name") =.Item("actor") =.Item(&

48、quot;actress") =.Item("producer") =.Item("palydate") =.EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim i As Integer = (DataSet11, "Movies")()(i & "条记录修改成功！ ")Catch ex As ExceptionEnd TryEnd SubPrivate Sub Button3_Click( ByVal sender As , ByV

49、al e As Handles(DataSet11, "Movies").Position = 0ShowPosition()End SubPrivate Sub Button7_Click( ByVal sender As , ByVal e As Handles ' 删除数据CurrentPosition = (DataSet11, "Movies").PositionDim n As Integer = ("movie_id")Dim j As Integer = 0For j = 0 To iIf n = idnum(

50、j)Thenidnum(j) = -1End IfNext()TryDim i As Integer = (DataSet11, "Movies")()(i & "条记录删除成功！ ")Catch ex As ExceptionEnd TryEnd SubPrivate Sub Button8_Click( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7If = Then()()()End IfEnd SubPrivate Sub Button9_Click( ByVal

51、sender As , ByVal e As HandlesDim frm8 As NewForm8()()End SubEnd Class2创建职工界面(1) 创建模块的功能 对职工数据的处理。如增加、删除和更改(2) 创建模块的设计 在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面 的设计如下图所示。(3) 代码编写InheritsDim frm8 As NewForm8Dim sqlAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As IntegerDim i As Integer

52、= 0Dim idnum(2000) As IntegerDim CurrentPositionAs IntegerSub ShowPosition()If RecordCount = 0 Then= " 无记录 "ElseCurrentPosition = (DataSet11, "Workers").Position= ("workerid")idnum(i) =i += 1= ("password")= ("leibie")= CurrentPosition + 1 & "

53、;/" & RecordCountEnd IfEnd SubPrivate Sub Form6_Load( ByVal sender As , ByVal e As Handles()ShowPosition()End SubPrivate Sub Button1_Click( ByVal sender As , ByVal e As Handles If (DataSet11, "Workers").Position > 0Then(DataSet11, "Workers").Position -= 1ShowPosition(

54、)Else(" 已到达首记录！ ", " 提示信息 ")End IfEnd SubPrivate Sub Button2_Click( ByVal sender As , ByVal e As Handles If (DataSet11, "Workers").Position < RecordCount - 1Then(DataSet11, "Workers").Position += 1ShowPosition()Else(" 已到达尾记录！ ", " 提示信息 "

55、)End IfEnd SubPrivate Sub Button3_Click(ByVal senderAs ,ByVal eAsHandles(DataSet11, "Workers").Position= 0ShowPosition()End SubPrivate Sub Button4_Click(ByVal senderAs ,ByVal eAsHandles(DataSet11, "Workers").Position= RecordCount- 1ShowPosition()End SubPrivate Sub Button5_Click(B

56、yVal senderAs ,ByVal eAsHandlesDim j As IntegerDim flagAs Boolean = TrueFor j = 0To iIf =CStr (idnum(j)Thenflag =False("ID地址有冲突！", " 提示 ")End IfNextIf <> 1 And <> 2 And <> 3 Thenflag = False(" 服务系统号只能为 1，2，3！", " 提示")End IfIf flag = True Then

57、Dim MyNewData As DataRowTryWith MyNewData.BeginEdit()If <> "" Then.Item("workerid") =ElseReturnEnd If.Item("password") = .Item("leibie") = .EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim k As Integer = (DataSet11, "Workers") ()(k &am

58、p; " 条记录添加成功！ ")Catch ex As ExceptionEnd Tryidnum(i) =i = i + 1End IfEnd SubHandlesPrivate Sub Button6_Click( ByVal sender As , ByVal e AsDim j AsIntegerFor j = 0To iIf =CStr (idnum(j)Then("ID地址有冲突！", " 提示 ")EndIfNextIf <> 1And <> 2 And<> 3 Then(" 服务系统号只能为 1，2，3！", " 提示") End IfCurrentPosition = (DataSet11, "Workers").PositionTryWith movieRow .BeginEdit() .Item(&