精選 管理方案
文件編號：0 2020 年 年 6 6月
影院訂票管理系統實驗報告
版本號：
A A
修改號：
1 1
頁
次：
1.0
編
制：
會
簽：
審
核：
批
準 :
發布日期：
實施日期：
方案大全
方案整理
軟件工程 實驗報告
一．系統概述；
1．項目需求 ；
2．需求分析； 二．項目開發計劃書；
三．設計說明書；
1．分析與創建數據庫
2．創建登陸窗體模塊；
3．創建售票窗體模塊 4．創建檢票界面 5．創建維護界面
1．創建影庫界面
2．創建職工界面
3．創建票務界面 四．用戶操作手冊；
五．改進意見；
六．自我評價；
七．參考資料、書籍；
一．系統概述；
1．項目需求；
現在中國大部分的家庭都喜歡在家里置辦屬于自己風格的家庭影院。但是，仍然有很多人喜歡到電影院去看電影。因為家里的氣氛畢竟不如影院好。所以，現代家庭影院的出現并不會讓電影院沒有生路。
每個社會服務系統都有自己的一套管理機制。當然，電影院也不除外。其實電影院的管理系統應該來說比其他的社會服務系統的管理要簡單一點。電影院不外乎是引進電影，制定播放影片的時間表，買票，檢票進場觀看，還有就是一些數據管理方面的事。如工作人員管理，票務管理等等。為了工作機制簡單有序，必然要引進一套管理系統。
2．需求分析； 具體而言，影院售票系統需要實現以下的需求：
（1）
能夠對播放電影，工作人員，售票事宜，檢票事宜，無用數據進行處理。
（2）
售票管理自然有專人負責，要處理各電影的電影票銷售問題。當然包括退票問題，還有就是預訂電影票其實也就相當于買票。兩者可以當一回事處理。
（3）
檢票管理事宜要完成觀眾進場時檢票的事宜。其中包括了電影票的真假檢測問題。
（4）
數據管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。
二．項目開發計劃書；
根據需求分析的結果，本小組成員討論協商，決定本系統主要劃分為以下三個子模塊：售票管理模塊、檢票管理模塊、數據管理模塊。
影院售票管理系統是一個基于電影院工作人員的系統，不同類型的用戶在系統中有不同的權限。主要有三種用戶：
1．
售票管理人員：
主要負責賣票，訂票及退票事宜； 2．
檢票管理人員：
主要負責觀眾進場時檢票工作，以及辨認電影票的真假（此工作自然可以由服務系統來完成）； 3．
數據處理人員：
主要負責播放電影導入數據庫，工作人員的應聘以及開除的數據管理，還有過期電影票的數據處理； 以下分別介紹此系統中各個系統（3 個子模塊。）：
（1）售票系統模塊
給觀眾提供售票服務。不同的位置有不同的價格。要選購哪個位置由觀眾決定。工作人員根據觀眾的需要進行操作。系統在購票成功后會產生一個驗證碼，此驗證碼連工作人員都不知道。是隨機生成的。用于對電影票真假的辯識。
（2）檢票系統模塊
在觀眾進場時所使用的系統。由掃描儀掃描，取的驗證碼，然后進行辯識，看是不是和數據庫中數據一樣，如果一樣，則電影票為真，否則電影票為假。由此來決定讓不讓觀眾入場。
（3）維護系統模塊
此模塊是由電影院的數據庫管理員來管理的。他根據電影院事情的需要對有關數據進行處理。如電影票的管理，工作人員的管理，和電影庫的管理等。
整個系統的結構如下圖 1 所示：
以下分別介紹系統中數據系統 3 個子模塊。
（1）影片播放管理模塊
影片播放管理是對電影院播放的電影的充實，設定電影的播放，以及電影時間的設定。當所設定的電影已經播放完成后，要對其進行刪除。還要對數據庫進行清理，把一些沒用的數據全部清除。
（2）工作人員管理：
電影院里當然有工作人員的增加與開除，以及他們的管理權限的變化。這一部分事件的發生都需要數據庫管理人員將有關數據進行處理。保證數據庫里數據的統一與完整。
其中有他們的共號，登陸電影院管理系統的密碼，以及所擁有的權限。
（3）過期票務管理：
電影院里的電影在放過以后，在數據庫的電影票數據就會變成沒有用的數據。通過此管理可以把那些沒用的過期的數據清除。這里指的是與放過的電影同名的電影票清除，而其他的電影票保存不變。
小組人員分工情況：
王圣武
登陸界面和售票界面、系統轉換界面的程序編寫，整個系統框架的設計，整個系統界面及美化設計，整個系統流程的管理，創建數據庫 張潤馳
檢票系統和整個維護系統的程序編寫，局部框架輔助設計，創建數據庫 本系統后臺數據庫采用目前比較流行的 Microsoft SQL Sever ,該數據庫系統在安全性、準確性、運行速度方面有絕對的優勢，并且處理數據量大、效率高；前臺采用 Microsoft公司的
2003 作為主要的開發工具，其可與 SQL Sever 2000 數據庫無縫銜接。
三．設計說明書；
1．分析與創建數據庫；
根據系統的功能分析結果，影院售票管理系統將會使用 Microsoft SQL Sever 2000 作為后臺的數據庫管理系統。本管理系統是應用于電影院中，而且需要和數據庫之影院售票管理系統工作人員登錄 維護系統 檢票系統 售票系統 影 片 播放管理 工作人員管理 過期票務管理
間進行頻繁數據交換，所以采用 Microsoft SQL Sever 2000 作為后臺的數據庫管理系統。
在本管理系統中，需要掌握影庫充實信息，職工管理信息，票務管理信息，此外，由于要進行職工管理，還需要掌握使用本系統的職工。表 1 存儲硬庫信息列表，表2 存儲了電影院座位的相關數據連接關系，表 3 存儲了電影票銷售情況管理，表 4存儲了系統使用者職工的相關情況的管理列表。
表 表 1
影庫管理表 --- MOVIES
字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 Movie_id smallint 2 電影號 是 有（無重復）
是 Movie_name Nvarchar 50 電影名稱 是 無
actor Nvarchar 50 導演 否 無
actress Nvarchar 50 主演 否 無
producer Nvarchar 25 制片廠 否 無
palydate datetime 8 上映時間 是 無
表 表 2
電影院座位管理表 --- SEATS
字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 seatid smallint 2 座位號 是 有（無重復）
是 price float 8 票價 是 無
soldornot smallint 2 是否售出 是 無
表 表 3
電影票信息表 --- TICKETS
字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 ticketsid smallint 2 電影票號 是 有（無重復）
是 seatid smallint 2 座位號 是 有
Movie_id smallint 2 電影號 是 有
Movie_name Nvarchar 50 電影名 否 無
palydate datetime 8 上映時間 是 無
price float 8 價格 是 無
yanzhengma smallint 2 驗證碼 是 無 是 表 表 4
職工信息表 --- WORKERS
字段名稱 數據類型 字段屬性 字段大小 作用 必填字段 索引 是否主鍵 workerid smallint 2 職工號 是 無 是 password smallint 2 職工密碼 是 無
leibie smallint 2 職工類型 是 無
根據規范化的設計理念，本管理系統的數據分成上面 4 個表，減少了數據的冗余，同時在這些表之間又存在著一些關聯關系。這四個表之間的這兩種關系表現在下圖所示的關系：
2．創建登陸窗體模塊；
（1）窗體模塊的功能
登陸窗體
（2）窗體界面的設計
在工程中添加一個窗體，命名為“登陸系統”，用來作為系統登陸窗體。界面
的設計如圖 3 所示。
（3）窗體代碼
Imports Public Class Form1
Inherits
Dim navigator As BindingManagerBase
"用來對記錄導航
Dim mycon As New SqlConnection
"連接對象
Dim mycom As New SqlCommand
"命令對象
Dim mycom1 As New SqlCommand
Dim frm2 As New Form2
Dim frm3 As New Form3 Dim frm8 As New Form8 Private Sub Timer1_Tick(ByVal sender As , ByVal e As
Handles
(0).Text =
End Sub
Private Sub GroupBox1_Enter(ByVal sender As , ByVal e As
Handles
If
= True Then
= False
= False
ElseIf
= True Then
= False
= False
ElseIf
= True Then
= False
= False
End If
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As
Handles
= "E:\實驗運行場\程序設計\電影院票務系統\image\登陸界面"
= False
()
Dim tox1 As Int32
Dim tox2 As Int32
Dim mydataadapter As New SqlDataAdapter
Dim myds As New DataSet
Dim i As Integer
Dim j As Integer
tox1 = Val
tox2 = Val
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
= "select * from workers"
"設置要執行的命令
Try
()
= mycom
Catch ex As Exception
("連接失敗")
Finally
()
End Try
(myds, "workers")
For i = 0 To ("workers"). - 1
If tox1 = Val("workers").Rows(i).ItemArray(0)) Then
j = 0
Exit For
Else
j = 1
End If
Next
For i = 0 To ("workers"). - 1
If tox2 = Val("workers").Rows(i).ItemArray(1)) Then
j = 0
Exit For
Else
j = 1
End If
Next
If j = 1 Then
("您的工號或者密碼錯誤", "錯誤提示", ,
Else
Try
= mycon
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
= "select leibie from workers where workerid=" + CStr(tox1) + "and password=" + CStr(tox2) + "" "設置要執行的命令
Dim mydataadapter1 As New SqlDataAdapter
= mycom1
Dim myds1 As New DataSet
(myds1, "workers")
If
= True And Val("workers").Rows(0)("leibie")) = 1 Then
()
()
ElseIf
= True And Val("workers").Rows(0)("leibie")) = 2 Then
()
()
ElseIf
= True And Val("workers").Rows(0)("leibie")) = 3 Then
()
()
Else
("您超出職責范圍 或未選擇服務系統，請重新輸入！", "錯誤提示", , ,
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub Form1_Load(ByVal sender As , ByVal e As
Handles
= "E:\實驗運行場\程序設計\電影院票務系統\image\登陸界面"
()
End Sub
Private Sub Button2_Click(ByVal sender As , ByVal e As
Handles
Dim exitform As New Form7
If
=
Then
()
()
()
End If
End Sub End Class 3． 創建售票窗體模塊 （1）
窗體模塊的功能
為觀眾提供買票服務。在界面上觀眾可以看見座位的情況，根據此來選擇自己喜歡的座位。不同的座位有不同的價格。此窗體還有退票功能。
（2）
窗體界面的設計
在工程中添加一個窗體，命名為“售票系統”，用來作為倉管人員窗體。界面
的設計如下圖所示。
（3）
代碼編寫
Imports Public Class Form2
Inherits
Dim navigator As BindingManagerBase
"用來對記錄導航
Dim mycon As New SqlConnection
"連接對象
Dim mycom As New SqlCommand
"命令對象
Private Sub Form2_Load(ByVal sender As , ByVal e As
Handles
"()
= "E:\實驗運行場\程序設計\電影院票務系統\image\銷售界面.swf"
()
= "E:\實驗運行場\程序設計\電影院票務系統\image\檢票界面下.swf"
()
Dim mydataadapter As New SqlDataAdapter
Dim myds As New DataSet
Dim i As Integer
Dim j As Integer
Dim strrow As String
Dim dt As New DataTable
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
= "select * from Movies"
"設置要執行的命令"
Try
()
= mycom
(myds, "Movies")
Catch ex As Exception
("連接失敗")
Finally
()
End Try
Try
For i = 0 To ("Movies"). - 1
strrow = ("Movies").Rows(i)("movie_name")
ComboBo
Next
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click_1(ByVal sender As , ByVal e As
Handles
Dim i As Integer
Dim tickethao As Integer
Dim moviehao As Integer
Dim suiji As Integer
Dim mydataadapter3 As New SqlDataAdapter
Dim myds3 As New DataSet
Dim dt3 As New DataTable
Dim mycom3 As New SqlCommand
Dim mycon3 As New SqlConnection
Randomize()
suiji = Int(9000 * Rnd() + 1000)
Try
tickethao = tickets_id()
moviehao = movieid()
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon3
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
Catch ex As Exception
End Try
If tickethao = 0 Then
Try
("此座位已售出，請重新選擇！", "錯誤")
= ""
= ""
= ""
= ""
= ""
= ""
Catch ex As Exception
End Try
Else
Try
()
= "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," +
+ "," + CStr(moviehao) + ","" +
+ "","" +
+ ""," +
+ "," + CStr(suiji) + ")"
Dim sql As String
sql = "insert into tickets (ticketsid,seatid,movie_id,movie_name,palydate,price,yanzhengma) values (" + CStr(tickethao) + "," +
+ "," + CStr(moviehao) + ","" +
+ "","" +
+ ""," +
+ "," + CStr(suiji) + ")"
= mycom3
Try
()
("售票成功！", "謝謝觀看")
Catch ex As Exception
MsgBox
End Try
Catch ex As Exception
End Try
()
= ""
= ""
= ""
= ""
= ""
= ""
End If
revoke_seat()
End Sub
Private Sub ComboBox1_SelectedIndexChanged_1(ByVal sender As , ByVal e As
Handles
revoke_seat()
Dim mydataadapter1 As New SqlDataAdapter
Dim mydataadapter11 As New SqlDataAdapter
Dim myds1 As New DataSet
Dim myds11 As New DataSet
Dim dt1 As New DataTable
Dim dt11 As New DataTable
Dim mycom1 As New SqlCommand
Dim mycom11 As New SqlCommand
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
= mycon
=
Try
()
= "select palydate from Movies where
movie_name= "" +
+ """
= "select * from tickets where movie_name= "" +
+ """
= mycom1
= mycom11
(myds1, "tickets")
(myds11, "Movies")
dt1 = ("tickets")
dt11 = ("Movies")
Catch ex As Exception
End Try
Try
IfThen
("還未出售！")
= (0)("palydate")
revoke_seat()
Else
ShowSellInfo(dt1)
= (0)("palydate")
End If
Catch ex As Exception
End Try
()
End Sub
Private Sub Button2_Click_1(ByVal sender As , ByVal e As
Handles
Dim tickethao As Integer
Dim mydataadapter4 As New SqlDataAdapter
Dim myds4 As New DataSet
Dim dt4 As New DataTable
Dim mycom4 As New SqlCommand
Dim mycon4 As New SqlConnection
Try
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon4
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
tickethao = tuipiao()
Catch ex As Exception
End Try
If tickethao = 0 Then
("座位號輸入錯誤，請重新輸入！", "錯誤")
Else
Try
()
= "delete from tickets where ticketsid=" + CStr(tickethao) + ""
Try
()
("退票成功！", "謝謝觀看")
Catch ex As Exception
MsgBox
End Try
Catch ex As Exception
MsgBox
End Try
End If
()
= ""
= ""
= ""
= ""
= ""
= ""
revoke_seat()
End Sub
Private Sub Button3_Click_1(ByVal sender As , ByVal e As
Handles
=
=
If
= "" Then
("請輸入座位號！", "提示")
End I
Dim mydataadapter2 As New SqlDataAdapter
Dim myds2 As New DataSet
Dim dt2 As New DataTable
Dim mycom2 As New SqlCommand
= "initial catalog=ticketbooking;user id=sa;password=;"
= mycon
"通過 MYCON 連接對象操作數據庫
=
"設置命令類型
Try
()
= "select * from seats where seatid=" +
+ ""
= mycom2
(myds2, "seats")
dt2 = ("seats")
Catch ex As Exception
End Try
= (0)("price")
()
End Sub
Private Sub Button4_Click(ByVal sender As , ByVal e As
Handles
Dim exitform As New Form7
If
=
Then
()
()
()
End If
End Sub
End Class 4． 創建檢票界面 （1）創建模塊的功能 對進場觀眾檢票，如果發現有假票或無票觀眾不允許入內。
（2）創建模塊的窗體
在工程中添加一個窗體，命名為“檢票系統”，用來作為檢票系統窗體。界面
的設計如下圖所示。
（3）代碼編寫
Imports Public Class Form3 Inherits
Dim ds1 As New DataSet
Dim sqlda1 As New SqlDataAdapter
Dim RecordCount As Integer
Private Sub Form3_Load(ByVal sender As , ByVal e As
Handles
= "E:\實驗運行場\程序設計\電影院票務系統\image\檢票界面.swf"
()
= "E:\實驗運行場\程序設計\電影院票務系統\image\檢票界面下.swf"
()
Dim sqlcmd1 As New SqlCommand
Dim str1 As String = "select * from tickets"
= sqlcn1
= str1
= sqlcmd1
Try
()
()
Catch ex As SqlException
MsgBox
Finally
()
End Try
Try
(ds1)
Catch ex As SqlException
MsgBox
End Try
RecordCount = (0).
= RecordCount
End Sub
Private Sub Button1_Click_1(ByVal sender As , ByVal e As
Handles
Dim i As Integer
Dim flag As Boolean = False
If
= "" Then
= "請認真填寫票號！"
()
Exit Sub
End If
If
= "" Then
= "請填寫驗證碼！"
()
Exit Sub
End If
For i = 0 To RecordCount - 1
If
= CStr(0).Rows(i)("ticketsid")) And
= CStr(0).Rows(i)("yanzhengma")) Then
flag = True
Exit For
End If
Next
If flag = True Then
Try
= (0).Rows(i)("seatid")
= (0).Rows(i)("movie_name")
= (0).Rows(i)("price")
Catch ex As Exception
MsgBox
End Try
= "此票為真！"
Else
= "此票為假！"
End If
= RecordCount
End Sub
Private Sub Button2_Click_1(ByVal sender As , ByVal e As
Handles
= ""
= ""
= ""
= ""
= ""
= ""
= ""
()
End Sub
Private Sub Button3_Click_1(ByVal sender As , ByVal e As
Handles
Dim exitform As New Form7
If
=
Then
()
()
()
End If
End Sub End Class 5． 創建維護界面 （1）創建模塊的功能
給數據庫維護工作人員選擇維護的系統數據庫
（2）創建模塊的設計
在工程中添加一個窗體，命名為“維護系統”，用來作為維護系統窗體。界面
的設計如下圖所示。
（3）代碼編寫 Public Class Form8 Inherits Private Sub Form8_Load(ByVal sender As , ByVal e As
Handles
= "E:\實驗運行場\程序設計\電影院票務系統\image\登陸界面.swf"
()
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As
Handles
Dim frm4 As New Form4
()
()
End Sub
Private Sub Button2_Click(ByVal sender As , ByVal e As
Handles
Dim frm6 As New Form6
()
()
End Sub
Private Sub Button3_Click(ByVal sender As , ByVal e As
Handles
Dim frm9 As New Form9
()
()
End Sub
Private Sub Button4_Click(ByVal sender As , ByVal e As
Handles
Dim exitform As New Form7
If
=
Then
()
()
()
End If
End Sub End Class
1．創建影庫界面 （1）創建模塊的功能
對電影庫播放列表的管理 （2）創建模塊的設計
在工程中添加一個窗體，命名為“影庫系統”，用來作為影庫系統窗體。界面
的設計如下圖所示。
（3）代碼編寫
Dim sqlAdapter As New SqlDataAdapter
Dim movieRow As DataRow
Dim RecordCount As Integer
Dim i As Integer = 0
Dim idnum(2000) As Integer
Dim CurrentPosition As Integer
Sub ShowPosition()
If RecordCount = 0 Then
= "無記錄"
Else
CurrentPosition = (DataSet11, "Movies").Position
= ("movie_id")
idnum(i) =
i += 1
= ("movie_name")
= ("actor")
= ("actress")
= ("producer")
= ("palydate")
= CurrentPosition + 1 & "/" & RecordCount
End If
End Sub
Private Sub Form4_Load(ByVal sender As , ByVal e As
Handles
()
ShowPosition()
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As
Handles
If (DataSet11, "Movies").Position > 0 Then
(DataSet11, "Movies").Position -= 1
ShowPosition()
Else
("已到達首記錄！", "提示信息")
End If
End Sub
Private Sub Button2_Click(ByVal sender As , ByVal e As
Handles
If (DataSet11, "Movies").Position < RecordCount - 1 Then
(DataSet11, "Movies").Position += 1
ShowPosition()
Else
("已到達尾記錄！", "提示信息")
End If
End Sub
Private Sub Button4_Click(ByVal sender As , ByVal e As
Handles
(DataSet11, "Movies").Position = RecordCount - 1
ShowPosition()
End Sub
Private Sub Button5_Click(ByVal sender As , ByVal e As
Handles
"添加數據
Dim j As Integer
Dim flag As Boolean = True
For j = 0 To i
If
= CStr(idnum(j)) Then
flag = False
("ID地址有沖突！", "提示")
End If
Next
If flag = True Then
Dim MyNewData As DataRow
Try
With MyNewData
.BeginEdit()
If
<> "" Then
.Item("movie_id") =
Else
("編號不能為空")
Return
End If
.Item("movie_name") =
.Item("actor") =
.Item("actress") =
.Item("producer") =
.Item("palydate") =
.EndEdit()
End With
Catch ex As Exception
Return
End Try
Try
Dim i As Integer = (DataSet11, "Movies")
()
(i & "條記錄添加成功！")
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
CurrentPosition = (DataSet11, "Movies").Position
Try
With movieRow
.BeginEdit()
.Item("movie_id") =
.Item("movie_name") =
.Item("actor") =
.Item("actress") =
.Item("producer") =
.Item("palydate") =
.EndEdit()
End With
Catch ex As Exception
Return
End Try
Try
Dim i As Integer = (DataSet11, "Movies")
()
(i & "條記錄修改成功！")
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click(ByVal sender As , ByVal e As
Handles
(DataSet11, "Movies").Position = 0
ShowPosition()
End Sub
Private Sub Button7_Click(ByVal sender As , ByVal e As
Handles
"刪除數據
CurrentPosition = (DataSet11, "Movies").Position
Dim n As Integer = ("movie_id")
Dim j As Integer = 0
For j = 0 To i
If n = idnum(j) Then
idnum(j) = -1
End If
Next
()
Try
Dim i As Integer = (DataSet11, "Movies")
()
(i & "條記錄刪除成功！")
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
Dim frm8 As New Form8
()
()
End Sub End Class 2．創建職工界面 （1）創建模塊的功能
對職工數據的處理。如增加、刪除和更改 （2）創建模塊的設計 在工程中添加一個窗體，命名為“影庫系統”，用來作為影庫系統窗體。界面
的設計如下圖所示。
（3）代碼編寫
Inherits Dim frm8 As New Form8 Dim sqlAdapter As New SqlDataAdapter
Dim movieRow As DataRow
Dim RecordCount As Integer
Dim i As Integer = 0
Dim idnum(2000) As Integer
Dim CurrentPosition As Integer
Sub ShowPosition()
If RecordCount = 0 Then
= "無記錄"
Else
CurrentPosition = (DataSet11, "Workers").Position
= ("workerid")
idnum(i) =
i += 1
= ("password")
= ("leibie")
= CurrentPosition + 1 & "/" & RecordCount
End If
End Sub Private Sub Form6_Load(ByVal sender As , ByVal e As
Handles
()
ShowPosition()
End Sub
Private Sub Button1_Click(ByVal sender As , ByVal e As
Handles
If (DataSet11, "Workers").Position > 0 Then
(DataSet11, "Workers").Position -= 1
ShowPosition()
Else
("已到達首記錄！", "提示信息")
End If
End Sub
Private Sub Button2_Click(ByVal sender As , ByVal e As
Handles
If (DataSet11, "Workers").Position < RecordCount - 1 Then
(DataSet11, "Workers").Position += 1
ShowPosition()
Else
("已到達尾記錄！", "提示信息")
End If
End Sub
Private Sub Button3_Click(ByVal sender As , ByVal e As
Handles
(DataSet11, "Workers").Position = 0
ShowPosition()
End Sub
Private Sub Button4_Click(ByVal sender As , ByVal e As
Handles
(DataSet11, "Workers").Position = RecordCount - 1
ShowPosition()
End Sub
Private Sub Button5_Click(ByVal sender As , ByVal e As
Handles
Dim j As Integer
Dim flag As Boolean = True
For j = 0 To i
If
= CStr(idnum(j)) Then
flag = False
("ID地址有沖突！", "提示")
End If
Next
If
<> 1 And
<> 2 And
<> 3 Then
flag = False
("服務系統號只能為1，2，3！", "提示")
End If
If flag = True Then
Dim MyNewData As DataRow
Try
With MyNewData
.BeginEdit()
If
<> "" Then
.Item("workerid") =
Else
("編號不能為空")
Return
End If
.Item("password") =
.Item("leibie") =
.EndEdit()
End With
Catch ex As Exception
Return
End Try
Try
Dim k As Integer = (DataSet11, "Workers")
()
(k & "條記錄添加成功！")
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
("服務系統號只能為1，2，3！", "提示")
End If
CurrentPosition = (DataSet11, "Workers").Position
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 & "條記錄修改成功！")
Catch ex As Exception
End Try
End Sub
Private Sub Button7_Click(ByVal sender As , ByVal e As
Handles
CurrentPosition = (DataSet11, "Workers").Position
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 & "條記錄刪除成功！")
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 Sub End Class 3．創建票務界面 （1）創建模塊的功能
對所售出的電影票進行管理，把沒用的數據進行清除 （2）創建模塊的設計
在工程中添加一個窗體，命名為“影庫系統”，用來作為影庫系統窗體。界面
的設計如下圖所示。
（3）代碼編寫
Imports Public Class Form9
Inherits
Dim ds1 As New DataSet
Dim sqlda1 As New SqlDataAdapter
Dim RecordCount As Integer
Private 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
= "
= sqlcn1
= 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
("請認真填寫電影名！", "提示信息")
()
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
()
Dim i As Integer
Dim k As Integer
Dim flag As Boolean = False
If
= "" Then
("請認真填寫電影名！", "提示信息")
()
Exit Sub
Else
For i = 0 To k - 1
If CStrCStr Then
flag = True
End If
Next
Try
Dim j As Integer = (DataSet11, "Tickets")
()
(j & "條記錄刪除成功！")
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
()
()
()
End If
End Sub End Class
四．用戶操作手冊；
系統概述
（1）
能夠對播放電影，工作人員，售票事宜，檢票事宜，無用數據進行處理。
（2）
售票管理自然有專人負責，要處理各電影的電影票銷售問題。當然包括退票問題，還有就是預訂電影票其實也就相當于買票。兩者可以當一回事處理。
（3）
檢票管理事宜要完成觀眾進場時檢票的事宜。其中包括了電影票的真假檢測問題。
（4）
數據管理要處理電影的播放的次序，工作人員的管理，以及過期電影票的處理問題。
使用方法
（1）
首先打開本系統，可以進入登陸界面
使用本系統的共有三種人員：售票人員、檢票人員、維護人員。系統要求輸入職工號、職工密碼和所...
推薦訪問： 管理系統 訂票 影院上一篇：人力資源規劃
下一篇：《城市規劃原理》49題
在偉大祖國73華誕之際，我參加了單位組織的“光影鑄魂”主題黨日活動，集中觀看了抗美援朝題材影片《長津湖》，再一次重溫這段悲壯歷史，再一次深刻感悟偉大抗美援朝精神。1950年10月，新中國剛剛成立一年，
根據省局黨組《關于舉辦習近平談治國理政（第四卷）讀書班的通知》要求，我中心通過專題學習、專題研討以及交流分享等形式，系統的對《習近平談治國理政》（第四卷)進行了深入的學習與交流，下面我就來談一談我個人
《習近平談治國理政》（第四卷）是在百年變局和世紀疫情相互疊加的大背景下，對以習近平同志為核心的黨中央治國理政重大戰略部署、重大理論創造、重大思想引領的系統呈現。它生動記錄了新一代黨中央領導集體統籌兩個
《真抓實干做好新發展階段“三農工作”》是《習近平談治國理政》第四卷中的文章，這是習近平總書記在2020年12月28日中央農村工作會議上的集體學習時的講話。文章指出，我常講，領導干部要胸懷黨和國家工作大
在《習近平談治國理政》第四卷中，習近平總書記強調，江山就是人民，人民就是江山，打江山、守江山，守的是人民的心。從嘉興南湖中駛出的小小紅船，到世界上最大的執政黨，在中國共產黨的字典里，“人民”一詞從來都
黨的十八大以來，習近平總書記以馬克思主義戰略家的博大胸襟和深謀遠慮，在治國理政和推動全球治理中牢固樹立戰略意識，在不同場合多次圍繞戰略策略的重要性，戰略和策略的關系，提高戰略思維、堅定戰略自信、強化戰
《習近平談治國理政》第四卷集中展示了以習近平同志為核心的黨中央在百年變局和世紀疫情相互疊加背景下，如何更好地堅持和發展中國特色社會主義而進行的生動實踐與理論探索；對于新時代堅持和發展什么樣的中國特色社
在黨組織的關懷下，我有幸參加了區委組織部組織的入黨積極分子培訓班。為期一周的學習，學習形式多樣，課程內容豐富，各位專家的講解細致精彩，對于我加深對黨的創新理論的認識、對黨的歷史的深入了解、對中共黨員的
《習近平談治國理政》第四卷《共建網上美好精神家園》一文中指出：網絡玩命是新形勢下社會文明的重要內容，是建設網絡強國的重要領域。截至2021年12月，我國網民規模達10 32億，較2020年12月增長4
剛剛召開的中國共產黨第十九屆中央委員會第七次全體會議上討論并通過了黨的十九屆中央委員會向中國共產黨第二十次全國代表大會的報告、黨的十九屆中央紀律檢查委員會向中國共產黨第二十次全國代表大會的工作報告和《