form1.vb

黑魔方vb.net数据库开发第4章第5节

        Me.TextBox2.Location = New System.Drawing.Point(152, 56)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(136, 25)
        Me.TextBox2.TabIndex = 16
        Me.TextBox2.Text = "TextBox2"
        '
        'r1
        '
        Me.r1.Location = New System.Drawing.Point(152, 88)
        Me.r1.Name = "r1"
        Me.r1.Size = New System.Drawing.Size(40, 24)
        Me.r1.TabIndex = 17
        Me.r1.Text = "男"
        '
        'r2
        '
        Me.r2.Location = New System.Drawing.Point(208, 88)
        Me.r2.Name = "r2"
        Me.r2.Size = New System.Drawing.Size(40, 24)
        Me.r2.TabIndex = 18
        Me.r2.Text = "女"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(152, 112)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(136, 25)
        Me.TextBox3.TabIndex = 19
        Me.TextBox3.Text = "TextBox3"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(152, 144)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(136, 25)
        Me.TextBox4.TabIndex = 20
        Me.TextBox4.Text = "TextBox4"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(152, 176)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(136, 25)
        Me.TextBox5.TabIndex = 21
        Me.TextBox5.Text = "TextBox5"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(152, 208)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(136, 25)
        Me.TextBox6.TabIndex = 22
        Me.TextBox6.Text = "TextBox6"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(152, 240)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.Size = New System.Drawing.Size(288, 25)
        Me.TextBox7.TabIndex = 23
        Me.TextBox7.Text = "TextBox7"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(152, 272)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(312, 25)
        Me.TextBox8.TabIndex = 24
        Me.TextBox8.Text = "TextBox8"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(328, 168)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(64, 32)
        Me.Button7.TabIndex = 25
        Me.Button7.Text = "查询"
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(408, 128)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(64, 32)
        Me.Button8.TabIndex = 26
        Me.Button8.Text = "退出"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
        Me.ClientSize = New System.Drawing.Size(488, 336)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button8, Me.Button7, Me.TextBox8, Me.TextBox7, Me.TextBox6, Me.TextBox5, Me.TextBox4, Me.TextBox3, Me.r2, Me.r1, Me.TextBox2, Me.TextBox1, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1})
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If rs.EOF Then
            Exit Sub
        Else
            disp()
            rs.MoveNext()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If rs.BOF Then
            Exit Sub
        Else
            disp()
            rs.MovePrevious()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        disp()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '删除当前记录
        Dim yn As Integer
        Dim xh As String = TextBox1.Text
        If xh = "" Then Exit Sub
        yn = MsgBox("本删除不可逆，确实删除?", MsgBoxStyle.YesNo, "删除")
        If yn = 6 Then
            Dim deletestr = "delete from student where 学号='" & xh & "'"
            con.Execute(deletestr)
            rs.Requery()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim yn As Integer
        If TextBox1.Text = "" Then Exit Sub
        If MsgBox("真的要保存吗？", MsgBoxStyle.YesNo, "保存") = 6 Then
            Dim sex As String
            If r1.Checked = True Then
                sex = "男"
            Else
                sex = "女"
            End If
            '将xh参数集加到定义好的命令对象中，并为参数赋值
            Dim xh As New ADODB.Parameter()
            xh = cmd.CreateParameter("学号", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 10)
            cmd.Parameters.Append(xh)
            cmd.Parameters(0).Value = TextBox1.Text
            '将xm参数集加到定义好的命令对象中，并为参数赋值
            Dim xm As New ADODB.Parameter()
            xm = cmd.CreateParameter("姓名", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 10)
            cmd.Parameters.Append(xm)
            cmd.Parameters(1).Value = TextBox2.Text
            '将xb参数集加到定义好的命令对象中，并为参数赋值
            Dim xb As New ADODB.Parameter()
            xb = cmd.CreateParameter("性别", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 2)
            cmd.Parameters.Append(xb)
            cmd.Parameters(2).Value = sex
            '将csrq参数集加到定义好的命令对象中，并为参数赋值
            Dim csrq As New ADODB.Parameter()
            csrq = cmd.CreateParameter("出生日期", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 15)
            cmd.Parameters.Append(csrq)
            cmd.Parameters(3).Value = TextBox3.Text
            '将bh参数集加到定义好的命令对象中，并为参数赋值
            Dim bh As New ADODB.Parameter()
            bh = cmd.CreateParameter("班号", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 10)
            cmd.Parameters.Append(bh)
            cmd.Parameters(4).Value = TextBox4.Text
            '将lxdh参数集加到定义好的命令对象中，并为参数赋值
            Dim lxdh As New ADODB.Parameter()
            lxdh = cmd.CreateParameter("联系电话", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 20)
            cmd.Parameters.Append(lxdh)
            cmd.Parameters(5).Value = TextBox5.Text
            '将rxrq参数集加到定义好的命令对象中，并为参数赋值
            Dim rxrq As New ADODB.Parameter()
            rxrq = cmd.CreateParameter("入校日期", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 10)
            cmd.Parameters.Append(rxrq)
            cmd.Parameters(6).Value = TextBox6.Text
            '将jtzz参数集加到定义好的命令对象中，并为参数赋值
            Dim jtzz As New ADODB.Parameter()
            jtzz = cmd.CreateParameter("家庭住址", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 50)
            cmd.Parameters.Append(jtzz)
            cmd.Parameters(7).Value = TextBox7.Text
            '将bz参数集加到定义好的命令对象中，并为参数赋值
            Dim bz As New ADODB.Parameter()
            bz = cmd.CreateParameter("备注", ADODB.DataTypeEnum.adBSTR, ADODB.ParameterDirectionEnum.adParamInput, 50)
            cmd.Parameters.Append(bz)
            cmd.Parameters(8).Value = TextBox8.Text
            '定义插入记录的SQL字符串，并执行定义好的命令
            Dim sqlstr = "insert into student(学号,姓名,性别,出生日期,班号,联系电话,入校日期,家庭住址,备注)"
            sqlstr = sqlstr & " values(@xh,@xm,@xb,@csrq,@bh,@lxdh,@rxrq,@jtzz,@bz)"
            cmd.CommandText = sqlstr
            cmd.ActiveConnection = con
            cmd.Execute()
            rs.Requery()
            MsgBox("记录已成功保存！")
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim newfrm2 As New Form2()
        newfrm2.ShowDialog()
        disp()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Close()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub
End Class