📄 module1.bas
字号:
Attribute VB_Name = "module"
' **********************************************************************
' 描 述:银龙图书管理系统
' 中国VB网收集整理 http://www.ChinaVB.net
' QQ交流群:13047826 14356878
' 发表源码或文章请发邮件到:info@chinavb.net
' **********************************************************************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 '设置文件路径
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -