modmain.bas

来自「library system for students..these is ve」· BAS 代码 · 共 44 行

Attribute VB_Name = "modMain"
Option Explicit
Global gblConnectionString As String

Public Enum DatabaseOperation
    None = 0
    Add = 1
    Edit = 2
End Enum

Public Enum colBookGrid
    colBookReferenceNumber = 0
    colBookTitle = 1
    colBookEdition = 2
    colBookVolume = 2
End Enum

Public Enum colPublisherGrid
    colPublisherID = 0
    colPublisherName = 1
End Enum

Public Enum colAuthorGrid
    colAuthorCheckBox = 0
    colAuthorID = 1
    colAuthorName = 2
End Enum

Public Enum colLibraryItemGrid
    colLibraryItemNo = 0
    colLibraryItemStatus = 1
End Enum


Public Sub Main()
    gblConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CLAHS;Data Source=(local)"
    'frmPublisher.Show
    'frmBorrower.Show
    frmBook.Show
End Sub