  	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 VERSION =   3.00      ..\includes\tracker.h      dataenvironment      dataenvironment      Dataenvironment      Name = "Dataenvironment"
      1      1      t_form      ..\libs\t_base.vcx      form      
frmRebuild      ¤Height = 130
Width = 250
DoCreate = .T.
AutoCenter = .T.
Caption = "Database Utilities"
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "frmRebuild"
     ßPROCEDURE rebuildindexes
LOCAL laTables[1], ;
      i

CLOSE TABLES
FOR i = 1 to ADBOBJECTS(laTables, "Table")
  IF !EMPTY(laTables[i])
    IF !USED(laTables[i])
      USE (laTables[i]) IN 0 EXCL
      SELECT (laTables[i])
      WAIT WINDOW NOWAIT REINDEXING_LOC + UPPER(ALLTRIM(laTables[i])) + ".DBF"
      REINDEX
    ENDIF
  ENDIF
ENDFOR
CLOSE TABLES
WAIT WINDOW NOWAIT DONE_LOC

ENDPROC
PROCEDURE validatedbc
#DEFINE OUTFILE  "valdbc.txt"
CLOSE TABLES

IF FILE(OUTFILE)
  DELETE FILE OUTFILE
ENDIF

*this.WaitMode(.T.)
WAIT WINDOW NOWAIT VALIDATING_LOC
VALIDATE DATABASE TO FILE OUTFILE NOCONSOLE
WAIT CLEAR
*this.WaitMode(.F.)

MODIFY FILE OUTFILE NOMODIFY NOMENU

DELETE FILE OUTFILE
ENDPROC
      ,PROCEDURE Click
RELEASE thisform
ENDPROC
      
chkRebuild      checkbox      
frmRebuild      VTop = 93
Left = 33
FontBold = .T.
Caption = "\<Ok"
Enabled = .F.
Name = "cmdOk"
      t_commandbutton      	cmdCancel      commandbutton      ..\libs\t_base.vcx      ¶PROCEDURE Click
IF thisform.chkValidate.Value
  thisform.ValidateDBC()
ENDIF

IF thisform.chkRebuild.Value
  thisform.RebuildIndexes()
ENDIF

RELEASE thisform
  
ENDPROC
      cmdOk      commandbutton      
frmRebuild      t_commandbutton      ..\libs\t_base.vcx      
frmRebuild      !*rebuildindexes 
*validatedbc 
      
t_checkbox      ..\libs\t_base.vcx      checkbox      chkValidate      
frmRebuild      lTop = 24
Left = 65
Height = 17
Width = 120
Caption = "Validate DBC"
Value = .F.
Name = "chkValidate"
      \PROCEDURE Click
ThisForm.cmdOk.Enabled = This.Value OR ThisForm.chkRebuild.Value
ENDPROC
      BArial, 0, 9, 5, 15, 12, 13, 3, 0
Arial, 1, 9, 6, 15, 12, 13, 3, 0
      
t_checkbox      ..\libs\t_base.vcx      ^Top = 93
Left = 132
FontBold = .T.
Cancel = .T.
Caption = "\<Cancel"
Name = "cmdCancel"
      nTop = 51
Left = 65
Height = 17
Width = 120
Caption = "Rebuild Indexes"
Value = .F.
Name = "chkRebuild"
      ]PROCEDURE Click
ThisForm.cmdOk.Enabled = This.value OR ThisForm.chkValidate.Value
ENDPROC
      X  ..\includes\tracker.h6¬A¿’' ..\includes\foxpro.h>­ 0Õ ..\includes\strings.hF®}¿’'      »þòÿ    ¢   ¢                         ;   %   D       Y      S           ü  U  
  <÷  þ U  THISFORM Click,     ÿÿ1 q 1                       !       )   ¢                        Lþòÿ    3  3                        9   %   É       ê   	   Ø           ü  U  R  %üô  ô ÷ ýù  þ ™üCô  ö ýþ þ %üô  ô ÷ ýùD þ ™üCô  ö ýþ þ <÷  þ U  THISFORM CHKVALIDATE VALUE VALIDATEDBC
 CHKREBUILD REBUILDINDEXES Click,     ÿÿ1 1Ñ A 2Ñ A r 2                       «       )   3                       þòÿ    è   è                         é   %   Š       Ÿ      ™           ü  U  & # Tô  ô ÷ üô ÷ ñ
 ô  ô ÷ ýþ U  THISFORM CMDOK ENABLED THIS VALUE CHKVALIDATE Click,     ÿÿ1 11                       R       )   è                         þòÿ    ç   ç                         ´é   %   ‰       ž      ˜           ü  U  & # Tô  ô ÷ üô ÷ ñ
 ô  ô ÷ ýþ U  THISFORM CMDOK ENABLED THIS VALUE
 CHKREBUILD Click,     ÿÿ1 11                       Q       )   ç                        ‡þòÿ    n  n                        èÜ   %   ´           á          ü  U  Û  ®ö  üøý÷ þ 1þ$ „÷ üøý(üCê÷  Ù Tableê˜ýùÀ þ %üCC ÷ ö  ¡
ýù¼ þ %üCC ÷ ö  ª
ýù¸ þ Qù  ¼üC ÷ ö  ýþ FüC ÷ ö  ýþ, R,:üÙ Reindexing: CCC ÷ ö  ›fÙ .DBFýþ ;þ þ þ …þ 1þ R,:üÙ Doneýþ U  LATABLES I˜  1þ %üCÙ
 valdbc.txt0ýù2 þ üÙ
 valdbc.txtýþ þ R,:üÙ Validating ...ýþ  Â(üÙ
 valdbc.txtý9þ Rþ /üÙ
 valdbc.txtýÅÊþ üÙ
 valdbc.txtýþ U   rebuildindexes,     ÿÿ validatedbc    ÿÿ1 R AQQQñ ÁA A A A Q ñ 3 R ’AA “qQ cB1                               ±  Ô      )   n                  
