modvar.bas

来自「sql的实例源码」· BAS 代码 · 共 14 行

Attribute VB_Name = "modVar"
'定义变量
Public IsAdd As Boolean                       '是否为增加操作，否的时候为修改操作

'声明类模块变量
Public objBookInfo As New BookInfo      'BookInfo表对象
Public objBookType As New BookType      'BookType表对象
Public objCurBType As New BookType      '当前BookType表对象
Public objBorrowInfo As New BorrowInfo  'BorrowInfo表对象
Public objCardInfo As New CardInfo      'CardInfo表对象
Public objCardType As New CardType      'CardType表对象
Public objPasswd As New PasswdInfo      'PasswdInfo表对象
Public objCurPasswd As New PasswdInfo   'PasswdInfo表当前对象