[求助]下了个界面觉得不错,求怎么做

h112112 · 发表于 2007-10-12 17:20

rl5GbgjE.rar (16.75 KB, 下载次数: 86)
请高手告诉这东西怎么做~就像这个一样的~~只有界面~~~~一般界面打开~~前面还有ACCESS的界面

AIEO.CN · 发表于 2007-10-12 22:13

安全性太差，容易被破解。无非是用了个隐藏表，登录窗体写了点简单的判断语句。这么简陋的东西还敢拿出来，

Private Sub 登陆_Click()
Dim i As Integer
If IsNull(Me.用户名) Or Me.用户名 = "" Or IsNull(Me.密码) Or Me.密码 = "" Then                   '判断用户名和密码
    MsgBox "请输入用户名或密码!", vbOKOnly, "出错提示"
    Me.用户名.SetFocus                                             '用户名文本框激活
Else
    For i = 2 To 5
        If Me.密码 = Me.用户名.Column(1) Then
            Me.Visible = False
            Exit Sub
        End If
    Next i
        MsgBox "用户名或密码错误!", vbOKOnly, "出错提示"
        Me.用户名.SetFocus                                        '用户名文本框激活
End If
    LoginNum = LoginNum + 1                                     '储存登陆次数+1
If LoginNum > 2 Then                                             '登陆次数达到3次时
    Call 取消_Click                                               '运行退出
End If
End Sub

h112112 · 发表于 2007-10-13 09:59

我是昨天才接触ACCESS的~~而且编程一点不懂~~你上面写了都看不懂~~

smartleo · 发表于 2009-5-17 11:18

楼主还是回去练练基本功再来吧

darkknight · 发表于 2009-5-18 23:30

这个是很简单的东西，会做窗体就行了

		自动登录	找回密码
密码			免费注册