module1.bas

图书进销存系统里面有很的多版块是图书管理系统全集

Attribute VB_Name = "module"

' **********************************************************************
'  描  述：银龙图书管理系统
'  中国VB网收集整理  http://www.ChinaVB.net
'  QQ交流群：13047826  14356878
'  发表源码或文章请发邮件到:[e-mail]
' **********************************************************************Dim i As Integer

Public BookId As String  '借书证号码
Public BookNum As Integer  '可以借书的册数
Public BookDay As Integer  '可以借书的天数
Public FaCost As Single  '超出一天的罚款
Public LoginFlag As Boolean '是否登录
Public BookBianHao As String '图书编号
Public SearchFlag As Boolean '是否查找

Public mAddEditId As String
Public mAddEditIdName As String
Public mAddEditIdClass As String
Public mAddEditIdDepart As String
Public mAddEditIdZhi As String
Public mSave As Boolean

Public DBpath As String '数据库路径
Public SETpath As String '设置文件路径