Module1.bas
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:1k
- 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 = "本软件由吉林省明日科技有限公司制作 电话:(0431)4978981,4978982 http://www.mingrisoft.com"
- End Function