module1.bas

人事管理系统

Attribute VB_Name = "Module1"
Option Explicit
Public FNAME As String
Public rs As Recordset
Public DataFile As Integer
Public Fl As Long
Public block As Integer
Public Const blocksize As Integer = 16384
Public Fragment As Integer
Public Chunk() As Byte
Public I As Integer
Public db As Database
Public flag As Integer