modmain.bas

基于vb的图书管理系统的设计

Attribute VB_Name = "modMain"
Option Explicit
Public rst As New Recordset
Public cnn1 As New Connection

Public strCnn As String

Public backupFlag As Boolean  'True是在主窗体中备份数据 False为在退出是选择备份数据

Public strID As String    '用于记录登录登录的管理员的编号
Public strAPWD As String '用于记录正确的密码
Public strPopedom As String '用于记录登录管理员的权限

Public loginFlag As Boolean   '验证登陆用户身份是否合法
Public endFlag As Boolean

Public Const BCH = &HC0C0C0  '灰色
Public Const BCW = &HFFFFFF  '白色
Public Const BCB = &HFFFF80  '浅蓝色

Public Sub main()
'SQL数据库连接
'strCnn = "driver={SQL server};server=SIEMENS;uid=;pwd=;database=book"

'ACCESS数据库连接
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\DB\book97.mdb;Persist Security Info=False;Jet OLEDB:Database Password="

loginFlag = False
endFlag = False
frm_Start.Show

End Sub