学生管理信息系统（经典总结）

逐语句和逐过程调试的区别

逐语句，就是每次执行一行语句，如果碰到函数调用，它就会进入到函数里面。 

而逐过程，碰到函数时，不进入函数，把函数调用当成一条语句执行。 

而跳出，是当你进入到函数内，跳出可以让你直接执行函数内剩余的语句，直到返回到该函数被调用时的后面的语句处

点调试-> 启动调试就可。

Dim dd(4) As Boolean，代表四种查询情况，并定义他为布尔型

判断用户名

判断用户名有两层判断，一个是判断用户名是否为空，一个是判断用户名是否存在。这就用到了If函数的嵌套，需要多层IF函数的判断。

判断查询数据库中表是否正确，在代码中是否写对

txtSQL = "select *from user_Info where user_ID='" & txtUserName.Text & "'"

那么在这里会很容易出出现错误，原因是在查数据库中数据的时候查不到，会在If mrc.EOF Then这里出现，这时候就应该对照数据库和VB中的代码，看看所有查询的表和数据库是否一致。

代码中user_info 代表的是数据表，而User_ID 则代表的是用户名，在之后出现的每个窗体中都类似，只要数据库中的数据表和代码能一致就在If mrc.EOF Then出现的错误少了。

获取计算机名称

Private Sub Form_Load()重点内容
    Dim sBuffer As String   '缓冲器
    Dim lSize As Long

    sBuffer = Space$(255)   '缓冲器容量255Byte，sBuffer为255个空格字符串
    lSize = Len(sBuffer)     'sBuffer串的长度
    Call GetUserName(sBuffer, lSize)     '读取用户名到sBuffer中

添加用户——如果用户已经存在，则让文本框自动清零，重新输入

If Trim(mrc.Fields(0)) = Trim(txtUserName) Then
           MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
           txtUserName.SetFocus
                  txtUserName.Text = ""
                  txtPassword1.Text = ""
                  txtPassword2.Text = ""

判断两次输入的密码是否一致——<>表示相等，一样

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then              '判断两次密码是否一致

设置出生日期和入校日期

特别注意，这里的出生日期一定要早于入校日期
date1 = txtBorndate.Value
      date2 = txtRudate.Value
      If DateDiff("d", CDate(date1), CDate(date2)) < 0 Then
         MsgBox "入校日期需大于出生日期！请认真输入！", vbOKOnly + vbExclamation, "警告"

format

这里的format是指日期的输入格式。格式为yy-mm-dd
txtBorndate = Format(txtBorndate, "yy-mm-dd")

IsDate()

一个用于判断括号内的是否是日期的判断函数。返回值是 布尔量

例如:变量a的值是"2008-8-8"，则 IsDate(a)

因为判断的对象是日期的数据类型所以整个函数的返回值是true

AddItem

additem 方法在组合框或列表框中添加一个新数据项，并且可以指定数据项索引。

.TextMatrix (0, 0)

在myFlexgrid表中的几列几行

更新记录时把当前记录集删除，把修改后的信息存在数据库，更新，修改成功。

mrc.Delete
    txtSQL = "select * from class_info where class_no = '" & Trim(txtClassno.Text) & "'"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If mrcc.EOF = False Then
    MsgBox "班号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"
    mrcc.Close
    txtClassno.SetFocus
 Else
    mrcc.Close    '关闭连接
    mrc.AddNew     
     mrc.Fields(0) = Trim(txtClassno.Text)
     mrc.Fields(1) = Trim(ComboGrade.Text)
     mrc.Fields(2) = Trim(txtDirector.Text)
     mrc.Fields(3) = Trim(txtClassroom.Text)
     mrc.Update
     MsgBox "修改班级信息成功！", vbOKOnly + vbExclamation, "警告"

mrc.Fields()的含义

括号里的数就表示在数据表中，如图所对应的数

mrc.AddNew
        mrc.Fields(0) = Trim(txtCourseno.Text)
        mrc.Fields(1) = Trim(txtCoursename.Text)
        mrc.Fields(2) = Trim(comboCoursetype.Text)
        mrc.Fields(3) = Trim(txtCoursedes.Text)