module1.bas

工资管理系统

Attribute VB_Name = "Module1"
Public ThisUserName As String       '用于保存用户名
Public ThisPassword As String       '用于保存密码
Public ThisStatus As String         '用于保存身份

Public Sub ShowError(ByVal msg As String)
    MsgBox msg, vbCritical + vbOKOnly, "工资管理系统"
End Sub