form1.vb

ADO.NET做的一个查询数据库中学生的基本信息

Imports System.IO
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents chkIs As System.Windows.Forms.CheckBox
    Friend WithEvents datSchool As System.Windows.Forms.DateTimePicker
    Friend WithEvents cmbSex As System.Windows.Forms.ComboBox
    Friend WithEvents btnDelete As System.Windows.Forms.Button
    Friend WithEvents btnUpdate As System.Windows.Forms.Button
    Friend WithEvents btnAdd As System.Windows.Forms.Button
    Friend WithEvents txtAge As System.Windows.Forms.TextBox
    Friend WithEvents txtName As System.Windows.Forms.TextBox
    Friend WithEvents txtCode As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents txtID As System.Windows.Forms.TextBox
    Friend WithEvents picPhoto As System.Windows.Forms.PictureBox
    Friend WithEvents btnPhoto As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.chkIs = New System.Windows.Forms.CheckBox
        Me.datSchool = New System.Windows.Forms.DateTimePicker
        Me.cmbSex = New System.Windows.Forms.ComboBox
        Me.btnDelete = New System.Windows.Forms.Button
        Me.btnUpdate = New System.Windows.Forms.Button
        Me.btnAdd = New System.Windows.Forms.Button
        Me.txtAge = New System.Windows.Forms.TextBox
        Me.txtName = New System.Windows.Forms.TextBox
        Me.txtCode = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.txtID = New System.Windows.Forms.TextBox
        Me.picPhoto = New System.Windows.Forms.PictureBox
        Me.btnPhoto = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'chkIs
        '
        Me.chkIs.Location = New System.Drawing.Point(216, 19)
        Me.chkIs.Name = "chkIs"
        Me.chkIs.Size = New System.Drawing.Size(54, 24)
        Me.chkIs.TabIndex = 62
        Me.chkIs.Text = "注册"
        '
        'datSchool
        '
        Me.datSchool.Location = New System.Drawing.Point(84, 147)
        Me.datSchool.Name = "datSchool"
        Me.datSchool.Size = New System.Drawing.Size(120, 21)
        Me.datSchool.TabIndex = 61
        '
        'cmbSex
        '
        Me.cmbSex.Items.AddRange(New Object() {"男", "女"})
        Me.cmbSex.Location = New System.Drawing.Point(84, 84)
        Me.cmbSex.Name = "cmbSex"
        Me.cmbSex.Size = New System.Drawing.Size(120, 20)
        Me.cmbSex.TabIndex = 60
        Me.cmbSex.Text = "男"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(201, 227)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 59
        Me.btnDelete.Text = "删除"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(126, 227)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.TabIndex = 58
        Me.btnUpdate.Text = "修改"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(51, 227)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 57
        Me.btnAdd.Text = "新建"
        '
        'txtAge
        '
        Me.txtAge.Location = New System.Drawing.Point(84, 179)
        Me.txtAge.Name = "txtAge"
        Me.txtAge.Size = New System.Drawing.Size(120, 21)
        Me.txtAge.TabIndex = 56
        Me.txtAge.Text = ""
        '
        'txtName
        '
        Me.txtName.Location = New System.Drawing.Point(84, 52)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(120, 21)
        Me.txtName.TabIndex = 55
        Me.txtName.Text = ""
        '
        'txtCode
        '
        Me.txtCode.Location = New System.Drawing.Point(84, 20)
        Me.txtCode.Name = "txtCode"
        Me.txtCode.Size = New System.Drawing.Size(120, 21)
        Me.txtCode.TabIndex = 54
        Me.txtCode.Text = ""
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(13, 184)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(54, 17)
        Me.Label5.TabIndex = 52
        Me.Label5.Text = "入学年龄"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(13, 152)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(54, 17)
        Me.Label4.TabIndex = 51
        Me.Label4.Text = "入学日期"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(13, 88)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(29, 17)
        Me.Label3.TabIndex = 49
        Me.Label3.Text = "性别"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(13, 56)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(29, 17)
        Me.Label2.TabIndex = 48
        Me.Label2.Text = "姓名"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(13, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(29, 17)
        Me.Label1.TabIndex = 47
        Me.Label1.Text = "学号"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(13, 120)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(42, 17)
        Me.Label6.TabIndex = 50
        Me.Label6.Text = "身份证"
        '
        'txtID
        '
        Me.txtID.Location = New System.Drawing.Point(84, 115)
        Me.txtID.Name = "txtID"
        Me.txtID.Size = New System.Drawing.Size(120, 21)
        Me.txtID.TabIndex = 53
        Me.txtID.Text = ""
        '
        'picPhoto
        '
        Me.picPhoto.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.picPhoto.Location = New System.Drawing.Point(233, 56)
        Me.picPhoto.Name = "picPhoto"
        Me.picPhoto.Size = New System.Drawing.Size(96, 128)
        Me.picPhoto.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.picPhoto.TabIndex = 63
        Me.picPhoto.TabStop = False
        '
        'btnPhoto
        '
        Me.btnPhoto.Location = New System.Drawing.Point(258, 182)
        Me.btnPhoto.Name = "btnPhoto"
        Me.btnPhoto.Size = New System.Drawing.Size(48, 24)
        Me.btnPhoto.TabIndex = 64
        Me.btnPhoto.Text = "照片"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(336, 269)
        Me.Controls.Add(Me.btnPhoto)
        Me.Controls.Add(Me.picPhoto)
        Me.Controls.Add(Me.chkIs)
        Me.Controls.Add(Me.datSchool)
        Me.Controls.Add(Me.cmbSex)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.txtAge)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.txtCode)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.txtID)
        Me.Name = "Form1"
        Me.Text = "执行连接环境下的数据库操作"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim myStudent As New BusinessLogicTire.StudentManage

    Private Sub btnPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPhoto.Click
        '创建打开对话框对象
        Dim Opendlg As New OpenFileDialog
        Opendlg.Title = "选择照片"
        Opendlg.Filter = "(*.jpg)|*.jpg|(*.bmp)|*bmp|(*.wmf)|*.wmf"
        If Opendlg.ShowDialog() = DialogResult.OK Then
            picPhoto.Image = Image.FromFile(Opendlg.FileName.ToString())
            Dim fs As FileStream
            fs = New FileStream(Opendlg.FileName.ToString(), _
            FileMode.Open, FileAccess.Read)
            Dim Data(fs.Length) As Byte
            fs.Read(Data, 0, Int(fs.Length))
            myStudent.Photo = Data
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        myStudent.Code = txtCode.Text.Trim
        myStudent.Name = txtName.Text.Trim
        myStudent.Sex = cmbSex.Text.Trim
        myStudent.SetID = txtID.Text.Trim
        myStudent.School = datSchool.Value
        myStudent.Age = txtAge.Text.Trim
        myStudent.SetIs = chkIs.Checked
        Try
            myStudent.myAdd()
            If myStudent.GetReturn = BusinessLogicTire.StudentManage.Result.Success Then
                MsgBox("添加成功！！！")
            Else
                MsgBox("输入的学号已存在，重新输入")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub



    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        myStudent.Code = txtCode.Text.Trim
        myStudent.Name = txtName.Text.Trim
        myStudent.Sex = cmbSex.Text.Trim
        myStudent.SetID = txtID.Text.Trim
        myStudent.School = datSchool.Value
        myStudent.Age = txtAge.Text.Trim
        myStudent.SetIs = chkIs.Checked
        Try
            myStudent.myEdit()
            If myStudent.GetReturn = BusinessLogicTire.StudentManage.Result.Success Then
                MsgBox("更新成功！！！")
            Else
                MsgBox("输入的学号不存在，重新输入")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        myStudent.Code = txtCode.Text.Trim
        Try
            myStudent.DeleteRecord()
            If myStudent.GetReturn = BusinessLogicTire.StudentManage.Result.Success Then
                MsgBox("删除成功！！！")
            Else
                MsgBox("输入的学号不存在，重新输入")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class