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

1、软件工程实验报告一系统概述；1 项目需求；2需求分析；二项目开发计划书；三设计说明书；2 分析与创建数据库3 创建登陆窗体模块；4 创建售票窗体模块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、王圣武登陆界面和售票界面、系统转换界面的程序编写，整个系统框架的设计，整个系统界面及美化设计，整个系统流程的管理，创建数据库张润驰检票系统和整个维护系统的程序编写，局部框架辅助设计，创建数据库本系统后台数据库采用目前比较流行的MicrosoftSQLSever,该数据库系统在安全性、准确性、运行速度方面有绝对的优势，并且处理数据量大、效率高；前台采用Microsoft公司的VB.NET2003作为主要的开发工具，其可与SQLSever2000数据库无缝衔接。三.设计说明书；1 .分析与创建数据库；根据系统的功能分析结果，影院售票管理系统将会使用MicrosoftSQLSever2000作为后台

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

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

9、_idsmallint2电影号是有Movie_nameNvarchar50电影名否无palydatedatetime8上映时问是无pricefloat8价格是无yanzhengmasmallint2验证码是无是表4职工信息表-WORKERS字段名称数据类型字段属性字段大小作用必填字段索引是否主键workeridsmallint2职工号是无是passwordsmallint2职工密码是无leibiesmallint2职工类型是无根据规范化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：2 .创建登陆

10、窗体模块；(1)窗体模块的功能登陆窗体(2)窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面的设计如图3所示。(3)窗体代码ImportsSystem.Data.SqlClientPublicClassFormlInheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase用来对记录导航DimmyconAsNewSqlConnection连接对象DimmycomAsNewSqlCommand命令对象Dimmycom1AsNewSqlCommandDimfrm2AsNewForm2Dim frm

11、3 As NewForm3Dimfrm8AsNewForm8PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickStatusBar1.Panels(0).Text=DateTime.TodayStatusBar1.Panels(1).Text=DateTime.Now.ToString(T)EndSubPrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Hand

12、lesGroupBox1.EnterIfRadioButton1.Checked=TrueThenRadioButton2.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton2.Checked=TrueThenRadioButton1.Checked=FalseRadioButton3.Checked=FalseElseIfRadioButton3.Checked=TrueThenRadioButton1.Checked=FalseRadioButton2.Checked=FalseEndIfEndSubPrivateSubButt

13、on1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click实验运行场VB.NET程序设计电影院票务系统登陆界面l.swfAxShockwaveFlash1.Playing=FalseAxShockwaveFlash1.Stop()Dimtox1AsInt32Dimtox2AsInt32DimmydataadapterAsNewSqlDataAdapterDimmydsAsNewDataSetDimiAsIntegerDimjAsIntegertox1=Val(TextBox1.Text)t

14、ox2=Val(TextBox2.Text)mycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom.Connection=mycon通过MYCON连接对象操作数据库mycom.CommandType=CommandType.Text设置命令类型mycom.CommandText=select*fromworkers设置要执行的命令Trymycon.Open()mydataadapter.SelectCommand=mycomCatchexAsExceptionMessageBox.Show(连接

15、失败)Finallymycon.Close()EndTrymydataadapter.Fill(myds,workers)Fori=0Tomyds.Tables(workers).Rows.Count-1ThenIftox1=Val(myds.Tables(workers).Rows(i).ItemArray(0)ExitForElsej=1EndIfNextFori=0Tomyds.Tables(workers).Rows.Count-1Iftox2=Val(myds.Tables(workers).Rows(i).ItemArray(1)Thenj=0ExitForElsej=1EndIf

16、NextIfj=1ThenMessageBox.Show(您的工号或者密码错误,错误提示,MessageBoxButtons.OK,MessageBoxIcon.Warning)ElseTrymycoml.Connection=mycon通过MYCON连接对象操作数据库mycom1.CommandType=CommandType.Text设置命令类型mycom1.CommandText=selectleibiefromworkerswhereworkerid=+CStr(tox1)+andpassword=+CStr(tox2)+设置要执行的命令Dimmydataadapter1AsNewSq

17、lDataAdaptermydataadapter1.SelectCommand=mycom1Dimmyds1AsNewDataSetmydataadapter1.Fill(myds1,workers)IfRadioButton1.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=1Thenfrm2.Show()Me.Hide()ElseIfRadioButton2.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=2Thenfrm3.Show()Me.Hide()E

18、lseIfRadioButton3.Checked=TrueAndVal(myds1.Tables(workers).Rows(0)(leibie)=3Thenfrm8.Show()Me.Hide()ElseMessageBox.Show(您超出职责范围或未选择服务系统，请重新输入！,错误提示,MessageBoxButtons.OK,MessageBoxIcon.Warning,MessageBoxDefaultButton.Button1)EndIfCatchexAsExceptionEndTryEndIfEndSubPrivateSubForm1_Load(ByValsenderAsSy

19、stem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load实验运行场VB.NET程序设计电影院票务系统登陆界面l.swfAxShockwaveFlash1.Play()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()

20、Application.Exit()EndIfEndSubEndClass3创建售票窗体模块（1） 窗体模块的功能为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位。不同的座位有不同的价格。此窗体还有退票功能。（2） 窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面的设计如下图所示。（3） 代码编写ImportsSystem.Data.SqlClientPublicClassForm2InheritsSystem.Windows.Forms.FormDimnavigatorAsBindingManagerBase用来对记录导航Dim

21、myconAsNewSqlConnection连接对象DimmycomAsNewSqlCommand命令对象PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Show()实验运行场VB.NET程序设计电影院票务系统AxShockwaveFlash1.Play()实验运行场VB.NET程序设计电影院票务系统HandlesMyBase.Load销售界面.swf检票界面下.swfAxShockwaveFlash2.Play()DimmydataadapterAsNewSqlDataAdapterDi

22、mmydsAsNewDataSetDimiAsIntegerDimjAsIntegerDimstrrowAsStringDimdtAsNewDataTablemycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom.Connection=mycon通过MYCON连接对象操作数据库mycom.CommandType=CommandType.Text设置命令类型mycom.CommandText=select*fromMovies设置要执行的命令Trymycon.Open()mydataadapter

23、.SelectCommand=mycommydataadapter.Fill(myds,Movies)CatchexAsExceptionMessageBox.Show(连接失败)Finallymycon.Close()EndTryTryFori=0Tomyds.Tables(Movies).Rows.Count-1strrow=myds.Tables(Movies).Rows(i)(movie_name)ComboBox1.Items.Add(strrow)NextCatchexAsExceptionMessageBox.Show(ex.ToString)EndTryEndSubPrivat

24、eSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimiAsIntegerDimtickethaoAsIntegerDimmoviehaoAsIntegerDimsuijiAsIntegerDimmydataadapter3AsNewSqlDataAdapterDimmyds3AsNewDataSetDimdt3AsNewDataTableDimmycom3AsNewSqlCommandDimmycon3AsNewSqlConnectionRandomize(

25、)suiji=Int(9000*Rnd()+1000)Trytickethao=tickets_id()moviehao=movieid()mycon3.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycom3.Connection=mycon3通过MYCON连接对象操作数据库mycom3.CommandType=CommandType.Text设置命令类型CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryIftickethao=0ThenTryMess

26、ageBox.Show(此座位已售出，请重新选择！,错误)ComboBox1.Text=TextBox1.Text = TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryElseTrymycon3.Open()mycom3.CommandText=insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(+CStr

27、(tickethao)+,+TextBox4.Text+,+CStr(moviehao)+,+TextBox2.Text+,+TextBox1.Text+,+TextBox5.Text+,+CStr(suiji)+)DimsqlAsStringsql=insertintotickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma)values(+CStr(tickethao)+,+TextBox4.Text+,+CStr(moviehao)+,+TextBox2.Text+,+TextBox3.Text+,+Te

28、xtBox5.Text+,+CStr(suiji)+)mydataadapter3.InsertCommand=mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(售票成功！,谢谢观看)CatchexAsExceptionMsgBox(ex.ToString)EndTryCatchexAsExceptionMessageBox.Show(ex.ToString)EndTrymycon3.Close()ComboBox1.Text=TextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=Text

29、Box5.Text=EndIfrevoke_seat()EndSubPrivateSubComboBox1_SelectedIndexChanged_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesComboBox1.SelectedIndexChangedrevoke_seat()Dimmydataadapter1AsNewSqlDataAdapterDimmydataadapter11AsNewSqlDataAdapterDimmyds1AsNewDataSetDimmyds11AsNewDataSetDimdt1A

30、sNewDataTableDimdt11AsNewDataTableDimmycom1AsNewSqlCommandDimmycom11AsNewSqlCommandmycon.ConnectionString=initialcatalog=ticketbooking;userid=sa;password=;mycoml.Connection=mycon通过MYCON连接对象操作数据库mycom1.CommandType=CommandType.Text设置命令类型mycom11.Connection=myconmycom11.CommandType=CommandType.TextTrymy

31、con.Open()mycom11.CommandText=selectpalydatefromMovieswheremovie_name=+ComboBox1.Text+mycom1.CommandText=select*fromticketswheremovie_name=+ComboBox1.Text+mydataadapter1.SelectCommand=mycom1mydataadapter11.SelectCommand=mycom11mydataadapter1.Fill(myds1,tickets)mydataadapter11.Fill(myds11,Movies)dt1=

32、myds1.Tables(tickets)dt11=myds11.Tables(Movies)CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryTryIfdt1.Rows.Count=0ThenMessageBox.Show(还未出售！)TextBox1.Text=dt11.Rows(0)(palydate)revoke_seat()ElseShowSellInfo(dt1)TextBox1.Text=dt11.Rows(0)(palydate)EndIfCatchexAsExceptionEndTrymycon.Close()EndSub

33、PrivateSubButton2_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimtickethaoAsIntegerDimmydataadapter4AsNewSqlDataAdapterDimmyds4AsNewDataSetDimdt4AsNewDataTableDimmycom4AsNewSqlCommandDimmycon4AsNewSqlConnectionTrymycon4.ConnectionString=initialcatalog=ticketbookin

34、g;userid=sa;password=;mycom4.Connection=mycon4通过MYCON连接对象操作数据库mycom4.CommandType=CommandType.Text设置命令类型tickethao=tuipiao()CatchexAsExceptionMessageBox.Show(ex.ToString)EndTryIftickethao=0ThenMessageBox.Show(座位号输入错误，请重新输入！,错误)ElseTrymycon4.Open()mycom4.CommandText=deletefromticketswhereticketsid=+CSt

35、r(tickethao)+Trymycom4.ExecuteNonQuery()MessageBox.Show(退票成功！,谢谢观看)CatchexAsExceptionMsgBox(ex.ToString)EndTryCatchexAsExceptionMsgBox(ex.ToString)EndTryEndIfmycon4.Close()TextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=ComboBox1.Text=revoke_seat()EndSubPrivateSubButton3_Click_

36、1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox2.Text=ComboBox1.TextTextBox3.Text=TextBox1.TextIfTextBox4.Text=ThenMessageBox.Show(请输入座位号！,提示)EndIDimmydataadapter2AsNewSqlDataAdapterDimmyds2AsNewDataSetDimdt2AsNewDataTableDimmycom2AsNewSqlCommandmycon.ConnectionStri

37、ng=initialcatalog=ticketbooking;userid=sa;password=;mycom2.Connection=mycon通过MYCON连接对象操作数据库mycom2.CommandType=CommandType.Text设置命令类型Trymycon.Open()mycom2.CommandText=select*fromseatswhereseatid=+TextBox4.Text+mydataadapter2.SelectCommand=mycom2mydataadapter2.Fill(myds2,seats)dt2=myds2.Tables(seats)C

38、atchexAsExceptionMessageBox.Show(ex.ToString)EndTryTextBox5.Text=dt2.Rows(0)(price)mycon.Close()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Ex

39、it()EndIfEndSubEndClass4 创建检票界面1）创建模块的功能对进场观众检票，如果发现有假票或无票观众不允许入内。2）创建模块的窗体在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。界面的设计如下图所示。3）代码编写ImportsSystem.Data.SqlClientPublicClassForm3InheritsSystem.Windows.Forms.FormDimds1AsNewDataSetDimsqlda1AsNewSqlDataAdapterDimRecordCountAsIntegerPrivate Sub Form3_Load( ByVal

40、senderAs System.Object, ByVal e As System.EventArgs)实验运行场VB.NET程序设计电影院票务系统AxShockwaveFlash1.Play()实验运行场VB.NET程序设计电影院票务系统Handles MyBase.Load检票界面.swf检票界面下.swfAxShockwaveFlash2.Play()Dimsqlcmd1AsNewSqlCommandDimstr1AsString=select*fromticketssqlcmd1.Connection=sqlcn1sqlcmd1.CommandText=str1sqlda1.Selec

41、tCommand=sqlcmd1Trysqlcn1.Open()sqlcmd1.ExecuteNonQuery()CatchexAsSqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()EndTryTrysqlda1.Fill(ds1)CatchexAsSqlExceptionMsgBox(ex.Message)EndTryRecordCount=ds1.Tables(0).Rows.CountTextBox6.Text=RecordCountEndSubHandlesPrivateSubButton1_Click_1(ByValsenderAs

42、System.Object,ByValeAsSystem.EventArgs)Button1.ClickDimiAsIntegerDimflagAsBoolean=FalseThen请认真填写票号！IfTextBox1.Text=TextBox7.Text=TextBox1.Focus()ExitSubEndIfIfTextBox2.Text=ThenTextBox7.Text =请填写验证码！TextBox2.Focus()ExitSubEndIfFori=0ToRecordCount-1IfTextBox1.Text=CStr(ds1.Tables(0).Rows(i)(ticketsid

43、)AndTextBox2.Text=CStr(ds1.Tables(0).Rows(i)(yanzhengma)Thenflag=TrueExitForEndIfNextIfflag=TrueThenTryTextBox3.Text=ds1.Tables(0).Rows(i)(seatid)TextBox4.Text=ds1.Tables(0).Rows(i)(movie_name)TextBox5.Text=ds1.Tables(0).Rows(i)(price)CatchexAsExceptionMsgBox(ex.Message)EndTryTextBox7.Text=此票为真！Else

44、TextBox7.Text=此票为假！EndIfTextBox6.Text=RecordCountEndSubPrivateSubButton2_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=TextBox2.Text=TextBox3.Text=TextBox4.Text=TextBox5.Text=TextBox6.Text=TextBox7.Text=TextBox1.Focus()EndSubPrivateSubButton3_Click_1(B

45、yValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Exit()EndIfEndSubEndClass5 创建维护界面(1)创建模块的功能给数据库维护工作人员选择维护的系统数据库(2)创建模块的设计在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面的设计如下图所示。(3)代码编写Public

46、ClassForm8InheritsSystem.Windows.Forms.FormPrivateSubForm8_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load实验运行场VB.NET程序设计电影院票务系统登陆界面.swfAxShockwaveFlash1.Play()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimfrm4AsN

47、ewForm4frm4.Show()Me.Hide()EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimfrm6AsNewForm6frm6.Show()Me.Hide()EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickDimfrm9AsNewForm9frm9.Show()Me.H

48、ide()EndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDimexitformAsNewForm7Ifexitform.ShowDialog=DialogResult.OKThenexitform.Close()Me.Close()Application.Exit()EndIfEndSubEndClass1 创建影库界面(1)创建模块的功能对电影库播放列表的管理(2)创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统

49、窗体。界面的设计如下图所示。(3)代码编写DimsqlAdapterAsNewSqlDataAdapterDimmovieRowAsDataRowDimRecordCountAsIntegerDimiAsInteger=0Dimidnum(2000)AsIntegerDimCurrentPositionAsIntegerSubShowPosition()RecordCount=DataSet11.Movies.Rows.CountIfRecordCount=0ThenTextBox1.Text=无记录ElseCurrentPosition=Me.BindingContext(DataSet11

50、,Movies).PositionmovieRow=DataSet11.Movies.Rows(CurrentPosition)TextBox1.Text=movieRow.Item(movie_id)idnum(i)=TextBox1.Text1 +=1TextBox2.Text=movieRow.Item(movie_name)TextBox3.Text=movieRow.Item(actor)TextBox4.Text=movieRow.Item(actress)TextBox5.Text=movieRow.Item(producer)TextBox6.Text=movieRow.Ite

51、m(palydate)TextBox7.Text=CurrentPosition+1&/&RecordCountEndIfEndSubPrivateSubForm4_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDataSet11.Clear()Me.SqlDataAdapter1.Fill(DataSet11)ShowPosition()EndSubByVal e As System.EventArgs) HandlesThenPrivateSubButton1_Click(ByValse

52、nderAsSystem.Object,Button1.ClickIfMe.BindingContext(DataSet11,Movies).Position0Me.BindingContext(DataSet11,Movies).Position-=1ShowPosition()ElseMessageBox.Show(已到达首记录！,提示信息)EndIfEndSubNextPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfMe.BindingContext(DataSet11,Movies).PositionRecordCount-1ThenMe.BindingContext(DataSet11,Movies).Position+=1ShowPosition()ElseMessageBox.Show(已到达尾记录！,提示信息)EndIfEndSubHandlesPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Button4.ClickMe.BindingContext(DataSet11,Movies).Position=Reco