FrmMain.frm

 VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FrmMain
   Caption         =   "MainForm"
   ClientHeight    =   7470
   ClientLeft      =   2280
   ClientTop       =   630
   ClientWidth     =   7470
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "FrmMain.frx":1042
   ScaleHeight     =   7470
   ScaleWidth      =   7470
   Begin VB.OptionButton Option1
      Height          =   375
      Index           =   1
      Left            =   3330
      Picture         =   "FrmMain.frx":DB80
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   1290
      Width           =   885
   End
   Begin VB.OptionButton Option1
      Height          =   375
      Index           =   0
      Left            =   2400
      Picture         =   "FrmMain.frx":DC82
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   1290
      Width           =   885
   End
   Begin VB.OptionButton Option1
      Height          =   375
      Index           =   2
      Left            =   4230
      Picture         =   "FrmMain.frx":DD84
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1290
      Value           =   -1  'True
      Width           =   885
   End
   Begin VB.CommandButton Command3
      BackColor       =   &H00008080&
      Caption         =   "&Exit"
      BeginProperty Font
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5160
      TabIndex        =   2
      Top             =   1290
      Width           =   885
   End
   Begin VB.CommandButton Command4
      Caption         =   "&Font"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1470
      TabIndex        =   0
      Top             =   1290
      Width           =   885
   End
   Begin MSDataGridLib.DataGrid DataGrid1
      Height          =   3195
      Left            =   600
      TabIndex        =   1
      Top             =   2220
      Width           =   6255
      _ExtentX        =   11033
      _ExtentY        =   5636
      _Version        =   393216
      AllowUpdate     =   0   'False
      AllowArrows     =   -1  'True
      BackColor       =   14524245
      ColumnHeaders   =   -1  'True
      ForeColor       =   0
      HeadLines       =   1
      RowHeight       =   15
      RowDividerStyle =   3
      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   178
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   6
      BeginProperty Column00
         DataField       =   "WordID"
         Caption         =   "No"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01
         DataField       =   "Name"
         Caption         =   "Name"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02
         DataField       =   "CName"
         Caption         =   "Company Name"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03
         DataField       =   "Telep"
         Caption         =   "Telephone No"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04
         DataField       =   "Fax"
         Caption         =   "Fax No"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05
         DataField       =   "Email"
         Caption         =   "Email ID"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   1025
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0
         MarqueeStyle    =   3
         ScrollBars      =   3
         SizeMode        =   1
         BeginProperty Column00
            ColumnWidth     =   915.024
         EndProperty
         BeginProperty Column01
            ColumnWidth     =   1739.906
         EndProperty
         BeginProperty Column02
            ColumnWidth     =   1739.906
         EndProperty
         BeginProperty Column03
            ColumnWidth     =   915.024
         EndProperty
         BeginProperty Column04
            ColumnWidth     =   915.024
         EndProperty
         BeginProperty Column05
            ColumnWidth     =   1739.906
         EndProperty
      EndProperty
   End
   Begin VB.Label Label12
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "asnl_123@hotmail.com"
      BeginProperty Font
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   178
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFC0C0&
      Height          =   315
      Left            =   2310
      MouseIcon       =   "FrmMain.frx":DE86
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   6360
      Width           =   2625
   End
   Begin VB.Label Label11
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Your comments and suggestions will be respected"
      BeginProperty Font
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0C0FF&
      Height          =   330
      Left            =   780
      TabIndex        =   3
      Top             =   5880
      Width           =   6045
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RsFont As New ADODB.Recordset
Private Sub Command3_Click()
    End
End Sub

Private Sub Command4_Click()
    FrmFont.FormatGrid DataGrid1
End Sub

Private Sub Form_Load()
    Call Connect
    RsFont.CursorLocation = adUseClient
    If RsFont.State = 1 Then rs.Close
    'Set rs = New ADODB.Recordset
    RsFont.Open "Select *from FontGrid", Cn
    Set DataGrid1.DataSource = RsFont

End Sub

Private Sub Label12_Click()
     Screen.MousePointer = vbArrowHourglass
            Call ShellExecute(Me.hwnd, "open", "mailto:asnl_123@hotmail.com", vbNullString, CurDir$, SW_SHOW)
            Screen.MousePointer = vbNormal
End Sub

Private Sub Option1_Click(Index As Integer)
On Error Resume Next
    With DataGrid1
            For i = 1 To .Columns.Count
        Select Case Index
            Case 0
                .Columns(i).Alignment = 1
                .Columns(i).Alignment = 1
            Case 1
                .Columns(i).Alignment = 2
                .Columns(i).Alignment = 2
            Case 2
                .Columns(i).Alignment = 0
                .Columns(i).Alignment = 0
            End Select
        Next i
    End With
End Sub

Project Homepage: