happlication.cls

即时通讯

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "HApplication"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :应用程序管理类
'*    功 能 描 述 :所有与应用程序相关的变量及操作
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/08/17
'**************************************
Option Explicit

Public m_applicationName   As String       ' 应用程序的名称
Public m_softwareCo        As String       ' 软件开发公司名称

Public m_companyName       As String       ' 公司名称
Public m_companyEnglishName As String      ' 公司英文名称
Public m_companyAddress    As String       ' 公司地址
Public m_companyTell       As String       ' 公司电话
Public m_companyFax        As String       ' 公司传真
Public m_companyWeb        As String       ' 公司网址
Public m_companyEmail      As String       ' 公司EMAIL

Public m_userName          As String       ' 登陆进系统的用户的名子
Public m_userPassword      As String       ' 登陆进系统的用户的密码
Public m_userId            As String       ' 登陆成功的用户ID
Public m_dimission         As String       ' 用户的离职时间

Public m_databaseCon       As HDatabaseCon ' 数据库连接对象
Public m_loginSucceeded    As Boolean      ' 用户是否登陆成功

Public m_queryResultId     As String       ' 查询窗体返回的选择的记录ID
Public m_materialType      As String       ' 物料的种类

Private Sub Class_Initialize()
    ' 对象的初始化处理
    Set m_databaseCon = New HDatabaseCon
    
    m_applicationName = "山度ERP管理系统"
    m_softwareCo = "温州山度仪器有限公司"
  
    m_companyName = "温州山度仪器有限公司"                         ' 公司名称
    m_companyEnglishName = "WENZHOU SUNDOO INSTRUMENT CO.,LTD."    ' 公司英文名称
    m_companyAddress = "中国·浙江省温州市炬光园蛟凤北路108号"     ' 公司地址
    m_companyTell = "0577-81989912"                                ' 公司电话
    m_companyFax = "0577-88390155"                                 ' 公司传真
    m_companyWeb = "www.sundoo.com"                                ' 公司网址
    m_companyEmail = "[e-mail]"                           ' 公司EMAIL

End Sub