ggzlzc.bas

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

Attribute VB_Name = "ggzlzc"
Public hxfyn As Integer
Public xtlj As String
Option Explicit
Public wws As Workspace
Public wdb As Database
Public wtb1 As Recordset
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpbuffer As String, ByVal nsize As Long) As Long



Sub Main()
    xtlj = App.Path + "\"
    form1.Show
End Sub