variable.bas

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

Attribute VB_Name = "variable"
Public adoRs As New ADODB.Recordset
Public adoCommand As New ADODB.Command
Public adoConnection As New ADODB.Connection
Public Maxbooks As Integer                      '变量-最大借书本数
Public Returnbooks As String                    '变量-还书期限
Public DoorNumber As String                     '变量-用户编号
Public staoPtion As Integer                     '变量-用户类型 0-学生 1-编目员 2-图书管理员
Public ADOCOMMAND2 As New ADODB.Command

Public Const Aconnection As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=大作业2;Data Source=(LOCAL);"