影院订票管理系统实验报告
精选 管理方案
文件编号: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)
首先打开本系统,可以进入登陆界面
使用本系统的共有三种人员:售票人员、检票人员、维护人员。系统要求输入职工号、职工密码和所...
- 范文大全
- 职场知识
- 精美散文
- 名著
- 讲坛
- 诗歌
- 礼仪知识
-
超星尔雅学习通《对话大国工匠致敬劳动模范》题库附答案
超星尔雅学习通《对话大国工匠致敬劳动模范》题库附答案 1、历史只会眷顾坚定者、奋进者、搏击者,而不会
【入党申请书】 日期:2021-05-12
-
中国传统故事英文版 中国古代故事英文版
历史学科蕴含着许多丰富的、生动的、有趣的素材,每一个历史事件、历史人物都有相关的、动人的历史小故事,都能给人以启迪。你对中国古代的故事了解多少呢?下面是小编为您...
【调查报告】 日期:2019-05-22
-
大学生学习2024年两会精神心得感悟
大学生学习2024年两会精神心得感悟过去一年,是全面贯彻二十大精神的开局之年,中国共产党带领全国各族人民,付出艰辛努力,换来重大成
【心得体会】 日期:2024-03-07
-
地藏经诵读仪规(完整版)
地藏经诵读仪规(完整版) 恭请文: 恭请大慈大悲大愿地藏王菩萨、护法诸天菩萨慈悲加持护念弟子***能
【个人简历】 日期:2021-03-31
-
[女装批发店面装修图片欣赏] 女装店面装修效果图
店面是服装企业的形象,店面色彩又是人们对服装企业的第一视觉感觉,企业要建立良好的企业文化,提高销售额,增强其竞争力,必需要有一套完备的店面色彩设计密码。下面小编就...
【述职报告】 日期:2019-05-07
-
2024年度纪律教育月活动方案6篇
2024年度纪律教育月活动方案6篇各级各部门要充分认识加强纪律教育、推进纪律建设的重要意义,高度重视、周密筹划、精心组织。在真抓实
【企划方案】 日期:2024-01-18
-
对于政治生态考核整改工作方案
本文系作者原创投稿,仅供学习参考,请勿照搬照抄! 关于政治生态考核整改工作的方案 为做好推进风清气正
【经济工作】 日期:2020-06-05
-
雷锋日是什么时候几月几日_学雷锋日是几月几日
雷锋日是用来纪念雷锋同志的,也有很多人用这一天来学习雷锋助人为乐。雷锋日是什么时候呢?下面小编为大家推荐一些雷锋日的时间及相关知识,希望大家有用哦。 雷锋...
【入团申请书】 日期:2019-05-08
-
2022年全国节约用水知识大赛题库(含答案)
22022年全国节约用水知识大赛题库(含答案) 单选题(总共153题) 1 习近平总书记站在可持续发
【工作计划】 日期:2021-07-23
-
2023 年全省“安全生产月”活动方案
2023 年全省安全生产月活动方案 组织开展安全生产大家谈班前会以案说法等学习交流体会活动。以下是蒲公英阅读网小编为大家收集的内容,希
【企划方案】 日期:2023-05-30
-
执行信息公开网
执行信息公开网 执行信息公开网 执行信息公开网: zhi*ing (点击下图可直接进行访问) 全国
【职场知识】 日期:2020-07-03
-
“从青风公司审计案例看销售与收款循环审计”案例说明书
“从青风公司审计案例看销售与收款循环审计”案例说明书一、本案例要解决的关键问
【职场知识】 日期:2020-09-28
-
机械加工创业项目_加工小本创业项目
现在在加工创业项目办小本加工厂有哪些?有什么项目推荐,下面这些小本加工厂项目个个都适合一个人创业,来看看吧!以下是小编分享给大家的关于,一起来看看加工小本创业项目吧!...
【职场知识】 日期:2020-03-19
-
致橡树(中英文)
3 【原诗】 【JohannaYueh修改版】 致橡树TotheOakTree 作者:舒婷ByShu
【职场知识】 日期:2020-11-17
-
大学教师毕业设计指导记录4篇
大学教师毕业设计指导记录4篇 毕业设计是指工、农、林科高等学校和中等专业学校学生毕业前夕总结性的独立作业。是实践性教学最后一
【职场知识】 日期:2022-05-11
-
年国家开放大学电大电子商务单选题题库
单选: 1、EDI是指A、电子商务B、电子数据交换C、电子交易 D、移动数据交换 答案: B 2、电
【职场知识】 日期:2020-06-05
-
动量守恒定律专题训练含答案
动量守恒定律专题训练含答案 一、不定项选择题 11、下列运动过程中,在任意相等时间内,物体动量变化不
【职场知识】 日期:2021-01-06
-
中性时尚帅气短发女发型设计图片 最潮帅气中性短发发型
时尚中性帅气短发女发型图片精选,想走中性风的MM不妨进来看看,为自己选一款好看的新发型。下面是小编为大家整理的中性帅气短发女发型图片,供大家参考! 中性帅气短发女发...
【职场知识】 日期:2020-03-15
-
有机磷酸酯类中毒及其解救(实验报告范文)
有机磷酸酯类中毒及其解救XXX、XXX一、实验目的1 观察有机磷酸酯类农药敌百虫中毒时的症状。 2
【职场知识】 日期:2020-08-30
-
有关文明礼仪手抄报图画大全_文明礼仪图画大全
文明礼仪是中华民族的传统美德。它是衡量我们个人品德和社会文明程度的重要标准,礼仪素质已成为现代公民必备的素质。下面是小编为大家带来的有关文明礼仪手抄报图画大全,供大...
【职场知识】 日期:2020-03-10
-
唐代诗人李昂个人信息
唐代诗人李昂个人信息 导读:我根据大家的需要整理了一份关于《唐代诗人李昂个人信息》的内容,具体内容:
【古典文学】 日期:2020-11-07
-
[关于中秋的朗诵诗词] 关于爱国的朗诵诗词
中秋,热闹的街头树起了灯彩,舞起了火龙。你知道多少关于中秋的朗诵诗词?下面小编为你整理了几篇关于中秋的朗诵诗词,希望对你有帮助。 关于中秋的朗诵诗词一 中秋佳节...
【古典文学】 日期:2019-06-06
-
法律知识手抄报图片大全|法律知识手抄报
我国开展了全面的普法宣传工作,法制宣传教育、普及法律常识作为经常的重要任务。做法制教育手抄报,普及法律知识。下面是小编为大家带来的法律知识手抄报图片大全,希望大家...
【古典文学】 日期:2020-03-10
-
叠加原理实验报告
一、实验目的1、通过实验来验证线性电路中的叠加原理以及其适用范围。 2、学习直流仪器仪表的测试方法。
【古典文学】 日期:2020-11-12
-
创业思路 [20个创业思路]
在家创业好项目,想创业,不想出门,有没有什么好方法呢?要想兼顾全职的工作,又想挣点外快,我们来看看这些项目。以下是小编为大家整理的关于20个创业思路,给大家作为参考,...
【古典文学】 日期:2020-03-02
-
大气唯美黑板报【国庆节大气黑板报】
日本在投降的那一天,再也没有昔日的嚣张,我们中国的屈辱得到洗刷。下面就随小编看看国庆节大气黑板报内容,希望喜欢哦。 国庆节大气黑板报图片欣赏 国庆节大气黑板报...
【古典文学】 日期:2019-05-05
-
输血查对制度
输血查对制度依据卫生部《临床输血技术规范》的要求,制订抽血交叉配备查对制度、取血查对制度、输血查对制
【古典文学】 日期:2020-09-24
-
读《数学教育的"中国道路"》有感 数学教育的中国道路
读《数学教育的中国道路》有感 中山市博爱初级中学李丽敏 一开始拜读张奠宙教授的《数学教育的中国道路》一书,想着,这么大的问题,是我这个小小的一线
【古典文学】 日期:2019-05-05
-
历史爱国人物故事_爱国人物故事简短
每一个历史事件、历史人物都是一个动人的小故事,都能给人以启迪。无论是现在还是以往都有爱国人物的故事,下面是小编为您整理的历史爱国人物故事,希望对你有所帮助! 历史...
【古典文学】 日期:2019-05-06
-
怎样认识世界处于百年未有之大变局
怎样认识世界处于百年未有之大变局 首先,“大变局”是对国际格局发生巨大变迁的
【古典文学】 日期:2020-10-28
-
【世界上最大的半岛】阿拉伯半岛
你知道世界上最大的半岛是什么吗?下面由小编来介绍一下。 阿拉伯半岛的简介 阿拉伯半岛(阿拉伯文:)位于亚洲,是世界上最大的半岛。沙特阿拉伯、也门、阿曼、阿拉伯联合...
【中国文学】 日期:2019-05-24
-
雪天安全行车注意事项_雪天安全行车提示语
维护城市交通秩序,争做河源文明市民。你们想看看雪天安全行车提示语有哪些吗?以下是小编推荐雪天安全行车提示语给大家,欢迎大家阅读! 安全行车温馨提示语【经典篇】 1...
【中国文学】 日期:2020-03-15
-
小数乘法计算方法
小数乘法得计算方法理解小数乘法计算得法则,能够比较熟练得进行小数乘法笔算与简单得口算重点掌握小数乘法
【中国文学】 日期:2020-12-22
-
【欧式女装小店面装修图】 女装小店面装修
随着服装行业和照明产业的发展日趋成熟,服装店的照明设计越来越受到人们的广泛关注,即通过光环境设计对消费者产生引导性作用。下面小编就为大家解开欧式女装小店面装修图展...
【中国文学】 日期:2020-02-27
-
清明节踏青简笔画【清明节踏青图片】
清明节是二十四节气之一,是很适合出去踏青的节日,下面是小编为大家收集的清明节踏青图片相关资料,希望对大家有所帮助。 清明节踏青图片欣赏 清明节踏青图片1 清明...
【中国文学】 日期:2019-05-08
-
电磁场与电磁波实验报告
实验一 静电场仿真 1 实验目的建立静电场中电场及电位空间分布的直观概念。 2 实验仪器计算机一台3
【中国文学】 日期:2020-08-26
-
2021年超星尔雅学习通《辩论与修养》章节测试试题(共183题附答案)
2021年超星尔雅学习通《辩论与修养》章节测试试题(共183题附答案)1、辩论的目的不是单纯获得某种
【中国文学】 日期:2021-05-12
-
史玉柱创业故事_创业故事白手起家故事
史玉柱,一个有着传奇和神话般经历的人,而且,这个传奇和神话正在续写。下面小编就为大家解开史玉柱创业故事,希望能帮到你。 史玉柱创业故事篇一 史玉柱的创业史可以分为...
【中国文学】 日期:2020-02-28
-
镇2021年开展创建“土地执法模范村”活动方案例文稿
镇镇12021年开展创建“土地执法模范村”活动方案范文稿 为了巩固和扩大我镇
【中国文学】 日期:2021-05-10
-
时尚女装店面装修效果图|韩式女装店面装修
在服装店的设计之中,我们要将多变、创新、品牌自身的定位与发展趋势相结合,用一种可持续的设计方式呈现出来,以便更加适应不断更新的展示主体。下面小编就为大家解开时尚女装店...
【中国文学】 日期:2019-05-16
-
山东省生产经营单位安全生产主体责任规定(303号令)
山东省生产经营单位安全生产主体责任规定(2013年2月2日山东省人民政府令第260号公布根据2016
【外国名著】 日期:2020-10-22
-
大学生音乐欣赏论文 大学音乐鉴赏论文3000
今天小编就为你介绍关于大学生音乐欣赏论文,下面是!小编给你搜集了相关资料!希望可以能帮助到大家。 大学生音乐欣赏论文—第一篇 音乐是生活不可缺少的一部分,学会欣...
【外国名著】 日期:2019-05-27
-
改革开放大事记简表(改革开放新时期1978-2012年)
改革开放大事记简表 (1978-2012年) 时间1978年12月18日至22日地点北京事件党的十一
【外国名著】 日期:2021-06-17
-
“坚定理想信念、增强历史自觉、弘扬优良传统、加强党性锤炼、党员先锋模范作用发挥”方面存问题和不足剖析材料例文
“坚定理想信念、增强历史自觉、弘扬优良传统、加强党性锤炼、党员先锋模范作用发挥&rdqu
【外国名著】 日期:2021-08-14
-
3.8妇女节_3.8妇女节手工制作图片精选
3 8妇女节送卡片表示感恩与祝福是在好不过了,小编整理了3 8妇女节手工制作感恩卡图片,希望大家喜欢! 3 8妇女节手工制作感恩卡图片展示 3 8妇女节手工制作感恩卡图...
【外国名著】 日期:2020-03-14
-
梧桐花的花语|梧桐花的功效与作用
梧桐花为梧桐科植物梧桐的花,植物形态详梧桐子条。今天小编为你整理了梧桐花的花语,欢迎阅读。 梧桐花的花语是:情窦初开 在春季里晚开的花朵,有着恬淡的气息。 ...
【外国名著】 日期:2019-05-16
-
材料力学金属扭转实验报告
材料力学金属扭转实验报告 【实验目的】 1、验证扭转变形公式,测定低碳钢的切变模量G。;测定低碳钢和
【外国名著】 日期:2020-11-27
-
植物装饰画黑白图片欣赏|荷花装饰画黑白图片
装饰画是一种装饰性艺术,是装饰性和创造性相结合的艺术设计形式。小编整理了植物装饰画黑白,欢迎阅读! 植物装饰画黑白图片展示 植物装饰画黑白图片1 植物装饰画黑白...
【外国名著】 日期:2019-05-31
-
疫情期间入党讨论会
疫情期间入党讨论会 疫情期间火线入党[疫情期间入党讨论会] 近日,中央领导同志作出重要指示,在新冠肺
【外国名著】 日期:2020-08-14
-
国家安全教育主题班会教案
国家安全教育主题班会教案国家安全教育主题班会教案篇一一、前言4月15日是《中华人民共和国国家安全法》
【外国名著】 日期:2020-08-11
-
梧桐花的花语|梧桐花的功效与作用
梧桐花为梧桐科植物梧桐的花,植物形态详梧桐子条。今天小编为你整理了梧桐花的花语,欢迎阅读。 梧桐花的花语是:情窦初开 在春季里晚开的花朵,有着恬淡的气息。 ...
【寓言童话】 日期:2020-03-03
-
西部计划笔试题库(99题含答案)
西部计划笔试题库(99题含答案) 1 第十三届全国人大三次会议表决通过了《中华人民共和国民法典》,自
【寓言童话】 日期:2021-06-16
-
大学生音乐欣赏论文 大学音乐鉴赏论文3000
今天小编就为你介绍关于大学生音乐欣赏论文,下面是!小编给你搜集了相关资料!希望可以能帮助到大家。 大学生音乐欣赏论文—第一篇 音乐是生活不可缺少的一部分,学会欣...
【寓言童话】 日期:2020-03-12
-
惊悚鬼故事50字 令人惊悚的故事
这些惊悚故事在短短的篇幅和时间之内让您感受到故事里传达出来的恐怖感,令你感到害怕。下面就是小编给大家整理的令人惊悚的故事,希望对你有用! 令人惊悚的故事篇1:学校...
【寓言童话】 日期:2019-05-13
-
年学生资助诚信教育主题活动方案
各二级学院(部): 为深入贯彻落实习近平总书记关于教育的重要论述,落实立德树人根本任务,增强当代大学
【寓言童话】 日期:2020-06-21
-
廉洁自律自我剖析材料(精选)
廉洁自律自我剖析材料((精选多篇)) 信念。科学文化,提高自身素质的终身学习的意识,紧密联系群众,调
【寓言童话】 日期:2020-07-20
-
油管、套管规格尺寸对照表
API油管规格及尺寸 公称尺寸(in) 不加厚外径(mm) 不加厚内径(mm) 加厚外径(mm) 加
【寓言童话】 日期:2020-08-31
-
【名人失败的故事】 关于失败的名人故事
我们最大的弱点在于放弃。成功的必然之路就是不断的重来一次。涓滴之水终可以磨损大石,不是由于它力量强大,而是由于昼夜不舍的滴坠。下面是小编为您整理的名人失败的故事,...
【寓言童话】 日期:2019-05-19
-
康熙字典五行属金的字 [字典中八画五行属金的字信息大全]
在五行中不同属性的字寓意是不相同的,其实同样的属性不同的笔画的字寓意也是一样的,下面小编为你整理了八画五行属金字,希望对你有所帮助! 8画五行属金的字 忮、8画、...
【寓言童话】 日期:2020-03-12
-
主题教育调查研究工作方案2篇
主题教育调查研究工作方案1根据省、市、县开展“不忘初心、牢记使命”主题教育工
【寓言童话】 日期:2021-03-19
-
学生高考动员演讲稿
学生高考动员演讲稿3篇高考动员演讲稿11 老师们、同学们: 大家下午好!漫漫高考长征路已经进入尾声了
【百家讲坛】 日期:2021-09-22
-
企业安全演讲稿2021
最新企业安全的演讲稿5篇 演讲稿是作为在特定的情境中供口语表达使用的文稿。在充满活力,日益开放的今天
【百家讲坛】 日期:2021-09-22
-
XX镇扶贫项目实施专项整治工作总结_1
XX镇扶贫项目实施专项整治工作总结 为深入贯彻精准扶贫精准脱贫基本方略,认真落实党中央、国务院,省委
【百家讲坛】 日期:2021-09-22
-
对乡镇领导班子干部成员批评意见例文
对乡镇领导班子干部成员的批评看法范文 一、对党委书记XXX同志的批评看法〔3条〕 1、与干部交流偏少
【百家讲坛】 日期:2021-09-22
-
群英乡扶贫资金项目芬坡村祖埇村生产道路硬化工程绩效自评报告
群英乡扶贫资金项目((芬坡村祖埇村生产道路硬化工程))绩效自评报告 一、基本情况(一)群英乡扶贫资金
【百家讲坛】 日期:2021-09-22
-
党委书记警示教育大会上讲话2021汇编
党委书记在警示教育大会上的讲话55篇汇编 党委书记在警示教育大会上的讲话(一) 同志们: 根据省州委
【百家讲坛】 日期:2021-09-22
-
对于2021年召开巡视整改专题民主生活会对照检查材料
关于12021年召开巡视整改专题民主生活会对照检查材料 按照中央巡视组要求和省、市、区委统一部署,区
【百家讲坛】 日期:2021-08-14
-
消防安全知识培训试题.doc
消防安全知识培训试题姓名: 部门班组: 成绩: 一:填空题,每空4分,共44分。 1、灭火剂是通过隔
【百家讲坛】 日期:2021-08-14
-
涉疫重点人员“五包一”居家隔离医学观察工作流程
涉疫重点人员“五包一”居家隔离医学观察工作流程 目前,全球疫情仍处于大流行状
【百家讲坛】 日期:2021-08-14
-
疫情防控致全体师生员工及家长一封信
疫情防控致全体师生员工及家长的一封信 各位师生员工及全体家长朋友: 暑假已至,近期我省部分地方发现确
【百家讲坛】 日期:2021-08-14