home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / join.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  4.5 KB  |  153 lines
  1. VERSION 4.00
  2. Begin VB.Form frmJoin 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Join Tables"
  5.    ClientHeight    =   2025
  6.    ClientLeft      =   1125
  7.    ClientTop       =   1560
  8.    ClientWidth     =   5910
  9.    Height          =   2430
  10.    HelpContextID   =   2016131
  11.    Icon            =   "JOIN.frx":0000
  12.    Left            =   1065
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2025
  18.    ScaleWidth      =   5910
  19.    Top             =   1215
  20.    Width           =   6030
  21.    Begin VB.CommandButton cmdClearJoins 
  22.       Caption         =   "C&lear All Joins"
  23.       Height          =   372
  24.       Left            =   2040
  25.       TabIndex        =   7
  26.       Top             =   1560
  27.       Width           =   1812
  28.    End
  29.    Begin VB.CommandButton cmdClose 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "&Close"
  32.       Height          =   372
  33.       Left            =   3960
  34.       TabIndex        =   6
  35.       Top             =   1560
  36.       Width           =   1812
  37.    End
  38.    Begin VB.ListBox lstFields2 
  39.       BackColor       =   &H00FFFFFF&
  40.       Height          =   1200
  41.       Left            =   3960
  42.       TabIndex        =   4
  43.       Top             =   300
  44.       Width           =   1815
  45.    End
  46.    Begin VB.ListBox lstFields1 
  47.       BackColor       =   &H00FFFFFF&
  48.       Height          =   1200
  49.       Left            =   2040
  50.       TabIndex        =   3
  51.       Top             =   300
  52.       Width           =   1815
  53.    End
  54.    Begin VB.CommandButton cmdAddJoin 
  55.       Caption         =   "&Add Join to Query"
  56.       Enabled         =   0   'False
  57.       Height          =   372
  58.       Left            =   120
  59.       TabIndex        =   1
  60.       Top             =   1560
  61.       Width           =   1812
  62.    End
  63.    Begin VB.ListBox lstTables 
  64.       BackColor       =   &H00FFFFFF&
  65.       Height          =   1200
  66.       Left            =   120
  67.       MultiSelect     =   1  'Simple
  68.       TabIndex        =   0
  69.       Top             =   300
  70.       Width           =   1815
  71.    End
  72.    Begin VB.Label lblLabels 
  73.       Alignment       =   2  'Center
  74.       Caption         =   "Select Fields to Join on: "
  75.       Height          =   195
  76.       Index           =   0
  77.       Left            =   2040
  78.       TabIndex        =   5
  79.       Top             =   45
  80.       Width           =   3735
  81.    End
  82.    Begin VB.Label lblLabels 
  83.       AutoSize        =   -1  'True
  84.       Caption         =   "Select Table Pair: "
  85.       Height          =   195
  86.       Index           =   1
  87.       Left            =   120
  88.       TabIndex        =   2
  89.       Top             =   45
  90.       Width           =   1305
  91.    End
  92. Attribute VB_Name = "frmJoin"
  93. Attribute VB_Creatable = False
  94. Attribute VB_Exposed = False
  95. Option Explicit
  96. Dim mtblTable1 As String
  97. Dim mtblTable2 As String
  98. Private Sub cmdAddJoin_Click()
  99.   Dim i As Integer
  100.   frmQuery.lstJoinFields.AddItem mtblTable1 & "." & lstFields1 & "=" & mtblTable2 & "." & lstFields2
  101.   For i = 0 To lstTables.ListCount - 1
  102.     lstTables.Selected(i) = False
  103.   Next
  104. End Sub
  105. Private Sub lstFields1_Click()
  106.   If Len(lstFields2.Text) > 0 Then
  107.     cmdAddJoin.Enabled = True
  108.   End If
  109. End Sub
  110. Private Sub lstFields2_Click()
  111.   If Len(lstFields1.Text) > 0 Then
  112.     cmdAddJoin.Enabled = True
  113.   End If
  114. End Sub
  115. Private Sub cmdClearJoins_Click()
  116.   frmQuery.lstJoinFields.Clear
  117. End Sub
  118. Private Sub cmdClose_Click()
  119.   Unload Me
  120. End Sub
  121. Private Sub lstTables_Click()
  122.   Dim i As Integer
  123.   Dim tblTableDefObj As TableDef
  124.   Dim fld As Field
  125.   mtblTable1 = gsNULL_STR
  126.   mtblTable2 = gsNULL_STR
  127.   For i = 0 To lstTables.ListCount - 1
  128.     If lstTables.Selected(i) Then
  129.       If Len(mtblTable1) = 0 Then
  130.         mtblTable1 = lstTables.List(i)
  131.       Else
  132.         mtblTable2 = lstTables.List(i)
  133.         Exit For
  134.       End If
  135.     End If
  136.   Next
  137.   If Len(mtblTable2) = 0 Then Exit Sub   'only one table selected
  138.   Set tblTableDefObj = gdbCurrentDB.TableDefs(mtblTable1)
  139.   ListItemNames tblTableDefObj.Fields, lstFields1, True
  140.   Set tblTableDefObj = gdbCurrentDB.TableDefs(mtblTable2)
  141.   ListItemNames tblTableDefObj.Fields, lstFields2, True
  142. End Sub
  143. Private Sub Form_Load()
  144.   Dim i As Integer
  145.   For i = 0 To frmQuery.lstTables.ListCount - 1
  146.     If frmQuery.lstTables.Selected(i) Then
  147.       lstTables.AddItem frmQuery.lstTables.List(i)
  148.     End If
  149.   Next
  150.   Me.Top = frmMDI.Top + frmQuery.Top + frmQuery.txtCriteria.Top + 1300
  151.   Me.Left = frmQuery.Left + 1500
  152. End Sub
  153.