📄 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 = "sundoo@sundoo.com" ' 公司EMAIL
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -