home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / mf_db.zip / BCARDRED.FRM < prev    next >
Text File  |  1993-05-10  |  3KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form bcardREd 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Edit Reference"
  6.    Height          =   2340
  7.    Left            =   2385
  8.    LinkTopic       =   "Form2"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   1965
  12.    ScaleWidth      =   3270
  13.    Top             =   3180
  14.    Width           =   3360
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Cancel"
  17.       Height          =   375
  18.       Left            =   1860
  19.       TabIndex        =   7
  20.       Top             =   1500
  21.       Width           =   1215
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Save"
  25.       Height          =   375
  26.       Left            =   60
  27.       TabIndex        =   6
  28.       Top             =   1500
  29.       Width           =   1275
  30.    End
  31.    Begin TextBox Text3 
  32.       Height          =   315
  33.       Left            =   60
  34.       TabIndex        =   4
  35.       Top             =   1020
  36.       Width           =   3075
  37.    End
  38.    Begin TextBox Text2 
  39.       Height          =   315
  40.       Left            =   900
  41.       TabIndex        =   2
  42.       Top             =   360
  43.       Width           =   735
  44.    End
  45.    Begin TextBox Text1 
  46.       Height          =   315
  47.       Left            =   60
  48.       TabIndex        =   0
  49.       Top             =   360
  50.       Width           =   735
  51.    End
  52.    Begin Label Label3 
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   "Name"
  55.       Height          =   195
  56.       Left            =   60
  57.       TabIndex        =   5
  58.       Top             =   780
  59.       Width           =   1575
  60.    End
  61.    Begin Label Label2 
  62.       BackColor       =   &H00C0C0C0&
  63.       Caption         =   "Subgroup"
  64.       Height          =   195
  65.       Left            =   900
  66.       TabIndex        =   3
  67.       Top             =   120
  68.       Width           =   915
  69.    End
  70.    Begin Label Label1 
  71.       BackColor       =   &H00C0C0C0&
  72.       Caption         =   "Group"
  73.       Height          =   195
  74.       Left            =   60
  75.       TabIndex        =   1
  76.       Top             =   120
  77.       Width           =   735
  78.    End
  79. End
  80. Option Explicit
  81.  
  82. Sub Command1_Click ()
  83.     Dim ref As tReference
  84.     ' SAVE the record specified in passL (global)
  85.     ref.ref = Val(text1.Text)
  86.     ref.refsub = Val(text2.Text)
  87.     ref.name = text3.Text
  88.  
  89.     junk = mfWrite(passL, ref, TaskHndl, refDBHndl, MFRW_ALL)
  90.  
  91.     Unload Me
  92. End Sub
  93.  
  94. Sub Command2_Click ()
  95.     Unload Me
  96. End Sub
  97.  
  98. Sub Form_Load ()
  99.     Dim ref As tReference
  100.     ' Load the record specified in passL (global)
  101.     junk = mfRead(passL, ref, TaskHndl, refDBHndl, MFRW_ALL)
  102.     text1.Text = Format$(ref.ref)
  103.     text2.Text = Format$(ref.refsub)
  104.     text3.Text = ref.name
  105.  
  106. End Sub
  107.  
  108.