中南大学数据库课程设计护腕荐购课程设计源代码清单.doc

中南大学数据库课程设计护腕荐购课程设计源代码清单 已做成功源程序清单 1.frmlogin： Public intjobid As Integer Public intuserjd As Integer Private Sub cmdOK_click() Dim sql As String Dim rs As ADODB.Recordset Dim strusername As String Dim intuserkey As Integer On Error GoTo errhandler: If Trim(txtUserName.Text = ) Then MsgBox 请输入用户名称！, vbExclamation txtUserName.SetFocus Else sql = select * from users_21123 where username= txtUserName.Text Set rs = ExeSQL(sql) If rs.EOF = True Then MsgBox 没有此用户，请重新输入用户名！, vbExclamation txtUserName.SetFocus Else If Trim(rs!userpassword) = Trim(txtUserkey.Text) Then intuserid = rs!userid intjobid = rs!jobid MsgBox 登陆成功！, vbExclamation rs.Close Me.Hide frmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入, vbExclamation txtUserkey.SetFocus txtUserkey.Text = End If End If End If Exit Sub errhandler: MsgBox 错误号 Err.Number 错误描述 Err.Description End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdRegister_Click() frmregister.Show frmlogin.Hide End Sub 2.frmregister Private Sub Command1_Click() Dim cnn As New ADODB.Connection Dim adors As New ADODB.Recordset cnn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cuffsystem;Data Source=PCYIG cnn.Open If cnn.State = adStateOpen Then Set adors.ActiveConnection = cnn 设置cmd的ActiveConnection属性，指定与其关联的数据库连接 If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then MsgBox 输入的用户注册信息不完全!!, , 提示信息 Else Adodc1.RecordSource = select * from users_21123 where username= + Text1 + 判断注册的用户名是否存在 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox 该账号已经存在,请您更换其他账号!, 48, 提示信息 Text1.SetFocus Else If Text2.Text = Text3.Text Then 判断两次输入的密码是否一致 Adodc1.RecordSource = select * from users_21123 Adodc1.Refresh 保存注册信息