module1.bas

职工管理系统

Attribute VB_Name = "Module1"
Type zg
    zgh As Integer
    zgxm As String * 8
    zgxb As Integer
    zggz As Single
    zgbt As Single
End Type
Public zg1 As zg

Type zgrad
    zgxm As String * 8
    zgxb As Integer
    zggz As Single
    zgbt As Single
End Type
Public zgr1 As zgrad