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

个人实验报告（） （3）窗体代码 Imports System.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form 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 System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick StatusBar1.Panels(0).Text = DateTime.Today StatusBar1.Panels(1).Text = DateTime.Now.ToString(T) End Sub Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter If RadioButton1.Checked = True Then RadioButton2.Checked = False RadioButton3.Checked = False ElseIf RadioButton2.Checked = True Then RadioButton1.Checked = False RadioButton3.Checked = False ElseIf RadioButton3.Checked = True Then RadioButton1.Checked = False RadioButton2.Checked = False End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxShockwaveFlash1.Movie = E:\实验运行场\VB.NET程序设计\电影院票务系统\image\登陆界面1.swf AxShockwaveFlash1.Playing = False AxShockwaveFlash1.Stop() 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(TextBox1.Text) tox2 = Val(TextBox2.Text) mycon.ConnectionString = initial catalog=ticketbooking;user id=sa;password=; mycom.Connection = mycon 通过 MYCON 连接对象操作数据库 mycom.CommandType = CommandType.Text 设置命令类型 mycom.CommandText = select * from workers 设置要执行的命令 Try mycon.Open() mydataadapter.SelectCommand = myc