home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / vbasic / Data / Utility / sqllog.exe / %MAINDIR% / Sample / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-01-21  |  2.9 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "SQLLog MTS Sample Application"
  4.    ClientHeight    =   3660
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3660
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdDoit 
  13.       Caption         =   "Do It"
  14.       Height          =   495
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   3000
  18.       Width           =   4455
  19.    End
  20.    Begin VB.Label lblNotes 
  21.       Caption         =   "This sample works against the pubs database.  It logs an insert, update and delete action on the authors table."
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   9.75
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   855
  32.       Left            =   120
  33.       TabIndex        =   3
  34.       Top             =   2040
  35.       Width           =   4455
  36.    End
  37.    Begin VB.Label lblReminder 
  38.       Caption         =   "Please remember to update the source code in the SampleMTSDLL project to change connection settings to match your environment."
  39.       BeginProperty Font 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   9.75
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   735
  49.       Left            =   120
  50.       TabIndex        =   2
  51.       Top             =   1200
  52.       Width           =   4455
  53.    End
  54.    Begin VB.Label lblDescription 
  55.       Caption         =   $"Form1.frx":0000
  56.       BeginProperty Font 
  57.          Name            =   "MS Sans Serif"
  58.          Size            =   9.75
  59.          Charset         =   0
  60.          Weight          =   400
  61.          Underline       =   0   'False
  62.          Italic          =   0   'False
  63.          Strikethrough   =   0   'False
  64.       EndProperty
  65.       Height          =   1095
  66.       Left            =   120
  67.       TabIndex        =   1
  68.       Top             =   120
  69.       Width           =   4455
  70.    End
  71. Attribute VB_Name = "Form1"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Option Explicit
  77. Private Sub cmdDoit_Click()
  78.     Dim obj As SampleMTSDLL.Application
  79.     Dim rs As ADODB.Recordset
  80.     Dim objField As ADODB.Field
  81.     Dim strTemp As String
  82.     Set obj = New SampleMTSDLL.Application
  83.     Set rs = obj.CallSP
  84.     Set obj = Nothing
  85. End Sub
  86.