module1.bas

vb+sql的图书管理系统。

Attribute VB_Name = "Module1"
Public cn As New ADODB.Connection
Public cn_str As String
Public rsgly As New ADODB.Recordset
Public rsreader As New ADODB.Recordset
Public rsbook As New ADODB.Recordset
Public rslend As New ADODB.Recordset
Public rsyd As New ADODB.Recordset
Public LoginSucceeded As Boolean
Public isreader As Boolean
Public isgly As Boolean
Public iscjgly As Boolean
Public issj As Boolean
Public user As String

Public Sub updata()
If isreader = True Then
    MDIForm1.resder.Enabled = False
    MDIForm1.admin.Enabled = False
    MDIForm1.system.Enabled = False
    MDIForm1.bookb.Enabled = False
    MDIForm1.booksty.Enabled = False
    MDIForm1.Toolbar1.Buttons(2).Enabled = False
    MDIForm1.Toolbar1.Buttons(3).Enabled = False
    MDIForm1.Toolbar1.Buttons(4).Enabled = False
End If
If isgly = True Then
   MDIForm1.adminifn.Enabled = False
   MDIForm1.adminnew.Enabled = False
   MDIForm1.system.Enabled = False
End If
If issj = True Then
    MDIForm1.bookb.Enabled = False
    MDIForm1.booksty.Enabled = False
    MDIForm1.resder.Enabled = False
    MDIForm1.adminifn.Enabled = False
    MDIForm1.adminnew.Enabled = False
    MDIForm1.system.Enabled = False
    MDIForm1.Toolbar1.Buttons(2).Enabled = False
    MDIForm1.Toolbar1.Buttons(3).Enabled = False
    MDIForm1.Toolbar1.Buttons(4).Enabled = False
End If
End Sub


Sub Main()
Set cn = New ADODB.Connection
'cn_str = "driver={sql server};server=(local);uid=sa;database=ghostbook" '连接数据库
cn_str = "driver={sql server};server=(local);database=ghostbook"
cn.Open cn_str
Set rsgly = New ADODB.Recordset
Set rsreader = New ADODB.Recordset
Set rsbook = New ADODB.Recordset
Set rslend = New ADODB.Recordset
Set rsyd = New ADODB.Recordset
'frmLogin.Show
If LoginSucceeded = False Then
 isreader = True
End If
MDIForm1.Show
End Sub