database.txt

我大2做的一个关于面向对象的课程设计

imports system.data.oledb

......

dim olecn as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source=data.mdb")
dim olecm as new oledbcommand("select * from login",olecn)
dim olead as new oledbdataadapter
dim olerd as oledbdatareader
dim pd as boolean = false
dim i as integer

olecm = new oledbcommand("select *from login",olecn)
olecn.open()
olerd = olecm.executereader

do while olerd.read()
  for i=0 to olerd.fieldcount-1
    if trim(textbox1.text)=(olerd.item("帐号")) and trim(textbox2.text) = (olerd.item("密码")) then
        msgbox("成功登陆")
        pd = true
        exit sub
   end if
next
loop
msgbox("帐号或者密码错误")
textbox1.text=""
textbox2.text=""
olerd.close()
olecn.close()
end sub
end class


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        If TextBox3.Text = "" Or TextBox4.Text = "" Then 
            Label35.Text = "请确认您的输入！" 
            Return 
        End If 
        Dim sql As String = "select * from pwd where stu_id=@stu_id and pwd=@pwd" 
        Dim comm As SqlCommand = New SqlCommand(sql, conn) 
        comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4)) 
       comm.Parameters("@stu_id").Value = TextBox3.Text 
        comm.Parameters.Add(New SqlParameter("@pwd", SqlDbType.Char, 16)) 
        comm.Parameters("@pwd").Value = TextBox4.Text 
        Dim dr As SqlDataReader 
        conn.Open() 
        dr = comm.ExecuteReader 
        If dr.Read Then 
            Session("stu_id") = TextBox3.Text 
            dr.Close() 
            comm.Cancel() 
            Dim sql_3 As String = "update stu_base set point=point+1 where stu_id=@stu_id" 
            comm = New SqlCommand(sql_3, conn) 
            comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4)) 
            comm.Parameters("@stu_id").Value = Session("stu_id") 
           comm.ExecuteNonQuery() 
            comm.Cancel() 
            Response.Redirect("detail.aspx?stu_id='" & Session("stu_id") & "'") 
        Else 
            Label35.Text = "您还没有注册或账号密码错误" 
        End If 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        TextBox1.Text = "" 
        TextBox2.Text = "" 
    End Sub