ggzlzc.bas

access+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