学生信息管理系统的收获

一、防止SQL输入

所谓SQL输入就是在登陆时在用户名那输入一条sql语句，使数据库被进入，黑客可以通过这种方式查看或修改数据库。

再输入时会先输入“ ‘ ”，所以有了下面的防止方法！

If txtusername.Text = "'" Then

    MsgBox "用户名非法！", vbOKOnly + vbExclamation, "警告"

    txtusername.SetFocus

    txtusername.Text = ""

    Exit Sub

End If

二、当数据完全删除时提示添加数据

源码在执行修改信息的窗体时，当数据完全删除时会报错，其错误原因是游标指到了空的地方。所以加入了一下的限制。

If objrs.EOF Then

    str = MsgBox("无数据了！是否需要添加？", vbOKCancel, "删除当前记录")

       ' MsgBox "", vbOKOnly + vbExclamation, "提示"

        If str = vbOK Then

        frmAddsinfo.Show

        

       Else

       Unload Me

       End If     

三、入学年龄要大于出生年龄

源码中对入学年龄和出生年龄的格式有限制，可是对出生年龄和入学年龄的大小没限制。

用下面简单的代码即可限制。

    If txtRudate.Text < txtBorndate.Text Then

            MsgBox "入校日期小于出生日期！", vbOKOnly + vbExclamation, "警告"

            Exit Sub

     End If

四、在设置课程的不重复

在设置课程的窗体中，课程可以重复添加，这是不合理的，加入下面代码即可限制

Dim i, j As Long

    For i = 0 To listSelectcourse.ListCount - 1

        For j = listSelectcourse.ListCount - 1 To i + 1 Step -1

            If listSelectcourse.List(j) = listSelectcourse.List(i) Then

            Dim m As Long

                m = MsgBox("课程重复！是否继续添加！！", vbOKOnly + vbExclamation, "警告")

                    If m = vbYes Then

                        End

                    Else

                        listSelectcourse.RemoveItem j

                    End If

            End If

        Next j

    Next i

    If (listAllcourse.ListIndex <> -1) Then

        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)

        listAllcourse.RemoveItem listAllcourse.ListIndex

    End If

五、用dsn和sql两种方法连接数据库

Dsn连接数据库

ConnectString ="FileDSN=studentinfo.dsn;UID=sa;PWD=TGB520;"

  Dim cnn As ADODB.Connection

Dim rst As ADODB.Recordset

    Set cnn = New ADODB.Connection

    cnn.Open ConnectString

    cnn.Execute SQL

    Set rst = New ADODB.Recordset

    rst.Open Trim$(SQL), cnn, adOpenKeyset,adLockOptimistic

    Set ExecuteSQL = rst

 

   Sql连接数据库

Public Const strCn As String = "Provider=SQLOLEDB.1;Password=TGB520;PersistSecurity Info=True;User ID=sa;Initial Catalog=Student;DataSource=192.168.26.42"

Dim objcn As NewConnection

Dim objrs As NewRecordset

objcn.Open strCn

 objrs.ActiveConnection =objcn

With objrs

.CursorLocation = adUseClient

        .CursorType = adOpenStatic

        .LockType = adLockOptimistic

 End With

objrs.Open txtSQL                     

这就是我在敲学生信息管理系统里的收获，敬请斧正！