home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l406 / 4.ddi / TABLES.FR_ / TABLES.bin (.txt)
Encoding:
Visual Basic Form  |  1992-10-21  |  3.2 KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form fTables 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "<none>"
  5.    Height          =   3870
  6.    Icon            =   TABLES.FRX:0000
  7.    Left            =   465
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   3444
  12.    ScaleMode       =   0  'User
  13.    ScaleWidth      =   3036
  14.    Top             =   1230
  15.    Width           =   3135
  16.    Begin CommandButton NewTableButton 
  17.       Caption         =   "&New"
  18.       Height          =   374
  19.       Left            =   119
  20.       TabIndex        =   4
  21.       Top             =   121
  22.       Width           =   846
  23.    End
  24.    Begin CommandButton StructButton 
  25.       Caption         =   "&Design"
  26.       Height          =   374
  27.       Left            =   2026
  28.       TabIndex        =   2
  29.       Top             =   121
  30.       Width           =   846
  31.    End
  32.    Begin CommandButton MakeDynasetButton 
  33.       Caption         =   "&Open"
  34.       Height          =   374
  35.       Left            =   1073
  36.       TabIndex        =   1
  37.       Top             =   121
  38.       Width           =   846
  39.    End
  40.    Begin ListBox cTableList 
  41.       Height          =   2370
  42.       Left            =   120
  43.       Sorted          =   -1  'True
  44.       TabIndex        =   0
  45.       Top             =   840
  46.       Width           =   2760
  47.    End
  48.    Begin Label TableListLabel 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "Tables:"
  51.       Height          =   254
  52.       Left            =   119
  53.       TabIndex        =   3
  54.       Top             =   604
  55.       Width           =   2753
  56.    End
  57. Option Explicit
  58. Sub cTableList_DblClick ()
  59.   gfFromSQL = False
  60.   Call MakeDynasetButton_Click
  61. End Sub
  62. Sub Form_Load ()
  63.   gstTableFilter = GetINIString("TableFilter", "")
  64.   If gfDBOpenFlag = True Then
  65.     Caption = gstDBName + "." + gstDataBase
  66.   End If
  67.   'set the height and width
  68.   Height = 3870
  69.   Width = 3100
  70.   Top = 0
  71.   Left = 0
  72. End Sub
  73. Sub Form_Resize ()
  74.   If WindowState <> 1 Then
  75.     cTableList.Height = Height - 1350
  76.     cTableList.Width = Width - 320
  77.   End If
  78. End Sub
  79. Sub Form_Unload (Cancel As Integer)
  80.   Me.WindowState = 1
  81.   Cancel = True
  82. End Sub
  83. Sub MakeDynasetButton_Click ()
  84.   On Error Resume Next
  85.   If cTableList = "" Then
  86.     MsgBox "No Table Selected", 48
  87.     Exit Sub
  88.   End If
  89.   MsgBar "Opening Full Table Dynaset", True
  90.   gfFromSQL = False
  91.   SetHourGlass Me
  92.   'create a new dynaset form
  93.   gstDynaString = ""
  94.   If VDMDI.cSingleRecord = True Then
  95.     Dim dsform1 As New fDynaset
  96.     dsform1.Show
  97.   Else
  98.     Dim dsform2 As New fGridFrm
  99.     dsform2.Show
  100.   End If
  101.   ResetMouse Me
  102.   MsgBar "", False
  103. End Sub
  104. Sub NewTableButton_Click ()
  105.   If gfDBOpenFlag = False Then
  106.     MsgBox "No DataBase Open", 48
  107.     Exit Sub
  108.   End If
  109.   gfAddTableFlag = True
  110.   fTblStru.cTableName.Enabled = True
  111.   fTblStru.Show MODAL
  112. End Sub
  113. Sub StructButton_Click ()
  114.   If cTableList = "" Then
  115.     MsgBox "No Table Selected", 48
  116.     Exit Sub
  117.   End If
  118.   gfAddTableFlag = False
  119.   fTblStru.cTableName.Enabled = False
  120.   fTblStru.Show MODAL
  121. End Sub
  122. Sub TableListLabel_DblClick ()
  123.    RefreshTables cTableList
  124. End Sub
  125.