-

来自「酒店宾馆管理系统 包括住房管理 查询客户还有住客人数」· 代码 · 共 19 行

Attribute VB_Name = "Module1"
    Type guest                      '声明全局自定义数据类型
        strName As String * 8
        blnSex As Boolean           'True为男，False为女
        bytAge As Byte              '年龄
        strCompany As String * 40   '工作单位
        strTitle As String * 20     '职务职称
        strRoom As String * 4       '房间号
        dtmIn As Date               '入住日期
        dtmOut As Date              '离开日期
        blnIsIn As Boolean          '是否还在,True未退房
    End Type
    				    '声明全局变量
    Public strGuestData As String   '“住客信息.txt”文件路径
    Public strGuestNum As String    '“住客数.txt”文件路径
    Public strTitle As String       '“职称.txt”文件路径
    Public strRoomNo As String      '“房间号.txt”文件路径