设计指纹登录系统

在学习本节内容之前，请先打开CaseStudy目录下的示例文件“指纹登录系统.Table”。
本节的任务是设计一个下图所示的登录窗口：

该登录窗口能自动识别用户指纹，指纹匹配和自动进入系统，显然和传统的密码登录方式相比，这种方式更加快捷安全，更有“科技”感。

设计步骤

1、首先准备两个gif图片，放在项目所在目录的Images子目录下：

文件名为finger1.gif，等待识别指纹的时候显示。

文件名为finger2.gif，识别指纹失败的时候显示。

2、在全局代码中定义一个Public变量:

Public _UserName As String

3、设计一个上图所示的窗口，这个窗口没有任何代码，就两个控件，一个PictureBox和一个Label，PictureBox的显示图片设置为finger1.gif

4、在项目事件AfterOpenProject中加上代码：

FOXFinger.Start()
Forms("登录窗口").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'后续初始化代码

5、将FingerCapture事件的代码设置为：

If Forms("登录窗口").Opened Then '如果登录窗口打开
    For Each dr As DataRow In DataTables("用户").DataRows
        If dr.IsNull("指纹模板") = False Then
            If FoxFinger.verify(dr("指纹模板"),e.Features) Then '如果指纹模板相符
                _UserName = dr("姓名")
                Forms("登录窗口").Close()
                Exit For '退出循环
            Else
                Dim pb As WinForm.PictureBox = Forms("登录窗口").Controls("PictureBox1")
                pb.Image = GetImage("Finger2.gif") '如果指纹 失败，显示图片finger2.gif，用以提示用户
            End If
        End If
    Next
End If