home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / RPRINT.ZIP / DBGridSample.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-09-19  |  5.0 KB  |  161 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      =   1035
  8.    ClientTop       =   1740
  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            =   270
  45.       OleObjectBlob   =   "DBGridSample.frx":0010
  46.       TabIndex        =   0
  47.       Top             =   2340
  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          =   735
  68.       Left            =   120
  69.       Picture         =   "DBGridSample.frx":0EEB
  70.       Stretch         =   -1  'True
  71.       Top             =   240
  72.       Width           =   2925
  73.    End
  74.    Begin VB.Shape Shape3 
  75.       BackColor       =   &H000000FF&
  76.       BackStyle       =   1  'Opaque
  77.       Height          =   150
  78.       Left            =   1710
  79.       Shape           =   3  'Circle
  80.       Top             =   2100
  81.       Width           =   165
  82.    End
  83.    Begin VB.Shape Shape2 
  84.       BackColor       =   &H000000FF&
  85.       BackStyle       =   1  'Opaque
  86.       Height          =   150
  87.       Left            =   7005
  88.       Shape           =   3  'Circle
  89.       Top             =   2100
  90.       Width           =   165
  91.    End
  92.    Begin VB.Line Line1 
  93.       BorderWidth     =   3
  94.       X1              =   2010
  95.       X2              =   6870
  96.       Y1              =   2175
  97.       Y2              =   2175
  98.    End
  99.    Begin VB.Label Label2 
  100.       AutoSize        =   -1  'True
  101.       BackColor       =   &H00FFFF00&
  102.       Caption         =   "Enter Your Name"
  103.       BeginProperty Font 
  104.          Name            =   "MS Sans Serif"
  105.          Size            =   9.75
  106.          Charset         =   177
  107.          Weight          =   700
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   240
  113.       Left            =   4500
  114.       TabIndex        =   3
  115.       Tag             =   "noprint"
  116.       Top             =   765
  117.       Width           =   1770
  118.    End
  119.    Begin VB.Label Label1 
  120.       Alignment       =   2  'Center
  121.       Appearance      =   0  'Flat
  122.       BackColor       =   &H80000005&
  123.       BorderStyle     =   1  'Fixed Single
  124.       Caption         =   "Print DBGrid with RobOcx"
  125.       BeginProperty Font 
  126.          Name            =   "Tahoma"
  127.          Size            =   11.25
  128.          Charset         =   177
  129.          Weight          =   700
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       ForeColor       =   &H80000008&
  135.       Height          =   330
  136.       Left            =   4395
  137.       TabIndex        =   1
  138.       Top             =   285
  139.       Width           =   3375
  140.    End
  141.    Begin VB.Shape Shape1 
  142.       BackColor       =   &H00FFFF00&
  143.       BackStyle       =   1  'Opaque
  144.       FillStyle       =   7  'Diagonal Cross
  145.       Height          =   1650
  146.       Left            =   4245
  147.       Top             =   45
  148.       Width           =   3840
  149.    End
  150. Attribute VB_Name = "DBGridSample"
  151. Attribute VB_GlobalNameSpace = False
  152. Attribute VB_Creatable = False
  153. Attribute VB_PredeclaredId = True
  154. Attribute VB_Exposed = False
  155. Private Sub Command2_Click()
  156. Unload Me
  157. End Sub
  158. Private Sub Form_Load()
  159. Data1.DatabaseName = App.Path & "\Publish.mdb"
  160. End Sub
  161.