第五章  详细设计

5．1系统登录模块的设计与实现

1．流程图

2．界面：

界面包括的控件有标签、文本框、组合框、命令按钮等控件。

3．实现过程：

第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：

第二步，选择窗体或控件进行属性设置，如图为“确定”按钮的属性设置界面:

第三步双击相应的控件，在控件的相应过程中编写代码：

如此窗体上“确定”与“取消”按钮的代码如下：

Private Sub cmdOK_Click()

       ''检查正确的密码

  Dim pa, pt, pa1, pt1 As String

  Dim i As Integer

  ret.MoveFirst

  ret.Find "name =''" & Combo1.Text & "''"

  pt = ret("password")

  pa = pt

If txtPassword = pa Then

   ''frmSplash.show

   LoginSucceeded = True

        Me.Hide

        frmMain.Show

   Unload Me

   Else

      MsgBox "无效的密码，请重试!", , "登录"

      LOGINNO = LOGINNO + 1

    If LOGINNO > 2 Then

        MsgBox "对不起，您不能使用该系统！", 64, "登录失败"

        Unload Me

        Unload frmLogin

        Exit Sub

     End If

        txtPassword.SetFocus

        SendKeys "{Home}+{End}"

   End If

End Sub

Private Sub cmdCancel_Click()

    ''设置全局变量为 false

    ''不提示失败的登录

    LoginSucceeded = False

    Me.Hide

    Unload Me

End Sub

此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行Me.Hide（隐藏当前的窗体）和frmMain.Show（调出系统主界面），如果密码输入错误，则提示：

使用户重新输入密码。

Unload me语句的作用是下载窗体。

此窗体上combo控件的主要作用是从用户表中获得用户名，其列表项主要通过窗体加载时获得。程序如下：

Private Sub Form_Load()

''固定窗体在屏幕中央

left = (Screen.Width - Width) \ 2

top = (Screen.Height - Height) \ 2

On Error Resume Next

ret.MoveFirst

Do While Not ret.EOF

Combo1.AddItem ret("name")

ret.MoveNext

Loop

ret.MoveFirst

Combo1.ListIndex = 0

End Sub

其中数据库的连接是通过模块moudel1.bas实现的，代码如下：

Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Public con As New ADODB.Connection

Public ret As New ADODB.Recordset

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function sGetComputerName() As String

  Dim sBuffer As String

  Dim lBufSize As Long

  Dim lStatus As Long

  lBufSize = 255

  sBuffer = String$(lBufSize, " ")

  lStatus = GetComputerName(sBuffer, lBufSize)

  sGetComputerName = ""

  If lStatus <> 0 Then

     sGetComputerName = left(sBuffer, lBufSize)

  End If

End Function

Sub main()

Dim sql1 As String

sql1 = App.Path

If right(sql1, 1) <> "/" Then

  sql1 = sql1 + "/"

End If

sql1 = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & sql1 & "\userdatabase\tsl.mdb"

con.Open sql1

sql1 = "select * from passwordtable"

ret.Open sql1, con, adOpenStatic, adLockOptimistic

If ret.RecordCount = 0 Then

frmLogin1.Show

Else

frmLogin.Show

End If

End Sub

 

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167