module1.bas

vb 信息系统 登陆程序。。和资料的记录

Attribute VB_Name = "Module1"
Private Type huiyuan
     name As String * 8
     no As Integer
     year As Integer
     month As Integer
     jiguan As String * 15
     man As Boolean
     woman As Boolean
     email As String * 20
     leibie As String * 5
     zuiy As String * 8
     zuip As String * 5
     pingj As Integer
     pctx As Variant
     End Type
Public hy As huiyuan
Private Type hmn
          o As Long
          End Type
Public hn, b As Integer
Public hm As hmn