module1.bas

来自「ScienceOps has answers. Rapid Custom Alg」· BAS 代码 · 共 28 行

Attribute VB_Name = "Module1"
Option Explicit

Private Type t_Saram
    t_Name As String * 10
    t_Number As String * 10
    t_Dept As String * 10
    End Type

Public m_Fno As Integer
Public m_Saram As t_Saram
Public m_C_record As Long
Public m_Append_record As Long
Public m_All_record As Long

Public s_Fno As Integer
Public s_Saram As t_Saram
Public s_C_record As Long
Public s_Append_record As Long

Public s_All_record As Long

Public b_Fno As Integer
Public b_Saram As t_Saram
Public b_C_record As Long
Public b_Append_record As Long
Public b_All_record As Long