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

中南大学数据库课程设计护腕荐购课程设计源代码清单 已做成功源程序清单 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 intjobi