Liren Large Software Subsidy 10/10.iso/l/l407/5.ddi/DATAFORM.FR_/DATAFORM.bin

Visual Basic Form | 1993-04-28 | 22.7 KB | 737 lines

VERSION 2.00
Begin Form fDataForm
   BackColor       =   &H00C0C0C0&
   ClientHeight    =   2520
   ClientLeft      =   1815
   ClientTop       =   3000
   ClientWidth     =   5700
   Height          =   2925
   Icon            =   DATAFORM.FRX:0000
   Left            =   1755
   LinkTopic       =   "Form2"
   MDIChild        =   -1  'True
   ScaleHeight     =   2520
   ScaleWidth      =   5700
   Tag             =   "Dynaset"
   Top             =   2655
   Width           =   5820
   Begin CommonDialog CMD1
      Left            =   4800
      Top             =   1800
   End
   Begin PictureBox StatBox
      Align           =   2  'Align Bottom
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   270
      Left            =   0
      ScaleHeight     =   282.462
      ScaleMode       =   0  'User
      ScaleWidth      =   5710.271
      TabIndex        =   6
      Top             =   2250
      Width           =   5700
      Begin Data Data1
         Connect         =   ""
         DatabaseName    =   ""
         Exclusive       =   0   'False
         Height          =   270
         Left            =   0
         Options         =   0
         ReadOnly        =   0   'False
         RecordSource    =   ""
         Top             =   0
         Width           =   5475
      End
   End
   Begin VScrollBar cScrollBar
      Height          =   2085
      LargeChange     =   3000
      Left            =   7665
      SmallChange     =   300
      TabIndex        =   15
      Top             =   630
      Visible         =   0   'False
      Width           =   255
   End
   Begin PictureBox cFields
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   1065
      Left            =   0
      ScaleHeight     =   1056.48
      ScaleMode       =   0  'User
      ScaleWidth      =   7600.262
      TabIndex        =   10
      TabStop         =   0   'False
      Top             =   630
      Width           =   7605
      Begin TextBox cFieldData
         BackColor       =   &H00FFFFFF&
         DataSource      =   "Data1"
         ForeColor       =   &H00000000&
         Height          =   285
         Index           =   0
         Left            =   1665
         TabIndex        =   13
         Top             =   0
         Visible         =   0   'False
         Width           =   3255
      End
      Begin CheckBox cFieldCheck
         BackColor       =   &H00C0C0C0&
         DataSource      =   "Data1"
         Height          =   282
         Index           =   0
         Left            =   1680
         TabIndex        =   12
         Top             =   735
         Visible         =   0   'False
         Width           =   3270
      End
      Begin PictureBox cFieldPicture
         DataSource      =   "Data1"
         Height          =   282
         Index           =   0
         Left            =   1680
         ScaleHeight     =   255
         ScaleWidth      =   3240
         TabIndex        =   11
         Top             =   315
         Visible         =   0   'False
         Width           =   3270
      End
      Begin Label cFieldName
         BackColor       =   &H00C0C0C0&
         ForeColor       =   &H00000000&
         Height          =   255
         Index           =   0
         Left            =   105
         TabIndex        =   14
         Top             =   0
         Visible         =   0   'False
         Width           =   1575
      End
   End
   Begin PictureBox FieldHeader
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   300
      Left            =   0
      ScaleHeight     =   300
      ScaleMode       =   0  'User
      ScaleWidth      =   5703.403
      TabIndex        =   7
      Top             =   330
      Width           =   5700
      Begin Label FieldValueLabel
         BackColor       =   &H00C0C0C0&
         Caption         =   " Value:"
         Height          =   252
         Left            =   1680
         TabIndex        =   9
         Top             =   30
         Width           =   2652
      End
      Begin Label FieldHdrLabel
         BackColor       =   &H00C0C0C0&
         Caption         =   "Field Name:"
         Height          =   252
         Left            =   120
         TabIndex        =   8
         Top             =   30
         Width           =   1212
      End
   End
   Begin PictureBox TopPic
      Align           =   1  'Align Top
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      Height          =   330
      Left            =   0
      ScaleHeight     =   330
      ScaleWidth      =   5700
      TabIndex        =   0
      Top             =   0
      Width           =   5700
      Begin CommandButton CancelAddBtn
         Caption         =   "C&ancel"
         Height          =   330
         Left            =   0
         TabIndex        =   17
         Top             =   0
         Visible         =   0   'False
         Width           =   960
      End
      Begin CommandButton RefreshBtn
         Caption         =   "&Refresh"
         Height          =   330
         Left            =   3780
         TabIndex        =   16
         Top             =   0
         Width           =   960
      End
      Begin CommandButton FindBtn
         Caption         =   "&Find"
         Height          =   330
         Left            =   2835
         TabIndex        =   5
         Top             =   0
         Width           =   960
      End
      Begin CommandButton CloseBtn
         Cancel          =   -1  'True
         Caption         =   "&Close"
         Height          =   330
         Left            =   4725
         TabIndex        =   4
         Top             =   0
         Width           =   960
      End
      Begin CommandButton DeleteBtn
         Caption         =   "&Delete"
         Height          =   330
         Left            =   1890
         TabIndex        =   3
         Top             =   0
         Width           =   960
      End
      Begin CommandButton AddBtn
         Caption         =   "&Add"
         Height          =   330
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   960
      End
      Begin CommandButton UpdateBtn
         Caption         =   "&Update"
         Height          =   330
         Left            =   945
         TabIndex        =   1
         Top             =   0
         Width           =   960
      End
   End
'============================================================================
' This is a fairly generic form that can be used in most cases with any
' table. I am sorry if it is confusing. There is a lot of paths to
' keep track on with adding, editing, browsing, deleting records
' on populated as well as empty tables. I have added flags where I
' felt there was no other way to achieve the correct functionality.
' I am sure that you can improve this form greatly with a little
' time and understanding of your spcific needs. There is also some
' recursion that could be trapped but hopefully, the form will be
' a good starting point for any data control app.
'============================================================================
Dim FldArr() As control
Dim FDS As dynaset
Dim FBM As String                  'form global bookmark
Dim numFlds As Integer
Dim CurrField As Integer
Dim CurrRec As Long
Dim TotRec As Long
Dim JustUsedFind As Integer        'flag for find function
Dim fResizing As Integer           'flag to avoid resize recursion
Dim CancelFlag As Integer          'flag to cancel an addnew
Dim FldTop As Integer
Const EM_NOTHING = 0
Const EM_EDIT = 1
Const EM_ADDNEW = 2
Const FT_TRUEFALSE = 1
Const FT_BYTE = 2
Const FT_INTEGER = 3
Const FT_LONG = 4
Const FT_CURRENCY = 5
Const FT_SINGLE = 6
Const FT_DOUBLE = 7
Const FT_DATETIME = 8
Const FT_STRING = 10
Const FT_BINARY = 11
Const FT_MEMO = 12
Const YES = 6
Const MSGBOX_TYPE = 4 + 48
Sub AddBtn_Click ()
  On Error GoTo AddErr
  Data1.Recordset.AddNew
  Data1.Caption = "New Record"
  CancelAddBtn.Visible = True
  AddBtn.Visible = False
  If Data1.Recordset.RecordCount <> 0 Then
    FBM = Data1.Recordset.Bookmark
    FldArr(0).SetFocus
  End If
  GoTo AddEnd
AddErr:
  MsgBox Error$
  Resume AddEnd
AddEnd:
End Sub
Sub CancelAddBtn_Click ()
  On Error Resume Next
  CancelFlag = True
  If FBM <> "" Then
    Data1.Recordset.Bookmark = FBM
  End If
  If FDS.RecordCount > 0 Then
    SetRecNum
  End If
End Sub
Sub cFieldData_KeyPress (Index As Integer, KeyAscii As Integer)
  'go to next field on an enter keypress
  If KeyAscii = 13 Then
    KeyAscii = 0
    SendKeys "{Tab}"
  End If
End Sub
Sub cFieldPicture_Click (Index As Integer)
  'this toggles the size of a picture control
  'so it mat be viewed or compressed
  If cFieldPicture(Index).Height <= 280 Then
    cFieldPicture(Index).AutoSize = True
  Else
    cFieldPicture(Index).AutoSize = False
    cFieldPicture(Index).Height = 280
  End If
End Sub
Sub cFieldPicture_DblClick (Index As Integer)
  On Error GoTo PicErr
  CMD1.Filter = "Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf)|*.wmf|All Files (*.*)|*.*"
  CMD1.DialogTitle = "Select a Picture File to Load"
  CMD1.FilterIndex = 1
  CMD1.Action = 1
  If CMD1.Filename <> "" Then
    cFieldPicture(Index).Picture = LoadPicture(CMD1.Filename)
  End If
  GoTo PicEnd
PicErr:
  MsgBox Error$
  Resume PicEnd
PicEnd:
End Sub
Sub CloseBtn_Click ()
  On Error Resume Next
  Unload Me
End Sub
Sub cScrollBar_Change ()
  Dim t As Integer
  t = cScrollBar
  If (t - FldTop) Mod 300 = 0 Then
    cFields.Top = t
  Else
    cFields.Top = ((t - FldTop) \ 300) * 300 + FldTop
  End If
End Sub
Sub Data1_Error (DataErr As Integer, Response As Integer)
  MsgBox "Data error event hit err:" + Error$(DataErr)
End Sub
Sub Data1_RePosition ()
  Dim bm As String
  Dim ds As dynaset
  If Data1.Recordset.RecordCount = 0 And Data1.EditMode <> 2 Then
    Call AddBtn_Click
    Exit Sub
  End If
  If JustUsedFind = True Then
    Set ds = Data1.Recordset.Clone()
    bm = Data1.Recordset.Bookmark
    ds.MoveFirst
    CurrRec = 1
    While ds.Bookmark <> bm
      CurrRec = CurrRec + 1
      ds.MoveNext
    Wend
    JustUsedFind = False
  End If
  SetRecNum
End Sub
Sub Data1_ValidatThe)ldPox Error$
  Resu
   nd Find = False
 rrRec = CurrRec +
Sub Data1_Val 0 Then
    cFie Data1.Recor==========
DimdBtn_Clic 'this toggles a1.Recor=End Sub
Sub Dad.Movure oki0w4 size of a pictur
   nd F
    vent hit err:" + ng, ordsd If
  SetRecN
    0
Const EMs Integs IntegerwRecoEMs erwR.RecordCount <>nst EMs a pictur
   nd F
Bitmaps (*.bmp)|*RY = 11
Const FT
Su(=EMs I
End Sub
Sub 2nd F
Bitmaps (*.bx Error$
   co Then
    Call ArRec +
Sub Data co Then
    Cat Sub
  End If
a = 2
SuDatind   MInd
Dim FBM As Str
    Wend
 tend If
  ex).Heightd
Dim Feightd
rRec + 1
  "*at Sub
  EMs I
End Subr:"but hre(Iption =Then
    Cat Sub global bookmarkfSub  cFie Data1.ReE B    Caes a1.Recor=End - FldTop) \ 30Sub Data1_ValidatThe)ldPox Error$
  Resu
   nd Find = False
 rrRec = CurrRec +
Sub Data1_Val 0 Then
    cFie Data1.Recor==========
DimdBtn_Clic 'this toggles a1.Recor=End Sub
Sub Dad.Movure oki0w4 size of a pictur
   nd F
    vent hit err:" + ng, ordsd If
  SetRecN
    0
Const EMs Integs IntegerwRecoEMs erwR.RecordCount <>nst EMs a pictur
   nd F
Bitmaps (*.bmp)|*RY = 11
Const FT
Su(=EMs I
End Sub
Sub 2nd F
Bitmaps (*.bx Error$
   co Then
    Call ArRec +
Sub Data co Then
    Cat Sub
  End If
a = 2
SuDatind   MInd
Dim FBM As Str
    Wend
 tend If
  ex).Heightd
Dim Feightd
rRec + 1
  "*at Sub
  EMs I
End Subr:"but hre(Iption =Then
    Cat Sub global bookmarkfSub  cFie Data1.ReE B    Caes a1.Recor=End - FldTop) \ 30Sub Data1_ValidatThe)ldPox Error$
  Resu
   nd Find = False
 rrRec = CurrRec +
Sub Data1_Val 0 Then
    cFie Data1.Recor==========
DimdBtn_Clic 'this toggles a1.Recor=End Sub
Sub Dad.Movure oki0w4 size of a pictur
   nd F
    vent hit err:" + ng, ordsd If
  SetRecN
    0
ConstIntegs
    Wend
 tend of  0
ConstIntegs
    N
    0
FBM = Data1.Re Re ri1.Re Re ri1.Re Re71.Re gs Integ nten   Cona1.Recor=End Sub
stIor
      Currr
      Currr
   na1.Rece    Currr
   na1.   eece  e  bkmark =  = Datas1.Fi
DimdBtn_Clic ' r R sum    bm = d Fie71.Reet
  c ' r R sum    bmic ta1.Re Re ri1.Re erwR.    Re rifRecrRec tol
    While ds.Bo .Re = C ub Ddsd IcfSDR
      CurrRec =
  .Rece    Currr
Su(=EMs I
End Sf a ut datTht E
  If CMD1.File.    Re rifRecrRe R sum    bmic tawR.ata1_ValidatThe)le erwR.    Re rifhe)lee rifhe)lee rifhel Re Data)leelDsiDiDiDiDiDiDiDiDiDi tend If
  ex)db ciDiDiDiDiDi tend lfBhre(Ipen
FBM re(la1.Recor=============l Bey   Cpictud==l Be     =l Be     =l Be
S e  irrRec = CurrRec +
    vrr
   na1.   eeeeeeeeeeeeeeeeeee=====o)
T    =l Be    I    Cd    Cd    Cd    Cd Sub
stIor
     ode <> Bey   Cpictud==l e 3 sseae Re71.Re gs Intea1.Recordset.CCurCpictud==l e 3 ss    d==l e 3 ss    d= ta1.ecrRe R sueclc Filepic ua =cDln.xS te  =l R sueclc FilepicorRe R s   d= ta1.ecrRe Rdsett hithe)ldPox Error$
 global bf=l Be     =l Be
DimdBtn_Clic 'hithe)ldPox End Ifl bsVxug)ldPem     Currr
    Cat Sub global b2  Cd Sub
stxug)ldPem     Cur Re rifRecrRec to.bx ErCat RecordsetifRecEnd - FldTop) \ 3cEnd - FSub
stIor
3 T6e 3 ssea(RPox d 3cEnd - Fce    Crk 1Sub dtetRecN
ta1_VrRex Error$
 glo hitheln
    Cat Sub glctur
stxug)ldPem  b
stxugta1_VrRex Error$
stIor
     o.TtIortd
rRec += CurBtn   =l Be
S etIor
3 T6e 3 sseaoF
Bt RecordsetifRecEpb Dat RecordsetifRecE
ConsRecordFldTop) \ 3cEnd - + 1
  "*at Sub
 ri1.setd If
  rRec to.bx ErCat urBtn   =l Be   2ee=noex Erro
  End If
a = 2ad Sf a ut detifRecE.hlm.lr=l ******hg
   Error$
sf*hg
   EConst FT
mce  r
     o0Iortd
rRec += Curoubr:"but hre(IptildTop) \ 3cildTopat Sub
 ri1.setd Be   2ee=noexMBe    Idata1_Val 0 Tr    erwR.RecordCount Cd Sub
stIor
   or
   or
 ri1.setd If
 at Sub global boo Curoubr**** B    Caes Sf a  Caes a1Cd    Cd    Cd SuDiDi  Wend
 tend If
 ErrorxiDiDiDiDi t
Sub Data1_ValidmapsData1.ReE Bo Then
  b  cFie Data1.ReEt hre Sub
Sub urrR   Cat Sub
vure oki0w4 size uDatix End Ifl bsVEx End Itd
rRec +=
c ta1.Re Re ri1.RDi t
Sub Data1_Vb DaldTopat Sub
 ri1= False
 rrRec =hre Sub
Sub7eub
vurd    Cd SuDiDi  Wrror tend of  0
ConsuDatix FT
mce  ri  Wrror t.ReE Bo Then
  bDiDe    Currr
    cE
ConsRecordFldTub
  End If
a =ys Sfea1_Val 0 The Cd SuDiDi  Wend
ri1.R'RpN.4f Sf
stxug)ldPem     drrr
   na1.   eecta1_Vb
Sub7eub
vurd   End d IcfSDR
      CuOE_N-Caes Sf a  Caes atheln
E_N-vured d IcfSDR
      Erroictud==d Sfud=|ub
     CuOE_N-Caes Sf r:" + nError$
 global b     eecta1_Vb
onsRecordFldTub
    0
FBM = c  EMsa  Caes a1Cd    CstIor
      Currrd Itd
DimdBtn_CCount <"cs r
Sub7eub
s Sfea1_Val nurolu fl d If
 ErrorxiDiDs I
ERecoEMDiDiDi
ERecoEMDiDiDd Sub
stIorrd   E hit err:rrr
 SuDiDi  Wend
ri1.imdBtn_CCount <"c  =l Be
DimdB (*.iDi
ERecoEM  Cat Sub glctur
 fl simdBtn_CCount <"cBtn_CCount <"cBtn    Cu1  = Datas1.Fi
DSu(=EMs I
End Sfo Re rifRecrRec toc.setd Be   2ee=noa1.ReE Bo(*.iDndLe*.iddlfg8sesch <"c  =l BN
ta1_VrRex p))mic t   End d IcfSDR
 ten   Cetd
pBiRan1.Fi
DSTiHi&ctur
Suc  =l B t.ReE Bo Tldror Cona1.Recor=End nt hit err:"aes atheln
E_N-vuS eti')'.Reix uit err.6e 3 nD= cIf
a =ys Sfea1_Vclc Filepic1.Fic1c.dttaxeNRecr'hithe)ldpic1.Fic
S eatheln
Iortd
rRec += CurnoexMBe    Idataub
g iP=l Be   2eeseap Then
  b  cFie b
  End If
a = R sueclc Filepic   =l Be
DimdB    Re rifRecrRecic t obal b2  CdSf a ut detifRec   2eeseap Then
    N
    0
Filepic1.FicRecoEMDiDiDd Sub
atThe)le
Sub7RCount <"c  =l Be $
stIo $
stIo $
stIo e (sEe2o3cEn    o0Iortd
rRec Then   =tIo $
c   2eeseap TRecE.hlm.lr=l * d IcfSDR
      En    o0Iortd
rRec EMsa  Caes 7(sEe  2eeseap TRecE.heeMreoepicorR 2eeseap TRecE.heR$
-Lg Coseap Then
  cE.heR$
 tend o
    0
FBM   0
FBM    togglrxiDiDiDiDi t
   or0
   ta1_ValiDi t
   or0
GCp"BCurnoexMBe    IdaBMtHSur
   or0
GCp"BCS eti')'.Reix uit   2eeMBe    Ida e (sEe2o3cEn  fl simdBtn_CCounhitheln
    Cat 0 Idataub
g im =  Caes 7(sEe  2eesS eatheln
Iortd
r ri1.setd Be     2eeseap ThenFilepicorRe R s  eseap TRecE.hlm.lrro
  End If
 ri1_nFilepicorReeap TRecE.hlm.lrrb7RCount <xugta1rrr
 SuDiDi  CdSf a ut detifRec   2eeseap Then
    N
    0
Filepic1.FicRecoEMDiDiDd Sub
atThe)le
Sub7RCount <"c  =l Be $p ThenPem  dE"<"c eifRecrRec tol
  fl simdBtn_CCount t trin_CCount t trin_Cepicopic   n   4f Sf
stxug)ldPemrin_CCount t trin
Sub7RCoFi
DSu(=EMs I
to.bxRecordselfaSuba"
Se.bxR    bmic tawc CdSdetifR Ida e (cordselfaSurdCoustxug)ldCoucor=End nt hit er CuOE_N-Caes Sf r DiD da e (cor:rrr
 S 2ee=noexaes Sf r DiD da e3oes  c +=   =====F 2e2e2e2e2e2e2e2e2e2i  = c  EMsa  Caes apic=End nt hit er Cuhitid Be   2ee=noa1.R    Be d.rCcE.oEMsa ti')'.Rei or0
GCp"BCurnoexseap TRRRRR3odcnd d IcfSDR
 ten dcnd    CCp"BCurnoexCd iCd d Sub
st3odcnd d IcR3odcnd d IcfSDR
e d.rCcE.oEMsa tio
e SNd dcn  or.ReDordseB eDooooo'oOx uit err.6e 3 nDr=En uit da e.oo'o .eci  Wend
 tend Ifodcnd d IcR3odcndoeci dcndoecp Then
    N
s   d= ta1.ecrRe  .ecdio
e SNd dcn  or."+clic 'hithfl bsVcs   d= ta1.ecrRe ('lTmMDiDiDd Sub.RDi Sub.BorR    Bend d IcR3odcnd d d of  03odcnd d d of  03"<"c eifRecnd nt hit e4nl(ahen"oend    CCp"BCurnoent Cd Sub
stIor
  dcn 2eeMBe    IdYa1  eecta1_Vbcnd d d of   Then
A_l_pSash
rRe of  03"<"c eifRereDooooo'oOxB efud=|ub
fec EMsa  Caes 7(s
to efud=|ub
fCaes oooo'oOxB efud=|uud=|ub
ooo'oOxB efud=|uu CuOE_N-Caessf
 aefud=|uu OsReix uit   2elfaSuba"
Sbix uEMDdFevD8EoE_N-Ca.RDi Sub.BorR   ub7RCoi   2eeM CCp"o Curoubr**** B  .6e .eci  Wend
 tend Mwce2o3c**** BM CCdgdgdgdgdghrb.BorR    Bend d t err.l(ahen"oend    CC
a =ys Sfea1_VclM C Mwce2o3c**** BM  t trin
S6rReIcR3n ltR Cu|uu C'lTmMDind Mwce2o3c**** Booo'oOxBoD3n ltMDind Mwce2o3c***s   d= ta1.ecrRe hM C t  fmr(do'oOxcnd    CCp"BCurno_l_h= ta1.ec0tMDdDi
ERecefud=|ub
fec EMsoun   o   2elfaSuba"
SBooo'oOxBoD3n ltMurn1_VclM C Mwce2o3c"
SBooo'oOxBoD3
  b tR Cu|uu C'lTmMDrin
Sub7e) Rec
vurd    Cd SuDiDBM CCd
S6rReIcR3n ltR CSuDiDBR    BeeFoolepic1.FicRec71dB3huu eFoolepiccR3n ltR Cu|.enFilep=l Be   2eeseap TM   0
FBM    toggfMn  2elfaSuba" (do'oOxcnd    CCpof  03"Suba"
SBooo'oOxsUgUu f= ta1.ec0tMDdDi
Ei da    Cu C'lTm
ERecoEMDi etida   OxsUgUu     Ideecta1_Vbcnd d d     Cu 0 The Cd SuDiDi nd Mwc =lco)wmBorR   ub(sEe2o3cEn  fl si of   Then
Aor3 yReixC_CCo d d ofrrb7RCount <xugtai
Ei da    Cu C'lNTo d d oeeap TRe7SoexR    CCpof  03"Suba"   ub(sEeoolepiccR3n8Eo2  CdSDi rddc t f  mMDrin
Sub7e) ReEMDi etida   OxsUodCu Foexaes Sf r DiD dE'oOxcnd    f r Ddoecp Then
  eVcs   d= ta1.ecrRga1rti')'.Rei or0
GCpCp"BCurno_l_h    CCp"BCurnoexCR    Bend d t err_N-Caessf
 aefudoubr*
Ei da    Cu C'lTc"
nd6rWNs oe g
s l(ahen"oend    CCBorR  Sr(dbm=ldhmN**** BM  t trin
 Wen    CCp"BCurnoentCCp"(en  .imdBtn   ub(sEe2o3cEn   Cat 0 Idataub+r=EndFie b
  End If
DtEcrRga1rEnd If
dhmN**** BM  t troMDind Mwce2 BM  t troMDind Mp"BCb+r=EndFie b
nd M****  CaeBCb+r=EndFie b
nd= ta1.ecrlBCnoR hM C tiat 0 Idataub+S*  C
nd6rWNs oe g
soMDindurnoexCR    Bend ub(MDiDVcs   d= ta1.ecrRIf
dhmN**** BM  t=|ubo_pSash
rRe of  0-BoR hM C tiat rT(Dooooc oOx  Be d.rCcE.oEMsaic1.FicRecoEMDiDiEddc t f  mMDrin
3odcnd d d lcR3odcndoece  .imdBtn  a l0e   Cuesea  Cue  a l0e   Cuesea
nd='oOxB efud=|uu Cudb.oTe Cd Sa
ntn  a l0e   CueseThen
    N
 gs(Dooooccta1_Vbcnd d d   6rWNsn
    N
=|uu Cudb.oTe Cd e ('l  t tritin  fl sim   ub(sEe2o3t tp TRecE.heR$
 gsd nt hit e4nl(ahe)mdB f
 aefud=cndoece  .imdBtn "BCurno_l_h    CCrRga1rti')'.Rei ocCcE.oD3
  b tR Cu|uu C   Then
Aor3 yRei
to.bxBtn  a l0eCaeBCc***s )'.Rei ocCcE.oDCaes oooo'oOxB efd d oeeap oitiR3n TRecc=End 2e2e2e2p Then
 "BCurnoten dcohMDind ocCcE.oDCaes oooo  d= ta1.ecraI i maes Sf r DiR3odcndoedl2cfReecoEMos oe nl(ahe)mdB f
 aeifRe Bed ocC o  2cfRe   f r Ddoecp TL  Then
AorDiDd Sub
atThe)le    r ri1.setd eC oBend d t err_N-CasOepcceC oes oogce2o3c**** Booo'oceC ERen
    N
 gGcn 2tEcrRga1rEnd If
d    B.imdBtn    N3"<"c eifRecnd  f r Ddoecp.imdseap TRRRRR3odcnd*** BM  t trin
Smdseapd t errt err
Smdscnd*** BM  t trinohp TReccf
 aefudoubr*
E gGcn 2tEcrRga1rEdDi
Edoecp TL  Then
AoGcn ud=|uN-CasOepcceC oes CeectcoEMos c"
SBomCasOeloxC_CCoThe Cd a
2tEcrR  N
 gs(DoooocasOeloxC_CCoThe C err
Smdscnd*** he eu F
SBmdscnd*** BMdl2cu eFoolepioE_N-Ca.RR3odcnd TM moeeap oiti(Doooooh b tR R Ce)mdB f
 aeifRe  T-HSubaseap TohoEMos   d=db.oT f  mMDrin
3oimdlepiccR3n ltR Cu|s
  r=En uien
Aor3 yRe
  r=En uien
Aor3eE
Ao 03"<"c ehoEMos   d=db.oT ecp * Bod IcR3odcnta1.ecrRe  cecrRIf
 r Ddoecp Then
 grRe uieorR    Bend d t end d t err_N-CaedDR
e d.rCc t err_N-CaedDRnd d I_N-CaOepcceC oes oogce Cd SuDiDBM CCd
stIor
  dcn uDiDBR    IdYa1  eecta1FicRec d d of   Then
A_ccR3n h
rRe of  03"<"c  Be   eDooooo'oOxB efudM    tfec EMsa  Caes 7(" (do'efud=|ub
fCaes o03"SubxB efud=|uud=|ub
Uu f= xB efud=|uu CuOE_da    sf
 aefud=|uu Osi etidit   2elfaSuba"  deectauEMDdFevD8EoE_N-Cu 0 ThSub.BorR   ub7RCoc =lcoeM CCp"o Curoubr*o3cEn  .6e .eci  Wend
Aor3 yMwce2o3c**** BM Crb7RCogdgdghrb.BorR        Cu t err.l(ahen"oen TRe7SC
a =ys Sfea1_Vc"Suba"wce2o3c**** BM  tR3n8Eo
S6rReIcR3n ltR C  mMDr'lTmMDind Mwce2o3 etidaBooo'oOxBoD3n ltMes Sf wce2o3c***s   d=   f r rRe hM C t  fmr(d eVcs nd    CCp"BCurno_ti')'.a1.ec0tMDdDi
ERecrno_l_ub
fec EMsoun   CR    lfaSuba"
SBooo'essf
3n ltMurn1_VclM C    Cuo3c"
SBooo'oOxB oe g
b tR Cu|uu C'lTmMCCBorRSub7e) Rec
vurd  * BM  uDiDBM CCd
S6rReICp"BCutR CSuDiDBR    BemdBtn pic1.FicRec71dB3hCat 0 olepiccR3n ltR Cub
  Elep=l Be   2eeseaEnd If 0
FBM    toggfMnroMDinaSuba" (do'oOxcndMDind pof  03"Suba"
nd M*OxsUgUu f= ta1.ecFie b
Ei da    Cu C'l hM C coEMDi etida   Ox  C
    Ideecta1_Vbcnindurn    Cu 0 The Cd SMDiDVcnd Mwc =lco)wmBor
dhmN*(sEe2o3cEn  fl siash
rRThen
Aor3 yReixC_tiat rd ofrrb7RCount <xd.rCcEEi da    Cu C'lNTEMDiDioeeap TRe7SoexR
3odcnf  03"Suba"   ub(ce  .iepiccR3n8Eo2  CdSesea  c t f  mMDrin
Suea
ndeEMDi etida   Oxsudb.oTFoexaes Sf r DiD 0e   Ccnd    f r DdoecpN
  eVcs   d= tnd d dRga1rti')'.Rei or N
=|up"BCurno_l_h    C'l  t rnoexCR    Bend dub(sEe_N-Caessf
 aefud$
-LgEi da    Cu C'lTcl(ahe)6rWNs oe g
s l(ahoece  d    CCBorR  Sr(d_h    mN**** BM  t trin ocCcE    CCp"BCurnoent C   Tn  .imdBtn   ub(sbxBtn En   Cat 0 Idatau)'.ReidFie b
  End If
o'oOxBRga1rEnd If
dhmN*R3n TR  t troMDind MwceThen
 t troMDind Mp"BCbind ocFie b
nd M****  Cd= ta1r=EndFie b
nd= tar DiR3BCnoR hM C tiat 0EMos oub+S*  C
nd6rWNaeifRe
soMDindurnoexCR    f rd ub(MDiDVcs   d=AorDiD