Next Chapter 68 Declaration Module

PROJECT SOURCE CODE

SPONSORED LINKS

Declaration Module

Public Conn As New ADODB.Connection

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public drv As Drive

Public SQL As String

Public Const FlexAlignRight = 7

Public Const FlexAlignCenter = 4

Public Const FlexAlignLeft = 1

Public Const Inch = 1440

Public ServerName As String

Public UserName As String

Public Password As String

Public Expiry As Boolean

Public ConnectString As String

Public ShapeConnectString As String

Public Title1 As String

Public Title2 As String

Public Title3 As String

Public SelectedDataFile As String

Public SelectedConstFile As String

Public LoginSucceeded As Boolean

Public AdminUser As Boolean

Public LinkDatabase As Boolean

Public FolderRoot As String

Public Type CompanyData

CompCode As String

Company As String

Address1 As String

Address2 As String

Address3 As String

LAV As Boolean

LstNo As String

LstDate As Date

CstNo As String

CstDate As String

Ph_O As String

Ph_R As String

Fax As String

ContactPerson As String

Email As String

Website As String

Terms1 As String

Terms2 As String

Terms3 As String

FromDate As Date

ToDate As Date

End Type

Public Enum ListSelectAction

SelectAll = 0

SelectNone = 1

SelectReverse = 2

End Enum

Public Enum BalancePostingMode

ADDPosting = 0

EditPosting = 1

End Enum

Public Enum DebitCredit

Debit = 0

Credit = 1

End Enum

Public SelectedCompany As CompanyData

Public fso As Scripting.FileSystemObject

Public hos_name As String

Public hos_add As String

Public EDITREF As String

Public Type VoucherDataType

VType As String

Vno As String

vDate As Date

AcCode As String

ACContra As String

DrAmt As Double

CrAmt As Double

DrCr As String

Narration1 As String

Narration2 As String

PaymentType As String

End Type

Public VoucherData As VoucherDataType