管理信息个人实验报告(三)

《管理信息个人实验报告(三)》由会员分享，可在线阅读，更多相关《管理信息个人实验报告(三)（5页珍藏版）》请在金锄头文库上搜索。

1、个人实验报告（三）1创建登陆窗体模块；（1）窗体模块的功能登陆窗体（2）窗体界面的设计在工程中添加一个窗体，命名为“登陆系统”，用来作为系统登陆窗体。界面 的设计如图 3 所示。（3）窗体代码Imports System.Data.SqlClientPublic Class Form1Inherits System.Windows.Forms.FormDim navigator As BindingManagerBase 用来对记录导航Dim mycon As New SqlConnection 连接对象Dim mycom As New SqlCommand 命令对象 Dim mycom1 A

2、s New SqlCommandDim frm2 As New Form2Dim frm3 As New Form3Dim frm8 As New Form8Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickStatusBar1.Panels(0).Text = DateTime.TodayStatusBar1.Panels(1).Text = DateTime.Now.ToString(“T“)End SubPrivate Sub Gro

3、upBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.EnterIf RadioButton1.Checked = True ThenRadioButton2.Checked = FalseRadioButton3.Checked = FalseElseIf RadioButton2.Checked = True ThenRadioButton1.Checked = FalseRadioButton3.Checked = FalseElseIf RadioButton

4、3.Checked = True ThenRadioButton1.Checked = FalseRadioButton2.Checked = FalseEnd IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickAxShockwaveFlash1.Movie = “E:实验运行场VB.NET程序设计电影院票务系统image登陆界面1.swf“AxShockwaveFlash1.Playing = FalseAxSh

5、ockwaveFlash1.Stop()Dim tox1 As Int32Dim tox2 As Int32Dim mydataadapter As New SqlDataAdapterDim myds As New DataSetDim i As IntegerDim j As Integertox1 = Val(TextBox1.Text)tox2 = Val(TextBox2.Text)mycon.ConnectionString = “initial catalog=ticketbooking;user id=sa;password=;“mycom.Connection = mycon

6、 通过 MYCON 连接对象操作数据库mycom.CommandType = CommandType.Text 设置命令类型mycom.CommandText = “select * from workers“ 设置要执行的命令Trymycon.Open()mydataadapter.SelectCommand = mycomCatch ex As ExceptionMessageBox.Show(“连接失败“)Finallymycon.Close()End Trymydataadapter.Fill(myds, “workers“)For i = 0 To myds.Tables(“work

7、ers“).Rows.Count - 1If tox1 = Val(myds.Tables(“workers“).Rows(i).ItemArray(0) Thenj = 0Exit ForElsej = 1End IfNextFor i = 0 To myds.Tables(“workers“).Rows.Count - 1If tox2 = Val(myds.Tables(“workers“).Rows(i).ItemArray(1) Thenj = 0Exit ForElsej = 1End IfNextIf j = 1 ThenMessageBox.Show(“您的工号或者密码错误“,

8、 “错误提示“, MessageBoxButtons.OK, MessageBoxIcon.Warning)ElseTrymycom1.Connection = mycon 通过 MYCON 连接对象操作数据库mycom1.CommandType = CommandType.Text 设置命令类型mycom1.CommandText = “select leibie from workers where workerid=“ + CStr(tox1) + “and password=“ + CStr(tox2) + “ 设置要执行的命令Dim mydataadapter1 As New Sql

9、DataAdaptermydataadapter1.SelectCommand = mycom1Dim myds1 As New DataSetmydataadapter1.Fill(myds1, “workers“)If RadioButton1.Checked = True And Val(myds1.Tables(“workers“).Rows(0)(“leibie“) = 1 Thenfrm2.Show()Me.Hide()ElseIf RadioButton2.Checked = True And Val(myds1.Tables(“workers“).Rows(0)(“leibie

10、“) = 2 Thenfrm3.Show()Me.Hide()ElseIf RadioButton3.Checked = True And Val(myds1.Tables(“workers“).Rows(0)(“leibie“) = 3 Thenfrm8.Show()Me.Hide()ElseMessageBox.Show(“您超出职责范围 或未选择服务系统，请重新输入！“, “错误提示“, MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)End IfCatch ex As Excep

11、tionEnd TryEnd IfEnd SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadAxShockwaveFlash1.Movie = “E:实验运行场VB.NET程序设计电影院票务系统image登陆界面1.swf“AxShockwaveFlash1.Play()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Ev

12、entArgs) Handles Button2.ClickDim exitform As New Form7If exitform.ShowDialog = DialogResult.OK Thenexitform.Close()Me.Close()Application.Exit()End IfEnd SubEnd Class 影院售票系统开发过程中遇到的问题及解决方法( 1) 在修 改数据表 中字段电 影信息值 后, ComboBox 控件的下拉列表内容没有显示修改后的数据, 要使表中修改后的 字段 数据在 ComboBox 控 件中得 以更新, 必须先重启售票系统, 然后才可以将 Co

13、mboBox 下拉列表中的内容更新为表中修改后的数据;( 2) 用于 显示表中字段 电影 院名称 及 电影名称 的方法, 使用 ComboBox 控件和使用 D BCom bobox 控件结果是不同的; 问题解决方法1 解决修改数据表里的某一字段数据当修改了数据表中的某一字段数据后, 售票窗口却不能马上更新相应的数据, 它需要重新启动系统后, 方可实现数据的更新, 这无疑会大大降低使用人员的工作效率, 给用户带来很大的不变。要解决这一问题, 首先要知道创建窗 体的 Fo rmCreate 事 件以及显示窗体 的Fo rmShow 事 件 这 两 者 各 自 的 功 能 及 其 区 别。Fo r

14、mCreate 事件代码是在应用系统启动时就已经被加载, 而 For mShow 事件代码 是在该窗体显示时才被 调用。如果把更新数据 的代码放在 F orm Creat e 事件中,那么当数据表修改以后, 由于该窗体在应用系统启动时就已经创建, 也就是 说它对应的事件代码已经执行 过了, 所以当数据表中的数据被修改后, 在 ComboBox 列表框中的数据就不能实时刷新, 必须重启售票系统, 才能执行放在 Fo rmCreate 中 的更新数据事 件代码。售票窗体数据才能得以更新。解决的方法是将更新数据的代码添加到 For m Show 事件代码中, 用以更新显示数据。运行结果 表明, 添加

15、 到 For mSho w 事件 代码 后的系统能够完全解决该问题。从而实现了 Co mboBo x 列表框中数据的动态实时刷新。代码编写如下:procedur e T for m1. Fo rmShow ( Sender: T O bject) ; beg in Q uer y1. SQ L. Clear ; Q uer y1. SQ L. A dd( select 电影院名称 f rom 电影信息 ) ; Q uer y1. A ctive: = T r ue; Q uer y1. O pen; Q uer y1. F irst; ComboBo x1. It ems. Clear; wh

16、ile not( Quer y1. Eof) do beg in ComboBox1. Items. A dd( Q uer y1. FieldBy Name ( 电 影 院名称 ) . A sStr ing) ; Q uer y1. N ext ;end; Q uer y1. A ctiv e: = T r ue; end;2 显示表中字段 DBCo mboBo x 与 ComboBox 不同方法 DBCo mboBo x 控件是继承了 ComboBox 属性的控件, 并添加了属性 Dat aSo urce, 增 加了数据库的连接。使用D BCom boBox 控件可以省去大量的代码, 使用时更加 方便, 因 此设 计系 统时, 首先 想到 使用 DBCo mboBox 控件来选择 电影院名称 及 电影名称 。然而设计过程中发现, 使用 D BComboBox 控件来选择售