home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / patchfix / dbpatch / cmdialog.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-03  |  3.8 KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form CommonForm 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "IPS Daily Time Summary"
  5.    ClientHeight    =   4185
  6.    ClientLeft      =   2715
  7.    ClientTop       =   1440
  8.    ClientWidth     =   4980
  9.    Height          =   4560
  10.    Left            =   2670
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4185
  13.    ScaleWidth      =   4980
  14.    Top             =   1110
  15.    Width           =   5070
  16.    Begin PictureClip CCNSelectPics 
  17.       Cols            =   4
  18.       Location        =   "1020,765,75,1260"
  19.       Picture         =   CMDIALOG.FRX:0000
  20.       Rows            =   3
  21.    End
  22.    Begin CommonDialog CMDialog1 
  23.       CancelError     =   -1  'True
  24.       DefaultExt      =   "tim"
  25.       Filter          =   "Daily Time (*.tim) | *.tim|Databases (*.mdb) | *.mdb | Summaries (*.sum) | *.sum|Bitmaps (*.bmp)|*.bmp|Text Files(*.txt)|*.txt|Program Files(*.exe)|*.exe|All Files(*.*)|*.*"
  26.       Left            =   630
  27.       Top             =   225
  28.    End
  29.    Begin SSPanel ButtonBar 
  30.       Align           =   2  'Align Bottom
  31.       Height          =   780
  32.       Left            =   0
  33.       TabIndex        =   0
  34.       Top             =   3405
  35.       Width           =   4980
  36.       Begin SSCommand CmdButton 
  37.          Caption         =   "&Re-Select"
  38.          Height          =   465
  39.          Index           =   1
  40.          Left            =   1770
  41.          TabIndex        =   3
  42.          Top             =   165
  43.          Width           =   1470
  44.       End
  45.       Begin SSCommand CmdButton 
  46.          Caption         =   "&OK"
  47.          Height          =   465
  48.          Index           =   0
  49.          Left            =   150
  50.          TabIndex        =   2
  51.          Top             =   165
  52.          Width           =   1470
  53.       End
  54.       Begin SSCommand CmdButton 
  55.          Caption         =   "&Cancel"
  56.          Height          =   465
  57.          Index           =   2
  58.          Left            =   3390
  59.          TabIndex        =   1
  60.          Top             =   165
  61.          Width           =   1470
  62.       End
  63.    End
  64.    Begin Image ImageBox 
  65.       BorderStyle     =   1  'Fixed Single
  66.       Height          =   2175
  67.       Left            =   0
  68.       Top             =   0
  69.       Width           =   2850
  70.    End
  71. '-----------------------------------------------------------------------
  72. ' IPS Time and MDB Patch Tool (TALAS), Version 1.0
  73. Copyright 1995 (Unpublished) Integrated Planning Systems, inc.
  74. ' All Rights Reserved.
  75. ' Integrated Planning Systems Proprietary Rights are included in this
  76. ' Software, in the data or documentation relating thereto, and in the
  77. ' information disclosed therein.  Neither this software, regardless of
  78. ' the form in which it exists, nor such data or information may be
  79. ' used by or disclosed to others for any purpose except as specifically
  80. ' authorized in writing by Integrated Planning Systems, inc.
  81. ' This software was developed exclusively at private expense
  82. ' as defined in DFARS 252.227-7013(a)(12).
  83. ' This software was developed under IPS General and Administrative
  84. ' Account A1035LAS.
  85. '-----------------------------------------------------------------------
  86. Option Explicit
  87. Sub CmdButton_Click (Index As Integer)
  88.    Select Case Index
  89.    Case 0
  90.       CommonForm.Tag = "OK"
  91.       CmdButton(Index).Value = False
  92.       CommonForm.Visible = False
  93.    Case 1
  94.       CommonForm.Tag = "ReSelect"
  95.       CmdButton(Index).Value = False
  96.       CommonForm.Visible = False
  97.    Case 2
  98.       CommonForm.Tag = "Cancel"
  99.       CmdButton(Index).Value = False
  100.       CommonForm.Visible = False
  101.    Case Else
  102.       CommonForm.Tag = ""
  103.       CmdButton(Index).Value = False
  104.       CommonForm.Visible = False
  105.    End Select
  106. End Sub
  107. Sub Form_Unload (Cancel As Integer)
  108.    Set CommonForm = Nothing
  109. End Sub
  110.