软件工程实验报告

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

2、生路。每个社会服务系统都有自己的一套管理机制。当然，电影院也不除外。其实电影院的管理系统应该来说比其他的社会服务系统的管理要简单一点。电影院不外乎是引进电影，制定播放影片的时间表，买票，检票进场观看，还有就是一些数据管理方面的事。如工作人员管理，票务管 理等等。为了工作机制简单有序，必然要引进一套管理系统。2. 需求分析；具体而言，影院售票系统需要实现以下的需求：(1) 能够对播放电影，工作人员，售票事宜，检票事宜，无用数据进行处理。(2) 售票管理自然有专人负责，要处理各电影的电影票销售问题。当然包括退票问题，还有就 是预订电影票其实也就相当于买票。两者可以当一回事处理。(3) 检票管理事宜

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

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

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

6、以后，在数据库的电影票数据就会变成没有用的数据。通过此管理可 以把那些没用的过期的数据清除。 这里指的是与放过的电影同名的电影票清除， 而其他的电影票保 存不变。小组人员分工情况：王圣武登陆界面和售票界面、系统转换界面的程序编写，整个系统框架的设计，整个系统界面及美化设计，整个系统流程的管理，创建数据库张润驰检票系统和整个维护系统的程序编写，局部框架辅助设计，创建数据库本系统后台数据库采用目前比较流行的 Microsoft SQLSever ,该数据库系统在安全性、准确 性、运行速度方面有绝对的优势，并且处理数据量大、效率高；前台采用Microsoft公司的VB.NET 2003作为主要的开发

7、工具，其可与SQL Sever 2000数据库无缝衔接。三. 设计说明书；1. 分析与创建数据库；根据系统的功能分析结果，影院售票管理系统将会使用Microsoft SQL Sever 2000 作为后台的数据库管理系统。本管理系统是应用于电影院中，而且需要和数据库之间进行频繁数 据交换，所以采用Microsoft SQL Sever 2000 作为后台的数据库管理系统。在本管理系统中，需要掌握影库充实信息，职工管理信息，票务管理信息，此外，由于要进 行职工管理，还需要掌握使用本系统的职工。表1存储硬库信息列表，表2存储了电影院座 位的相关数据连接关系，表3存储了电影票销售情况管理，表4存储了

8、系统使用者职工的相 关情况的管理列表。表1影库管理表-MOVIES字段名称数据类型字段属性字段大 小作用必填字段索引是否 主键Movie_idsmalli nt2电影号是有（无重复）是 AMovie_na meNvarchar50电影名 称是无*|.L-./ _| IactorNvarchar50导演否无actressNvarchar50主演否无producerNvarchar25制片厂否无palydatedatetime8上映时 间是hl.1无表2电影院座位管理表-SEATS字段名 称数据类型字段属性字段大 小作用必填字段索引是否主 键seatidsmalli nt2座位号是有（无重复）是p

9、ricefloat8票价是无soldor notsmalli nt2是否售出是无表3电影票信息表-TICKETS字段名称数据类型字段属性字段大小作用必填字段索引是否主 键ticketsi dsmalli nt2电影票 号是有（无重复）是seatidsmalli nt2座位号是有Movie_idsmalli nt2电影号是有Movie_ naNvarchar50电影名否无mepalydatedatetime8上映时 间是无pricefloat8价格是无yanzhengmasmalli nt2验证码是无是表4 职工信息表-WORKERS字段名 称数据类型字段属性字段大 小作用必填字 段索引是否主键

10、workeri dsmalli nt2职工号是无 .1 '1是» 1 j' 1passwor dsmalli nt2职工密码是无leibiesmalli nt2职工类型是无根据规范化的设计理念，本管理系统的数据分成上面4个表，减少了数据的冗余，同时在这些表之间又存在着一些关联关系。这四个表之间的这两种关系表现在下图所示的关系：2 .创建登陆窗体模块；(1) 窗体模块的功能登陆窗体(2) 窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面的设计如图3所示。(3) 窗体代码ImportsPublic Class FormlInheritsD

11、im navigator As BindingManagerBase'用来对记录导航连接对象命令对象Dim mycon As NewSqlConnectionDim mycom As NewSqlCommandDim mycoml As NewSqlCommandDim frm2 As NewForm2Dim frm3 As NewForm3Dim frm8 As NewForm8Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerl.Tick

12、StatusBar1.Panels(0).Text = DateTime.TodayEnd SubPrivate Sub GroupBox1_Enter( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBoxI.Enter来源网络，仅供参考If RadioButtonl.Checked = True ThenRadioButton2.Checked =FalseRadioButton3.Checked =FalseElself RadioButton2.Checked =True ThenRad

13、ioButton1.Checked =FalseRadioButton3.Checked =FalseElseIf RadioButton3.Checked =True ThenRadioButton1.Checked =FalseRadioButton2.Checked =FalseEnd IfEnd SubPrivate Sub Button1_Click( ByVai sender As System.Object, ByVai e As System.EventArgs) Handles Button1.Click实验运行场WB.NET程序设计 电影院票务系统登陆界面l.swf&quo

14、t;AxShockwaveFlashl.Playing =FalseAxShockwaveFlash1.Stop()Dim toxl As Int32Dim tox2 As Int32Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As Integertoxl = Val(TextBoxl.Text)tox2 = Val(TextBox2.Text)''| |l |mycon.ConnectionString = "initial catalog=tic

15、ketbooking;user id=sa;passwordmycom.Connection = mycon'通过 MYCON连接对象操作数据库mycom.CommandType = CommandType.Text '设置命令类型 mycom.CommandText = "select * from workers"'设置要执行的命令Trymycon.Open()mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show(”连接失败")Finallymyc

16、on.Close()End Trymydataadapter.Fill(myds, "workers")For i = 0 To myds.Tables("workers").Rows.Count - 1If toxl = Val(myds.Tables("workers").Rows(i).ItemArray(0)Thenj = 0Exit ForElsej = 1End IfNextFor i = 0 To myds.Tables("workers").Rows.Count - 1If tox2 = Val(m

17、yds.Tables("workers").Rows(i).ItemArray(1)ThenExit ForElsej = 1End IfNextIf j = 1 ThenMessageBox.Show(”您的工号或者密码错误 "," 错误提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTrymycom1.Connection = mycon'通过 MYCON连接对象操作数据库mycom1.CommandType = CommandType.Text'设置命令类型myc

18、om1.CommandText = "select leibie from workers where workerid=" +CStr (tox1) + "and password=" +CStr (tox2) +设置要执行的命令Dim mydataadapter1 As NewSqlDataAdaptermydataadapter1.SelectCommand = mycom1Dim myds1 As NewDataSet/Imydataadapter1.Fill(myds1, "workers")If RadioButton1.

19、Checked = True And Val(myds1.Tables("workers").Rows(0)("leibie") = 1Thenfrm2.Show()MeHide()ElseIf RadioButton2.Checked =True And Val(myds1.Tables("workers").Rows(0)("leibie") = 2Thenfrm3.Show()MeHide()ElseIf RadioButton3.Checked =True1 | |l li"1 1 1And Va

20、l(myds1.Tables("workers").Rows(0)("leibie") = 3Thenfrm8.Show()MeHide()ElseMessageBox.Show(”您超岀职责范围'i或未选择服务系统，请重新输入！"，”错误提示",MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)End IfCatch ex As ExceptionEnd TryEnd IfEnd SubPrivate Sub Form1

21、_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoad实验运行场VB.NET程序设计电影院票务系统登陆界面1.swf"AxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim exitform As NewForm7If exitform.Sho

22、wDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End If来源网络，仅供参考End SubEnd Class3.创建售票窗体模块(1)窗体模块的功能为观众提供买票服务。在界面上观众可以看见座位的情况，根据此来选择自己喜欢的座位。不同的座位有不同的价格。此窗体还有退票功能。(2)窗体界面的设计在工程中添加一个窗体，命名为“售票系统”，用来作为仓管人员窗体。界面的设计如下图所示。(3)代码编写ImportsPublicClass Form2InheritsDim navigator As Bindin

23、gManagerBase'用来对记录导航Dim mycon As NewSqlConnectionDim mycom As NewSqlCommand'连接对象'命令对象Private Sub Form2_Load( ByVal senderAs System.Object, ByVal e As System.EventArgs)Handles MyBaseLoad'Me.Show()实验运行场WB.NET程序设计电影院票务系统销售界面.swf"AxShockwaveFlash1.Play()实验运行场VB.NET程序设计电影院票务系统检票界面下.s

24、wf"AxShockwaveFlash2.Play()Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As IntegerDim strrow As StringDim dt As NewDataTablemycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"'通过MYCON连接对象操作数据库'设置命令类型'设置要执行的命令”

25、mycom.Connection = myconmycom.CommandType = CommandType.Textmycom.CommandText = "select * from Movies"Trymycon.Open()mydataadapter.SelectCommand = mycom mydataadapter.Fill(myds, "Movies")Catch ex As ExceptionMessageBox.Show("连接失败")Finallymycon.Close()End TryTryFor i = 0

26、 To myds.Tables("Movies").Rows.Count - 1 strrow = myds.Tables("Movies").Rows(i)("movie_name")ComboBoNextCatch ex As ExceptionMessageBox.Show(ex.ToString)End TryEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button

27、1.ClickDim i As IntegerDim tickethao As IntegerDim moviehao As IntegerDim suiji As IntegerDim mydataadapter3 As NewSqlDataAdapterDim myds3 As NewDataSetDim dt3 As NewDataTable A” H /I! I f.Dim mycom3 As NewSqlCommandI # z r:_' -j-Dim mycon3 As NewSqlConnection/IRandomize()suiji = lnt(9000 * Rnd(

28、) + 1000)Trytickethao = tickets_id()'i 'i/. j11匚二' moviehao = movieid()mycon3.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"Imycom3.Connection = mycon3'通过 MYCON连接对象操作数据库mycom3.CommandType = CommandType.Text'设置命令类型Catch ex As ExceptionMessageBox

29、.Show(ex.ToString)End TryIf tickethao = 0 ThenTryMessageBox.Show(”此座位已售出，请重新选择！"，”错误")ComboBoxl.Text ="" I'| '|TextBoxl.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text =""Catch ex As ExceptionMessa

30、geBox.Show(ex.ToString)End TryElseTrymycon3.Open()mycom3.CommandText = "insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" +CStr (tickethao) + "," + TextBox4.TextCStr(suiji) +CStr(moviehao) + ",'" + TextBox2.Text + "&#

31、39;,'" + TextBoxl.Text + "'," + TextBox5.Text + "," +")"Dim sql As Stringsql = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values("+ CStr (tickethao) + "," + TextBox4.Text + "," +CStr (

32、moviehao) + ",'" + TextBox2.Text + "','" + TextBox3.Text +"',"+ TextBox5.Text + "," +CStr (suiji) + ")"mydataadapter3n sertCommand = mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(”售票成功！","谢谢观看")Catch ex As ExceptionM

33、sgBox(ex.ToString)End TryCatch ex As ExceptionMessageBox.Show(ex.ToString)End Trymycon3.Close()/IComboBox1.Text =""TextBox1.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text ="" ；I1 I ；End IfL .I'J I Irevoke_seat(

34、)End SubHandlesPrivate Sub ComboBox1_SelectedIndexChanged_1( ByVal sender As System.Object, ByVal e As System.EventArgs)ComboBox1.SelectedlndexChangedrevoke_seat()Dim mydataadapter1 As NewSqlDataAdapter.!l Iq Dim mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSet-'i IDim myds11 As NewDa

35、taSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommandmycon.ConnectionString = "initial catalog=ticketbooking;user id=sa;password=;"mycom1.Connection = mycon'通过 MYCON连接对象操作数据库mycom1.CommandType = CommandType.Text '设置命令类型mycom11.C

36、onnection = myconmycom11.CommandType = CommandType.TextTrymycon.Open()mycom11.CommandText = "select palydate from Movies where movie_name= '" + ComboBox1.Text + ""'mycom1.CommandText = "select * from tickets where movie_name= '" + ComboBoxl.Text + "&quo

37、t;'mydataadapterl.SelectCommand = mycomlmydataadapterll.SelectCommand = mycomllmydataadapter1.Fill(myds1, "tickets")mydataadapter11.Fill(myds11, "Movies")dt1 = myds1.Tables("tickets")dt11 = myds11.Tables("Movies")Catch ex As ExceptionMessageBox.Show(ex.ToS

38、tring)End TryTryIfThenMessageBox.Show(”还未出售！")TextBox1.Text = dt11.Rows(0)("palydate")revoke_seat()ElseA”1! IShowSelllnfo(dt1)TextBox1.Text = dt11.Rows(0)("palydate")/IEnd IfCatch ex As Exception/z/-.iEnd Trymycon.Close()1W) ” 7I!匚二'End SubPrivate Sub Button2_Click_1( By

39、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click -'：卩 I ；Dim tickethao As IntegerDim mydataadapter4 As NewSqlDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnectionTry!l 1mycon4.ConnectionString = "ini

40、tial catalog=ticketbooking;user id=sa;password=;"mycom4.Connection = mycon4'通过 MYCON连接对象操作数据库mycom4.CommandType = CommandType.Text'设置命令类型tickethao = tuipiao()Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenMessageBox.Show(”座位号输入错误，请重新输入！ ","错误"

41、;)ElseTrymycon4.Open()mycom4.CommandText = "delete from tickets where ticketsid=" +CStr (tickethao) + ""Trymycom4.ExecuteNonQuery()MessageBox.Show(”退票成功！","谢谢观看")Catch ex As ExceptionMsgBox(ex.ToString)End TryCatch ex As ExceptionMsgBox(ex.ToString)End TryEnd Ifmyc

42、on4.Close()TextBox1.Text =""TextBox2.Text =""TextBox3.Text =""TextBox4.Text =""TextBox5.Text =""ComboBox1.Text =""revoke_seat()End SubPrivate Sub Button3_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)/iTextBox2.Text =

43、ComboBox1.TextTextBox3.Text = TextBox1.TextIf TextBox4.Text = "" ThenMessageBox.Show(”请输入座位号！"，”提示")End IDim mydataadapter2 As NewSqlDataAdapterDim myds2 As NewDataSetDim dt2 As NewDataTableDim mycom2 As NewSqlCommandmycon.ConnectionString = "initial catalog=ticketbooking;us

44、er id=sa;password=;" mycom2.Connection = mycon'通过 MYCON连接对象操作数据库mycom2.CommandType = CommandType.Text '设置命令类型Trymycon.Open()mycom2.CommandText = "select * from seats where seatid=" + TextBox4.Text + "" mydataadapter2.SelectCommand = mycom2mydataadapter2.Fill(myds2, &

45、quot;seats")dt2 = myds2.Tables("seats")Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryTextBox5.Text = dt2.Rows(0)("price")mycon.Close()End SubPrivate Sub Button4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs)Dim exitform As NewForm7If exitform.Sh

46、owDialog = DialogResult.OKThenexitform.Close()Handles Button3.ClickHandles Button4.ClickMeClose()Application.Exit()End IfEnd SubEnd Class4. 创建检票界面(1) 创建模块的功能对进场观众检票，如果发现有假票或无票观众不允许入内(2) 创建模块的窗体在工程中添加一个窗体，命名为“检票系统”，用来作为检票系统窗体。界面 的设计如下图所示。(3) 代码编写ImportsPublic Class Form3InheritsDim ds1 As NewDataSetD

47、im sqlda1 As NewSqlDataAdapterHandles MyBaseLoad 检票界面.swf"Dim RecordCount As IntegerPrivate Sub Form3_Load( ByVal senderAs System.Object, ByVal e As System.EventArgs)实验运行场VB.NET程序设计电影院票务系统AxShockwaveFlash1.Play()实验运行场WB.NET程序设计电影院票务系统检票界面下.swf"AxShockwaveFlash2.Play()Dim sqlcmd1 As NewSqlC

48、ommandDim str1 As String = "select * from tickets" sqlcmd1.Connection = sqlcn1 sqlcmd1.CommandText = str1 sqlda1.SelectCommand = sqlcmd1TryI1 lisqlcn1.Open() sqlcmd1.ExecuteNonQuery()Catch ex As SqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()End TryTrysqlda1.Fill(ds1)Catch ex As SqlExc

49、eptionMsgBox(ex.Message)End TryRecordCount = ds1.Tables(0).Rows.CountTextBox6.Text = RecordCountEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click-来源网络，仅供参考Dim i As IntegerDim flag As Boolean = FalseThen请认真填写票号!Then请填写验证码!If TextBoxl

50、.Text ="" TextBox7.Text =" TextBox1.Focus()Exit SubEnd IfIf TextBox2.Text =""TextBox7.Text ="TextBox2.Focus()Exit SubEnd IfFor i = 0 To RecordCount - 1If TextBox1.Text = CStr(ds1.Tables(0).Rows(i)("ticketsid")And TextBox2.Text =CStr (ds1.Tables(0).Rows(i)(&quo

51、t;yanzhengma")Thenflag =TrueExit For/IEnd IfNextIf flag = True ThenTryTextBox3.Text = ds1.Tables(0).Rows(i)("seatid")TextBox4.Text = ds1.Tables(0).Rows(i)("movie_name")TextBox5.Text = ds1.Tables(0).Rows(i)("price")u l |Catch ex As ExceptionMsgBox(ex.Message)End Try

52、TextBox7.Text ="此票为真!ElseTextBox7.Text ="此票为假!End IfTextBox6.Text = RecordCountEnd SubPrivate Sub Button2_Click_1(TextBox1.Text =""ByVal senderAs System.Object,ByVal e As System.EventArgs)HandlesButton2.ClickTextBox2.Text =""TextBox3.Text =""TextBox4.Text =&qu

53、ot;"TextBox5.Text =""TextBox6.Text =""TextBox7.Text =""TextBox1.Focus()End SubPrivate Sub Button3_Click_1(ByVal senderAs System.Object,ByVal e As System.EventArgs) HandlesButton3.Click来源网络，仅供参考Dim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThenexit

54、form.Close()MeClose()Application.Exit()End IfEnd SubEnd Class5. 创建维护界面(1) 创建模块的功能给数据库维护工作人员选择维护的系统数据库(2) 创建模块的设计在工程中添加一个窗体，命名为“维护系统”，用来作为维护系统窗体。界面 的设计如下图所示。(3) 代码编写Public Class Form8InheritsPrivate Sub Form8_Load( ByVai sender As System.Object,ByVai e As System.EventArgs) Handles MyBaseLoad实验运行场VB.N

55、ET程序设计电影院票务系统登陆界面.swf"AxShockwaveFlash1.Play()End Sub! L- -.r|Private Sub Button1_Click( ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Buttonl.ClickDim frm4 As NewForm41frm4.Show()MeHide()End SubPrivate Sub Button2_Click( ByVal sender As System.Object,ByVal e As System.Even

56、tArgs) Handles Button2.ClickDim frm6 As NewForm6frm6.Show()MeHide()End SubPrivate Sub Button3_Click( ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.ClickDim frm9 As NewForm9frm9.Show()MeHide()End SubPrivate Sub Button4_Click( ByVal sender As System.Object,ByVal e As Syste

57、m.EventArgs) Handles Button4.ClickDim exitform As NewForm7If exitform.ShowDialog = DialogResult.OKThenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class1 .创建影库界面(1) 创建模块的功能对电影库播放列表的管理(2) 创建模块的设计在工程中添加一个窗体，命名为“影库系统”，用来作为影库系统窗体。界面 的设计如下图所示。(3) 代码编写Dim sqIAdapter As NewSqlDataAdapterDim

58、movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()If RecordCount = 0 ThenTextBox1.Text ="无记录ElseCurrentPosition =MeBindingContext(DataSet11, "Movies").PositionTextBox1.Text = movieRow.ltem("movie_id")idnum(i) = TextBox1.Texti += 1TextBox2.Text = movieRow.Item("movie_name")TextBox3.Text = movieRow.Item("actor")TextBox4.Text = movieRow.Item("actress&qu