veriable.bas

vb+sqlserver实现的人事管理系统

Attribute VB_Name = "veriable"
Public Connect_Num As Integer
Public rs1 As ADODB.Recordset '用户管理专用
Public rs2 As ADODB.Recordset '员工信息专用
Public rs3  As ADODB.Recordset '考勤专用
Public rs4  As ADODB.Recordset '添加工资专用
Public rs5 As ADODB.Recordset '添加基本数据使用
Public rs6 As ADODB.Recordset '浏览
Public UserName As String
Public b As Boolean
Public SqlStmt As String
Public RetVal As Double