机房收费—登录窗口实现

自己这几天因为一些琐事，再把机房的窗体整完之后，就一直没有什么进展了。现在自己要发力了。先把自己整完的分享出来！！

'-----------------------------------------------------------------------------------

'窗体：登陆窗体

'说明：用户名和密码不能为空，查询用户名，对应的密码，准确无误后进入主界面,后台数据库记录操作。

'------------------------------------------------------------------------------------

Private Declare Function GetUserName Lib"advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer AsString, nSize As Long) As Long '调用计算机名函数

Public OK As Boolean

Dim mCount As Integer

Dim txtsql As String

'用来存放记录集对象

Dim mrcuser AsADODB.Recordset

Dim mrcwork AsADODB.Recordset

Dim mrcOn AsADODB.Recordset

Dim uR As Integer

Dim woR As String

Dim Ow   As String

'用来存放返回信息

Dim msgtext As String

Private Sub cmdOk_Click()

'用来存放SQL语句

Dim txtsql As String

'用来存放返回信息

Dim msgtext As String

'判断用户名是否为空

IfTrim(txtUserName.Text = "") Then

MsgBox "请输入用户名！！！", vbOKOnly + vbExclamation,"警告"

txtUserName.SetFocus

Else

'查询指定用户名的记录

txtsql ="select * from User_Info where userID='" & txtUserName.Text &"'"

Set mrcuser =ExecuteSQL(txtsql, msgtext)

If mrcuser.EOF =True Then

MsgBox "请核对用户名或密码！！", vbOKOnly + vbExclamation,"警告"

txtUserName.SetFocus

txtUserName.Text = ""

txtPassWord.Text = ""

Else

IfTrim(txtPassWord.Text = "") Then

MsgBox"密码不能为空！！！", vbOKOnly+ vbExclamation, "警告"

Else

txtPassWord.SetFocus

'判断密码是否正确

IfTrim(mrcuser.Fields(1)) = Trim(txtPassWord.Text) Then

Ow =mrcuser.Fields(2)

OK =True

mrcuser.Close

UserName = Trim(txtUserName.Text)

txtsql= "select * from worklog_Info" '写入工作日志表

Setmrcwork = ExecuteSQL(txtsql, msgtext)

mrcwork.AddNew

mrcwork.Fields(1) = txtUserName.Text

mrcwork.Fields(2) = Ow

mrcwork.Fields(3) = Date

mrcwork.Fields(5) = Null

mrcwork.Fields(6) = Null

mrcwork.Fields(7) = Trim(VBA.Environ("computername"))

mrcwork.Fields(8) = "true"

mrcwork.Update

uR =mrcwork.Fields(1)

woR =mrcwork.Fields(2)

mrcwork.Close

txtsql = "select * fromOnwork_Info"  ‘记录登录

SetmrcOn = ExecuteSQL(txtsql, msgtext)

mrcOn.AddNew

mrcOn.Fields(0) = uR                                             'userid

mrcOn.Fields(1)= woR                                            'level

mrcOn.Fields(2) = Date

mrcOn.Fields(3) = Time

mrcOn.Fields(4) = Trim(VBA.Environ("computername"))

mrcOn.Update

mrcOn.Close

UnloadMe

mdiFrmMain.Show

Else

MsgBox"密码错误，请重新输入", vbOKOnly+ vbExclamation, "警告"

txtPassWord.SetFocus

txtPassWord.Text = ""

End If

End If

End If

End If

miCount =miCount + 1

If miCount> 3 Then

Me.Hide

MsgBox"超过最大验证次数系统退出！！！",vbOKOnly + vbExclamation, "警告"

End If

End Sub

后面再慢慢跟大家分享哈