const.bas

来自「添加删除修改管理员考生资料」· BAS 代码 · 共 40 行

Attribute VB_Name = "Const"
Option Explicit
'声明变量
Public Conn As New ADODB.Connection '声明并创建ADO Connection对象
Public CurLoginUserNo As String     '保存当前登录的用户编号
Public CurLoginUserName As String   '保存当前登录的用户名称
Public ModifyFlag As Integer        '修改状态标志：1－修改记录，0－增加记录

'启动对象
Sub Main()
  On Error GoTo ErrorHandle
   
  '防止多次运行同一个程序
  If App.PrevInstance Then
    MsgBox "程序已运行", vbExclamation + vbOKOnly, "操作提示"
    End
  End If

  '设置使用客户端游标
  Conn.CursorLocation = adUseClient
  '设置连接字符串ConnectionString属性
  Conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Roso;Data Source=(local)"
  Conn.Open     '打开到数据库的连接
  frmmain.Show   '调用登录窗体

  On Error GoTo 0   '取消错误捕获
  Exit Sub
  
ErrorHandle:
  '判断连接的状态
  If Conn.State <> adStateOpen Then
    '如果连接不成功，则显示提示信息，退出程序
    MsgBox "数据库连接失败", vbExclamation + vbOKOnly, "操作提示"
  Else
    MsgBox Error(Err.Number), vbExclamation + vbOKOnly, "操作提示"
  End If
  End
End Sub