mdlmain.bas

证券公司监测内部客户资金流向的系统

Attribute VB_Name = "mdlMain"
Option Explicit
Public GDB          As ADODB.Connection
Public glClerkID    As Long
Public gsClerkCode  As String
Public gsClerkName  As String
Public gsPassWord   As String

Public QueryID      As Long

Public Sub Main()

  Set GDB = New ADODB.Connection
  GDB.Open "LC", , "DHZQSHHSLYYB"
  
  frmLogin.Show
 
End Sub