datatypedefine.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