ggzlzc.bas

来自「工资管理数据库系统」· BAS 代码 · 共 13 行

Attribute VB_Name = "ggzlzc"
Option Explicit
Public xtlj As String
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