module1.bas

我VB遍的工资管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public tyhuhao1 As String
Public tyhuhao2 As String
Public userid As String
Public flag As Integer '定义标志变量
Public flag2 As Integer '定义标志变量
Public temphuhao1 As String '定义两个临时户号变量暂存户号
Public temphuhao2 As String
Public tempname As String
Public tempidcard As String
Public tempwenhua As String
Public temphunyin As String
Public tempname1 As String
Public tempguanxi1 As String
Public tempidcard1 As String
Public tempxingbie1 As String
Public tempmingzu1 As String
Public tempjiguan1 As String
Public tempdate11 As String
Public tempdate12 As String
Public tempdate13 As String
Public tempchushengdi1 As String
Public tempwenhua1 As String
Public temphunyin1 As String
Public tempzhiye1 As String
Public tempdanwei1 As String
Public tempqrriqi1 As String
Public tempqrdidian1 As String
Public temphubie2 As String
Public tempzhuzhi2 As String
Public temphuhao2a As String
Public tempriqi2 As String
Public tempname2 As String
Public tempqrriqi2 As String
Public tempqrdidian2 As String
Public temphubie As String
Public tempzhuzhi As String
Public Sub GetStatus(StatusString As String)
    mainfrm.StatusBar.Panels.Item(1).Text = StatusString
End Sub