ggzlzc.bas

来自「VB工资管理系统,简单的实现公司等部门的工资管理」· BAS 代码 · 共 16 行

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