git.oblomov.eu Git - ohcount/blob - test/expected_dir/visual_basic.bas

   1 visualbasic     code    VERSION 5.00
   2 visualbasic     code    Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
   3 visualbasic     code    Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
   4 visualbasic     code    Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
   5 visualbasic     code    Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
   6 visualbasic     code    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
   7 visualbasic     code    Begin VB.Form frmMain
   8 visualbasic     code       BorderStyle     =   1  'Fixed Single
   9 visualbasic     code       ClientHeight    =   6555
  10 visualbasic     code       ClientLeft      =   150
  11 visualbasic     code       ClientTop       =   435
  12 visualbasic     code       ClientWidth     =   10620
  13 visualbasic     code       LinkTopic       =   "Form1"
  14 visualbasic     code       MaxButton       =   0   'False
  15 visualbasic     code       MinButton       =   0   'False
  16 visualbasic     code       ScaleHeight     =   6555
  17 visualbasic     code       ScaleWidth      =   10620
  18 visualbasic     code       StartUpPosition =   3  'Windows Default
  19 visualbasic     code    Attribute VB_Name = "frmMain"
  20 visualbasic     code    Attribute VB_GlobalNameSpace = False
  21 visualbasic     code    Attribute VB_Creatable = False
  22 visualbasic     code    Attribute VB_PredeclaredId = True
  23 visualbasic     code    Attribute VB_Exposed = False
  24 visualbasic     comment '---------------------------------------------------------------------------
  25 visualbasic     comment '
  26 visualbasic     comment ' SOURCE FILE NAME: Demo.frm
  27 visualbasic     comment '
  28 visualbasic     comment ' SAMPLE: Visual Basic Demo with user interface for the sample modules
  29 visualbasic     comment '
  30 visualbasic     comment ' For more information about samples, refer to the README file.
  31 visualbasic     comment '
  32 visualbasic     comment '---------------------------------------------------------------------------
  33 visualbasic     blank
  34 visualbasic     code    Option Explicit
  35 visualbasic     blank
  36 visualbasic     code    Private con As ADODB.Connection
  37 visualbasic     code    Private rst As ADODB.Recordset
  38 visualbasic     code    Private strMsgText As String
  39 visualbasic     code    Private wShowInstructions As Integer
  40 visualbasic     blank
  41 visualbasic     comment 'This procedure calls ConnectOLEDB() in the module dbConn to get
  42 visualbasic     comment 'a connection object.
  43 visualbasic     code    Private Sub cmdConnectOLEDB_Click()
  44 visualbasic     comment   'define the error handler
  45 visualbasic     comment '  On Error GoTo cmdConnectOLEDB_Error
  46 visualbasic     blank
  47 visualbasic     comment   'connect to database
  48 visualbasic     code      Set con = ConnectOLEDB()
  49 visualbasic     blank
  50 visualbasic     comment   'generate a message of success
  51 visualbasic     code      sbrStatus.Panels(1).Text = "Connect to sample database succeeded!"
  52 visualbasic     blank
  53 visualbasic     comment   'config status of the buttons
  54 visualbasic     code      EnableButtons
  55 visualbasic     blank
  56 visualbasic     comment   'show instructions
  57 visualbasic     code      If wShowInstructions = vbYes Then
  58 visualbasic     code        ShowConnectionInstruction
  59 visualbasic     code      End If
  60 visualbasic     code    End Sub