Programming Tool Box/SIMS_2.iso/tool/various/dbgrid/demoform.frm

Text File | 1995-02-27 | 23KB | 910 lines

VERSION 2.00
Begin Form DemoForm
   Caption         =   "DBT Grid Demonstration Program"
   ClientHeight    =   4020
   ClientLeft      =   1065
   ClientTop       =   1980
   ClientWidth     =   7365
   FontBold        =   -1  'True
   FontItalic      =   0   'False
   FontName        =   "Wingdings"
   FontSize        =   7.5
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   Height          =   4950
   Left            =   1005
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   ScaleHeight     =   4020
   ScaleWidth      =   7365
   Top             =   1110
   Width           =   7485
   Begin DBTGrid DBTGrid1
      AbortEditKey    =   27
      About           =   "Copyright (C)-1993, by Douglas A. Bebber"
      BackColor       =   &H00FFFFFF&
      BeginEditKey    =   113
      ColumnHeading   =   ""
      Columns         =   9
      DataModel       =   0  '0-Small
      EndEditKey      =   13
      ForeColor       =   &H00000000&
      Height          =   3075
      Horizontals     =   1  '1-True
      Left            =   120
      RowLabels       =   2  '2-RowNumbers
      Rows            =   30
      SelectBackColor =   &H00000000&
      SelectForeColor =   &H00FFFFFF&
      TabIndex        =   12
      Text            =   ""
      Top             =   660
      Width           =   7155
   End
   Begin TextBox TopVRow
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   255
      Left            =   5940
      TabIndex        =   11
      Top             =   300
      Width           =   675
   End
   Begin TextBox NVisibleRows
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   255
      Left            =   3120
      TabIndex        =   7
      Top             =   300
      Width           =   735
   End
   Begin TextBox RowPosition
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   255
      Left            =   780
      TabIndex        =   2
      Top             =   300
      Width           =   675
   End
   Begin TextBox LeftColumn
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   195
      Left            =   5940
      TabIndex        =   9
      Top             =   0
      Width           =   615
   End
   Begin TextBox NVisibleColumns
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   255
      Left            =   3180
      TabIndex        =   5
      Top             =   0
      Width           =   615
   End
   Begin TextBox ColumnPosition
      BorderStyle     =   0  'None
      Enabled         =   0   'False
      Height          =   255
      Left            =   780
      TabIndex        =   3
      Top             =   0
      Width           =   615
   End
   Begin Label Label4
      Caption         =   "Top Visible Row:"
      Height          =   255
      Left            =   4140
      TabIndex        =   10
      Top             =   300
      Width           =   1515
   End
   Begin Label Label2
      Caption         =   "Visible Rows:"
      Height          =   255
      Left            =   1860
      TabIndex        =   6
      Top             =   300
      Width           =   1215
   End
   Begin Label RowLabel
      Caption         =   "Row:"
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   300
      Width           =   495
   End
   Begin Label Label3
      Caption         =   "Left Visible Column:"
      Height          =   195
      Left            =   4200
      TabIndex        =   8
      Top             =   0
      Width           =   1695
   End
   Begin Label Label1
      Caption         =   "Visible Columns:"
      Height          =   255
      Left            =   1680
      TabIndex        =   4
      Top             =   0
      Width           =   1455
   End
   Begin Label ColumnLabel
      Caption         =   "Column:"
      Height          =   255
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   735
   End
   Begin Menu MNU_GridSettings
      Caption         =   "&Grid Settings"
      Begin Menu MNU_ColS
         Caption         =   "&Columns"
         Begin Menu MNU_ColumnLabels
            Caption         =   "&Column labels"
            Begin Menu MNU_ColLabelsNone
               Caption         =   "&None"
            End
            Begin Menu MNU_ColLabelLetters
               Caption         =   "&Letters"
            End
            Begin Menu MNU_ColLabNum
               Caption         =   "&Numbers"
            End
            Begin Menu MNU_ColLabelUser
               Caption         =   "&User defined"
               Checked         =   -1  'True
            End
         End
         Begin Menu MNU_ColFix
            Caption         =   "&Fix"
            Begin Menu MNU_ColFixTrue
               Caption         =   "&True"
            End
            Begin Menu MNU_ColFixFalse
               Caption         =   "&False"
               Checked         =   -1  'True
            End
         End
         Begin Menu MNU_ColResize
            Caption         =   "&Resize"
            Begin Menu MNU_ColResizeTrue
               Caption         =   "&True"
               Checked         =   -1  'True
            End
            Begin Menu MNU_ColResizeFalse
               Caption         =   "&False"
            End
         End
         Begin Menu MNU_ColSelect
            Caption         =   "&Selection"
            Begin Menu MNU_ColSelNone
               Caption         =   "&None"
               Checked         =   -1  'True
            End
            Begin Menu MNU_ColSelectSingle
               Caption         =   "&Single Column"
            End
            Begin Menu MNU_ColSelMulti
               Caption         =   "&Multi Column"
            End
         End
      End
      Begin Menu MNU_EditKeys
         Caption         =   "Edit &keys"
         Begin Menu MNU_AEK
            Caption         =   "&AbortEditKey"
         End
         Begin Menu MNU_BEK
            Caption         =   "&BeginEditKey"
         End
         Begin Menu MNU_EEK
            Caption         =   "&EndEditKey"
         End
      End
      Begin Menu MNU_Edit
         Caption         =   "&Edit mode"
         Begin Menu MNU_EditOn
            Caption         =   "O&n"
            Checked         =   -1  'True
         End
         Begin Menu MNU_EditOff
            Caption         =   "O&ff"
         End
      End
      Begin Menu MNU_Font
         Caption         =   "&Fonts"
         Begin Menu MNU_FBold
            Caption         =   "Bold"
            Begin Menu MNU_FBT
               Caption         =   "True"
               Checked         =   -1  'True
            End
            Begin Menu MNU_FBF
               Caption         =   "False"
            End
         End
         Begin Menu MNU_FontName
            Caption         =   "Name"
            Begin Menu MNU_Arial
               Caption         =   "Arial"
            End
            Begin Menu MNU_Courier
               Caption         =   "Courier"
            End
            Begin Menu MNU_Fences
               Caption         =   "Fences"
            End
            Begin Menu MNU_Fixedsys
               Caption         =   "Fixedsys"
            End
            Begin Menu MNU_Modern
               Caption         =   "Modern"
            End
            Begin Menu MNU_MSS
               Caption         =   "MS Sans Serif"
            End
            Begin Menu MNU_MSSerif
               Caption         =   "MS Serif"
            End
            Begin Menu MNU_MTExtra
               Caption         =   "MT Extra"
            End
            Begin Menu MNU_Roman
               Caption         =   "Roman"
            End
            Begin Menu MNU_Script
               Caption         =   "Script"
            End
            Begin Menu MNU_SmallFonts
               Caption         =   "Small Fonts"
            End
            Begin Menu MNU_Symbol
               Caption         =   "Symbol"
            End
            Begin Menu MNU_System
               Caption         =   "System"
            End
            Begin Menu MNU_Terminal
               Caption         =   "Terminal"
            End
            Begin Menu MNU_TNR
               Caption         =   "Times New Roman"
            End
            Begin Menu MNU_WDG
               Caption         =   "Wingdings"
            End
         End
      End
      Begin Menu MNU_GridLines
         Caption         =   "&Grid lines"
         Begin Menu MNU_Horiz
            Caption         =   "&Horizontals"
            Begin Menu MNU_HorizOn
               Caption         =   "O&n"
               Checked         =   -1  'True
            End
            Begin Menu MNU_HorizOff
               Caption         =   "O&ff"
            End
         End
         Begin Menu MNU_Verts
            Caption         =   "&Verticals"
            Begin Menu MNU_RowVertOn
               Caption         =   "O&n"
            End
            Begin Menu MNU_VertsOff
               Caption         =   "O&ff"
            End
         End
      End
      Begin Menu MNU_RowS
         Caption         =   "&Rows"
         Begin Menu MNU_RowLab
            Caption         =   "&Labels"
            Begin Menu MNU_RowLabNo
               Caption         =   "&None"
            End
            Begin Menu MNU_RowLabBut
               Caption         =   "Row &buttons"
            End
            Begin Menu MNU_RowLabNum
               Caption         =   "Row &numbers"
               Checked         =   -1  'True
            End
         End
         Begin Menu MNU_RowSel
            Caption         =   "&Selection"
            Begin Menu MNU_RowSelNone
               Caption         =   "&None"
               Checked         =   -1  'True
            End
            Begin Menu MNU_RowSelSingle
               Caption         =   "&Single Row"
            End
            Begin Menu MNU_RowSelMulti
               Caption         =   "&Multi row"
            End
         End
      End
   End
   Begin Menu MNU_Delete
      Caption         =   "&Delete"
      Begin Menu MNU_DeleteColumn
         Caption         =   "&Column"
      End
      Begin Menu MNU_DeleteRow
         Caption         =   "&Row"
      End
   End
   Begin Menu MNU_Insert
      Caption         =   "&Insert"
      Begin Menu MNU_InsertColumn
         Caption         =   "&Column"
      End
      Begin Menu MNU_InsertRow
         Caption         =   "&Row"
      End
   End
   Begin Menu MNU_MoveIt
      Caption         =   "&Move"
      Begin Menu MNU_MoveColumn
         Caption         =   "&Column"
      End
      Begin Menu MNU_MoveRow
         Caption         =   "&Row"
      End
   End
   Begin Menu MNU_Quit
      Caption         =   "&Quit"
   End
End
Sub DBTGrid1_CellDoubleClicked (Column As Integer, Row As Long)
MsgBox "Cell Value: " + DBTGrid1.Text
End Sub

Sub DBTGrid1_CellValueChanged (Column As Integer, Row As Long)
If (DBTGrid1.Column <> DBTGrid1.Columns - 1) Then
    DBTGrid1.Column = DBTGrid1.Column + 1
Else
    DBTGrid1.Column = 0
    DBTGrid1.Row = DBTGrid1.Row + 1
End If

End Sub

Sub DBTGrid1_GridHScroll ()

'Update the Left Visible Column display (in user units).
LeftColumn.Text = Str$(DBTGrid1.LeftVisibleColumn + 1)
End Sub

Sub DBTGrid1_GridPositionChanged (Column As Integer, Row As Long)
    'Display current row and column (in user units, i.e., + 1)
    ColumnPosition.Text = Str$(Column + 1)
    RowPosition.Text = Str$(Row + 1)
End Sub

Sub DBTGrid1_GridVScroll ()
'Update the Top Visible Row display (in user units).
TopVRow.Text = Str$(DBTGrid1.TopVisibleRow + 1)
End Sub

Sub DBTGrid1_Resize ()

'Update the Visible Columns display.
NVisibleColumns.Text = Str$(DBTGrid1.VisibleColumns)

'Update the Visible Rows display.
NVisibleRows.Text = Str$(DBTGrid1.VisibleRows)


End Sub

Sub FillGrid ()
DBTGrid1.Column = 0
DBTGrid1.Row = 0

DBTGrid1.Text = "123459"
DBTGrid1.Column = 1
DBTGrid1.Text = "Doe"
DBTGrid1.Column = 2
DBTGrid1.Text = "John"
DBTGrid1.Column = 3
DBTGrid1.Text = "T"
DBTGrid1.Column = 4
DBTGrid1.Text = "1212 Westwood Ave."
DBTGrid1.Column = 5
DBTGrid1.Text = "Moline"
DBTGrid1.Column = 6
DBTGrid1.Text = "IL"
DBTGrid1.Column = 7
DBTGrid1.Text = "61265"
DBTGrid1.Column = 8
DBTGrid1.Text = "[phone]"

DBTGrid1.Row = DBTGrid1.Row + 1 'Move to Next row

DBTGrid1.Column = 0
DBTGrid1.Text = "623857"
DBTGrid1.Column = 1
DBTGrid1.Text = "Smith"
DBTGrid1.Column = 2
DBTGrid1.Text = "Mary"
DBTGrid1.Column = 3
DBTGrid1.Text = "J"
DBTGrid1.Column = 4
DBTGrid1.Text = "4733 Carry Street"
DBTGrid1.Column = 5
DBTGrid1.Text = "Davenport"
DBTGrid1.Column = 6
DBTGrid1.Text = "IA"
DBTGrid1.Column = 7
DBTGrid1.Text = "52803"
DBTGrid1.Column = 8
DBTGrid1.Text = "[phone]"

DBTGrid1.Row = DBTGrid1.Row + 1 'Move to Next row

DBTGrid1.Column = 0
DBTGrid1.Text = "883853"
DBTGrid1.Column = 1
DBTGrid1.Text = "Hall"
DBTGrid1.Column = 2
DBTGrid1.Text = "Scot"
DBTGrid1.Column = 3
DBTGrid1.Text = "E"
DBTGrid1.Column = 4
DBTGrid1.Text = "1114 Sparrow Road"
DBTGrid1.Column = 5
DBTGrid1.Text = "Rock Island"
DBTGrid1.Column = 6
DBTGrid1.Text = "IL"
DBTGrid1.Column = 7
DBTGrid1.Text = "61201"
DBTGrid1.Column = 8
DBTGrid1.Text = "[phone]"


'Move back to Row 0 Column 0
DBTGrid1.Row = 0
DBTGrid1.Column = 0
End Sub




Sub Form_Load ()

DBTGrid1.Top = 700

'Define the number of rows and columns in the Grid.
DBTGrid1.Columns = 9
DBTGrid1.Rows = 30
'Let the user select single rows
DBTGrid1.RowSelection = 0

'Now label the Column Headings (keep the default
'ColumnHeadingStyle = 0-Centered)
 SetColumnHeadings

'OK the Grid's column format has been set.

'Lets put some data in it!
FillGrid

'Update the Visible Columns display.
NVisibleColumns.Text = Str$(DBTGrid1.VisibleColumns)
'Update the Visible Rows display.
NVisibleRows.Text = Str$(DBTGrid1.VisibleRows)
'Update the Left Visible Column display (in user units).
LeftColumn.Text = Str$(DBTGrid1.LeftVisibleColumn + 1)
'Update the Top Visible Row display (in user units).
TopVRow.Text = Str$(DBTGrid1.TopVisibleRow + 1)

End Sub

Sub Form_Resize ()
DBTGrid1.Top = 700
If (DemoForm.Height > 800) Then
    DBTGrid1.Height = DemoForm.Height - 1500
End If
If (DemoForm.Width > 400) Then
       DBTGrid1.Width = DemoForm.Width - 400
End If

End Sub

Sub MNU_AEK_Click ()
EditKey = 1
EditKeyForm.Show 1
End Sub

Sub MNU_Arial_Click ()
DBTGrid1.FontName = "Arial"
End Sub

Sub MNU_BEK_Click ()
EditKey = 2
EditKeyForm.Show 1
End Sub

Sub MNU_ColFix_Click ()
temp% = DBTGrid1.FixedColumn
If temp% = 0 Then
   MNU_ColFixFalse.Checked = -1
   MNU_ColFixTrue.Checked = 0
Else
   MNU_ColFixFalse.Checked = 0
   MNU_ColFixTrue.Checked = -1
End If

End Sub

Sub MNU_ColFixFalse_Click ()
DBTGrid1.FixedColumn = 0    'Not a fixed column.
MNU_ColFixFalse.Checked = -1
MNU_ColFixTrue.Checked = 0
End Sub

Sub MNU_ColFixTrue_Click ()
DBTGrid1.FixedColumn = 1    'A fixed column.
MNU_ColFixFalse.Checked = 0
MNU_ColFixTrue.Checked = -1

End Sub

Sub MNU_ColLabelLetters_Click ()
DBTGrid1.ColumnLabels = DBT_Letters
MNU_ColLabelUser.Checked = 0
MNU_ColLabelsNone.Checked = 0
MNU_ColLabNum.Checked = 0
MNU_ColLabelLetters.Checked = -1

End Sub

Sub MNU_ColLabelsNone_Click ()
DBTGrid1.ColumnLabels = DBT_None
MNU_ColLabelUser.Checked = 0
MNU_ColLabelsNone.Checked = -1
MNU_ColLabNum.Checked = 0
MNU_ColLabelLetters.Checked = 0

End Sub

Sub MNU_ColLabelUser_Click ()
DBTGrid1.ColumnLabels = DBT_UserDefined
MNU_ColLabelUser.Checked = -1
MNU_ColLabelsNone.Checked = 0
MNU_ColLabNum.Checked = 0
MNU_ColLabelLetters.Checked = 0
End Sub

Sub MNU_ColLabNum_Click ()
DBTGrid1.ColumnLabels = DBT_Numbers
MNU_ColLabelUser.Checked = 0
MNU_ColLabelsNone.Checked = 0
MNU_ColLabNum.Checked = -1
MNU_ColLabelLetters.Checked = 0

End Sub

Sub MNU_ColResize_Click ()
temp% = DBTGrid1.ResizeColumn
If temp% = 0 Then
    MNU_ColResizeTrue.Checked = 0
    MNU_ColResizeFalse.Checked = -1
Else
    MNU_ColResizeTrue.Checked = -1
    MNU_ColResizeFalse.Checked = 0
End If
End Sub

Sub MNU_ColResizeFalse_Click ()
DBTGrid1.ResizeColumn = 0   'Do not allow resizing of column
MNU_ColResizeTrue.Checked = 0
MNU_ColResizeFalse.Checked = -1

End Sub

Sub MNU_ColResizeTrue_Click ()
DBTGrid1.ResizeColumn = 1   'Allow resizing of column
MNU_ColResizeTrue.Checked = -1
MNU_ColResizeFalse.Checked = 0
End Sub

Sub MNU_ColSelectSingle_Click ()
DBTGrid1.ColumnSelection = DBT_SingleColumn    'Single column selection allowed.
MNU_ColSelNone.Checked = 0
MNU_ColSelMulti.Checked = 0
MNU_ColSelectSingle.Checked = -1

End Sub

Sub MNU_ColSelMulti_Click ()
DBTGrid1.ColumnSelection = DBT_MultiColumn    'Multi column selection allowed.
MNU_ColSelNone.Checked = 0
MNU_ColSelMulti.Checked = -1
MNU_ColSelectSingle.Checked = 0

End Sub

Sub MNU_ColSelNone_Click ()
DBTGrid1.ColumnSelection = DBT_None    'No column selection allowed.
MNU_ColSelNone.Checked = -1
MNU_ColSelMulti.Checked = 0
MNU_ColSelectSingle.Checked = 0
End Sub

Sub MNU_Courier_Click ()
DBTGrid1.FontName = "Courier"
End Sub

Sub MNU_DeleteColumn_Click ()

'Delete the current grid column.

DBTGrid1.Action = DBT_DeleteColumn

End Sub

Sub MNU_DeleteRow_Click ()

'Delete the current grid row.

DBTGrid1.Action = DBT_DeleteRow

End Sub

Sub MNU_EditOff_Click ()
DBTGrid1.EditMode = 0
MNU_EditOn.Checked = 0
MNU_EditOff.Checked = -1

End Sub

Sub MNU_EditOn_Click ()
DBTGrid1.EditMode = 1
MNU_EditOn.Checked = -1
MNU_EditOff.Checked = 0
End Sub

Sub MNU_EEK_Click ()
EditKey = 3
EditKeyForm.Show 1
End Sub

Sub MNU_FBF_Click ()
DBTGrid1.FontBold = 0
MNU_FBF.Checked = -1
MNU_FBT.Checked = 0
End Sub

Sub MNU_FBT_Click ()
DBTGrid1.FontBold = -1
MNU_FBT.Checked = -1
MNU_FBF.Checked = 0
End Sub

Sub MNU_Fences_Click ()
DBTGrid1.FontName = "Fences"
End Sub

Sub MNU_Fixedsys_Click ()
DBTGrid1.FontName = "Fixedsys"
End Sub

Sub MNU_HorizOff_Click ()
DBTGrid1.Horizontals = 0
MNU_HorizOn.Checked = 0
MNU_HorizOff.Checked = -1
End Sub

Sub MNU_HorizOn_Click ()
DBTGrid1.Horizontals = 1
MNU_HorizOn.Checked = -1
MNU_HorizOff.Checked = 0
End Sub

Sub MNU_InsertColumn_Click ()

'Insert a column before the current grid column.

DBTGrid1.Action = DBT_InsertColumn

End Sub

Sub MNU_InsertRow_Click ()

'Insert a row before the current grid row.

DBTGrid1.Action = DBT_InsertRow

End Sub

Sub MNU_Modern_Click ()
DBTGrid1.FontName = "Modern"
End Sub

Sub MNU_MoveColumn_Click ()
NewColumnPosition$ = InputBox$("What column do you wish to move the current column to?", "Move Grid Column", "0")

If NewColumnPosition$ = "" Then
    Exit Sub
Else
    DBTGrid1.ColumnNumber = Val(NewColumnPosition$)
    DBTGrid1.Action = DBT_MoveColumn
End If




End Sub

Sub MNU_MoveRow_Click ()
NewRowPosition$ = InputBox$("What row do you wish to move the current row to?", "Move Grid Row", "0")

If NewRowPosition$ = "" Then
    Exit Sub
Else
    DBTGrid1.RowNumber = Val(NewRowPosition$)
    DBTGrid1.Action = DBT_MoveRow
End If

End Sub

Sub MNU_MSS_Click ()
DBTGrid1.FontName = "MS Sans Serif"
End Sub

Sub MNU_MSSerif_Click ()
DBTGrid1.FontName = "MS Serif"
End Sub

Sub MNU_MTExtra_Click ()
DBTGrid1.FontName = "MT Extra"
End Sub

Sub MNU_Quit_Click ()
End
End Sub

Sub MNU_Roman_Click ()
DBTGrid1.FontName = "Roman"
End Sub

Sub MNU_RowLabBut_Click ()
DBTGrid1.RowLabels = DBT_RowButtons
MNU_RowLabNum.Checked = 0
MNU_RowLabNo.Checked = 0
MNU_RowLabBut.Checked = -1
End Sub

Sub MNU_RowLabNo_Click ()
DBTGrid1.RowLabels = DBT_None
MNU_RowLabNum.Checked = 0
MNU_RowLabNo.Checked = -1
MNU_RowLabBut.Checked = 0
End Sub

Sub MNU_RowLabNum_Click ()
DBTGrid1.RowLabels = DBT_Numbers
MNU_RowLabNum.Checked = -1
MNU_RowLabNo.Checked = 0
MNU_RowLabBut.Checked = 0
End Sub

Sub MNU_RowSelMulti_Click ()
DBTGrid1.RowSelection = DBT_MultiRow      'Multi row selection allowed.
MNU_RowSelNone.Checked = 0
MNU_RowSelSingle.Checked = 0
MNU_RowSelMulti.Checked = -1

End Sub

Sub MNU_RowSelNone_Click ()
DBTGrid1.RowSelection = DBT_None      'No row selection allowed.
MNU_RowSelNone.Checked = -1
MNU_RowSelSingle.Checked = 0
MNU_RowSelMulti.Checked = 0
End Sub

Sub MNU_RowSelSingle_Click ()
DBTGrid1.RowSelection = DBT_SingleRow      'Single row selection allowed.
MNU_RowSelNone.Checked = 0
MNU_RowSelSingle.Checked = -1
MNU_RowSelMulti.Checked = 0

End Sub

Sub MNU_RowVertOn_Click ()
DBTGrid1.Verticals = 1
MNU_RowVertOn.Checked = -1
MNU_VertsOff.Checked = 0
End Sub

Sub MNU_Script_Click ()
DBTGrid1.FontName = "Script"
End Sub

Sub MNU_SmallFonts_Click ()
DBTGrid1.FontName = "Small Fonts"
End Sub

Sub MNU_Symbol_Click ()
DBTGrid1.FontName = "Symbol"
End Sub

Sub MNU_System_Click ()
DBTGrid1.FontName = "System"
End Sub

Sub MNU_Terminal_Click ()
DBTGrid1.FontName = "Terminal"
End Sub

Sub MNU_TNR_Click ()
DBTGrid1.FontName = "Times New Roman"
End Sub

Sub MNU_VertsOff_Click ()
DBTGrid1.Verticals = 0
MNU_RowVertOn.Checked = 0
MNU_VertsOff.Checked = -1
End Sub

Sub MNU_WDG_Click ()
DBTGrid1.FontName = "Wingdings"
End Sub

Sub SetColumnHeadings ()

DBTGrid1.Column = 0     'Start with Column #1
DBTGrid1.ColumnHeading = "Customer No."
DBTGrid1.CellStyle = 0  'Center text in the Cell

DBTGrid1.Column = 1     'Move to Column #2
DBTGrid1.ColumnHeading = "Last Name"
DBTGrid1.CellStyle = 1  'Left justify text in the Cell

DBTGrid1.Column = 2     'Move to Column #3
DBTGrid1.ColumnHeading = "First Name"
DBTGrid1.CellStyle = 1  'Left justify text in the Cell

DBTGrid1.Column = 3     'Move to Column #4
DBTGrid1.ColumnHeading = "MI"
DBTGrid1.ColumnStringLength = 2
DBTGrid1.CellStyle = 0  'Center text in the Cell

DBTGrid1.Column = 4     'Move to Column #5
DBTGrid1.ColumnHeading = "Address"
DBTGrid1.CellStyle = 1  'Left justify text in the Cell

DBTGrid1.Column = 5     'Move to Column #6
DBTGrid1.ColumnHeading = "City"
DBTGrid1.CellStyle = 1  'Left justify text in the Cell

DBTGrid1.Column = 6     'Move to Column #7
DBTGrid1.ColumnHeading = "State"
DBTGrid1.ColumnStringLength = 3
DBTGrid1.CellStyle = 0  'Center text in the Cell

DBTGrid1.Column = 7     'Move to Column #8
DBTGrid1.ColumnHeading = "Zip"
DBTGrid1.CellStyle = 0  'Center text in the Cell

DBTGrid1.Column = 8     'Move to Column #9
DBTGrid1.ColumnHeading = "Phone"
DBTGrid1.CellStyle = 0  'Center text in the Cell

End Sub