module1.bas

HRMS是一个人力资源管理系统,非常好用,功能非常强大,希望大家的支持

Attribute VB_Name = "Module1"
Public czy As String, tb As String, tb1 As String, sql As String, sql1 As String, text As String
Public jbxxtb As String
Public blnAddRS As Boolean, blnAddPX As Boolean, blnAddKH As Boolean, blnAddHT As Boolean, blnAddPY As Boolean, blnAddBX As Boolean
Public blnAddJL As Boolean, blnAddCF As Boolean
Public HTygbh As String, PYygbh As String
Public KGBH As Integer, JBBH As Integer, deptMark As Integer
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Function Cnn() As ADODB.Connection    '定义函数
  Set Cnn = New ADODB.Connection
  '返回一个数据库连接
 Cnn.Open "Driver={SQL Server};Server=(local);Database=db_manpowerinfo;Uid=sa;Pwd="
End Function
Public Function cnStr() As String
  cnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
End Function
Public Function mytag() As String
  mytag = "本软件由吉林省明日科技有限公司制作  电话：[phone]  http://www.mingrisoft.com"
End Function