【導(dǎo)讀】現(xiàn)在中國(guó)大部分的家庭都喜歡在家里置辦屬于自己風(fēng)格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因?yàn)榧依锏臍夥债吘共蝗缬霸汉?。所以，現(xiàn)代家庭影院的出現(xiàn)并不會(huì)讓電影院沒(méi)有生路。其實(shí)電影院的管理系統(tǒng)應(yīng)該來(lái)說(shuō)比其他的社會(huì)服務(wù)系統(tǒng)的管理要簡(jiǎn)單一點(diǎn)。為了工作機(jī)制簡(jiǎn)單有序，必然要引進(jìn)一套管理系統(tǒng)。能夠?qū)Σシ烹娪?，工作人員，售票事宜，檢票事宜，無(wú)用數(shù)據(jù)進(jìn)行處理。檢票管理事宜要完成觀眾進(jìn)場(chǎng)時(shí)檢票的事宜。其中包括了電影票的真假檢測(cè)問(wèn)題。根據(jù)需求分析的結(jié)果，本小組成員討論協(xié)商，決定本系統(tǒng)主要?jiǎng)澐譃橐韵氯齻€(gè)子模塊：售票管理模塊、檢票管理模塊、數(shù)據(jù)管理模塊。1．售票管理人員：主要負(fù)責(zé)賣票，訂票及退票事宜；在本管理系統(tǒng)中，需要掌握影庫(kù)充實(shí)信息，職工管理信息，票務(wù)管理信息，此外，由于要進(jìn)行職工管理，還需要掌握使用本系統(tǒng)的職工。

　　

【正文】 If = CStr(idnum(j)) Then flag = False (ID地址有沖突！, 提示) End If Next If 1 And 2 And 3 Then flag = False (服務(wù)系統(tǒng)號(hào)只能為1，2，3！, 提示) End If If flag = True Then Dim MyNewData As DataRow MyNewData = Try With MyNewData .BeginEdit() If Then .Item(workerid) = Else (編號(hào)不能為空) Return End If .Item(password) = .Item(leibie) = .EndEdit() End With Catch ex As Exception () Return End Try (MyNewData) Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄添加成功！) Catch ex As Exception () End Try idnum(i) = i = i + 1 End If End Sub Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles Dim j As Integer For j = 0 To i If = CStr(idnum(j)) Then (ID地址有沖突！, 提示) End If Next If 1 And 2 And 3 Then (服務(wù)系統(tǒng)號(hào)只能為1，2，3！, 提示) End If CurrentPosition = (DataSet11, Workers).Position movieRow = (CurrentPosition) Try With movieRow .BeginEdit() .Item(workerid) = .Item(password) = .Item(leibie) = .EndEdit() End With Catch ex As Exception () Return End Try Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄修改成功！) Catch ex As Exception () End Try End Sub Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles CurrentPosition = (DataSet11, Workers).Position movieRow = (CurrentPosition) Dim n As Integer = (workerid) Dim j As Integer = 0 For j = 0 To i If n = idnum(j) Then idnum(j) = 1 End If Next () Try Dim k As Integer = (DataSet11, Workers) () (k amp。 條記錄刪除成功！) Catch ex As Exception () End Try End Sub Private Sub Button8_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then () () () End If () End Sub Private Sub Button9_Click(ByVal sender As , ByVal e As ) Handles () () End SubEnd Class（1）創(chuàng)建模塊的功能 對(duì)所售出的電影票進(jìn)行管理，把沒(méi)用的數(shù)據(jù)進(jìn)行清除（2）創(chuàng)建模塊的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為“影庫(kù)系統(tǒng)”，用來(lái)作為影庫(kù)系統(tǒng)窗體。界面 的設(shè)計(jì)如下圖所示。（3）代碼編寫(xiě) Imports Public Class Form9 Inherits Dim ds1 As New DataSet Dim sqlda1 As New SqlDataAdapter Dim RecordCount As IntegerPrivate Sub Form9_Load(ByVal sender As , ByVal e As ) Handles Dim sqlcmd1 As New SqlCommand Dim str1 As String = SELECT , , , , , FROM Movies INNER JOIN Tickets ON = = sql1 = str1 = sqlcmd1 Try () () Catch ex As SqlException MsgBox() Finally () End Try Try (ds1) Catch ex As SqlException MsgBox() End Try RecordCount = (0). End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim flag As Boolean = False If = Then (請(qǐng)認(rèn)真填寫(xiě)電影名！, 提示信息) () Else For i = 0 To RecordCount 1 If CStr((0).Rows(i).Item(movie_name)).Trim = CStr() Then Try = 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(palydate)) Catch ex As Exception MsgBox() End Try flag = True Exit Sub End If Next End If If flag = False Then (輸入電影名有誤！, 提示) End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () (DataSet11) Dim i As Integer Dim k As Integer k = Dim flag As Boolean = False If = Then (請(qǐng)認(rèn)真填寫(xiě)電影名！, 提示信息) () Exit Sub Else For i = 0 To k 1 If CStr((i).Item(movie_name)).Trim = CStr() Then (i).Delete() flag = True End If Next Try Dim j As Integer = (DataSet11, Tickets) () (j amp。 條記錄刪除成功！) Catch ex As Exception () End Try End If If flag = False Then (輸入電影名有誤！, 提示) End If End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles Dim frm8 As New Form8 () () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles Dim exitform As New Form7 If = Then