ggzlzc.bas

银行代发薪资管理系统,本代码总觉得从哪里见过.但就是一时想不起来了,算了,不关我的事,呵呵.做此方面软件的朋友可以拿去借鉴

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