⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 datatypedefine.bas

📁 群里的通讯录管理 供参考 学习专用 无其他商业意义 源码较为简单
💻 BAS
字号:
Attribute VB_Name = "datatypedefine"
'***********************************************************************
'* 文件名: datatypedefine.bas
'* 说  明: 数据类型定义模块
'* 版  本: 2005.12.14 颜志军 初版
'***********************************************************************

Option Explicit

'组信息
Public Type GroupInfo
    groupid             As Long         '组ID
    groupName           As String       '组名
End Type

'人员信息
Public Type PeopleInfo
    peopleId            As Long         '人员编号
    groupid             As Long         '组ID
    peopleName          As String       '姓名
    sex                 As String       '性别
    companyName         As String       '公司名称
    companyDepartment   As String       '部门
    appointment         As String       '职位
    companyAddress      As String       '公司地址
    companyPostcode     As String       '公司邮编
    companyPhone        As String       '公司电话
    companyFax          As String       '公司传真
    compnaywebsite      As String       '公司网址
    familyAddress       As String       '家庭地址
    familyPostcode      As String       '家庭邮编
    familyPhone         As String       '家庭电话
    mobilePhone         As String       '手机/小灵通
    homepage            As String       '个人网站
    email               As String       '电子邮件
    emailbak            As String       '备用电子邮件
    MSN                 As String       'MSN
    QQ                  As String       'QQ
    QQbak               As String       '第二QQ号码
    otherInfo           As String       '备注
End Type

'像片信息
Public Type PhotoInfo
    photoId             As Long         '像片ID
    peopleId            As Long         '像片主人ID
    photoFile           As String       '像片存储文件名
End Type

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -