实例与举一反三之比较（一）

实例一：“系统登录”对话框

 

原例：在数据库中建立一个数据表用于保存系统用户登录信息，在设计登录对话框时通过查询该数据表完成验证。

 

举一反三（2）：

 

     不同点：增加了一个身份的判断，即在判断口令正确时，进而判断身份是否正确。

 

原例：

 

    If objRs.EOF Then
        Check_PassWord = 0      '没有查询结果，表示该用户为非法用户
    Else
        '检查口令是否正确
        If Password <> Trim(objRs.Fields("口令").Value) Then
            Check_PassWord = 1          '口令不正确
        Else
            Check_PassWord = 2         '口令正确
        End If
    End If

本例：

 

    If objRs.EOF Then
        Check_PassWord = 0      '没有查询结果，表示该用户错误
    Else
        '检查口令是否正确
        If Password <> Trim(objRs.Fields("口令").Value) Then
            Check_PassWord = 1          '口令不正确
        Else
            '口令正确，进一步验证身份是否正确
            If Band <> Trim(objRs.Fields("身份").Value) Then
                Check_PassWord = 2         '身份不正确
            Else
                Check_PassWord = 3         '身份正确
            End If
        End If
    End If

举一反三（3）：

 

    不同点：Provider版本升高。

 

原例：

 

     objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "/数据库/实例1.mdb"
     objCn.Open

本例：

 

     objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "/数据库/实例1.mdb"
     objCn.Open