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

影院订票治理系统试验报告RevisedonNovember25,2023软件工程试验报告一．系统概述；1．工程需求；需求分析；二．工程开发打算书；三．设计说明书；分析与创立数据库创立登陆窗体模块；创立售票窗体模块创立检票界面创立维护界面创立影库界面创立职工界面创立票务界面四．用户操作手册；五．改进意见；六．自我评价；七．参考资料、书籍；一．系统概述；1．工程需求；是，照旧有很多人宠爱到电影院去看电影。由于家里的气氛到底不如影院好。所以，现代家庭影院的消灭并不会让电影院没有生路。每个社会效劳系统都有自己的一套治理机制。固然，电影院也不除外。作机制简洁有序，必定要引进一套治理系统。2．需求分析；具体而言，影院售票系统需要实现以下的需求：理。退票问题，还有就是预订电影票其实也就相当于买票。两者可以当一回事处理。检测问题。的处理问题。二．工程开发打算书；下三个子模块：售票治理模块、检票治理模块、数据治理模块。统中有不同的权限。主要有三种用户：售票治理人员：主要负责卖票，订票及退票事宜；检票治理人员：主要负责观众进场时检票工作，以及识别电影票的真假〔此工作自然可以由效劳系统来完成〕；数据处理人员：主要负责播放电影导入数据库，工作人员的应聘以及开除的数据治理，还有过期电影票的数据处理；以下分别介绍此系统中各个系统〔3个子模块。〕：售票系统模块的辩识。检票系统模块为假。由此来打算让不让观众入场。维护系统模块等。影院售票治理系工作人员登1影院售票治理系工作人员登维护系检票系 售票系影工过片作期播人票3个子模块。影片播放治理模块时间的设定。当所设定的电影已经播放完成后，要对其进展删除。还要对数据库进展清理，把一些没用的数据全部去除。工作人员治理：里数据的统一与完整。其中有他们的共号，登陆电影院治理系统的密码，以及所拥有的权限。过期票务治理：据。通过此治理可以把那些没用的过期的数据去除。这里指的是与放过的电影同名的电影票去除，而其他的电影票保存不变。小组人员分工状况：王圣武 售票界面、系统转换界面的程序编写，整个系统框整个系统界面及美化设计，整个系统流程的治理，创立数据库张润驰 整个维护系统的程序编写，局部框架关心设计，创立数据库本系统后台数据库承受目前比较流行的MicrosoftSQLSever,该数据库系统在安全性、准确性、运行速度方面有确定的优势，并且处理数据量大、效率高；前台承受公司的2023作为主要的开发工具，其可与SQLSever2023数据库无缝连接。三．设计说明书；MicrosoftSQLSever2023作为后台的数据库治理系统。本治理系统是应用于电影院中，而且需要和数据库之间进展频繁数据交换，所以承受MicrosoftSQLSever2023作为后台的数据库治理系统。123治理列表。表1 影库治理表---MOVIES字段名称数据类型字段属性字段大 作用 必填 索引是否小 字段主键Movie_idsmallint2 电影号 是 有〔无重复〕是Movie_nameNvarchar50 电影名 是 无称actorNvarchar50 导演 否 无actressNvarchar50 主演 否 无producerNvarchar25 制片厂 否 无palydatedatetime8 上映时 是 无间表2 电影院座位治理表---SEATS字段名数据类型字段属性称字段大 作用 必填 索引是否主小 字段键seatidsmallint2 座位号 是 有〔无重是复〕pricefloat8 票价 是 无soldornotsmallint2 是否售 是 无出表3 电影票信息表---TICKETS字段名称数据类型字段属性字段大 作用 必填 索引是否主小 字段键ticketsidsmallint2 电影票 是 有〔无重号 复〕是seatidsmallint2 座位号 是 有Movie_idsmallint2 电影号 是 有Movie_naNvarchar50 电影名 否 无mepalydatedatetime8上映时是无间pricefloat8价格是无yanzhengsmallint2验证码是无是ma4职工信息表---WORKERS字段名数据类型字段属性称字段大作用 必填字索引是否主键小段workerismallint2职工号 是无是dpasswordsmallint2职工密 是码无leibiesmallint2职工类 是无型4个表，削减了数据的系表现在以以下图所示的关系：创立登陆窗体模块；登陆窗体窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面3所示。窗体代码ImportsPublicClassForm1InheritsDimnavigatorAsBindingManagerBase 录导航DimmyconAsNewSqlConnection ”连接对象DimmycomAsNewSqlCommand Dimmycom1AsNewSqlCommandDimfrm2AsNewForm2Dimfrm3AsNewForm3Dimfrm8AsNewForm8PrivateSubTimer1_Tick(ByValsenderAs,ByValeAsHandles(0).Text=EndSubPrivateSubGroupBox1_Enter(ByValsenderAs,ByValeAs If =TrueThen=False=FalseElseIf =TrueThen=False=FalseElseIf =TrueThen=False=FalseEndIfEndSubPrivateSubButton1_Click(ByValsenderAs,ByValeAs Handles=“E:\试验运行场\程序设计\电影院票务系统\image\登陆界面“=FalseDimtox1AsInt32Dimtox2AsInt32DimmydataadapterAsNewSqlDataAdapterDimmydsAsNewDataSetDimiAsIntegerDimjAsIntegertox1=Valtox2=Val=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon MYCON= ”设置命令类型=“select*fromworkers“ Try=mycomCatchexAsException(“连接失败“)FinallyEndTry(myds,“workers“)Fori=0To(“workers“).-1Iftox1=Val(“workers“).Rows(i).ItemArray(0))Thenj=0ExitForElsej=1EndIfNextFori=0To(“workers“).-1Iftox2=Val(“workers“).Rows(i).ItemArray(1))Thenj=0ExitForElsej=1EndIfNextIfj=1ThenElseTry=mycon MYCON= ”设置命令类型=“selectleibiefromworkerswhereworkerid=“+CStr(tox1)+“andpassword=“CStr(tox2)+““”设置要执行的命令Dimmydataadapter1AsNewSqlDataAdapter=mycom1Dimmyds1AsNewDataSet(myds1,“workers“)If =TrueAndVal(“workers“).Rows(0)(“leibie“))=1ThenElseIf=TrueAndVal(“workers“).Rows(0)(“leibie“))=2ThenElseIf=TrueAndVal(“workers“).Rows(0)(“leibie“))=3ThenElseEndIfCatchexAsExceptionEndTryEndIfEndSubPrivateSubForm1_Load(ByValsenderAs,ByValeAs Handles“E:\试验运行场\程序设计\电影院票务系统\image\登陆界面“EndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubEndClass创立售票窗体模块窗体模块的功能窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面的设计如以以下图所示。代码编写ImportsPublicClassForm2InheritsDimnavigatorAsBindingManagerBase 录导航DimmyconAsNewSqlConnection ”连接对象DimmycomAsNewSqlCommand PrivateSubForm2_Load(ByValsenderAs,ByValeAsHandles”“E:\试验运行场\程序设计\电影院票务系统\image\销售界面.swf““E:\试验运行场\程序设计\电影院票务系统\image\检票界面下.swf“DimmydataadapterAsNewSqlDataAdapterDimmydsAsNewDataSetDimiAsIntegerDimjAsIntegerDimstrrowAsStringDimdtAsNewDataTable=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon MYCON= ”设置命令类型=“select*fromMovies“ Try=mycom(myds,“Movies“)CatchexAsException(“连接失败“)FinallyEndTryTryFori=0To(“Movies“).-1strrow=(“Movies“).Rows(i)(“movie_name“)ComboBoNextCatchexAsExceptionEndTryEndSubPrivateSubButton1_Click_1(ByValsenderAs,ByValeAs DimiAsIntegerDimtickethaoAsIntegerDimmoviehaoAsIntegerDimsuijiAsIntegerDimmydataadapter3AsNewSqlDataAdapterDimmyds3AsNewDataSetDimdt3AsNewDataTableDimmycom3AsNewSqlCommandDimmycon3AsNewSqlConnectionRandomizesuiji=Int(9000*Rnd+1000)Trytickethao=tickets_idmoviehao=movieid=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon3 ”通过MYCON= CatchexAsExceptionEndTryIftickethao=0ThenTry(“此座位已售出，请重选择！“,“错误“)=““=““=““=““=““=““CatchexAsExceptionEndTryElseTry=“insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(“+CStr(tickethao)+“,“+ +“,“+CStr(moviehao)+“,”“+ +“”,”“+ +“”,“+ +“,“+CStr(suiji)+“)“DimsqlAsStringsql=“insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(“+CStr(tickethao)+“,“+ +“,“+CStr(moviehao)+“,”“+ +“”,”“+ +“”,“+ +“,“+CStr(suiji)+“)“=mycom3TryCatchexAsExceptionMsgBoxEndTryCatchexAsExceptionEndTry=““=““=““=““=““=““EndIfrevoke_seatEndSubPrivateSubComboBox1_SelectedIndexChanged_1(ByValsenderAs,ByValeAsHandlesrevoke_seatDimmydataadapter1AsNewSqlDataAdapterDimmydataadapter11AsNewSqlDataAdapterDimmyds1AsNewDataSetDimmyds11AsNewDataSetDimdt1AsNewDataTableDimdt11AsNewDataTableDimmycom1AsNewSqlCommandDimmycom11AsNewSqlCommand=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon MYCON= ”设置命令类型=mycon=Try=“selectpalydatefromMovieswhere movie_name=”“+ +“”“=“select*fromticketswheremovie_name=”“+ +“”“=mycom1=mycom11(myds1,“tickets“)(myds11,“Movies“)dt1=(“tickets“)dt11=(“Movies“)CatchexAsExceptionEndTryTryIfThen(“还未出售！“)=(0)(“palydate“)revoke_seatElseShowSellInfo(dt1)=(0)(“palydate“)EndIfCatchexAsExceptionEndTryEndSubPrivateSubButton2_Click_1(ByValsenderAs,ByValeAs DimtickethaoAsIntegerDimmydataadapter4AsNewSqlDataAdapterDimmyds4AsNewDataSetDimdt4AsNewDataTableDimmycom4AsNewSqlCommandDimmycon4AsNewSqlConnectionTry=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon4 ”通过MYCON= ”设置命令类型tickethaotuipiaoCatchexAsExceptionEndTryIftickethao=0ThenElseTry=“deletefromticketswhereticketsid=“+CStr(tickethao)+““TryCatchexAsExceptionMsgBoxEndTryCatchexAsExceptionMsgBoxEndTryEndIf=““=““=““=““=““=““revoke_seatEndSubPrivateSubButton3_Click_1(ByValsenderAs,ByValeAs Handles==If =““ThenEndIDimmydataadapter2AsNewSqlDataAdapterDimmyds2AsNewDataSetDimdt2AsNewDataTableDimmycom2AsNewSqlCommand=“initialcatalog=ticketbooking;userid=sa;password=;“=mycon MYCON= Try=“select*fromseatswhereseatid=“+ +““=mycom2(myds2,“seats“)dt2=(“seats“)CatchexAsExceptionEndTry=(0)(“price“)EndSubPrivateSubButton4_Click(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubEndClass创立检票界面创立模块的功能对进场观众检票，假设觉察有假票或无票观众不允许入内。创立模块的窗体的设计如以以下图所示。代码编写ImportsPublicClassForm3InheritsDimds1AsNewDataSetDimsqlda1AsNewSqlDataAdapterDimRecordCountAsIntegerPrivateSubForm3_Load(ByValsenderAs,ByValeAsHandles“E:\试验运行场\程序设计\电影院票务系统\image\检票界面.swf““E:\试验运行场\程序设计\电影院票务系统\image\检票界面下.swf“Dimsqlcmd1AsNewSqlCommandDimstr1AsString=“select*fromtickets“=sqlcn1=str1=sqlcmd1TryCatchexAsSqlExceptionMsgBoxFinallyEndTryTry(ds1)CatchexAsSqlExceptionMsgBoxEndTryRecordCount=(0).=RecordCountEndSubPrivateSubButton1_Click_1(ByValsenderAs,ByValeAs DimiAsIntegerDimflagAsBoolean=FalseIf =““ThenExitSubEndIfIf =““ThenExitSubEndIfFori=0ToRecordCount-1If =CStr(0).Rows(i)(“ticketsid“))And=CStr(0).Rows(i)(“yanzhengma“))Thenflag=TrueExitForEndIfNextIfflag=TrueThenTry=(0).Rows(i)(“seatid“)=(0).Rows(i)(“movie_name“)=(0).Rows(i)(“price“)CatchexAsExceptionMsgBoxEndTry=“此票为真！“Else=“此票为假！“EndIf=RecordCountEndSubPrivateSubButton2_Click_1(ByValsenderAs,ByValeAs Handles=““=““=““=““=““=““=““EndSubPrivateSubButton3_Click_1(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubEndClass创立维护界面创立模块的功能给数据库维护工作人员选择维护的系统数据库创立模块的设计在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面的设计如以以下图所示。代码编写PublicClassForm8InheritsPrivateSubForm8_Load(ByValsenderAs,ByValeAsHandles“E:\试验运行场\程序设计\电影院票务系统\image\登陆界面.swf“EndSubPrivateSubButton1_Click(ByValsenderAs,ByValeAs HandlesDimfrm4AsNewForm4EndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAs Dimfrm6AsNewForm6EndSubPrivateSubButton3_Click(ByValsenderAs,ByValeAs Dimfrm9AsNewForm9EndSubPrivateSubButton4_Click(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubEndClass创立影库界面创立模块的功能对电影库播放列表的治理创立模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面的设计如以以下图所示。代码编写DimsqlAdapterAsNewSqlDataAdapterDimmovieRowAsDataRowDimRecordCountAsIntegerDimiAsInteger=0Dimidnum(2023)AsIntegerDimCurrentPositionAsIntegerSubShowPositionIfRecordCount=0Then=“无记录“ElseCurrentPosition=(DataSet11,“Movies“).Position=(“movie_id“)idnum(i)=i+=1=(“movie_name“)=(“actor“)=(“actress“)=(“producer“)=(“palydate“)=CurrentPosition+1&“/“&RecordCountEndIfEndSubPrivateSubForm4_Load(ByValsenderAs,ByValeAs ShowPositionEndSubPrivateSubButton1_Click(ByValsenderAs,ByValeAs If(DataSet11,“Movies“).Position>0Then(DataSet11,“Movies“).Position-=1ShowPositionElseEndIfEndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAs If(DataSet11,“Movies“).Position<RecordCount-1Then(DataSet11,“Movies“).Position+=1ShowPositionElseEndIfEndSubPrivateSubButton4_Click(ByValsenderAs,ByValeAs (DataSet11,“Movies“).Position=RecordCount-1ShowPositionEndSubPrivateSubButton5_Click(ByValsenderAsByValeAs Handles”添加数据DimjAsIntegerDimflagAsBoolean=TrueForj=0ToiIf =CStr(idnum(j))Thenflag=False(“IDEndIfNextIfflag=TrueThenDimMyNewDataAsDataRowTryWithMyNewData.BeginEditIf<>““Then.Item(“movie_id“)=Else(“编号不能为空“)ReturnEndIf.Item(“movie_name“)=.Item(“actor“)=.Item(“actress“)=.Item(“producer“)=.Item(“palydate“)=.EndEditEndWithCatchexAsExceptionReturnEndTryTryDimiAsInteger=(DataSet11,“Movies“)(i&CatchexAsExceptionEndTryidnum(i)=i=i+1EndIfEndSubPrivateSubButton6_Click(ByValsenderAsByValeAs Handles”修改数据DimjAsIntegerForj=0ToiIf =CStr(idnum(j))Then(“IDEndIfNextCurrentPosition=(DataSet11,“Movies“).PositionTryWithmovieRow.BeginEdit.Item(“movie_id“)=.Item(“movie_name“)=.Item(“actor“)=.Item(“actress“)=.Item(“producer“)=.Item(“palydate“)=.EndEditEndWithCatchexAsExceptionReturnEndTryTryDimiAsInteger=(DataSet11,“Movies“)(i&CatchexAsExceptionEndTryEndSubPrivateSubButton3_Click(ByValsenderAs,ByValeAs (DataSet11,“Movies“).Position=0ShowPositionEndSubPrivateSubButton7_Click(ByValsenderAsByValeAs Handles”删除数据CurrentPosition=(DataSet11,“Movies“).PositionDimnAsInteger=(“movie_id“)DimjAsInteger=0Forj=0ToiIfn=idnum(j)Thenidnum(j)=-1EndIfNextTryDimiAsInteger=(DataSet11,“Movies“)(i&CatchexAsExceptionEndTryEndSubPrivateSubButton8_Click(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubPrivateSubButton9_Click(ByValsenderAs,ByValeAs Dimfrm8AsNewForm8EndSubEndClass创立职工界面创立模块的功能对职工数据的处理。如增加、删除和更改创立模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面的设计如以以下图所示。代码编写InheritsDimfrm8AsNewForm8DimsqlAdapterAsNewSqlDataAdapterDimmovieRowAsDataRowDimRecordCountAsIntegerDimiAsInteger=0Dimidnum(2023)AsIntegerDimCurrentPositionAsIntegerSubShowPositionIfRecordCount=0Then=“无记录“ElseCurrentPosition=(DataSet11,“Workers“).Position=(“workerid“)idnum(i)=i+=1=(“password“)=(“leibie“)=CurrentPosition+1&“/“&RecordCountEndIfEndSubPrivateSubForm6_Load(ByValsenderAs,ByValeAs HandlesEndSub

ShowPositionPrivateSubButton1_Click(ByValsenderAs,ByValeAs If(DataSet11,“Workers“).Position>0Then(DataSet11,“Workers“).Position-=1ShowPositionElseEndIfEndSubPrivateSubButton2_Click(ByValsenderAs,ByValeAs If(DataSet11,“Workers“).Position<RecordCount-1Then(DataSet11,“Workers“).Position+=1ShowPositionElseEndIfEndSubPrivateSubButton3_Click(ByValsenderAs,ByValeAs (DataSet11,“Workers“).Position=0ShowPositionEndSubPrivateSubButton4_Click(ByValsenderAs,ByValeAs (DataSet11,“Workers“).Position=RecordCount-1ShowPositionEndSubPrivateSubButton5_Click(ByValsenderAs,ByValeAs DimjAsIntegerDimflagAsBoolean=TrueForj=0ToiIf =CStr(idnum(j))Thenflag=False(“IDEndIfNextIf <>1And<>2And<>3Thenflag=False(“效劳系统号只能为1，2，3EndIfIfflag=TrueThenDimMyNewDataAsDataRowTryWithMyNewData.BeginEditIf<>““Then.Item(“workerid“)=Else(“编号不能为空“)ReturnEndIf.Item(“password“)=.Item(“leibie“)=.EndEditEndWithCatchexAsExceptionReturnEndTryTryDimkAsInteger=(DataSet11,“Workers“)(k&CatchexAsExceptionEndTryidnum(i)=i=i+1EndIfEndSubPrivateSubButton6_Click(ByValsenderAs,ByValeAs DimjAsIntegerForj=0ToiIf =CStr(idnum(j))Then(“IDEndIfNextIf <>1And<>2And<>3Then(“效劳系统号只能为1，2，3EndIfCurrentPosition=(DataSet11,“Workers“).PositionTryWithmovieRow.BeginEdit.Item(“workerid“)=.Item(“password“)=.Item(“leibie“)=.EndEditEndWithCatchexAsExceptionReturnEndTryTryDimkAsInteger=(DataSet11,“Workers“)(k&CatchexAsExceptionEndTryEndSubPrivateSubButton7_Click(ByValsenderAs,ByValeAs CurrentPosition=(DataSet11,“Workers“).PositionDimnAsInteger=(“workerid“)DimjAsInteger=0Forj=0ToiIfn=idnum(j)Thenidnum(j)=-1EndIfNextTryDimkAsInteger=(DataSet11,“Workers“)(k&CatchexAsExceptionEndTryEndSubPrivateSubButton8_Click(ByValsenderAs,ByValeAs DimexitformAsNewForm7If =ThenEndIfEndSubPrivateSubButton9_Click(ByValsenderAs,ByValeAs EndSubEndClass创立票务界面创立模块的功能对所售出的电影票进展治理，把没用的数据进展去除创立模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面的设计如以以下图所示。代码编写ImportsPublicClassForm9InheritsDimds1AsNewDataSetDimsqlda1AsNewSqlDataAdapterDimRecordCountAsIntegerPrivateSubForm9_Load(ByValsenderAs,ByValeAsHandlesDimsqlcmd1AsNewSqlCommandDimstr1AsString=“SELECT,,,,, FROMMoviesINNERJOINTicketsON =“=sqlcn1=str1=sqlcmd1TryCatchexAsSqlExceptionMsgBoxFinallyEndTryTry(ds1)CatchexAsSqlExceptionMsgBoxEndTryRecordCount=(0).EndSubPrivateSubButton1_Click(ByValsenderAs,ByValeAs DimiAsIntegerDimflagAsBoolean=FalseIf =““ThenElseFori=0ToRecordCount-1IfCStr(0).Rows(i).Item(“movie_name“)).Trim=CStrThenTry=CStr(0).Rows(i).Item(“movie_id“))=CStr(0).Rows(i).Item(“movie_name“))=CStr(0).Rows(i).Item(“actor“))=CStr(0).Rows(i).Item(“actress“))=CStr(0).Rows(i).Item(“producer“))=CStr(0).Rows(i).Item(“pal