const.bas

vb+sqlserver实现的人事管理系统

Attribute VB_Name = "Const"

Public Const DATABASE As String = "rsgl"
Public Const DSN As String = "Enterprise"
Public Const DB_USER_NAME As String = "sa"
Public Const DB_PASSWORD As String = "sa"
 '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10



Public mydb As New clsDB
Public MyUser As New clsUser
Public server As String
Public user As String
Public password As String
Public staff As staff