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

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

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

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

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

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

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

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

8、有（无重复）是Movie_na meNvarchar50电影名 称是无actorNvarchar50导演否无actressNvarchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时 问是无表2电影院座位管理表-SEATS字段名 称数据类型字段属性字段大 小作用必填 字段索引是否主 键seatidsmallint2座位号是有（无重复）是pricefloat8票价是无soldorn otsmallint2是否售 出是无表3电影票信息表-TICKETS字段名称数据类型字段属性字段大 小作用必填 字段索引是否主 键ticketsi dsmalli

9、nt2电影票 号是有(无重复)是seatidsmallint2座位号是有Movie_idsmallint2电影号是有Movie_na meNvarchar50电影名否无palydatedatetime8上映时 问是无pricefloat8价格是无yanzheng masmallint2验证码是无是表4 职工信息表-WORKERS字段名 称数据类型字段属性字段大 小作用必填字 段索引是否主键workeri dsmallint2职工号是无是passwor dsmallint2职工密 码是无leibiesmallint2职工类 型是无根据规范化的设计理念，本管理系统的数据分成上面 4个表，减少了数据

10、的 冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关 系表现在下图所示的关系：2 .创建登陆窗体模块；(1)窗体模块的功能登陆窗体(2)窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体 界面的设计如图3所示。(3)窗体代码ImportsPublic Class Form1InheritsDim navigator As BindingManagerBase ' 用来对记录导航Dim mycon As NewSqlConnection' 连接对象Dim mycom As NewSqlCommand' 命令对象Dim mycom

11、1 As NewSqlCommandDim frm2 As NewForm2Dim frm3 As NewForm3Dim frm8 As NewForm8ByVal e As HandlesPrivate Sub Timer1_Tick( ByVal sender As ,(0).Text =End SubPrivate Sub GroupBox1_Enter( ByVal sender As , ByVal e As HandlesIf = True Then=False=FalseElseIf= TrueThen=False=FalseElseIf= TrueThen=False=Fal

12、seEnd 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 catalog=ticketbooking;us

13、er 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").Rows(i).ItemArray

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

15、t;= "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") = 1()()ElseIf = True And Val("

16、workers").Rows(0)("leibie") = 2()()ElseIf = True And Val("workers").Rows(0)("leibie") = 3()()Else("您超出职责范围或未选择服务系统，请重新输入！ThenThenThen错误提示", , ,EndEnd SubPrivate()End SubEnd IfCatch ex As ExceptionEnd TryIfSub Form1_Load( ByVal sender As , ByVal e As Handl

17、es实验运行场程序设计电影院票务系统登陆界面"PrivateSub Button2_Click( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7IfThen()()()End IfEndSubEnd Class3创建售票窗体模块1)窗体模块的功能为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位。不同的座位有不同的价格。此窗体还有退票功能。2)窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗命名为“售票系统”，用来作为仓管人员窗体。界面的设计如下图所示。3

18、) 代码编写ImportsPublic Class Form2InheritsDim navigatorAs BindingManagerBase' 用来对记录导航Dim mycon AsDim mycom AsNewSqlConnectionNewSqlCommand' 连接对象' 命令对象PrivateSub Form2_Load( ByVal senderAs ,ByVal eAsHandles()()'()实验运行场实验运行场Dim mydataadapter程序设计程序设计电影院票务系统电影院票务系统As NewSqlDataAdapter销售界面.s

19、wf"检票界面下.swf"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"' 设置要执行的命令"Try()= mycom(myds, &qu

20、ot;Movies")Catch ex As Exception(" 连接失败")Finally()End TryTryFor i = 0 To ("Movies"). - 1strrow = ("Movies").Rows(i)("movie_name")ComboBoNextCatch ex As ExceptionEnd TryEnd SubPrivate Sub Button1_Click_1( ByVal sender As , ByVal e As HandlesDim i As Intege

21、rDim tickethao As IntegerDim moviehao As IntegerDim suiji As IntegerDim mydataadapter3 As NewSqlDataAdapterDim myds3 As NewDataSetDim dt3 As NewDataTableDim mycom3 As NewSqlCommandDim mycon3 As NewSqlConnectionRandomize()suiji = Int(9000 * Rnd() + 1000)Trytickethao = tickets_id()moviehao = movieid()

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

23、xceptionEnd TryElseTry()= "insert into ticketsvalues (" + CStr (tickethao) + CStr (suiji) + ")"values (" + CStr (tickethao) + CStr (suiji) + ")"(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)"," + + "," + CStr (moviehao) + "

24、;,'" + + "','" + + "'," + + "," + Dim sql As Stringsql = "insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)"," + + "," + CStr (moviehao) + ",'" + + "','" + +

25、"'," + + "," += mycom3Try()("售票成功！", " 谢谢观看")Catch ex As ExceptionMsgBoxEnd TryCatch ex As ExceptionEnd Try ()= ""= ""= ""= ""= ""= ""End If revoke_seat() End SubHandlesPrivate Sub ComboBox1_Selec

26、tedIndexChanged_1( ByVal sender As , ByVal e As revoke_seat()Dim mydataadapter1 As NewSqlDataAdapterDim mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSetDim myds11 As NewDataSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommand= "ini

27、tial catalog=ticketbooking;user id=sa;password=;"=mycon'通过MYCON!接对象操作数据库=' 设置命令类型= myconTry()= "select palydate from Movies where movie_name= '" + + "'"= "select * from tickets where movie_name= '" + + "'"= mycom1= mycom11(myds1, &

28、quot;tickets")(myds11, "Movies")dt1 = ("tickets")dt11 = ("Movies")Catch ex As ExceptionEnd TryTryIfThen("还未出售！")= (0)("palydate")revoke_seat()ElseShowSellInfo(dt1)= (0)("palydate")End IfCatch ex As ExceptionEnd Try()End SubPrivate Sub

29、Button2_Click_1( ByVal sender As , ByVal e As Handles Dim tickethao As IntegerDim mydataadapter4 As NewSqlDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnectionTry= "initial catalog=ticketbooking;user id=sa;password=;"=mycon4'

30、通过MYCON连接对象操作数据库=' 设置命令类型tickethao = tuipiao()Catch ex As ExceptionEnd TryIf tickethao = 0 Then(" 座位号输入错误，请重新输入！", " 错误 ")ElseTry()= "delete from tickets where ticketsid=" +CStr (tickethao) + ""Try()("退票成功！", " 谢谢观看")Catch ex As Excepti

31、onMsgBoxEnd TryCatch ex As ExceptionMsgBoxEnd TryEnd If()= ""= ""= ""= ""= ""= ""revoke_seat()End SubPrivate Sub Button3_Click_1( ByVal sender As , ByVal e As HandlesIf = "" Then(" 请输入座位号！", " 提示 ")End IDim myd

32、ataadapter2 As NewSqlDataAdapterDim myds2 As NewDataSetDim dt2 As NewDataTableDim mycom2 As NewSqlCommand= "initial catalog=ticketbooking;user id=sa;password=;"=mycon'通过MYCON!接对象操作数据库=' 设置命令类型Try()= "select * from seats where seatid=" + + ""= mycom2(myds2, "

33、;seats")dt2 = ("seats")Catch ex As ExceptionEnd Try= (0)("price")()End SubPrivate Sub Button4_Click( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7If = Then()()()End IfEnd SubEnd Class4 创建检票界面( 1)创建模块的功能对进场观众检票，如果发现有假票或无票观众不允许入内。(2)创建模块的窗体在工程中添加一个窗体，命名为“检票系统”，用

34、来作为检票系统窗体。界面的设计如下图所示。(3)代码编写ImportsPublic Class Form3InheritsDim ds1 As NewDataSetDim sqlda1 As NewSqlDataAdapterDim RecordCount As IntegerPrivate Sub Form3_Load( ByVal sender As , ByVal e As Handles实验运行场程序设计电影院票务系统检票界面.swf"()实验运行场程序设计电影院票务系统检票界面下.swf"()Dim sqlcmd1 As NewSqlCommandDim str1

35、 As String = "select * from tickets"= sqlcn1= str1= sqlcmd1Try()()Catch ex As SqlExceptionMsgBoxFinally()End TryTry(ds1)Catch ex As SqlExceptionMsgBoxEnd TryRecordCount = (0).= RecordCountEnd SubPrivate Sub Button1_Click_1( ByVal sender As , ByVal e As HandlesDim i As IntegerDim flag As Bo

36、olean = FalseIf = "" Then= " 请认真填写票号！"()Exit SubEnd IfIf = "" Then= " 请填写验证码！"()Exit SubEnd IfFor i = 0 To RecordCount - 1ThenIf = CStr (0).Rows(i)("ticketsid")And = CStr (0).Rows(i)("yanzhengma")flag =TrueExit ForEnd IfNextIf flag = True T

37、henTry= (0).Rows(i)("seatid")= (0).Rows(i)("movie_name")= (0).Rows(i)("price")Catch ex As ExceptionMsgBoxEnd Try= "此票为真！"Else= "此票为假！"End If= RecordCountEnd SubPrivate Sub Button2_Click_1( ByVal sender As , ByVal e As Handles()End SubPrivate Sub Butt

38、on3_Click_1( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7If = Then()()()End IfEnd SubEnd Class5 创建维护界面( 1)创建模块的功能给数据库维护工作人员选择维护的系统数据库(2)创建模块的设计在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面的设计如下图所示。(3)代码编写Public Class Form8InheritsPrivate Sub Form8_Load( ByVal sender As , ByVal e As Handles实验运行场

39、程序设计电影院票务系统登陆界面.swf"()End SubPrivate Sub Button1_Click(ByValsenderAs ,ByValAsHandlesDim frm4 As NewForm4()()End SubPrivate Sub Button2_Click(ByValsenderAs ,ByValAsHandlesDim frm6 As NewForm6()()End SubPrivate Sub Button3_Click(ByValsenderAs ,ByValAsHandlesDim frm9 As NewForm9()()End SubPrivate

40、Sub Button4_Click(ByValsenderAs ,ByValAsHandlesDim exitform As NewForm7IfThen()()()End IfEndEndSubClass1 创建影库界面创建影库界面1）创建模块的功能创建模块的功能对电影库播放列表的管理2）创建模块的设计创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界,用来作为影库系统窗体。界的设计如下图所示。3）代码编写Dim sqlAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As In

41、tegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()If RecordCount = 0 Then= " 无记录 "ElseCurrentPosition = (DataSet11, "Movies").Position= ("movie_id")idnum(i) =i += 1= ("movie_name")= ("actor")= ("a

42、ctress")= ("producer")= ("palydate")= CurrentPosition + 1 & "/" & RecordCountEnd IfEnd SubPrivate Sub Form4_Load( ByVal sender As , ByVal e As Handles ()ShowPosition()End SubPrivate Sub Button1_Click( ByVal sender As , ByVal e As Handles If (DataSet11, &quo

43、t;Movies").Position > 0Then(DataSet11, "Movies").Position -= 1ShowPosition()Else(" 已到达首记录！", " 提示信息")End IfEnd SubPrivate Sub Button2_Click( ByVal sender As , ByVal e As Handles If (DataSet11, "Movies").Position < RecordCount - 1Then(DataSet11, &quo

44、t;Movies").Position += 1ShowPosition()Else(" 已到达尾记录！", " 提示信息")End IfEnd SubPrivate Sub Button4_Click( ByVal sender As , ByVal e As Handles(DataSet11, "Movies").Position = RecordCount - 1ShowPosition()End SubByVal sender As ,Private Sub Button5_Click(ByVal e As Han

45、dles ' 添加数据Dim j As IntegerDim flag As Boolean = TrueFor j = 0 To iIf= CStr (idnum(j) Thenflag =False("ID地址有冲突！", " 提示 ")End IfNextIf flag = True ThenDim MyNewData As DataRowTryWith MyNewData.BeginEdit()If <> "" Then.Item("movie_id") =Else("编号不能

46、为空")ReturnEnd If.Item("movie_name") =.Item("actor") =.Item("actress") =.Item("producer") =.Item("palydate") =.EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim i As Integer = (DataSet11, "Movies")()(i & "条记录添加成功！"

47、)Catch ex As ExceptionEnd Tryidnum(i) =i = i + 1End IfEnd SubPrivate Sub Button6_Click( ByVal sender As , ByVal e As Handles ' 修改数据 Dim j As IntegerFor j = 0 To iIf = CStr (idnum(j) Then("ID地址有冲突！", " 提示 ")End IfNextCurrentPosition = (DataSet11, "Movies").PositionTr

48、yWith movieRow.BeginEdit().Item("movie_id") =.Item("movie_name") =.Item("actor") =.Item("actress") =.Item("producer") =.Item("palydate") =.EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim i As Integer = (DataSet11, "Movies&quo

49、t;)()(i & "条记录修改成功！")Catch ex As ExceptionEnd TryEnd SubPrivate Sub Button3_Click( ByVal sender As , ByVal e As Handles(DataSet11, "Movies").Position = 0ShowPosition()End SubPrivate Sub Button7_Click( ByVal sender As , ByVal e As Handles ' 删除数据CurrentPosition = (DataSet11

50、, "Movies").PositionDim n As Integer = ("movie_id")Dim j As Integer = 0For j = 0 To iIf n = idnum(j) Thenidnum(j) = -1End IfNext()TryDim i As Integer = (DataSet11, "Movies")()(i & "条记录删除成功！")Catch ex As ExceptionEnd TryEnd SubPrivate Sub Button8_Click( ByV

51、al sender As , ByVal e As Handles Dim exitform As NewForm7If = Then()()()End IfEnd SubPrivate Sub Button9_Click( ByVal sender As , ByVal e As Handles Dim frm8 As NewForm8()()End SubEnd Class2创建职工界面( 1)创建模块的功能对职工数据的处理。如增加、删除和更改(2)创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面的设计如下图所示。(3)代码编写InheritsDim fr

52、m8 As NewForm8Dim sqlAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()If RecordCount = 0 Then= " 无记录 "ElseCurrentPosition = (DataSet11, "Workers").Position= (

53、"workerid")idnum(i) =i += 1= ("password")= ("leibie")= CurrentPosition + 1 & "/" & RecordCountEnd IfEnd SubPrivate Sub Form6_Load( ByVal sender As , ByVal e As ()ShowPosition()End SubPrivate Sub Button1_Click( ByVal sender As , ByVal eIf (DataSet11, &q

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

55、quot;).Position += 1ShowPosition()Else(" 已到达尾记录！", " 提示信息")End IfEnd SubPrivate Sub Button3_Click( ByVal sender As , ByVal e (DataSet11, "Workers").Position = 0ShowPosition()End SubPrivate Sub Button4_Click( ByVal sender As , ByVal e (DataSet11, "Workers").Pos

56、ition = RecordCount - 1 ShowPosition()End SubPrivate Sub Button5_Click( ByVal sender As , ByVal eDim j As IntegerDim flag As Boolean = TrueFor j = 0 To iIf = CStr (idnum(j) Thenflag =False("ID地址有冲突！", " 提示 ")End IfNextIf <> 1 And <> 2 And <> 3 Thenflag =FalseHan

57、dlesAs HandlesAs HandlesThenAs HandlesAs HandlesAs Handles(" 服务系统号只能为1 ， 2， 3！ ", " 提示 ")End IfIf flag = True ThenDim MyNewData As DataRowTryWith MyNewData.BeginEdit()If <> "" Then.Item("workerid") =Else("编号不能为空")ReturnEnd If.Item("passwor

58、d") =.Item("leibie") =.EndEdit()End WithCatch ex As ExceptionReturnEnd TryTryDim k As Integer = (DataSet11, "Workers")()(k & "条记录添加成功！")Catch ex As ExceptionEnd Tryidnum(i) =i = i + 1End IfEnd SubPrivate Sub Button6_Click( ByVal sender As , ByVal e As Handles D

59、im j As IntegerFor j = 0 To iIf = CStr (idnum(j) Then("ID地址有冲突！", " 提示 ")End IfNextIf <> 1 And <> 2 And <> 3 Then(" 服务系统号只能为1 ， 2， 3！ ", " 提示 ")End IfCurrentPosition = (DataSet11, "Workers").PositionTryWith movieRow.BeginEdit().Item("workerid") =.Item("password") =.Item(&quo