Use dfClient.pkg Use Windows.pkg Use IOForms\filform.pkg Use IOForms\dirform.pkg Use cProgressBar.pkg Use cDescription.pkg Use SelectDatabasefile.dg Use datainit.vw ACTIVATE_VIEW Activate_Describe_vw FOR Describe_vw Object Describe_vw is a dbView Set Label to "Databasedescription" Set Location to 3 4 Set Size to 90 343 Object cnt3DBox is a Container3d Set Size to 67 338 Set Location to 2 2 Object oDataPath is a DirForm Set Label to "Data path:" Set Size to 13 233 Set Location to 2 99 Set Label_Col_Offset to 3 Set Label_Justification_Mode to jMode_Right Set RegistrationValueName to "dbUpdDataPath" Set Dialog_caption to "Select datapath" End_Object Object oFilelist is a FilForm Set Label to "Filelist.cfg:" Set Size to 13 233 Set Location to 17 99 Set Label_Col_Offset to 3 Set Label_Justification_Mode to jMode_Right Set RegistrationValueName to "dbUpdFilelist" Set Dialog_caption to "Select a filelist.cfg" Set Filter_String to "Filelist.cfg (*.cfg)|*.cfg|All files (*.*)|*.*" End_Object Object oDirOutput is a dirform Set Label to "Directory for descriptionfiles:" Set Size to 13 233 Set Location to 32 99 Set Label_Col_Offset to 3 Set Label_Justification_Mode to jMode_Right Set RegistrationValueName to "dbUpdDescDir" Set Dialog_caption to "Select a directory for descriptionfiles" End_Object Object Textbox1 is a Textbox Set Label to "Described:" Set FontSize to 4 0 Set Location to 48 60 Set Size to 10 35 Set TypeFace to "MS Sans Serif" End_Object // Textbox1 Object pStatus is a cProgressBar Set piMaximum to 4095 Set piAdvanceBy to 1 Set Location to 47 99 Set Size to 13 233 Set pbSmooth to True End_Object // pStatus End_Object // cnt3DBox Object oDescription is a cDescription Procedure OnSetProgressMax Integer iMaxPos Set piMaximum of pStatus to iMaxPos End_Procedure Procedure OnSetProgressPosition Integer iCurPos Set piPosition of pStatus to iCurPos End_Procedure End_Object Object cmdInitdata is a Button Set Label to "Databaseinitalizing" Set Size to 14 82 Set Location to 73 40 Procedure OnClick String sFilelist sDataPath sDescriptiondir sSelectedFileno Integer iLastBackSlash iError Get Value of oDataPath to sDataPath Get value of oFilelist to sFilelist Get value of oDiroutput to sDescriptiondir Move (Trim(sDataPath)) to sDataPath Move (Trim(sFilelist)) to sFilelist Move (Trim(sDescriptiondir)) to sDescriptiondir If (sDataPath = "") Begin Increment iError Send Info_Box "Select the datapath" End If (sFilelist = "") Begin Increment iError Send info_box "Select a filelist." End If (sDescriptiondir = "") Begin Increment iError Send info_box "Select a directory for descriptionfiles." End If (not(iError)) Begin Set_Attribute DF_FILELIST_NAME to sFilelist Set_Attribute DF_OPEN_PATH to sDataPath Set pIs_Viewed of SelectDatabasefile_dg to False Send close_panel Send Popup of SelectDatabasefile_dg Get psSelectedFilenumber of SelectDatabasefile_dg to sSelectedFileno Set psDescriptionDir of SelectDatabasefile_dg to sDescriptiondir If (sSelectedFileno <> "") Begin Send fill_the_list of datainit_vw sSelectedFileno sDescriptionDir Send activate_datainit_vw End End End_Procedure End_Object // cmdInitdata Object oStart is a Button Set Label to "Start" Set Location to 73 162 Procedure OnClick String sFilelist sDescriptiondir sDataPath Integer iError Get Value of oDataPath to sDataPath Get value of oFilelist to sFilelist Get value of oDiroutput to sDescriptiondir Move (Trim(sDataPath)) to sDataPath Move (Trim(sFilelist)) to sFilelist Move (Trim(sDescriptiondir)) to sDescriptiondir If (sDataPath = "") Begin Increment iError Send Info_Box "Select the datapath" End If (sFilelist = "") Begin Increment iError Send info_box "Select a filelist." End If (sDescriptiondir = "") Begin Increment iError Send info_box "Select a directory for descriptionfiles." End If (not(iError)) Begin Set psDataPath of oDescription to sDataPath Set psFilelist of oDescription to sFilelist Set psDescriptionDir of oDescription to sDescriptiondir Send DoDescribeDatabase of oDescription End End_Procedure End_Object Object oClose is a Button Set Label to "Close" Set Location to 73 252 Procedure OnClick Send close_panel End_Procedure End_Object End_Object