home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / dbtable / dbtable.$ / FORM1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-17  |  3.8 KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "dBASE Table Entry"
  5.    ClientHeight    =   3540
  6.    ClientLeft      =   1875
  7.    ClientTop       =   1770
  8.    ClientWidth     =   4680
  9.    ForeColor       =   &H00FFFFFF&
  10.    Height          =   4230
  11.    Icon            =   FORM1.FRX:0000
  12.    Left            =   1815
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   3540
  15.    ScaleWidth      =   4680
  16.    Top             =   1140
  17.    Width           =   4800
  18.    Begin TrueGrid FieldTable 
  19.       AllowArrows     =   -1  'True
  20.       AllowTabs       =   -1  'True
  21.       BackColor       =   &H00C0C0C0&
  22.       Editable        =   -1  'True
  23.       EditDropDown    =   -1  'True
  24.       ExposeCellMode  =   0  'Expose upon selection
  25.       FetchMode       =   0  'By cell
  26.       HeadingHeight   =   1
  27.       Height          =   2445
  28.       HorzLines       =   2  '3D
  29.       Layout          =   FORM1.FRX:0302
  30.       Left            =   90
  31.       LinesPerRow     =   1
  32.       MarqueeUnique   =   -1  'True
  33.       SplitPropsGlobal=   -1  'True
  34.       SplitTabMode    =   0  'Don't tab across splits
  35.       TabCapture      =   0   'False
  36.       TabIndex        =   2
  37.       Top             =   450
  38.       UseBookmarks    =   -1  'True
  39.       Width           =   4470
  40.       WrapCellPointer =   -1  'True
  41.    End
  42.    Begin Label ColumnPrompt 
  43.       BackColor       =   &H00C0C0C0&
  44.       Caption         =   "Prompt String"
  45.       Height          =   375
  46.       Left            =   120
  47.       TabIndex        =   1
  48.       Top             =   3000
  49.       Width           =   3855
  50.    End
  51.    Begin Label Label1 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "Enter dBASE field structure below:"
  54.       Height          =   255
  55.       Left            =   120
  56.       TabIndex        =   0
  57.       Top             =   120
  58.       Width           =   3015
  59.    End
  60.    Begin Menu TG_Exit 
  61.       Caption         =   "&Exit!"
  62.    End
  63.    Begin Menu TG_Help 
  64.       Caption         =   "&Help"
  65.       Begin Menu TG_Index 
  66.          Caption         =   "&Index"
  67.       End
  68.       Begin Menu TG_UsingHelp 
  69.          Caption         =   "&Using Help"
  70.       End
  71.       Begin Menu TG_SepBar 
  72.          Caption         =   "-"
  73.       End
  74.       Begin Menu TG_About 
  75.          Caption         =   "&About dBTable..."
  76.       End
  77.    End
  78. ' ---------------------------------------------------------
  79. '       Copyright (C) 1993 Apex Software Corporation
  80. ' You have a royalty-free right to use, modify, reproduce,
  81. ' and distribute the TrueGrid sample application files
  82. ' (and/or any modified version) in any way you find useful,
  83. ' provided that you agree that Apex Software Corporation
  84. ' has no warranty, obligations, or liability for any sample
  85. ' application files.
  86. ' ---------------------------------------------------------
  87. Sub FieldTable_Append ()
  88.     xFieldTable_Append
  89. End Sub
  90. Sub FieldTable_ColumnChange ()
  91.     xFieldTable_ColumnChange
  92. End Sub
  93. Sub FieldTable_Fetch (Row As Long, Col As Integer, Value As String)
  94.     xFieldTable_Fetch Row, Col, Value
  95. End Sub
  96. Sub FieldTable_KeyPress (KeyAscii As Integer)
  97.     xFieldTable_KeyPress KeyAscii
  98. End Sub
  99. Sub FieldTable_Update (Row As Long, Col As Integer, Value As String)
  100.     xFieldTable_Update Row, Col, Value
  101. End Sub
  102. Sub FieldTable_Validate (Row As Long, Col As Integer, Value As String, Cancel As Integer)
  103.     xFieldTable_Validate Row, Col, Value, Cancel
  104. End Sub
  105. Sub Form_Load ()
  106.     xForm1_Load
  107. End Sub
  108. Sub Form_Unload (Cancel As Integer)
  109.     ' Unload Help in case it is left open
  110.     HelpQuit Form1
  111. End Sub
  112. Sub TG_About_Click ()
  113.     About.Show 1
  114. End Sub
  115. Sub TG_Exit_Click ()
  116.     Unload Form1
  117.     End
  118. End Sub
  119. Sub TG_Index_Click ()
  120.     HelpContext Form1, HELP_DBTABLE
  121. End Sub
  122. Sub TG_UsingHelp_Click ()
  123.     HelpOnHelp Form1
  124. End Sub
  125.