form3.vb

教师管理系统

        Me.TextBox6.Location = New System.Drawing.Point(72, 80)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(144, 21)
        Me.TextBox6.TabIndex = 11
        Me.TextBox6.Text = "TextBox6"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(304, 48)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(64, 21)
        Me.TextBox5.TabIndex = 10
        Me.TextBox5.Text = "TextBox5"
        '
        'chkmarry
        '
        Me.chkmarry.Location = New System.Drawing.Point(184, 48)
        Me.chkmarry.Name = "chkmarry"
        Me.chkmarry.Size = New System.Drawing.Size(48, 21)
        Me.chkmarry.TabIndex = 9
        Me.chkmarry.Text = "TextBox4"
        '
        'tatage
        '
        Me.tatage.Location = New System.Drawing.Point(8, 48)
        Me.tatage.Name = "tatage"
        Me.tatage.Size = New System.Drawing.Size(72, 24)
        Me.tatage.TabIndex = 7
        Me.tatage.Text = "出生年月"
        '
        'rasex2
        '
        Me.rasex2.Location = New System.Drawing.Point(312, 16)
        Me.rasex2.Name = "rasex2"
        Me.rasex2.Size = New System.Drawing.Size(40, 24)
        Me.rasex2.TabIndex = 6
        Me.rasex2.Text = "女"
        '
        'rasex1
        '
        Me.rasex1.Location = New System.Drawing.Point(272, 16)
        Me.rasex1.Name = "rasex1"
        Me.rasex1.Size = New System.Drawing.Size(40, 24)
        Me.rasex1.TabIndex = 5
        Me.rasex1.Text = "男"
        '
        'radsexx
        '
        Me.radsexx.Location = New System.Drawing.Point(232, 16)
        Me.radsexx.Name = "radsexx"
        Me.radsexx.Size = New System.Drawing.Size(32, 24)
        Me.radsexx.TabIndex = 4
        Me.radsexx.Text = "性别"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(160, 16)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(64, 21)
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = "TextBox2"
        '
        'txtname
        '
        Me.txtname.Location = New System.Drawing.Point(128, 16)
        Me.txtname.Name = "txtname"
        Me.txtname.Size = New System.Drawing.Size(32, 24)
        Me.txtname.TabIndex = 2
        Me.txtname.Text = "姓名"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(48, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(64, 21)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = "TextBox1"
        '
        'txtid
        '
        Me.txtid.Location = New System.Drawing.Point(8, 24)
        Me.txtid.Name = "txtid"
        Me.txtid.Size = New System.Drawing.Size(32, 24)
        Me.txtid.TabIndex = 0
        Me.txtid.Text = "编号"
        '
        'frmTeachers
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(520, 352)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Botton2)
        Me.Controls.Add(Me.Btnadd)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmTeachers"
        Me.Text = "教师基本情况表"
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim mydata() As Byte
    Dim sconnstring As String = "data source=(local);initial catalog=学校管理系统;integrated secury=sspi"
    Dim mycn As New SqlConnection
    Dim mysql As String = "select * from  教师基本情况表"
    Dim mycommand As New SqlCommand(mysql, mycn)
    Dim mydataAdapter As New SqlDataAdapter
    Dim mydataset As New DataSet
    Dim mytable As New DataTable
    Dim radsexx As String = "男"
    Dim marry As Byte = 0
    Dim icount As Integer
    Dim icurrentpos As Integer

    Private Sub frmTeachers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            mydataAdapter.SelectCommand = mycommand
            mycn.ConnectionString = sconnstring
            mycn.Open()
            mydataset.Clear()
            mydataAdapter.Fill(mydataset, "教师基本情况表")
            mycn.Close()
            mytable = mydataset.Tables("教师基本情况表")
            If mytable.Rows.Count > 0 Then
                txtid.text = mytable.Rows(0)("编号")
                txtname.Text = mytable.Rows(0)("姓名")
                If mytable.Rows(0)("性别") = "男" Then
                    radsexx1.Checked = True
                Else
                    radsexx2.Checked = True
                End If
                icount = mytable.Rows.Count
                icurrentpos = 0
                txtage.Text = mytable.Rows(0)("出生年月").ToString
                marr.Text = mytable.Rows(0)("婚否")
                txtpolity.Text = mytable.Rows(0)("政治面貌")
                txtplace.Text = mytable.Rows(0)("籍贯")
                cmblevel.Text = mytable.Rows(0)("学历")
                txtschool.Text = mytable.Rows(0)("毕业时间和地点")
                Dim data() As Byte = mytable.Rows(0)("照片")
                Dim stmphoto As New MemoryStream(data)
                'picphoto.image = Image.FromStream(stmphoto)
                mydata = data.Clone
            End If
        Catch sqlinformation As SqlException
            MessageBox.Show(sqlinformation.Message)
        End Try
    End Sub

    Private Sub Btnphoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Dim opendlg As New OpenFileDialog
        ' opendlg.Title = "选择照片"
        'opendlg.Filter = "(*.bmp|*bmp|*.jpg)|*.jpg"
        'opendlg.ShowDialog()
        'picphoto.image = Image.FromFile(opendlg.FileName.ToString())
        'Dim fs As FileStream
        'fs = New FileStream(opendlg.FileName.ToString(), FileMode.Open)
        'Dim data(fs.Length) As Byte
        'fs.Read(data, 0, Int(fs.Length))
        ' mydata = data.Clone
    End Sub


    Private Sub Btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnadd.Click
        Try
            Dim drow As DataRow
            drow = mytable.NewRow
            drow("编号") = txtid.Text
            drow("姓名") = txtname.Text
            drow("性别") = radse
            drow("出生年月") = CDate(txtage.Text)
            drow("婚否") = marr
            drow("政治面貌") = txtpolity.Text
            drow("籍贯") = txtplace.Text
            drow("学历") = cmblevel.Text
            drow("毕业时间和地点") = txtplace.Text
            drow("照片") = mydata
            mytable.Rows.Add(drow)
            mycn.ConnectionString = sconnstring
            mycn.Open()
            Dim mycbuilder As New SqlCommandBuilder(mydataAdapter)
            mydataAdapter.InsertCommand = mycbuilder.GetInsertCommand
            mydataAdapter.Update(mydataset, "教师基本情况表")
            mycn.Close()
            MessageBox.Show("添加成功!")
        Catch myinformation As SqlException
            MessageBox.Show(myinformation.Message)
            Exit Sub
        End Try
    End Sub



    Private Sub chkmarr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim chmarr As CheckBox

        If chmarr.checked Then
            marry = 1
        Else
            marry = 0
        End If
    End Sub

    


    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Close()
    End Sub

  

   
    Private Sub botton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Botton2.Click

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            mytable.Rows(icurrentpos).Delete()
            mycn.ConnectionString = sconnstring
            mycn.Open()
            Dim mycbuilder As New SqlCommandBuilder(mydataAdapter)
            mydataAdapter.DeleteCommand = mycbuilder.GetDeleteCommand
            mydataAdapter.Update(mydataset, "教师基本情况表")
            mydataset.Clear()
            mydataAdapter.Fill(mydataset, "教师基本情况表")
            mycn.Close()
            mytable = mydataset.Tables("教师基本情况表")
            txtid.Text = mytable.Rows(0)("编号")
            txtname.Text = mytable.Rows(0)("姓名")
            If mytable.Rows(0)("性别") = "男" Then
                rasex1.Checked = True
            Else
                rasex2.Checked = True
            End If
            icount = mytable.Rows.Count
            icurrentpos = 0
            txtage.Text = mytable.Rows(0)("出生年月").ToString
            marr.Text = mytable.Rows(0)("婚否")
            txtpolity.Text = mytable.Rows(0)("政治面貌")
            txtplace.Text = mytable.Rows(0)("籍贯")
            cmblevel.Text = mytable.Rows(0)("学历")
            txtschool.Text = mytable.Rows(0)("毕业时间和地点")
            Dim data() As Byte = mytable.Rows(0)("照片")
            Dim stmphoto As New MemoryStream(data)
            ' picphoto.image = Image.FromStream(stmphoto)
            mydata = data.Clone
            MessageBox.Show("删除成功!")
        Catch myinformation As SqlException
            MessageBox.Show(myinformation.Message)
        End Try
    End Sub


End Class