用數(shù)據(jù)庫設(shè)計(jì)影院售票管理方案系統(tǒng)

1、-/.系統(tǒng)概述;.設(shè)計(jì)需求;現(xiàn)在中國大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因?yàn)榧依锏臍夥债吘共蝗缬霸汉?。所以，現(xiàn)代家庭影院 的出現(xiàn)并不會(huì)讓電影院沒有生路。每個(gè)社會(huì)服務(wù)系統(tǒng)都有自己的一套管理機(jī)制。當(dāng)然，電影院也不除外。其實(shí)電影院 的管理系統(tǒng)應(yīng)該來說比其他的社會(huì)服務(wù)系統(tǒng)的管理要簡單一點(diǎn)。電影院不外乎是引進(jìn)電 影，制定播放影片的時(shí)間表，買票，檢票進(jìn)場觀看，還有就是一些數(shù)據(jù)管理方面的事。如 工作人員管理，票務(wù)管理等等。為了工作機(jī)制簡單有序，必然要引進(jìn)一套管理系統(tǒng)。.需求分析;具體而言，影院售票系統(tǒng)需要實(shí)現(xiàn)以下的需求：能夠?qū)Σシ烹娪?，工作人員，售票事

2、宜，檢票事宜，無用數(shù)據(jù)進(jìn)行處理。售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。檢票管理事宜要完成觀眾進(jìn)場時(shí)檢票的事宜。其中包括了電影票的真假檢測問題。數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理， 以及過期電影票的處理問題。三.設(shè)計(jì)說明.分析與創(chuàng)建數(shù)據(jù)庫；根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會(huì)使用Microsoft SQLSever 2000作為后臺(tái)的數(shù)據(jù)庫管理系統(tǒng)。本管理系統(tǒng)是應(yīng)用于電影院中，而且需要和數(shù)據(jù)庫之間進(jìn)行頻繁數(shù)據(jù)交換，所以采用Microsoft SQL Sever 2000作為后臺(tái)的數(shù)據(jù)

3、庫管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。表 1存儲(chǔ)硬庫信息列表，表2存儲(chǔ)了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系，表3存儲(chǔ)了電影票銷售情況管理，表 4存儲(chǔ)了系統(tǒng)使用者職工的相關(guān)情況的管理列表。-/mycon.Close()-/Dim frm3 As NewForm3表4 職工信息表-WORKERS字段名稱數(shù)據(jù)類型字段屬性字段大小作用必填字段索引是否主鍵workeridsmallint2職工號是無是passwordsmallint2職工密碼是無leibiesmallint2職工類型是無根據(jù)規(guī)范化的設(shè)計(jì)理念，本管理系

4、統(tǒng)的數(shù)據(jù)分成上面4個(gè)表，減少了數(shù)據(jù)的冗余，同時(shí)在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。這四個(gè)表之間的這兩種關(guān)系表現(xiàn)在下圖所示的關(guān)系：Tirk:ex3 ,rviiliuIJtQSMril. liKibxj.創(chuàng)建登陸窗體模塊；(1)窗體模塊的功能登陸窗體(2)窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體。界面 的設(shè)計(jì)如圖3所示。工號；J密碼：|摳落案獲選擇II r售重茶統(tǒng) r檢重系拄 廣播護(hù)系振| g at(3)窗體代碼Imports System.Data.SqlClientPublic Class FormlInherits System.Windows.Forms.

5、FormDim navigator As BindingManagerBase 用來對記錄導(dǎo)航Dim mycon As NewSqlConnection連接對象Dim mycom As NewSqlCommand命令對象Dim mycom1 As NewSqlCommandDim frm2 As NewForm2Dim frm8 As NewForm8Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerl.TickStatusBar1.Panels(0

6、).Text = DateTime.TodayStatusBar1.Panels(1).Text = DateTime.Now.ToString(T) End Sub Private Sub GroupBox1_Enter( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter If RadioButton1.Checked = True ThenRadioButton2.Checked =FalseRadioButton3.Checked =FalseElseIf RadioBu

7、tton2.Checked =True ThenRadioButton1.Checked =FalseRadioButton3.Checked =FalseElseIf RadioButton3.Checked =True ThenRadioButton1.Checked =FalseRadioButton2.Checked =FalseEnd If End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickAxShockw

8、aveFlash1.Movie =實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面1.swfAxShockwaveFlash1.Playing =FalseAxShockwaveFlash1.Stop() Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As Integertox1 = Val(TextBox1.Text)tox2 = Val(TextBox2.Text)mycon.ConnectionStr

9、ing = initial catalog=ticketbooking;user id=sa;password=;通過MYCON接對象操作數(shù)據(jù)庫設(shè)置命令類型設(shè)置要執(zhí)行的命令mycom.Connection = myconmycom.CommandType = CommandType.Textmycom.CommandText = select * from workersTry mycon.Open()mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show(連接失敗)Finally-/End Try myd

10、ataadapter.Fill(myds, workers)For i = 0 To myds.Tables(workers).Rows.Count - 1If tox1 = Val(myds.Tables(workers).Rows(i).ItemArray(0)Thenj = 0 Exit ForElse j = 1 End If Next For i = 0 To myds.Tables(workers).Rows.Count - 1If tox2 = Val(myds.Tables(workers).Rows(i).ItemArray(1)Thenj = 0 Exit ForElse

11、j = 1 End If Next If j = 1 Then MessageBox.Show(您的工號或者密碼錯(cuò)誤 ,錯(cuò)誤提示, MessageBoxButtons.OK,MessageBoxIcon.Warning)ElseTrymycom1.Connection = mycon通過 MYCON連接對象操作數(shù)據(jù)庫mycom1.CommandType = CommandType.Text設(shè)置命令類型mycom1.CommandText = select leibie from workers where workerid= +CStr (tox1)+ and password= + CStr

12、 (tox2) +設(shè)置要執(zhí)行的命令Dim mydataadapter1 As NewSqlDataAdapter mydataadapter1.SelectCommand = mycom1Dim myds1 As NewDataSet mydataadapter1.Fill(myds1, workers) If RadioButton1.Checked = True And Val(myds1.Tables(workers).Rows(0)(leibie) = 1Thenfrm2.Show()MeHide()ElseIf RadioButton2.Checked =True AndVal(my

13、ds1.Tables(workers).Rows(0)(leibie) = 2Thenfrm3.Show()MeHide()ElseIf RadioButton3.Checked =True AndVal(myds1.Tables(workers).Rows(0)(leibie) = 3Thenfrm8.Show()MeHide()ElseMessageBox.Show(您超出職責(zé)范圍或未選擇服務(wù)系統(tǒng)，請重新輸入！,錯(cuò)誤提示，MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Buttonl) End If

14、Catch ex As ExceptionEnd Try End IfEnd SubPrivate Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoadAxShockwaveFlash1.Movie =實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面1.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVale As S

15、ystem.EventArgs) Handles Button2.ClickDim exitform As NewForm7If exitform.ShowDialog = DialogResult.OK Then exitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class3.創(chuàng)建售票窗體模塊窗體模塊的功能為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價(jià)格。此窗體還有退票功能。窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“售票系統(tǒng)”，用來作為倉管人員窗體。界面 的設(shè)計(jì)如下圖

16、所示。代碼編寫Imports System.Data.SqlClientPublic Class Form2Inherits System.Windows.Forms.FormDim navigator As BindingManagerBase 用來對記錄導(dǎo)航Dim mycon As NewSqlConnection連接對象Dim mycom As NewSqlCommand命令對象Private Sub Form2_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoadMe.S

17、how()實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)銷售界面.swfAxShockwaveFlash1.Play()AxShockwaveFlash2.Movie = 實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)檢票界面下.swfAxShockwaveFlash2.Play()Dim mydataadapter As NewSqlDataAdapterDim myds As NewDataSetDim i As IntegerDim j As IntegerDim strrow As StringDim dt As NewDataTablemycon.ConnectionString = i

18、nitial catalog=ticketbooking;user id=sa;password=;mycom.Connection = mycon通過 MYCON1接對象操作數(shù)據(jù)庫mycom.CommandType = CommandType.Text 設(shè)置命令類型mycom.CommandText = select * from Movies設(shè)置要執(zhí)行的命令”Trymycon.Open()mydataadapter.SelectCommand = mycommydataadapter.Fill(myds, Movies)Catch ex As ExceptionMessageBox.Sho

19、w(連接失敗)Finallymycon.Close()End TryTryFor i = 0 To myds.Tables(Movies).Rows.Count - 1strrow = myds.Tables(Movies).Rows(i)(movie_name)ComboBoxl.Items.Add(strrow)NextCatch ex As ExceptionMessageBox.Show(ex.ToString)End TryEnd SubPrivate Sub Button1_Click_1( ByVal sender As System.Object, ByVal e As Sys

20、tem.EventArgs) Handles Buttonl.ClickDim 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 NewSqlConnectionRandomize()suiji = Int(9000 * Rnd() + 1

21、000)Trytickethao = tickets_id()moviehao = movieid()mycon3.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom3.Connection = mycon3通過 MYCON連接對象操作數(shù)據(jù)庫mycom3.CommandType = CommandType.Text設(shè)置命令類型Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenTryMessag

22、eBox.Show(此座位已售出，請重新選擇！ ,錯(cuò)誤)ComboBoxl.Text =TextBoxl.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryElseTrymycon3.Open()values ( + CStr (tickethao) ,+ TextBoxl.Text +values ( + CStr (tickethao),+ TextBox3.Text +mycom3.Command

23、Text = insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma),+ TextBox4.Text + , + CStr (moviehao) + ,+ TextBox2.Text + TextBox5.Text + , + CStr (suiji) + )Dim sql As Stringsql = insert into tickets(ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma),+ TextB

24、ox4.Text + , + CStr (moviehao) + ,+ TextBox2.Text + TextBox5.Text + , +CStr (suiji) + )mydataadapter3.InsertCommand = mycom3Trymycom3.ExecuteNonQuery()MessageBox.Show(售票成功！,謝謝觀看)Catch ex As ExceptionMsgBox(ex.ToString)End TryCatch ex As ExceptionMessageBox.Show(ex.ToString)End Trymycon3.Close()Combo

25、Box1.Text =TextBox1.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =End Ifrevoke_seat()End SubPrivate Sub ComboBox1_SelectedIndexChanged_1( ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ComboBox1.SelectedIndexChangedrevoke_seat()Dim mydataadapter1 As NewSqlData

26、AdapterDim mydataadapter11 As NewSqlDataAdapterDim myds1 As NewDataSetDim myds11 As NewDataSetDim dt1 As NewDataTableDim dt11 As NewDataTableDim mycom1 As NewSqlCommandDim mycom11 As NewSqlCommandmycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom1.Connection = mycon通過

27、MYCON連接對象操作數(shù)據(jù)庫mycoml.CommandType = CommandType.Text 設(shè)置命令類型mycomll.Connection = myconmycomll.CommandType = CommandType.TextTrymycon.Open()mycomll.CommandText = select palydate from Movies where movie_name= +ComboBoxl.Text + mycoml.CommandText = select * from tickets where movie_name= + ComboBoxl.Text

28、+ 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.ToString)End TryTryIf dt1.Rows.Count = 0 ThenMessageBox.

29、Show(還未出售！”)TextBox1.Text = dt11.Rows(0)(palydate) revoke_seat()ElseShowSellInfo(dt1)TextBox1.Text = dt11.Rows(0)(palydate)End IfCatch ex As ExceptionEnd Trymycon.Close()End SubPrivate Sub Button2_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim tickethao

30、 As IntegerDim mydataadapter4 As NewSqlDataAdapterDim myds4 As NewDataSetDim dt4 As NewDataTableDim mycom4 As NewSqlCommandDim mycon4 As NewSqlConnection Trymycon4.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom4.Connection = mycon4通過 MYCON連接對象操作數(shù)據(jù)庫mycom4.CommandType = Co

31、mmandType.Text設(shè)置命令類型tickethao = tuipiao()Catch ex As ExceptionMessageBox.Show(ex.ToString)End TryIf tickethao = 0 ThenMessageBox.Show(座位號輸入錯(cuò)誤，請重新輸入！,錯(cuò)誤)Else Try mycon4.Open() mycom4.CommandText = delete from tickets where ticketsid= +CStr (tickethao)+ Trymycom4.ExecuteNonQuery()MessageBox.Show(退票成功！

32、,謝謝觀看)Catch ex As Exception-/Dim exitform As NewForm7MsgBox(ex.ToString) End Try Catch ex As Exception MsgBox(ex.ToString) End Try End If mycon4.Close() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = ComboBox1.Text = revoke_seat() End SubPrivate Sub Button3_Click_1(

33、ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox2.Text = ComboBox1.TextTextBox3.Text = TextBox1.Text If TextBox4.Text = ThenMessageBox.Show(請輸入座位號！,提示)End I Dim mydataadapter2 As NewSqlDataAdapter Dim myds2 As NewDataSet Dim dt2 As NewDataTable Dim mycom2 As N

34、ewSqlCommandmycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=;mycom2.Connection = myconmycom2.CommandType = CommandType.Text通過MYCON連接對象操作數(shù)據(jù)庫設(shè)置命令類型Trymycon.Open()mycom2.CommandText = select * from seats where seatid= + TextBox4.Text + mydataadapter2.SelectCommand = mycom2myd

35、ataadapter2.Fill(myds2, 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) HandlesButton4.Click-/If exitform.ShowDialog = D

36、ialogResult.OK Thenexitform.Close()MeClose()Application.Exit()End IfEnd SubEnd Class創(chuàng)建檢票界面(1)創(chuàng)建模塊的功能對進(jìn)場觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。(2)創(chuàng)建模塊的窗體在工程中添加一個(gè)窗體，命名為“檢票系統(tǒng)”，用來作為檢票系統(tǒng)窗體。界面 的設(shè)計(jì)如下圖所示。(3)代碼編寫Imports System.Data.SqlClientPublic Class Form3Inherits System.Windows.Forms.FormDim ds1 As NewDataSetDim sqlda1

37、As NewSqlDataAdapter Dim RecordCountAs Integer-時(shí)亶可通憂七響版名.可玩拿除麗tr.Handles檢票界檢票界面Private Sub Form3_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) MyBaseLoad實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)面.swfAxShockwaveFlash1.Play()AxShockwaveFlash2.Movie =實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)下.swfAxShockwaveFlash2.Play()

38、Dim sqlcmd1 As NewSqlCommandDim str1 As String = select * from ticketssqlcmd1.Connection = sqlcn1sqlcmd1.CommandText = str1sqlda1.SelectCommand = sqlcmd1Trysqlcn1.Open()sqlcmd1.ExecuteNonQuery()Catch ex As SqlExceptionMsgBox(ex.Message)Finallysqlcn1.Close()End TryTrysqlda1.Fill(ds1)Catch ex As SqlEx

39、ceptionMsgBox(ex.Message)End TryRecordCount = ds1.Tables(0).Rows.CountTextBox6.Text = RecordCountEnd SubAs System.EventArgs)Private Sub Button1_Click_1( ByVal sender As System.Object, ByVal eHandles Button1.ClickDim i As IntegerDim flag As Boolean = FalseThen請認(rèn)真填寫票號!If TextBox1.Text =TextBox7.Text =

40、TextBox1.Focus()Exit SubEnd IfIf TextBox2.Text = ThenTextBox7.Text =請?zhí)顚戲?yàn)證碼!TextBox2.Focus()Exit SubEnd IfFor i = 0 To RecordCount - 1And TextBox2.Text =If TextBox1.Text = CStr(ds1.Tables(0).Rows(i)(ticketsid)CStr (ds1.Tables(0).Rows(i)(yanzhengma) Thenflag =TrueExit ForEnd IfNextIf flag = True ThenT

41、ryTextBox3.Text = ds1.Tables(0).Rows(i)(seatid)TextBox4.Text = ds1.Tables(0).Rows(i)(movie_name)TextBox5.Text = ds1.Tables(0).Rows(i)(price)Catch ex As ExceptionMsgBox(ex.Message)End Try此票為真!TextBox7.Text =ElseTextBox7.Text =此票為假！”End If TextBox6.Text = RecordCount End Sub Private Sub Button2_Click_

42、1( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = TextBox1.Focus() End Sub Private Sub Button3_Click_1( ByVal sender As System.Object, ByVal e As System.

43、EventArgs) Handles Button3.Click Dim exitform As NewForm7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() MeClose()Application.Exit() End If End Sub End Class 5. 創(chuàng)建維護(hù)界面 (1)創(chuàng)建模塊的功能給數(shù)據(jù)庫維護(hù)工作人員選擇維護(hù)的系統(tǒng)數(shù)據(jù)庫(2)創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“維護(hù)系統(tǒng)”，用來作為維護(hù)系統(tǒng)窗體。界面 的設(shè)計(jì)如下圖所示。器岸京城職工烹捶東勢系統(tǒng)(3)代碼編寫Public Class

44、Form8Inherits System.Windows.Forms.FormPrivate Sub Form8_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoad實(shí)驗(yàn)運(yùn)行場VB.NET程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面.swfAxShockwaveFlash1.Play()End SubPrivate Sub Button1_Click( Buttonl.ClickDim frm4 As NewForm4frm4.Show()MeHide()End SubPrivate Sub

45、Button2_Click(Button2.ClickDim frm6 As NewForm6frm6.Show()MeHide()End SubPrivate Sub Button3_Click(Button3.ClickDim frm9 As NewForm9frm9.Show()MeHide()End SubPrivate Sub Button4_Click(ByVal sender As System.Object,ByVal sender As System.Object,ByVal senderAs System.Object,ByVal senderButton4.ClickDi

46、m exitform As NewForm7If exitform.ShowDialog = DialogResult.OK exitform.Close()MeClose()Application.Exit()End IfEnd SubEnd ClassAs System.Object,ThenByVal e As System.EventArgs) HandlesByVal e As System.EventArgs) HandlesByVal e As System.EventArgs) HandlesByVal e As System.EventArgs) Handles1.創(chuàng)建影庫界

47、面(1)創(chuàng)建模塊的功能對電影庫播放列表的管理(2)創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“影庫系統(tǒng)”，用來作為影庫系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。(3)代碼編寫Dim sqlAdapter As NewSqlDataAdapterDim movieRow As DataRowDim RecordCount As IntegerDim i As Integer = 0Dim idnum(2000) As IntegerDim CurrentPosition As IntegerSub ShowPosition()RecordCount = DataSet11.Movies.Rows.Coun

48、tIf RecordCount = 0 ThenTextBox1.Text =無記錄ElseCurrentPosition =MeBindingContext(DataSet11, Movies).PositionmovieRow = DataSet11.Movies.Rows(CurrentPosition)TextBox1.Text = movieRow.Item(movie_id)idnum(i) = TextBox1.Text+= 1TextBox2.Text = movieRow.Item(movie_name)TextBox3.Text = movieRow.Item(actor)

49、TextBox4.Text = movieRow.Item(actress)TextBox5.Text = movieRow.Item(producer)TextBox6.Text = movieRow.Item(palydate)TextBox7.Text = CurrentPosition + 1 & / & RecordCountEnd IfEnd SubPrivate Sub Form4_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBaseLoadDataSet11.Clear(

50、)MeSqlDataAdapterl.Fill(DataSetll)ShowPosition()End SubPrivate Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonl.ClickIf MeBindingContext(DataSet11, Movies).Position 0ThenMeBindingContext(DataSet11, Movies).Position -= 1ShowPosition()ElseMessageBox.Show(已

51、到達(dá)首記錄！,提示信息)End If End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickThenIf MeBindingContext(DataSet11, Movies).Position RecordCount - 1MeBindingContext(DataSet11, Movies).Position += 1-/DataSet11.Movies.Rows.Add(MyNewData)ShowPosition

52、() ElseMessageBox.Show(已到達(dá)尾記錄！,提示信息)End If End Sub Private Sub Button4_Click( ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button4.Click MeBindingContext(DataSet11, Movies).Position = RecordCount - 1 ShowPosition() End Sub Private Sub Button5_Click( ByVal sender As System.Objec

53、t, ByVale As System.EventArgs) Handles Button5.Click 添加數(shù)據(jù) Dim j As Integer Dim flag As Boolean = True For j = 0 To i If TextBox1.Text = CStr (idnum(j) Then flag =FalseMessageBox.Show(ID地址有沖突！,提示)End If Next If flag = True Then Dim MyNewData As DataRow MyNewData = DataSet11.Movies.NewRow Try With MyN

54、ewData .BeginEdit() If TextBox1.Text Then .Item(movie_id) = TextBox1.Text Else MessageBox.Show(編號不能為空)Return End If .Item(movie_name) = TextBox2.Text .Item(actor) = TextBox3.Text .Item(actress) = TextBox4.Text .Item(producer) = TextBox5.Text .Item(palydate) = TextBox6.Text .EndEdit() End With Catch

55、ex As Exception MessageBox.Show(ex.Message) Return End Try-/Try Dim i As Integer = SqlDataAdapte1Update(DataSet11, Movies) DataSet11.AcceptChanges() MessageBox.Show(i & 條記錄添加成功！)Catch ex As ExceptionMessageBox.Show(ex.Message) End Try idnum(i) = TextBox1.Text i = i + 1 End If End Sub Private Sub But

56、ton6_Click( ByVal sender As System.Object, ByVale As System.EventArgs) Handles Button6.Click 修改數(shù)據(jù) Dim j As Integer For j = 0 To i If TextBox1.Text = CStr (idnum(j) ThenMessageBox.Show(ID地址有沖突！,提示)End If Next CurrentPosition =MeBindingContext(DataSet11, Movies).PositionmovieRow = DataSet11.Movies.Row

57、s(CurrentPosition) Try With movieRow .BeginEdit() .Item(movie_id) = TextBox1.Text .Item(movie_name) = TextBox2.Text .Item(actor) = TextBox3.Text .Item(actress) = TextBox4.Text .Item(producer) = TextBox5.Text .Item(palydate) = TextBox6.Text .EndEdit() End With Catch ex As Exception MessageBox.Show(ex

58、.Message) Return End Try Try Dim i As Integer = SqlDataAdapter1.Update(DataSet11, Movies) DataSet11.AcceptChanges() MessageBox.Show(i & 條記錄修改成功！)Catch ex As Exception MessageBox.Show(ex.Message) End TryEnd SubPrivate Sub Button3_Click( ByVal sender As System.Object, ByVale As System.EventArgs) Handl

59、es Button3.ClickMeBindingContext(DataSet11, Movies).Position = 0ShowPosition()End SubPrivate Sub Button7_Click( ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton7.Click 刪除數(shù)據(jù)CurrentPosition =MeBindingContext(DataSet11, Movies).PositionmovieRow = DataSet11.Movies.Rows(CurrentPos

60、ition)Dim n As Integer = movieRow.Item(movie_id)Dim j As Integer = 0For j = 0 To iIf n = idnum(j) Thenidnum(j) = -1End IfNextmovieRow.Delete()TryDim i As Integer = SqlDataAdapter1.Update(DataSet11, Movies)DataSet11.AcceptChanges()MessageBox.Show(i & 條記錄刪除成功！)Catch ex As ExceptionMessageBox.Show(ex.M