大学生奖助学金管理信息系统数据库的设计与实现(6)

主要用VB+SQL设计的 后台工作少些 主要针对前台的工作的

附录：（功能模块代码）

1、 登录

Option Explicit Public OK As Integer '记录确定次数

Dim miCount As Integer Private Sub cmdCancel_Click() OK = False Me.Hide End Sub

Private Sub cmdOK_Click() '用来存放记录SQL 语句 Dim txtSQL As String '用来存放记录集对象

Dim mrc As ADODB.Recordset '用来存放返回信息 Dim MsgText As String UserName = ""

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else

txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else

If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide FrmMain.Show

UserName = Trim(txtUserName.Text) Else

MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库大学生奖助学金管理信息系统数据库的设计与实现(6)在线全文阅读。