module1.bas

来自「工资管理系统」· BAS 代码 · 共 9 行

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