global.bas

来自「This application i made for handle simpl」· BAS 代码 · 共 45 行

Attribute VB_Name = "mdlGlobal"


Option Explicit

Public exString As String

Public Const DATEFORMAT As String = "yyyy-MM-dd"
Public Const INTNUMFORMAT As String = "#,##0"

Public lastColumnIndex As Long


Public Enum FormQuery
  Add
  Delete
  Edit
  None
End Enum

Public Enum SelectedSubMenu
  None
  Add
  Edit
  Delete
  Refresh
  Detail
  Report
End Enum


Public Sub ApplicationInitialize()

  sqlx = ""
  exString = ""
  lastColumnIndex = 0

  connString = ""

  Call LoadConfig(False)

End Sub