home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / crystal / extras / vbxdemo / security.frm < prev    next >
Text File  |  1994-12-14  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form Security 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Access Security"
  5.    ClientHeight    =   2595
  6.    ClientLeft      =   2250
  7.    ClientTop       =   1620
  8.    ClientWidth     =   5730
  9.    Height          =   3000
  10.    Left            =   2190
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2595
  13.    ScaleWidth      =   5730
  14.    Top             =   1275
  15.    Width           =   5850
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Help"
  18.       Height          =   375
  19.       Left            =   3780
  20.       TabIndex        =   7
  21.       Top             =   2070
  22.       Width           =   1545
  23.    End
  24.    Begin SSFrame Frame3D1 
  25.       Caption         =   "Security Information"
  26.       Font3D          =   0  'None
  27.       ForeColor       =   &H00000000&
  28.       Height          =   1545
  29.       Left            =   240
  30.       TabIndex        =   4
  31.       Top             =   315
  32.       Width           =   5145
  33.       Begin TextBox Text2 
  34.          Height          =   330
  35.          Left            =   1200
  36.          PasswordChar    =   "*"
  37.          TabIndex        =   1
  38.          Top             =   900
  39.          Width           =   3570
  40.       End
  41.       Begin TextBox Text1 
  42.          Height          =   330
  43.          Left            =   1200
  44.          TabIndex        =   2
  45.          Top             =   405
  46.          Width           =   3570
  47.       End
  48.       Begin Label Label4 
  49.          BackColor       =   &H00C0C0C0&
  50.          Caption         =   "Password"
  51.          Height          =   285
  52.          Left            =   270
  53.          TabIndex        =   6
  54.          Top             =   945
  55.          Width           =   915
  56.       End
  57.       Begin Label Label3 
  58.          BackColor       =   &H00C0C0C0&
  59.          Caption         =   "User ID"
  60.          Height          =   240
  61.          Left            =   300
  62.          TabIndex        =   5
  63.          Top             =   450
  64.          Width           =   870
  65.       End
  66.    End
  67.    Begin CommandButton Command3 
  68.       Caption         =   "OK"
  69.       Height          =   375
  70.       Left            =   2040
  71.       TabIndex        =   3
  72.       Top             =   2070
  73.       Width           =   1545
  74.    End
  75.    Begin CommandButton Command2 
  76.       Caption         =   "Set Security Info"
  77.       Height          =   375
  78.       Left            =   300
  79.       TabIndex        =   0
  80.       Top             =   2070
  81.       Width           =   1545
  82.    End
  83. End
  84. Sub Command2_Click ()
  85.  
  86.       'Set the Security information
  87.       Main.Report1.UserName = Text1.Text
  88.       Main.Report1.Password = Text2.Text
  89.       Main!StatusBar.Caption = "Security Info Set"
  90.   
  91.   
  92. End Sub
  93.  
  94. Sub Command3_Click ()
  95.   Unload Me
  96.  
  97. End Sub
  98.  
  99. Sub MenuMoreInfo_Click ()
  100.   
  101. End Sub
  102.  
  103. Sub MenuSecurityExit_Click ()
  104.  Unload Me
  105. End Sub
  106.  
  107.