《项目实训代码_(1)》由会员分享，可在线阅读，更多相关《项目实训代码_(1)（18页珍藏版）》请在金锄头文库上搜索。
1、FORM1 Me.frm Private Sub Form1_Load() Option Explicit Public LoginSucceeded As Boolean 引用引用 Microsoft ActiveX Data Objects 2.6 Library 定义连接对象和记录集定义连接对象和记录集 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset 对取消按钮单击事件的响应对取消按钮单击事件的响应 Private Sub cmdCancel_Click() 设置全局变量为设置全局变量为 false 不提示失败的登录不提示失败
2、的登录 LoginSucceeded = False Me.HideEnd Sub 对登录按钮单击事件的响应对登录按钮单击事件的响应 Private Sub cmdOK_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset 建立无源数据库连接建立无源数据库连接 conn.ConnectionString = “driver=sql server;server=Dell-181;uid=sa;pwd=;Database=人人 事系统管理事系统管理“ conn.ConnectionTimeout = 50 conn
3、.Open Dim str As String 连接连接对象连接连接对象 Set rs.ActiveConnection = conn 设置游标类型设置游标类型 rs.CursorType = adOpenDynamic If Trim(txtUserName.Text = “) Then MsgBox “用户名不能为空，请重新输入用户名！用户名不能为空，请重新输入用户名！“, vbOKOnly + vbExclamation, “警告警告“ txtUserName.SetFocus Else 设置查询字符串设置查询字符串 str = “select * from login_user whe
4、re name =“ server=Dell-181;uid=sa;pwd=sa;database= 人事系统管理人事系统管理“ conn.OpenEnd Sub Public Sub Main()PublicStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事系统管理人事系统管理;Data Source=DELL-181“Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Inf
5、o=False;Initial Catalog=人事管理系统人事管理系统;Data Source=“ Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=人事系统管理人事系统管理;Data Source=DELL-181“On Error GoTo Error_Docnn.Open PublicStrsTokens() = Split(SQL)If InStr(“INSERT,DELETE,UPDATE“, UCase(sTokens(0) Thencnn.Execute SQLElseSet rst = N
6、ew ADODB.RecordsetWith rst.ActiveConnection = cnn.CursorLocation = adUseClient.CursorType = adOpenStatic.LockType = adLockOptimistic.Open Trim(SQL)End Withrst.Open Trim(SQL), cnn, adOpenStatic, adLockOptimisticSet ExecuteSQL = rstEnd IfSet cnn = NothingSet rst = NothingExit Function Error_Do:Dim Err_Str As StringErr_Str = “服务器服务器“ & Err.DescriptionIf MsgBox(Err_Str, vbRetryCancel + vbCritical, “警告警告“) = vbRetry ThenResumeElseSet cnn = NothingSet rst = NothingEndEnd If End Function
