Attribute VB_Name = "define_var"
Public TotalString1(8) As String  'define 32 byte array,32byte*8=256byteA1
Public TotalString2(8) As String  'define 32 byte array'                A2
Public TotalString3(8) As String  'define 32 byte array                 A3
Public TotalString4(8) As String 'define 32 byte array                  A4
Public TotalString5(8) As String  'define 32 byte array                 A5
Public TotalString6(8) As String  'define 32 byte array                 A6
Public TotalString7(8) As String  'define 32 byte array                 A7

Public frmB1_TotalStr(8) As String  'define 32 byte array=A1+A2+..+A8


Public convert_code(13) As Integer
Public ConvertFlag As Integer
Public ConvertFlag1 As Integer
Public Db1ConvertFlag As Integer
Public Db2ConvertFlag1 As Integer

Public chk_code As String

Public ExitFlag As Integer
Public COM_var As String



Public frm_1_totalstr(8) As String '資料庫(kù)_1

Public frm_2_totalstr(8) As String '資料庫(kù)_2

Public frm_3_totalstr(8) As String '資料庫(kù)_3

Public frm_4_totalstr(8) As String '資料庫(kù)_4

Public frm_5_totalstr(8) As String '資料庫(kù)_5

Public frm_6_totalstr(8) As String '資料庫(kù)_6

Public frm_7_totalstr(8) As String '資料庫(kù)_7


Public frm_str  As String '"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"=32BYTE

Public ss As String     'path name