影院訂票管理系統(tǒng)實(shí)驗(yàn)報(bào)告

1、軟件工程實(shí)驗(yàn)報(bào)告一系統(tǒng)概述；1項(xiàng)目需求；2需求分析；二項(xiàng)目開發(fā)計(jì)劃書；三設(shè)計(jì)說明書；1分析與創(chuàng)建數(shù)據(jù)庫(kù)2 創(chuàng)建登陸窗體模塊；3 創(chuàng)建售票窗體模塊4創(chuàng)建檢票界面5創(chuàng)建維護(hù)界面1 創(chuàng)建影庫(kù)界面2 創(chuàng)建職工界面3 創(chuàng)建票務(wù)界面四用戶操作手冊(cè)；五改進(jìn)意見；六自我評(píng)價(jià)；七參考資料、書籍；一系統(tǒng)概述；1項(xiàng)目需求；現(xiàn)在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(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)的管理要簡(jiǎn)

2、單一點(diǎn)。電影院不外乎是引進(jìn)電影，制定播放影片的時(shí)間表，買票，檢票進(jìn)場(chǎng)觀看，還有就是一些數(shù)據(jù)管理方面的事。如工作人員管理，票務(wù)管理等等。為了工作機(jī)制簡(jiǎn)單有序，必然要引進(jìn)一套管理系統(tǒng)。2需求分析；具體而言，影院售票系統(tǒng)需要實(shí)現(xiàn)以下的需求：（ 1） 能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無用數(shù)據(jù)進(jìn)行處理。（ 2） 售票管理自然有專人負(fù)責(zé)，要處理各電影的電影票銷售問題。當(dāng)然包括退票問題，還有就是預(yù)訂電影票其實(shí)也就相當(dāng)于買票。兩者可以當(dāng)一回事處理。（ 3） 檢票管理事宜要完成觀眾進(jìn)場(chǎng)時(shí)檢票的事宜。其中包括了電影票的真假檢測(cè)問題。（ 4） 數(shù)據(jù)管理要處理電影的播放的次序，工作人員的管理，以及過期電

3、影票的處理問題。二項(xiàng)目開發(fā)計(jì)劃書；根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要?jiǎng)澐譃橐韵氯齻€(gè)子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。影院售票管理系統(tǒng)是一個(gè)基于電影院工作人員的系統(tǒng)，不同類型的用戶在系統(tǒng)中有不同的權(quán)限。主要有三種用戶：1 售票管理人員：主要負(fù)責(zé)賣票，訂票及退票事宜；2 檢票管理人員：主要負(fù)責(zé)觀眾進(jìn)場(chǎng)時(shí)檢票工作，以及辨認(rèn)電影票的真假（此工作自然可以由服務(wù)系統(tǒng)來完成）；3 數(shù)據(jù)處理人員：主要負(fù)責(zé)播放電影導(dǎo)入數(shù)據(jù)庫(kù)，工作人員的應(yīng)聘以及開除的數(shù)據(jù)管理，還有過期電影票的數(shù)據(jù)處理；以下分別介紹此系統(tǒng)中各個(gè)系統(tǒng)（3 個(gè)子模塊。）：（ 1）售票系統(tǒng)模塊給觀眾提供售票服務(wù)。不同

4、的位置有不同的價(jià)格。要選購(gòu)哪個(gè)位置由觀眾決定。 工作人員根據(jù)觀眾的需要進(jìn)行操作。系統(tǒng)在購(gòu)票成功后會(huì)產(chǎn)生一個(gè)驗(yàn)證碼， 此驗(yàn)證碼連工作人員都不知道。是隨機(jī)生成的。用于對(duì)電影票真假的辯識(shí)。（ 2）檢票系統(tǒng)模塊在觀眾進(jìn)場(chǎng)時(shí)所使用的系統(tǒng)。由掃描儀掃描，取的驗(yàn)證碼，然后進(jìn)行辯識(shí)，看是不是和數(shù)據(jù)庫(kù)中數(shù)據(jù)一樣，如果一樣，則電影票為真，否則電影票為假。由此來決定讓不讓觀眾入場(chǎng)。（ 3）維護(hù)系統(tǒng)模塊此模塊是由電影院的數(shù)據(jù)庫(kù)管理員來管理的。他根據(jù)電影院事情的需要對(duì)有關(guān)數(shù)據(jù)進(jìn)行處理。如電影票的管理，工作人員的管理，和電影庫(kù)的管理等。整個(gè)系統(tǒng)的結(jié)構(gòu)如下圖1 所示：以下分別介紹系統(tǒng)中數(shù)據(jù)系統(tǒng)3個(gè)子模塊。(1)影片播放管理

5、模塊影片播放管理是對(duì)電影院播放的電影的充實(shí)，設(shè)定電影的播放，以及電影 時(shí)間的設(shè)定。當(dāng)所設(shè)定的電影已經(jīng)播放完成后， 要對(duì)其進(jìn)行刪除。還要對(duì)數(shù)據(jù)庫(kù) 進(jìn)行清理，把一些沒用的數(shù)據(jù)全部清除。(2)工作人員管理：電影院里當(dāng)然有工作人員的增加與開除，以及他們的管理權(quán)限的變化。這一部分事件的發(fā)生都需要數(shù)據(jù)庫(kù)管理人員將有關(guān)數(shù)據(jù)進(jìn)行處理。保證數(shù)據(jù)庫(kù)里數(shù)據(jù)的統(tǒng)一與完整。其中有他們的共號(hào)，登陸電影院管理系統(tǒng)的密碼，以及所擁有的權(quán)限。(3)過期票務(wù)管理：電影院里的電影在放過以后，在數(shù)據(jù)庫(kù)的電影票數(shù)據(jù)就會(huì)變成沒有用的數(shù)據(jù)。通過此管理可以把那些沒用的過期的數(shù)據(jù)清除。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存

6、不變。小組人員分工情況：王圣武登陸界面和售票界面、系統(tǒng)轉(zhuǎn)換界面的程序編寫，整個(gè)系統(tǒng)框架的設(shè)計(jì)，整個(gè)系統(tǒng)界面及美化設(shè)計(jì)，整個(gè)系統(tǒng)流程的管理，創(chuàng)建 數(shù)據(jù)庫(kù)張潤(rùn)馳檢票系統(tǒng)和整個(gè)維護(hù)系統(tǒng)的程序編寫，局部框架輔助設(shè)計(jì)，創(chuàng)建數(shù)據(jù)庫(kù)本系統(tǒng)后臺(tái)數(shù)據(jù)庫(kù)采用目前比較流行的 Microsoft SQLSever ,該數(shù)據(jù)庫(kù)系 統(tǒng)在安全性、準(zhǔn)確性、運(yùn)行速度方面有絕對(duì)的優(yōu)勢(shì)，并且處理數(shù)據(jù)量大、效率高；前臺(tái)采用Microsoft公司的2003作為主要的開發(fā)工具，其可與 SQL Sever 2000數(shù)據(jù)庫(kù)無縫銜接。三.設(shè)計(jì)說明書；1 .分析與創(chuàng)建數(shù)據(jù)庫(kù)；根據(jù)系統(tǒng)的功能分析結(jié)果，影院售票管理系統(tǒng)將會(huì)使用Microsoft S

7、QLSever 2000作為后臺(tái)的數(shù)據(jù)庫(kù)管理系統(tǒng)。本管理系統(tǒng)是應(yīng)用于電影院中， 而且需要和數(shù)據(jù)庫(kù)之間進(jìn)行頻繁數(shù)據(jù)交換，所以采用Microsoft SQLSever 2000作為后臺(tái)的數(shù)據(jù)庫(kù)管理系統(tǒng)。在本管理系統(tǒng)中，需要掌握影庫(kù)充實(shí)信息，職工管理信息，票務(wù)管理信息， 止匕外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。 表1存儲(chǔ)硬 庫(kù)信息列表，表2存儲(chǔ)了電影院座位的相關(guān)數(shù)據(jù)連接關(guān)系， 表3存儲(chǔ)了電 影票銷售情況管理，表4存儲(chǔ)了系統(tǒng)使用者職工的相關(guān)情況的管理列表。表1影庫(kù)管理表-MOVIES字段名稱數(shù)據(jù)類型字段屬性字段大 小作用必填 字段索引是否 主鍵Movie_idsmallint2電影號(hào)是

8、有（無重復(fù)）是Movie_na meNvarchar50電影名 稱是無actorNvarchar50導(dǎo)演否無actressNvarchar50主演否無producerNvarchar25制片廠否無palydatedatetime8上映時(shí) 問是無表2電影院座位管理表-SEATS字段名 稱數(shù)據(jù)類型字段屬性字段大 小作用必填 字段索引是否主 鍵seatidsmallint2座位號(hào)是有（無重復(fù)）是pricefloat8票價(jià)是無soldorn otsmallint2是否售 出是無表3電影票信息表-TICKETS字段名稱數(shù)據(jù)類型字段屬性字段大 小作用必填 字段索引是否主 鍵ticketsi dsmalli

9、nt2電影票 號(hào)是有(無重復(fù))是seatidsmallint2座位號(hào)是有Movie_idsmallint2電影號(hào)是有Movie_na meNvarchar50電影名否無palydatedatetime8上映時(shí) 問是無pricefloat8價(jià)格是無yanzheng masmallint2驗(yàn)證碼是無是表4 職工信息表-WORKERS字段名 稱數(shù)據(jù)類型字段屬性字段大 小作用必填字 段索引是否主鍵workeri dsmallint2職工號(hào)是無是passwor dsmallint2職工密 碼是無leibiesmallint2職工類 型是無根據(jù)規(guī)范化的設(shè)計(jì)理念，本管理系統(tǒng)的數(shù)據(jù)分成上面 4個(gè)表，減少了數(shù)據(jù)

10、的 冗余，同時(shí)在這些表之間又存在著一些關(guān)聯(lián)關(guān)系。這四個(gè)表之間的這兩種關(guān) 系表現(xiàn)在下圖所示的關(guān)系：2 .創(chuàng)建登陸窗體模塊；(1)窗體模塊的功能登陸窗體(2)窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“登陸系統(tǒng)”，用來作為系統(tǒng)登陸窗體 界面的設(shè)計(jì)如圖3所示。(3)窗體代碼ImportsPublic Class Form1InheritsDim navigator As BindingManagerBase ' 用來對(duì)記錄導(dǎo)航Dim mycon As NewSqlConnection' 連接對(duì)象Dim mycom As NewSqlCommand' 命令對(duì)象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 實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面"= 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!接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型= "select * from workers"' 設(shè)置要執(zhí)行的命令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(" 您的工號(hào)或者密碼錯(cuò)誤", " 錯(cuò)誤提示", ,ElseTry= mycon通過MYCON接對(duì)象操作數(shù)據(jù)庫(kù)設(shè)置命令類型CStr (tox1) + "and password=&quo

15、t;= "select leibie from workers where workerid=" +CStr (tox2) + ""' 設(shè)置要執(zhí)行的命令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("您超出職責(zé)范圍或未選擇服務(wù)系統(tǒng)，請(qǐng)重新輸入！ThenThenThen錯(cuò)誤提示", , ,EndEnd SubPrivate()End SubEnd IfCatch ex As ExceptionEnd TryIfSub Form1_Load( ByVal sender As , ByVal e As Handl

17、es實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面"PrivateSub Button2_Click( ByVal sender As , ByVal e As HandlesDim exitform As NewForm7IfThen()()()End IfEndSubEnd Class3創(chuàng)建售票窗體模塊1)窗體模塊的功能為觀眾提供買票服務(wù)。在界面上觀眾可以看見座位的情況，根據(jù)此來選擇自己喜歡的座位。不同的座位有不同的價(jià)格。此窗體還有退票功能。2)窗體界面的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“售票系統(tǒng)”，用來作為倉(cāng)管人員窗命名為“售票系統(tǒng)”，用來作為倉(cāng)管人員窗體。界面的設(shè)計(jì)如下圖所示。3

18、) 代碼編寫ImportsPublic Class Form2InheritsDim navigatorAs BindingManagerBase' 用來對(duì)記錄導(dǎo)航Dim mycon AsDim mycom AsNewSqlConnectionNewSqlCommand' 連接對(duì)象' 命令對(duì)象PrivateSub Form2_Load( ByVal senderAs ,ByVal eAsHandles()()'()實(shí)驗(yàn)運(yùn)行場(chǎng)實(shí)驗(yàn)運(yùn)行場(chǎng)Dim mydataadapter程序設(shè)計(jì)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)電影院票務(wù)系統(tǒng)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!接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型= "select * from Movies"' 設(shè)置要執(zhí)行的命令"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連接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型Catch ex As ExceptionEnd TryIf tickethao = 0 ThenTry("此座位已售出，請(qǐng)重新選擇！", " 錯(cuò)誤 ")= ""= ""= ""= ""= ""= ""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!接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型= 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連接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型tickethao = tuipiao()Catch ex As ExceptionEnd TryIf tickethao = 0 Then(" 座位號(hào)輸入錯(cuò)誤，請(qǐng)重新輸入！", " 錯(cuò)誤 ")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(" 請(qǐng)輸入座位號(hào)！", " 提示 ")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!接對(duì)象操作數(shù)據(jù)庫(kù)=' 設(shè)置命令類型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 創(chuàng)建檢票界面( 1)創(chuàng)建模塊的功能對(duì)進(jìn)場(chǎng)觀眾檢票，如果發(fā)現(xiàn)有假票或無票觀眾不允許入內(nèi)。(2)創(chuàng)建模塊的窗體在工程中添加一個(gè)窗體，命名為“檢票系統(tǒng)”，用

34、來作為檢票系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。(3)代碼編寫ImportsPublic Class Form3InheritsDim ds1 As NewDataSetDim sqlda1 As NewSqlDataAdapterDim RecordCount As IntegerPrivate Sub Form3_Load( ByVal sender As , ByVal e As Handles實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)檢票界面.swf"()實(shí)驗(yàn)運(yùn)行場(chǎng)程序設(shè)計(jì)電影院票務(wù)系統(tǒng)檢票界面下.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= " 請(qǐng)認(rèn)真填寫票號(hào)！"()Exit SubEnd IfIf = "" Then= " 請(qǐng)?zhí)顚戲?yàn)證碼！"()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 創(chuàng)建維護(hù)界面( 1)創(chuàng)建模塊的功能給數(shù)據(jù)庫(kù)維護(hù)工作人員選擇維護(hù)的系統(tǒng)數(shù)據(jù)庫(kù)(2)創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“維護(hù)系統(tǒng)”，用來作為維護(hù)系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。(3)代碼編寫Public Class Form8InheritsPrivate Sub Form8_Load( ByVal sender As , ByVal e As Handles實(shí)驗(yàn)運(yùn)行場(chǎng)

39、程序設(shè)計(jì)電影院票務(wù)系統(tǒng)登陸界面.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 創(chuàng)建影庫(kù)界面創(chuàng)建影庫(kù)界面1）創(chuàng)建模塊的功能創(chuàng)建模塊的功能對(duì)電影庫(kù)播放列表的管理2）創(chuàng)建模塊的設(shè)計(jì)創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“影庫(kù)系統(tǒng)”，用來作為影庫(kù)系統(tǒng)窗體。界,用來作為影庫(kù)系統(tǒng)窗體。界的設(shè)計(jì)如下圖所示。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(" 已到達(dá)首記錄！", " 提示信息")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(" 已到達(dá)尾記錄！", " 提示信息")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 ' 添加數(shù)據(jù)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("編號(hào)不能

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 ' 修改數(shù)據(jù) 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 ' 刪除數(shù)據(jù)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創(chuàng)建職工界面( 1)創(chuàng)建模塊的功能對(duì)職工數(shù)據(jù)的處理。如增加、刪除和更改(2)創(chuàng)建模塊的設(shè)計(jì)在工程中添加一個(gè)窗體，命名為“影庫(kù)系統(tǒng)”，用來作為影庫(kù)系統(tǒng)窗體。界面的設(shè)計(jì)如下圖所示。(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(" 已到達(dá)首記錄！", " 提示信息")End IfEnd SubPrivate Sub Button2_Click( ByVal sender As , ByVal e If (DataSet11, "Workers").Position < RecordCount - 1(DataSet11, "Workers&

55、quot;).Position += 1ShowPosition()Else(" 已到達(dá)尾記錄！", " 提示信息")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(" 服務(wù)系統(tǒng)號(hào)只能為1 ， 2， 3！ ", " 提示 ")End IfIf flag = True ThenDim MyNewData As DataRowTryWith MyNewData.BeginEdit()If <> "" Then.Item("workerid") =Else("編號(hào)不能為空")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(" 服務(wù)系統(tǒng)號(hào)只能為1 ， 2， 3！ ", " 提示 ")End IfCurrentPosition = (DataSet11, "Workers").PositionTryWith movieRow.BeginEdit().Item("workerid") =.Item("password") =.Item(&quo