Module1.bas
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:1k
源码类别:

企业管理

开发平台:

Visual Basic

  1. Attribute VB_Name = "Module1"
  2. Public czy As String, tb As String, tb1 As String, sql As String, sql1 As String, text As String
  3. Public jbxxtb As String
  4. Public blnAddRS As Boolean, blnAddPX As Boolean, blnAddKH As Boolean, blnAddHT As Boolean, blnAddPY As Boolean, blnAddBX As Boolean
  5. Public blnAddJL As Boolean, blnAddCF As Boolean
  6. Public HTygbh As String, PYygbh As String
  7. Public KGBH As Integer, JBBH As Integer, deptMark As Integer
  8. 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
  9. Public Function Cnn() As ADODB.Connection    '定义函数
  10.   Set Cnn = New ADODB.Connection
  11.   '返回一个数据库连接
  12.  Cnn.Open "Driver={SQL Server};Server=(local);Database=db_manpowerinfo;Uid=sa;Pwd="
  13. End Function
  14. Public Function cnStr() As String
  15.   cnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  16. End Function
  17. Public Function mytag() As String
  18.   mytag = "本软件由吉林省明日科技有限公司制作  电话:(0431)4978981,4978982  http://www.mingrisoft.com"
  19. End Function