modulesm.bas

这是一个人事管理系统演示版,用 vb和sql 开发的

Attribute VB_Name = "ModuleSM"
'人事管理系统的连接字串
Global RSGLConnStr As String
Global gintMode As String
Global rss As ADODB.Recordset
Global INIfileName As String
'操作员类型
Public Type Operator
'操作员号
  username As String
'操作员密码
  password As String
  authority As String
End Type

'定义全局的操作员变量
Global RSGLOperator As Operator