home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD3288282000.psc / SP01mxMain.bas < prev    next >
Encoding:
BASIC Source File  |  2000-02-08  |  1.3 KB  |  32 lines
  1. Attribute VB_Name = "SP01mxMain"
  2. Option Explicit
  3. Public Const psEmpresa = "Nome Empresa"
  4. Public Const psGerador = "Gerador de Stored Procedures V.0.8 (14/01/2000)"
  5. Public Const psTraco = "-------------------------------------------------------------------------------------------"
  6. Public Const piQtdTabelas = 10
  7. Public Const piQtdCpoRelac = 7
  8. Public Const piQtdCpoTabRelac = 50
  9.  
  10. Public Enum enumTipoRelac
  11.     enumInnerJoin = 1
  12.     enumLeftJoin
  13.     enumRightJoin
  14.     enumFullJoin
  15. End Enum
  16.  
  17. Public paNomeTabelas(piQtdTabelas)                          As String
  18. Public paTipoRelac(piQtdTabelas)                            As enumTipoRelac
  19. Public paCamposFonte(piQtdTabelas, piQtdCpoRelac)           As String
  20. Public paCamposRelac(piQtdTabelas, piQtdCpoRelac)           As String
  21. Public paCamposTabRelac(piQtdTabelas, piQtdCpoTabRelac)     As String
  22. Public paCamposTabRelacChk(piQtdTabelas, piQtdCpoTabRelac)  As Boolean
  23. Public paCamposTabRelacAli(piQtdTabelas, piQtdCpoTabRelac)  As String
  24.  
  25. Public piProxTabela                                         As Integer
  26. Public piProxCpoRelac(piQtdTabelas)                         As Integer
  27. Public piProxCpoTabRelac(piQtdTabelas)                      As Integer
  28.     
  29. Public Sub Main()
  30.     SP01wxStoredProced.Show vbModal
  31. End Sub
  32.