用户登录.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