home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / delphi / RTREGIST / DEMOS / VB4 / FORM4.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-13  |  3.9 KB  |  132 lines
  1. VERSION 4.00
  2. Begin VB.Form Form4 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Set Lock"
  6.    ClientHeight    =   2175
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5415
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   2580
  22.    Left            =   1035
  23.    LinkTopic       =   "Form4"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2175
  27.    ScaleWidth      =   5415
  28.    Top             =   1140
  29.    Width           =   5535
  30.    Begin VB.CommandButton Command1 
  31.       Appearance      =   0  'Flat
  32.       BackColor       =   &H80000005&
  33.       Caption         =   "Go On"
  34.       Default         =   -1  'True
  35.       Height          =   495
  36.       Left            =   1920
  37.       TabIndex        =   2
  38.       Top             =   1440
  39.       Width           =   1215
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       Appearance      =   0  'Flat
  43.       Height          =   285
  44.       Left            =   3000
  45.       TabIndex        =   1
  46.       Top             =   960
  47.       Width           =   1455
  48.    End
  49.    Begin Threed.SSFrame SSFrame1 
  50.       Height          =   615
  51.       Left            =   360
  52.       TabIndex        =   3
  53.       Top             =   240
  54.       Width           =   4695
  55.       _Version        =   65536
  56.       _ExtentX        =   8281
  57.       _ExtentY        =   1085
  58.       _StockProps     =   14
  59.       Caption         =   "Lock Type"
  60.       Begin Threed.SSOption Option3D2 
  61.          Height          =   255
  62.          Left            =   2400
  63.          TabIndex        =   5
  64.          Top             =   240
  65.          Width           =   2175
  66.          _Version        =   65536
  67.          _ExtentX        =   3836
  68.          _ExtentY        =   450
  69.          _StockProps     =   78
  70.          Caption         =   "Date Lock"
  71.       End
  72.       Begin Threed.SSOption Option3D1 
  73.          Height          =   255
  74.          Left            =   240
  75.          TabIndex        =   4
  76.          Top             =   240
  77.          Width           =   2055
  78.          _Version        =   65536
  79.          _ExtentX        =   3625
  80.          _ExtentY        =   450
  81.          _StockProps     =   78
  82.          Caption         =   "Count Lock"
  83.       End
  84.    End
  85.    Begin VB.Label Label1 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H80000005&
  88.       Caption         =   "For how many calls/days"
  89.       ForeColor       =   &H80000008&
  90.       Height          =   255
  91.       Left            =   600
  92.       TabIndex        =   0
  93.       Top             =   960
  94.       Width           =   2295
  95.    End
  96. Attribute VB_Name = "Form4"
  97. Attribute VB_Creatable = False
  98. Attribute VB_Exposed = False
  99. Option Explicit
  100. Private Sub Command1_Click()
  101. Dim i, j As Integer
  102.     If Text1.Text > "" Then
  103.         i = CInt(Text1.Text)
  104.     Else
  105.         i = 0
  106.     End If
  107.     If i > 0 Then
  108.         If Option3d1.Value Then
  109.             Locks = 1
  110.             j = RTSetCountLock(cPrg, i)
  111.             If j = 0 Then
  112.                 MsgBox "Could not set Count Lock. Bye, bye!"
  113.                 i = 0
  114.             End If
  115.         ElseIf Option3D2.Value Then
  116.             Locks = 2
  117.             j = RTSetDateLock(cPrg, i)
  118.             If j = 0 Then
  119.                 MsgBox "Could not set Date Lock. Bye, bye!"
  120.                 i = 0
  121.             End If
  122.         End If
  123.         Cnt = i
  124.         Unload Me
  125.     Else
  126.         MsgBox "The number of calls/days must be greater than 0!", MB_ICONSTOP + MB_OK
  127.     End If
  128. End Sub
  129. Private Sub Form_Load()
  130.     Option3d1.Value = True
  131. End Sub
  132.