home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14534242001.psc / MFSC / FORMS / FrmHelp.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-10-28  |  3.2 KB  |  98 lines
  1. VERSION 5.00
  2. Begin VB.Form fHelp 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Program Guide"
  5.    ClientHeight    =   6360
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   8910
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6360
  14.    ScaleWidth      =   8910
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton cmdOk 
  17.       Caption         =   "&Ok"
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   8.25
  21.          Charset         =   0
  22.          Weight          =   700
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   300
  28.       Left            =   120
  29.       TabIndex        =   1
  30.       Top             =   6000
  31.       Width           =   8655
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       BeginProperty Font 
  35.          Name            =   "MS Sans Serif"
  36.          Size            =   8.25
  37.          Charset         =   0
  38.          Weight          =   700
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       ForeColor       =   &H000000C0&
  44.       Height          =   5895
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   0
  48.       Width           =   8655
  49.       Begin VB.TextBox txtFields 
  50.          DataField       =   "Program_Guide"
  51.          Height          =   5535
  52.          Index           =   0
  53.          Left            =   120
  54.          MultiLine       =   -1  'True
  55.          ScrollBars      =   2  'Vertical
  56.          TabIndex        =   2
  57.          Top             =   240
  58.          Width           =   8415
  59.       End
  60.    End
  61. Attribute VB_Name = "fHelp"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. ' MODULE/FORM: HELP/PROGRAM GUIDE
  67. ' VERSION: VB6
  68. ' HELP/PROGRAM GUIDE VARIABLE SETTINGS
  69. Dim strDB As String
  70. Dim db As ADODB.Connection
  71. Dim strSQL As String
  72. Dim WithEvents adoPrimaryRS As ADODB.Recordset
  73. Attribute adoPrimaryRS.VB_VarHelpID = -1
  74. Private Sub Form_Load()
  75.     ' STARTUP HELP/PROGRAM GUIDE DATABASE CONNECTIONS
  76.     strDB = App.Path + "\DATABASE\MFSC.MDB;Jet OLEDB:Database Password=MFSC;"
  77.     strSQL = "SELECT Program_Guide FROM Help_Guide"
  78.     Database_Refresh 0
  79.     For Each oText In Me.txtFields
  80.         Set oText.DataSource = adoPrimaryRS
  81.     Next
  82. End Sub
  83. Private Sub cmdOk_Click()
  84.     ' CANCEL POSTING THEN EXIT
  85.     Unload Me
  86. End Sub
  87. Public Sub Database_Refresh(xMode As Integer)
  88.     ' PRE-DATABASE CONNECTION WITH PARAMETERIZED SQL VARIABLES ATTACHED IN EVERY MODE
  89.     On Error Resume Next
  90.     Set db = New Connection
  91.         db.CursorLocation = adUseClient
  92.         db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDB
  93.     If xMode = 0 Then
  94.         Set adoPrimaryRS = New ADODB.Recordset
  95.         adoPrimaryRS.Open strSQL, db, adOpenStatic, adLockOptimistic
  96.     End If
  97. End Sub
  98.