学生信息管理系统总结之“经典语句一”

        学生信息管理系统在昨天接近尾声，大部分收工了。现在开始进入总结阶段，首先进行经典语句的总结。

        一、验证数据有效性

     （1）、判断是否为空

前边模块中定义了testtxt函数

IfNot TestTxt(TxtCourseno.Text) Then

       MsgBox "请输入课程编号！", vbOKOnly +vbExclamation, "警告"

       TxtCourseno.SetFocus

       Exit Sub

End If

或是正常状态：

If Trim(TxtID.Text)= "" Then

        smeg = "学号不能为空！"

        MsgBox smeg, vbOKOnly + vbExclamation,"警告"

        TxtID.SetFocus

        Exit Sub

End If

        （2）、判断学号是否为数字

If NotIsNumeric(TxtCourseno.Text) Then

        MsgBox "编号为数字，请输入数字！",vbOKOnly + vbExclamation, "警告"

        TxtCourseno.SetFocus

        Exit Sub

 End If

         （3）、判断插入数据是否重复

  While (mrc.EOF = False)

      If (Trim(mrc.Fields(0)) =Trim(TxtCourseno.Text)) Then

         MsgBox "课程编号不能重复，请重新输入！",vbOKOnly + vbExclamation, "警告"

         TxtCourseno.SetFocus

         Exit Sub

      Else

          mrc.MoveNext

      End If

   Wend   

          （4）判断日期格式是否真确

If NotIsDate(Txtborndate.Text) Then

  MsgBox "出生时间应输入日期格式（yyyy-mm-dd）!",vbOKOnly + vbExclamation, "警告"

  Txtborndate.SetFocus

Else

  txtborndate = Format(Txtborndate, "yyyy-mm-dd")

End if

         二、添加数据

 mrc.AddNew

    mrc.Fields(0) =Trim(TxtID.Text)

    mrc.Fields(1) = Trim(TxtName.Text)

    mrc.Fields(2) =Trim(ComboSex.Text)

    mrc.Fields(3) =Trim(Txtborndate.Text)

    mrc.Fields(4) =Trim(ComboClassno.Text)

    mrc.Fields(5) = Trim(TxtTel.Text)

    mrc.Fields(6) = Trim(Txtrudate.Text)

    mrc.Fields(7) = Trim(TxtAddress.Text)

    mrc.Fields(8) = Trim(TxtComment.Text)

    mrc.Update

 MsgBox "修改学籍信息成功！", vbOKOnly +vbExclamation, "警告"

        三、查询数据库中的表

Dim mrcas ADODB.RecordSet

DimTxtSQL as string

DimMsgtext as string

txtSQL="select* from result_Info where  student_ID  and student_Name='" & Trim(TxtID.Text) & TxtName.Text & "'"

Setmrc=executeSQL(txtSQL,MsgText)

       四、密码问题

     （1）、判断密码登录次数是否超过三次

Dim miCount AsInteger

Micount=micount+1

Ifmicount=3 then

     me.hide

End if

      （2）、两次输入的密码是否相同

IfTrim(Text1(1).Text) <> Trim(Text1(2).Text) Then

         MsgBox "两次输入的密码不一样，请确定！",vbOKOnly + vbExclamation, "警告"

          Text1(1).SetFocus

          Text1(1).Text = ""

          Text1(2).Text = ""

          Exit Sub

 Else

        mrc.AddNew

        mrc.Fields(0) = Trim(Text1(0).Text)

        mrc.Fields(1) = Trim(Text1(1).Text)

        mrc.Update

        mrc.Close

        Me.Hide

        MsgBox "添加用户成功！", vbOKOnly +vbExclamation, "警告"

 End If