在Visual FoxPro （VFP）中创建一个登录程序通常涉及以下步骤：
创建表单界面
启动VFP6.0，选择“文件”->“新建”->“表单”进入表单设计器。
在表单设计器中添加所需的控件，如标签、文本框、按钮等，并设置控件的属性。例如，设置文本框的PasswordChar属性为“*”以隐藏密码输入。
编写登录逻辑
在表单的Init事件中定义必要的变量，如用户名和密码的变量。
在登录按钮的Click事件中编写登录逻辑，包括验证用户输入的用户名和密码是否与数据库中的记录匹配。
如果登录成功，则打开主界面或执行其他操作；如果登录失败，则显示错误消息并允许用户重新输入。
处理用户输入
使用`ALLTRIM`函数去除用户输入的文本前后的空格。
使用`LOCATE`语句在用户表中查找匹配的用户名和密码。
如果找到匹配的记录，则设置相应的变量或执行其他操作；如果未找到或密码不匹配，则显示错误消息。
设置自动跳转
可以使用Timer控件设置在指定时间后自动跳转到其他表单或界面。
在Timer的Init事件中设置Interval属性，并在Timer的Timer事件中编写跳转逻辑。
确保数据安全
可以通过设置表单的Exclusive属性为“真”来防止多个表单同时打开。
在主程序中定义全局变量来跟踪登录尝试次数，并在多次尝试失败后执行相应的操作，如退出程序。
```foxpro
* 定义登录表单
PUBLIC n AS INTEGER
n = 0
* 登录按钮的Click事件
PROCEDURE LoginButtonClick
LOCAL uname, psw, user, pass
uname = ALLTRIM（thisform.txtUserName.Value）
psw = ALLTRIM（thisform.txtPassword.Value）
USE 用户表
LOCATE FOR 用户名 = uname AND 密码 = psw
IF FOUND（）
n = n + 1
IF n >= 3
MESSAGEBOX（'用户名或密码不对，请重新登录!', 16, '系统提示'）
thisform.txtUserName.SetFocus
thisform.txtPassword.Value = ""
RETURN
ELSE
MESSAGEBOX（'登录成功!', 16, '系统提示'）
USE 主界面
GO TOP
ENDIF
ELSE
MESSAGEBOX（'用户名或密码不对，请重新登录!', 16, '系统提示'）
thisform.txtUserName.SetFocus
thisform.txtPassword.Value = ""
ENDIF
ENDPROC
* 表单的Init事件
PROCEDURE FormInit
THISFORM.Caption = "登录界面"
ENDPROC
```
请注意，以上代码仅为示例，实际应用中可能需要根据具体需求进行调整和优化。