home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch06code / datagrid.frm < prev    next >
Text File  |  1994-09-25  |  3KB  |  104 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "SQL Statement and Results"
  4.    ClientHeight    =   5520
  5.    ClientLeft      =   690
  6.    ClientTop       =   1245
  7.    ClientWidth     =   8430
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   400
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   5985
  18.    Left            =   600
  19.    LinkTopic       =   "Form2"
  20.    MDIChild        =   -1  'True
  21.    ScaleHeight     =   5520
  22.    ScaleWidth      =   8430
  23.    Top             =   870
  24.    Width           =   8610
  25.    Begin VB.TextBox Text1 
  26.       Height          =   735
  27.       Left            =   2160
  28.       MultiLine       =   -1  'True
  29.       ScrollBars      =   2  'Vertical
  30.       TabIndex        =   2
  31.       Text            =   "Text1"
  32.       Top             =   120
  33.       Width           =   6135
  34.    End
  35.    Begin VB.CommandButton Command1 
  36.       Caption         =   "Close"
  37.       Height          =   255
  38.       Left            =   3240
  39.       TabIndex        =   1
  40.       Top             =   5160
  41.       Width           =   1695
  42.    End
  43.    Begin VB.Data Data1 
  44.       Caption         =   "Data1"
  45.       Connect         =   "Access"
  46.       DatabaseName    =   ""
  47.       Exclusive       =   0   'False
  48.       Height          =   270
  49.       Left            =   360
  50.       Options         =   0
  51.       ReadOnly        =   0   'False
  52.       RecordsetType   =   1  'Dynaset
  53.       RecordSource    =   ""
  54.       Top             =   5160
  55.       Visible         =   0   'False
  56.       Width           =   1935
  57.    End
  58.    Begin VB.Label Label1 
  59.       Caption         =   "SQL Statement:"
  60.       BeginProperty Font 
  61.          name            =   "MS Sans Serif"
  62.          charset         =   0
  63.          weight          =   700
  64.          size            =   12
  65.          underline       =   0   'False
  66.          italic          =   0   'False
  67.          strikethrough   =   0   'False
  68.       EndProperty
  69.       Height          =   375
  70.       Left            =   120
  71.       TabIndex        =   3
  72.       Top             =   240
  73.       Width           =   2055
  74.    End
  75.    Begin MSDBGrid.DBGrid DBGrid1 
  76.       Prop68          =   "DATAGRID.frx":0000
  77.       Height          =   4095
  78.       Left            =   0
  79.       OleObjectBlob   =   "DATAGRID.frx":0006
  80.       TabIndex        =   0
  81.       Top             =   960
  82.       Width           =   8415
  83.    End
  84. End
  85. Attribute VB_Name = "Form2"
  86. Attribute VB_Creatable = False
  87. Attribute VB_Exposed = False
  88.  
  89. Private Sub Command1_Click()
  90.     Unload Me
  91. End Sub
  92.  
  93.  
  94. Private Sub Form_Load()
  95.     Me.Height = 5985
  96.     Me.Width = 8610
  97.     Me.Left = 1
  98.     Me.Top = 1
  99.     Data1.DatabaseName = MydbName
  100.     Data1.RecordSource = MyrcSource
  101.     Text1.Text = MyrcSource
  102. End Sub
  103.  
  104.