- 博客(1)
- 资源 (6)
- 收藏
- 关注
RSS订阅转载 Tengine 安装配置全过程
在先前的文章中介绍过Tengine，先前只是使用了运维人员配置好的内容，未自己进行过安装配置。周末闲来无事，对于Tengine进行了尝试性的安装。记录下面方便以后再做改进。 Tengine官网上有个非常简单的教程，中间并未涉及到一些常用的设置，所以仅供参考。一下午为本人的安装步骤及过程。 1、安装必要的编译环境好 由于Tengine安装需要使用源代码自行编译，所以在安装前需要安装
2017-01-22 16:01:45
579
vb学生信息管理系统
Option Explicit
Public OK As Boolean
Dim miCount As Integer
Private Sub Form_Load()
OK = False
miCount = 0
End Sub
Rem 用户登录
Private Sub Command1_Click()
Dim n As String
If Text1.Text = "antengjiao" And Text2.Text = "654321" Then
Unload Form2
Form3.Show
Else
If (Len(RTrim(Text1.Text)) = 0) Then
n = MsgBox("请输入用户名!", , "提示")
Else
If Text1.Text <> "Qiaoyuanyuan" And Text1.Text <> "123456" Then
n = MsgBox("用户不存在或密码错误，请重新输入！", , "提示")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End If
End If
Text1.Text = ""
Text2.Text = ""
miCount = miCount + 1
If miCount = 3 Then
n = MsgBox("错误三次，系统自动退出!", , "错误提示")
End
End If
End Sub
Rem 退出登录界面
Private Sub Command2_Click()
Unload Form2
Form1.Show
End Sub
2010-12-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人