ggzlzc.bas

用VB编写的信用社代发工资接口转换程序,可根据代理单位提供的任何格式,在经过简单设置后转换成信用社可直接处理的业务程序

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