主要用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