home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rbprndmo / dbgridsa.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-27  |  5.0 KB  |  160 lines
  1. VERSION 5.00
  2. Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
  3. Begin VB.Form DBGridSample 
  4.    BackColor       =   &H00FFFFFF&
  5.    Caption         =   "DBGridSample"
  6.    ClientHeight    =   6960
  7.    ClientLeft      =   2520
  8.    ClientTop       =   2910
  9.    ClientWidth     =   9660
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   6960
  13.    ScaleWidth      =   9660
  14.    Begin VB.CommandButton Command2 
  15.       BackColor       =   &H00FFFFFF&
  16.       Caption         =   "Close"
  17.       Height          =   345
  18.       Left            =   8445
  19.       Style           =   1  'Graphical
  20.       TabIndex        =   4
  21.       Top             =   105
  22.       Width           =   810
  23.    End
  24.    Begin VB.TextBox Text1 
  25.       BeginProperty Font 
  26.          Name            =   "MS Sans Serif"
  27.          Size            =   9.75
  28.          Charset         =   177
  29.          Weight          =   700
  30.          Underline       =   0   'False
  31.          Italic          =   -1  'True
  32.          Strikethrough   =   0   'False
  33.       EndProperty
  34.       Height          =   330
  35.       Left            =   4410
  36.       TabIndex        =   2
  37.       Text            =   "Williams Gates  "
  38.       Top             =   1065
  39.       Width           =   3330
  40.    End
  41.    Begin MSDBGrid.DBGrid DBGrid1 
  42.       Bindings        =   "DBGridSample.frx":0000
  43.       Height          =   3555
  44.       Left            =   150
  45.       OleObjectBlob   =   "DBGridSample.frx":0010
  46.       TabIndex        =   0
  47.       Top             =   1980
  48.       Width           =   9210
  49.    End
  50.    Begin VB.Data Data1 
  51.       Caption         =   "Data1"
  52.       Connect         =   "Access"
  53.       DatabaseName    =   "Publish.mdb"
  54.       DefaultCursorType=   0  'DefaultCursor
  55.       DefaultType     =   2  'UseODBC
  56.       Exclusive       =   0   'False
  57.       Height          =   300
  58.       Left            =   1200
  59.       Options         =   0
  60.       ReadOnly        =   0   'False
  61.       RecordsetType   =   1  'Dynaset
  62.       RecordSource    =   "Customers"
  63.       Top             =   5010
  64.       Width           =   2220
  65.    End
  66.    Begin VB.Image Image1 
  67.       Height          =   1500
  68.       Left            =   600
  69.       Picture         =   "DBGridSample.frx":0EEB
  70.       Top             =   150
  71.       Width           =   3075
  72.    End
  73.    Begin VB.Shape Shape3 
  74.       BackColor       =   &H000000FF&
  75.       BackStyle       =   1  'Opaque
  76.       Height          =   150
  77.       Left            =   1590
  78.       Shape           =   3  'Circle
  79.       Top             =   1740
  80.       Width           =   165
  81.    End
  82.    Begin VB.Shape Shape2 
  83.       BackColor       =   &H000000FF&
  84.       BackStyle       =   1  'Opaque
  85.       Height          =   150
  86.       Left            =   7005
  87.       Shape           =   3  'Circle
  88.       Top             =   1740
  89.       Width           =   165
  90.    End
  91.    Begin VB.Line Line1 
  92.       BorderWidth     =   3
  93.       X1              =   1890
  94.       X2              =   6750
  95.       Y1              =   1815
  96.       Y2              =   1815
  97.    End
  98.    Begin VB.Label Label2 
  99.       AutoSize        =   -1  'True
  100.       BackColor       =   &H00FFFF00&
  101.       Caption         =   "Enter Your Name"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   177
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   240
  112.       Left            =   4500
  113.       TabIndex        =   3
  114.       Tag             =   "noprint"
  115.       Top             =   765
  116.       Width           =   1770
  117.    End
  118.    Begin VB.Label Label1 
  119.       Alignment       =   2  'Center
  120.       Appearance      =   0  'Flat
  121.       BackColor       =   &H80000005&
  122.       BorderStyle     =   1  'Fixed Single
  123.       Caption         =   "Print DBGrid with RobOcx"
  124.       BeginProperty Font 
  125.          Name            =   "Tahoma"
  126.          Size            =   11.25
  127.          Charset         =   177
  128.          Weight          =   700
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       ForeColor       =   &H80000008&
  134.       Height          =   330
  135.       Left            =   4395
  136.       TabIndex        =   1
  137.       Top             =   285
  138.       Width           =   3375
  139.    End
  140.    Begin VB.Shape Shape1 
  141.       BackColor       =   &H00FFFF00&
  142.       BackStyle       =   1  'Opaque
  143.       FillStyle       =   7  'Diagonal Cross
  144.       Height          =   1410
  145.       Left            =   4245
  146.       Top             =   45
  147.       Width           =   3840
  148.    End
  149. Attribute VB_Name = "DBGridSample"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Private Sub Command2_Click()
  155. Unload Me
  156. End Sub
  157. Private Sub Form_Load()
  158. Data1.DatabaseName = App.Path & "\Publish.mdb"
  159. End Sub
  160.