4.系统的功能

本部分主要内容为本系统的运行界面以及主要界面的源代码。

4．1系统登陆界面：

本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用909;909为用户名和密码来登陆本系统。

Private Sub Command1_Click()

Dim mrc As ADODB.Recordset

txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"

Set mrc = ExecuteSQL(txtsql)

If mrc.EOF = True Then

  MsgBox " 用户名错误！", vbExclamation + vbOKOnly, "警告"

  Text1.SetFocus

  Text1.SelStart = 0

  Text1.SelLength = Len(Text1.Text)

  Exit Sub

End If

username = mrc.Fields(0)

txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"

Set mrc = ExecuteSQL(txtsql2)

If mrc.EOF = True Then

  MsgBox " 密码错误！", vbExclamation + vbOKOnly, "警告"

  Text2.SetFocus

  Text2.SelStart = 0

  Text2.SelLength = Len(Text2.Text)

  Exit Sub

End If

txtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"

Set mrc = ExecuteSQL(txtsql)

If mrc.EOF = True Then

  MsgBox "用户名称和密码不匹配！", vbExclamation + vbOKOnly, "警告"

  Exit Sub

End If

MDIForm1.Show

frmcpass.Text1.Text = Text1.Text

Unload Me

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

  Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

 Command1.SetFocus

End If

End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页