gzgl.bas

工资管理系统（VB）基于vb开发的工资管理系统,希望大家有用

Attribute VB_Name = "gzglbas"
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 hxfbds As String '表达式
Public hxfyn As Integer 'YES NO标记
Public yhdw As String '用户单位
Public syr As String '使用人
Public SYRMM As String
Public dwdh As String '单位代号
Public dwccklb As String '单位长城卡类别
Public hxfyear As String * 4 '库的年份
Public hxfmath As String * 2 '库的月份
Public hxfday As String * 2
Public hxfxmmc As String
Public xtlj As String '系统路径
Public dqklj As String '当前库路径
Public hxfdbdk As Boolean '月库打开标记
Public LSDBDK As Boolean
Public hxfbm As String
Public ws As Workspace
Public db As Database
Public tb1 As Recordset
Public tb2 As Recordset
Public tb3 As Recordset
Public wws As Workspace
Public wdb As Database
Public wtb1 As Recordset
Public SQL As String
Public HXFTHZ As Currency '返回值(货币型)
Public HXFTHZD As String '返回字段名
Public HXFFHBJ As Boolean '返回标记
Public HXFTHTJ As String
Public hxfi As Long '计数器
Public file1 As String
Public file2 As String
Public lswjlj As String
Public hxfxlh As Long
Public HXFSC As Long
Public hxfxlhbj As Boolean
Public HXFGH As String * 6
Public hxfsdbj As Boolean

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpbuffer As String, ByVal nsize As Long) As Long
Public Function getwindowsdir() As String
    Dim strbuf As String
    strbuf = Space(80)
    If GetWindowsDirectory(strbuf, 80) > 0 Then
       getwindowsdir = UCase$(strbuf)
    End If
End Function

Sub Main()
   Dim HXFLJ As String
   Dim HXFYE As Integer
   Dim HXFMA As Integer
   xtlj = App.Path + "\"
   Set wws = DBEngine.Workspaces(0)
   Set ws = DBEngine.Workspaces(0)
   Set wdb = wws.OpenDatabase(xtlj + "dwxx.mdb")
   Set wtb1 = wdb.OpenRecordset("注册标记", dbOpenTable)
   wtb1.MoveFirst
   If wtb1("注册标记") = False Then
      hxfyn = MsgBox("系统必须注册才能运行,请运行注册程序！", 48)
   Else
      hxfxlhbj = True
      winlj = getwindowsdir()
      winlj = Left(Trim$(winlj), Len(Trim$(winlj)) - 1) & "\WINGZZC.DLL"
      Open winlj For Random As #1 Len = 10
      Get #1, 1, HXFSC
      Get #1, 2, hxfxlh
      HXFYE = Val(Left(Str(HXFSC), 5))
      HXFMA = Val(Right(Left(Str(HXFSC), 7), 2))
      'If (HXFYE = Year(Date) And Month(Date) - HXFMA <= 2) Or (HXFYE = Year(Date) - 1 And 12 - HXFMA + Month(Date) < 4) Then
      '   GoTo OK:
      'Else
      '     If hxfxlh <> Int(HXFSC / 21223 * 2091708) Then
      '        hxfxlhbj = False
      '        Frm正版.Show 1
      '     Else
      '        GoTo OK:
      '     End If
      'End If
OK:      If hxfxlhbj = True Then
         Close #1
         Set wtb1 = wdb.OpenRecordset("dwxx", dbOpenTable)
         wtb1.MoveFirst
         yhdw = wtb1("单位名称")
         syr = wtb1("系统使用人")
         SYRMM = wtb1("使用人密码")
         dwdh = wtb1("单位代号")
         dwccklb = wtb1("长城卡类别")
         Load frmSplash
         Load frmMAIN
         Load frmLogin
         frmMAIN.Show
         frmSplash.Show
      End If
   End If
   wdb.Close
   hxfdbdk = False
End Sub

Public Sub TEXTF(CTL As Control)
     CTL.SelStart = 0
     CTL.SelLength = Len(CTL.Text)
End Sub