通用模块.bas

来自「好用啊」· BAS 代码 · 共 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”文件路径