module1.bas

因为不同的排序方法适应不同的应用环境和要求

Attribute VB_Name = "Module1"
       Public usertype As Integer '定义用户类型
       Public username As String '保存用户帐号
       Public bookno As String, bookname As String '保存书号，书名
       Public exitType As Integer '定义退出主窗体类型，0为退出，1为重新登陆
       Public con As New ADODB.Connection '定义全局变量连接数据库
       Public rs As New ADODB.Recordset '定义全局变量，保存数据集
       Public pwd As String '记录下密码