module1.bas

来自「车票信息系统用于vb课程设计是初级软件」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
'定义一个结构类型，存放以后要用到的全局变量值
Type udtApp
  logined As Boolean '是否登录标志
  uId As String '用户ID，即工号
  pwd As String '用户密码
  cnnstr As String '连接串
  auth As Integer '用户类型：管理员还是业务员
 serverName As String
  dbName As String
End Type
'定义一个结构型的全局变量myapp
Public myApp As udtApp