//AB/ Project Builder View //AB/ Object prj is a View_Project //AB/ Set ProjectName to "Builder View" //AB/ Set ProjectFileName to "CmBuilder.vw" //AB/ Set GenerateFileName to "NONAME" //AB/ Set Size to 390 577 // Project Object Structure // oBuilderView is a cRDSDbView // Sncsys_DD is a DataDictionary // Snctable_DD is a DataDictionary // Sncschem_DD is a DataDictionary // Snclog_DD is a DataDictionary // Sncthea_DD is a DataDictionary // Snctrow_DD is a DataDictionary // oImageList is a cRDScImageList // oMain_TD is a cRDSDbTabDialog // oDbTabPage1 is a cRDSDbTabPage // oSnctable_Recid is a cRDSDbForm // oSnctable_Sortfield is a cRDSDbForm // oSnctable_Hide is a cRDSDbCheckBox // oSnctable_Datetime is a cRDSDbForm // oSnctable_Createdby is a cRDSDbForm // oSnctable_Text is a cRDSDbForm // oSnctable_Lastedited is a cRDSDbForm // oSnctable_Editedby is a cRDSDbForm // oDbTables_td is a cRDSDbTabDialog // oDataTables_tp is a cRDSDbTabPage // oFromDatabase_grp is a cRDSDbGroup // oSnctable_Fromdbtype is a cDbComboformFormat // oSnctable_Fromserver is a cDbComboformServer // oFromDSN_grp is a cRDSDbRadioGroup // oFromRadio1 is a Radio // oFromRadio2 is a Radio // oFromRadio3 is a Radio // oFromODBCText is a Textbox // oSnctable_Fromdatabase is a cDbComboFormDatabase // oSnctable_Fromuser is a cDbFormUser // oSnctable_Frompv is a cDbFormPassword // oSnctable_Fromntauth is a cDbCheckBoxNtAuth // oSnctable_Fromowner is a cDbFormSchema // oSnctable_Fromfilepath is a cDbFormPath // oSnctable_FromDataTable is a cDbComboformDataTable // oSnctable_Frfileoemtoansi is a cRDSDbCheckBox // oNoOfFromRecords_fm is a cRDSForm // oSnctable_Fromdriver is a cDbComboformDriver // oFromLogin_bn is a cLoginButton // oFromPath_bn is a cPathButton // oViewFromData_bn is a cViewDataButton // oFromRecordRefresh_bn is a cBitmapButton // oFromFileDSN_bn is a cFileDSNButton // oFromODBCAdmin_bn is a cODBCAdminButton // oToDatabase_grp is a cRDSDbGroup // oSnctable_Todbtype is a cDbComboformFormat // oSnctable_Toserver is a cDbComboformServer // oToDSN_grp is a cRDSDbRadioGroup // oToRadio4 is a Radio // oToRadio5 is a Radio // oToRadio6 is a Radio // oToODBCText is a Textbox // oSnctable_Todatabase is a cDbComboFormDatabase // oSnctable_Touser is a cDbFormUser // oSnctable_Topv is a cDbFormPassword // oSnctable_Tontauth is a cDbCheckBoxNtAuth // oSnctable_Toowner is a cDbFormSchema // oSnctable_Tofilepath is a cDbFormPath // oSnctable_ToDataTable is a cDbComboformDataTable // oSnctable_Tofileoemtoansi is a cRDSDbCheckBox // oNoOfToRecords_fm is a cRDSForm // oSnctable_Todriver is a cDbComboformDriver // oToLogin_bn is a cLoginButton // oToPath_bn is a cPathButton // oViewToData_bn is a cViewDataButton // oToRecordRefresh_bn is a cBitmapButton // oToFileDSN_bn is a cFileDSNButton // oToODBCAdmin_bn is a cODBCAdminButton // oDbTabPage2 is a cRDSDbTabPage // oDbTabPage3 is a cRDSDbTabPage // oDbTabPage4 is a cRDSDbTabPage // oDbTabPage5 is a cRDSDbTabPage // oDbTabPage6 is a cRDSDbTabPage // oDbTabPage7 is a cRDSDbTabPage // oDbTabPage8 is a cRDSDbTabPage // oCollections_tb is a cRDSDbTabPage // oRun_TP is a cRDSDbTabPage // oLog_tp is a cRDSDbTabPage // Register all objects Register_Object oBuilderView Register_Object oCollections_tb Register_Object oDataTables_tp Register_Object oDbTables_td Register_Object oDbTabPage1 Register_Object oDbTabPage2 Register_Object oDbTabPage3 Register_Object oDbTabPage4 Register_Object oDbTabPage5 Register_Object oDbTabPage6 Register_Object oDbTabPage7 Register_Object oDbTabPage8 Register_Object oFromDatabase_grp Register_Object oFromDSN_grp Register_Object oFromFileDSN_bn Register_Object oFromLogin_bn Register_Object oFromODBCAdmin_bn Register_Object oFromODBCText Register_Object oFromPath_bn Register_Object oFromRadio1 Register_Object oFromRadio2 Register_Object oFromRadio3 Register_Object oFromRecordRefresh_bn Register_Object oImageList Register_Object oLog_tp Register_Object oMain_TD Register_Object oNoOfFromRecords_fm Register_Object oNoOfToRecords_fm Register_Object oRun_TP Register_Object oSnctable_Createdby Register_Object oSnctable_Datetime Register_Object oSnctable_Editedby Register_Object oSnctable_Frfileoemtoansi Register_Object oSnctable_FromDataTable Register_Object oSnctable_Fromdatabase Register_Object oSnctable_Fromdbtype Register_Object oSnctable_Fromdriver Register_Object oSnctable_Fromfilepath Register_Object oSnctable_Fromntauth Register_Object oSnctable_Fromowner Register_Object oSnctable_Frompv Register_Object oSnctable_Fromserver Register_Object oSnctable_Fromuser Register_Object oSnctable_Hide Register_Object oSnctable_Lastedited Register_Object oSnctable_Recid Register_Object oSnctable_Sortfield Register_Object oSnctable_Text Register_Object oSnctable_ToDataTable Register_Object oSnctable_Todatabase Register_Object oSnctable_Todbtype Register_Object oSnctable_Todriver Register_Object oSnctable_Tofileoemtoansi Register_Object oSnctable_Tofilepath Register_Object oSnctable_Tontauth Register_Object oSnctable_Toowner Register_Object oSnctable_Topv Register_Object oSnctable_Toserver Register_Object oSnctable_Touser Register_Object oToDatabase_grp Register_Object oToDSN_grp Register_Object oToFileDSN_bn Register_Object oToLogin_bn Register_Object oToODBCAdmin_bn Register_Object oToODBCText Register_Object oToPath_bn Register_Object oToRadio4 Register_Object oToRadio5 Register_Object oToRadio6 Register_Object oToRecordRefresh_bn Register_Object oViewFromData_bn Register_Object oViewToData_bn Register_Object Snclog_DD Register_Object Sncschem_DD Register_Object Sncsys_DD Register_Object Snctable_DD Register_Object Sncthea_DD Register_Object Snctrow_DD //AB-IgnoreStart Use cRDSDbView.pkg Use DataDict.pkg Use cRDScImageList.pkg Use cRDSDbTabDialog.pkg Use cRDSDbTabPage.pkg Use cRDSDbForm.pkg Use cRDSDbCheckBox.pkg Use cRDSDbGroup.pkg Use cDbComboformFormat.pkg Use cDbComboformServer.pkg Use cRDSDbRadioGroup.pkg Use dfRadio.pkg Use Windows.pkg Use cDbComboFormDatabase.pkg Use cDbFormUser.pkg Use cDbFormPassword.pkg Use cDbCheckBoxNtAuth.pkg Use cDbFormSchema.pkg Use cDbFormPath.pkg Use cDbComboformDataTable.pkg Use cRDSForm.pkg Use cDbComboformDriver.pkg Use cLoginButton.pkg Use cPathButton.pkg Use cViewDataButton.pkg Use cBitmapButton.pkg Use cFileDSNButton.pkg Use cODBCAdminButton.pkg //AB-IgnoreEnd //AB-IgnoreStart Use SNCSYS.DD Use SNCTABLE.DD Use SncSchem.dd Use Snclog.dd Use SNCTHEA.DD Use SnctRow.dd //AB-IgnoreEnd DEFERRED_VIEW Activate_oBuilderView FOR ; ; Object oBuilderView is a cRDSDbView //AB-StoreTopStart Property Handle phoDD 0 //AB-StoreTopEnd Set Border_Style to Border_None Set Caption_Bar to FALSE Set Location to 0 0 Set Size to 369 558 Set piMinSize to 369 558 Set Auto_Clear_DEO_state to FALSE //AB-DDOStart Object Sncsys_DD is a Sncsys_DataDictionary End_Object // Sncsys_DD Object Snctable_DD is a SncTable_DataDictionary End_Object // Snctable_DD Object Sncschem_DD is a Sncschem_DataDictionary End_Object // Sncschem_DD Object Snclog_DD is a Snclog_DataDictionary End_Object // Snclog_DD Object Sncthea_DD is a Sncthea_DataDictionary Set DDO_Server to Snctable_DD Set Constrain_File to Snctable.File_Number End_Object // Sncthea_DD Object Snctrow_DD is a SnctRow_DataDictionary Set DDO_Server to Sncthea_DD Set Constrain_File to Sncthea.File_Number End_Object // Snctrow_DD Set Main_DD to Snctable_DD Set Server to Snctable_DD //AB-DDOEnd Object oImageList is a cRDScImageList //AB/ Set Location to 0 528 Set piMaxImages to 11 //AB-StoreStart Procedure OnCreate Integer iIndex // Top tab-pages Get AddTransparentImage "File16.bmp" clWhite To iIndex Get AddTransparentImage "Collection16.bmp" clFuchsia To iIndex Get AddTransparentImage "CmEngine16.bmp" clWhite To iIndex // Get AddTransparentImage "CmEngine16.bmp" clWhite To iIndex // ??? Get AddTransparentImage "Log16.bmp" clFuchsia To iIndex // Tables Setup tab-pages: Get AddTransparentImage "Tables16.bmp" clWhite To iIndex Get AddTransparentImage "Fields16.bmp" clFuchsia To iIndex Get AddTransparentImage "Index16.bmp" clWhite To iIndex Get AddTransparentImage "Constrain16.bmp" clWhite To iIndex Get AddTransparentImage "Nulls16.bmp" clWhite To iIndex Get AddTransparentImage "ValTran16.bmp" clLtGray To iIndex Get AddTransparentImage "Flags16.bmp" clWhite To iIndex Get AddTransparentImage "Other16.bmp" clWhite To iIndex Get AddTransparentImage "Info.bmp" clFuchsia To iIndex Get AddTransparentImage "Warning.bmp" clFuchsia To iIndex Get AddTransparentImage "Error.bmp" clFuchsia To iIndex End_Procedure // OnCreate //AB-StoreEnd End_Object // oImageList Object oMain_TD is a cRDSDbTabDialog Set Size to 365 558 Set Location to 4 0 Set Rotate_Mode to RM_Rotate Set phoImageList to oImageList Set Auto_Clear_DEO_state to FALSE Object oDbTabPage1 is a cRDSDbTabPage Set Label to "1. Database Connections" Set Tab_ToolTip_Value to "Create/Edit/Delete Connection records for Source and Destination Data Tables" Object oSnctable_Recid is a cRDSDbForm //AB-StoreTopStart Register_Procedure DoFlipToobarPromptState Boolean bState //AB-StoreTopEnd Entry_Item Snctable.Recid Set Label to "Id (Auto generated):" Set Size to 13 70 Set Location to 4 83 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right //AB-StoreStart Set Form_Button_Bitmap 0 To 'FindSmall.bmp' //Procedure Entering Returns Integer // Forward Send Entering // If (oToolbar(Self)) Send DoFlipToobarPromptState Of (oToolbar(Self)) True //End_Procedure //Procedure Exiting Integer iTo Returns Integer // Forward Send Exiting iTo // Send DoFlipToobarPromptState Of oToolbar False //End_Procedure //AB-StoreEnd End_Object // oSnctable_Recid Object oSnctable_Sortfield is a cRDSDbForm Entry_Item Snctable.Sortfield Set Label to "Sort Name:" Set Size to 13 79 Set Location to 4 218 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right //AB-StoreStart Set Form_Button_Bitmap 0 To 'FindSmall.bmp' Procedure Entering Returns Integer Forward Send Entering Send DoFlipToobarPromptState Of oToolbar True End_Procedure Procedure Exiting Integer iTo Returns Integer Forward Send Exiting iTo Send DoFlipToobarPromptState Of oToolbar False End_Procedure //AB-StoreEnd End_Object // oSnctable_Sortfield Object oSnctable_Hide is a cRDSDbCheckBox Entry_Item Snctable.Hide Set Label to "Hide record" Set Size to 13 50 Set Location to 4 304 End_Object // oSnctable_Hide Object oSnctable_Datetime is a cRDSDbForm Entry_Item Snctable.Datetime Set Label to "Record Created:" Set Size to 13 72 Set Location to 4 425 Set peAnchors to anTopRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Datetime Object oSnctable_Createdby is a cRDSDbForm Entry_Item Snctable.Createdby Set Label to "By:" Set Size to 13 39 Set Location to 4 511 Set peAnchors to anTopRight Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Createdby Object oSnctable_Text is a cRDSDbForm Entry_Item Snctable.Text Set Label to "Description:" Set Size to 13 271 Set Location to 18 83 Set peAnchors to anTopLeftRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Text Object oSnctable_Lastedited is a cRDSDbForm Entry_Item Snctable.Lastedited Set Label to "Last Edited:" Set Size to 13 72 Set Location to 18 425 Set peAnchors to anTopRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Lastedited Object oSnctable_Editedby is a cRDSDbForm Entry_Item Snctable.Editedby Set Label to "By:" Set Size to 13 39 Set Location to 18 511 Set peAnchors to anTopRight Set Label_Col_Offset to 0 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Editedby Object oDbTables_td is a cRDSDbTabDialog Set Size to 315 551 Set Location to 34 0 Set Rotate_Mode to RM_Rotate Set phoImageList to oImageList Set Auto_Clear_DEO_state to FALSE Object oDataTables_tp is a cRDSDbTabPage Set Label to "Database Tables" Set Tab_ToolTip_Value to "Source and target database table details" Set piImageIndex to 4 Object oFromDatabase_grp is a cRDSDbGroup Set Size to 146 539 Set Location to 0 4 Set peAnchors to anTopLeftRight Set Label to "Source Database" Object oSnctable_Fromdbtype is a cDbComboformFormat Entry_Item Snctable.Fromdbtype Set Label to "Database Format:" Set Size to 13 150 Set Location to 10 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to FALSE Set pbFrom to TRUE //AB-StoreStart Procedure Next_Object_Id //Showln "Next_Object_Id" Forward Send Next_Object_Id End_Procedure // Next_Object_Id //On_Key key_tab Send Next_Object_Id //AB-StoreEnd End_Object // oSnctable_Fromdbtype Object oSnctable_Fromserver is a cDbComboformServer Entry_Item Snctable.Fromserver Set Label to "Server:" Set Size to 13 150 Set Location to 25 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to TRUE End_Object // oSnctable_Fromserver Object oFromDSN_grp is a cRDSDbRadioGroup //AB-StoreTopStart Property Handle phoServerObject (oSnctable_FromServer(Self)) Property Handle phoFileDSN_bn 0 // Set by the object itself. Property Integer piDbType 0 Property Boolean pbFrom True //AB-StoreTopEnd Entry_Item Snctable.Fromdsntype Set Size to 52 244 Set Location to 22 288 Set peAnchors to anTopRight Set Label to "Select an ODBC Data Source Type" Object oFromRadio1 is a Radio Set Label to "User Data Sources" Set Size to 10 77 Set Location to 10 5 //AB-StoreStart //AB-StoreEnd End_Object // oFromRadio1 Object oFromRadio2 is a Radio Set Label to "System Data Sources" Set Size to 10 85 Set Location to 10 83 Set Status_Help to "Click to se the descriptive text below change" //AB-StoreStart //AB-StoreEnd End_Object // oFromRadio2 Object oFromRadio3 is a Radio Set Label to "File Data Sources" Set Size to 10 73 Set Location to 10 170 Set Status_Help to "Press the 'Select File' button to select a Data Source" //AB-StoreStart //AB-StoreEnd End_Object // oFromRadio3 Object oFromODBCText is a Textbox Set Label to "An ODBC File data source allows you to connect to a data provider. File DSNs can be shared by users who have the same drivers installed. NOTE: You can now press the 'Select File' button." Set Auto_Size_State to FALSE Set Location to 24 7 Set Size to 24 233 Set Justification_Mode to jMode_Left Set TypeFace to "MS Sans Serif" End_Object // oFromODBCText //AB-StoreStart Procedure DoEnableDisable Integer iValue Set piDbType To iValue Set Enabled_State To (iValue = 4) Set Enabled_State Of (oFromODBCAdmin_bn(Self)) To (iValue = 4) Set Current_Radio To 1 Set Current_Radio To 0 End_Procedure // DoEnableDisable // This shouldn't be needed but something is broken in VDF8: Procedure DoFindData Integer iFile iField iType Handle hoDD Get Data_File To iFile Get Data_Field To iField Get Server To hoDD Get File_Field_Current_Value Of hoDD iFile iField To iType Set Current_Radio To iType End_Procedure // DoFindData Procedure Notify_Select_State Integer iToItem Integer iFromItem Handle ho Integer iFile iField Forward Send Notify_Select_State iToItem iFromItem Get Data_File To iFile Get Data_Field To iField Set File_Field_Changed_Value Of (Server(Self)) iFile iField To iToItem Move (oFromODBCText(Self)) To ho If Not (Enabled_State(Self)) Begin Set Value Of ho Item 0 To "" Procedure_Return End // If (ho And Not(Enabled_State(Self))) Begin If (iToItem = 0) Set Value Of ho Item 0 To ; ("An ODBC User data source stores information about how to connect to" * ; "the indicated data provider. A User data source is only visible to you," * ; "and can only be used on the current machine.") If (iToItem = 1) Set Value Of ho Item 0 To ; ("An ODBC System data source stores information about how to connect to" * ; "the indicated data provider. A System data source is visible to all users" * ; "on this machine, including NT services.") If (iToItem = 2) Begin Set Value Of ho Item 0 To ; ("An ODBC File data source allows you to connect to a data provider. File" * ; "DSNs can be shared by users who have the same drivers installed. NOTE:" * ; "You can now press the 'Select File' button.") End // If (iToItem = 2) Begin If (phoFileDSN_bn(Self)) Set Enabled_State Of (phoFileDSN_bn(Self)) To (iToItem = 2) If (iToItem <> 2) Begin If (pbFrom(Self)) Set Field_Changed_Value Of (Main_DD(Self)) Field SncTable.FromFilePath To "" Else Set Field_Changed_Value Of (Main_DD(Self)) Field SncTable.ToFilePath To "" End // If (iToItem <> 2) Begin If (iToItem <> iFromItem And iToItem <> 2) Send DoEnableDisable Of (phoServerObject(Self)) (piDbType(Self)) End_Procedure // Notify_Select_State //AB-StoreEnd End_Object // oFromDSN_grp Object oSnctable_Fromdatabase is a cDbComboFormDatabase Entry_Item Snctable.Fromdatabase Set Label to "Database Name:" Set Size to 13 150 Set Location to 40 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to TRUE End_Object // oSnctable_Fromdatabase Object oSnctable_Fromuser is a cDbFormUser Entry_Item Snctable.Fromuser Set Label to "User Name:" Set Size to 13 150 Set Location to 70 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to TRUE End_Object // oSnctable_Fromuser Object oSnctable_Frompv is a cDbFormPassword Entry_Item Snctable.Frompv Set Label to "Password:" Set Size to 13 150 Set Location to 85 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Frompv Object oSnctable_Fromntauth is a cDbCheckBoxNtAuth Entry_Item Snctable.Fromntauth Set Label to "Use Windows NT Authentication" Set Size to 13 120 Set Location to 56 76 //AB-StoreStart //AB-StoreEnd End_Object // oSnctable_Fromntauth Object oSnctable_Fromowner is a cDbFormSchema Entry_Item Snctable.Fromowner Set Label to "Schema Name:" Set Size to 13 150 Set Location to 100 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to TRUE End_Object // oSnctable_Fromowner Object oSnctable_Fromfilepath is a cDbFormPath Entry_Item Snctable.Fromfilepath Set Label to "Table Path:" Set Size to 13 378 Set Location to 114 76 Set peAnchors to anTopLeftRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to TRUE End_Object // oSnctable_Fromfilepath Object oSnctable_FromDataTable is a cDbComboformDataTable Entry_Item Snctable.Fromdatatable Set Label to "Table Name:" Set Size to 13 150 Set Location to 130 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to TRUE //AB-StoreStart Function Prior_Object_Id Returns Integer Handle ho Forward Get Prior_Object_Id 0 To ho If (ho = 0) Move (oSnctable_Fromdbtype(Self)) To ho Function_Return ho End_Function // Prior_Object_Id //AB-StoreEnd End_Object // oSnctable_FromDataTable Object oSnctable_Frfileoemtoansi is a cRDSDbCheckBox Entry_Item Snctable.Frfileoemtoansi Set Label to "Data saved in ANSI format" Set Size to 13 98 Set Location to 131 287 //AB-StoreStart Procedure DoEnableDisable Integer iValue If (Not(Current_Record(Main_DD(Self))) And iValue > 1 And iValue < 6) ; Set Checked_State To True End_Procedure // DoEnableDisable // We _must_ have this, else the program will hang while trying // to figure out the next_object_id with the cBitmap objects: //Function Next_Object_Id Returns Integer // Handle ho // Move (oSnctable_Todbtype(oToDatabase_grp(Self))) To ho // Function_Return ho //End_Function // Next_Object_Id //AB-StoreEnd End_Object // oSnctable_Frfileoemtoansi Object oNoOfFromRecords_fm is a cRDSForm Set Label to "Number of records:" Set Size to 13 60 Set Location to 129 457 Set Status_Help to "Current number of physical records in the selected database table" Set peAnchors to anTopRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Form_DataType to mask_numeric_window //AB-StoreStart //Set Form_Datatype item 0 To Mask_Numeric_Window Set Form_Mask Item 0 To "#,###########" Set Enabled_State To False //AB-StoreEnd End_Object // oNoOfFromRecords_fm Object oSnctable_Fromdriver is a cDbComboformDriver Entry_Item Snctable.Fromdriver Set Label to "Database Driver:" Set Size to 13 78 Set Location to 97 456 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to FALSE //AB-StoreStart Set pbHidden To True //AB-StoreEnd End_Object // oSnctable_Fromdriver Object oFromLogin_bn is a cLoginButton Set Label to "&Login" Set Size to 14 52 Set Location to 99 228 Set Status_Help to "Click to login to the selected database server/data source." Set Bitmap to "Keys16.bmp" Set Enabled_State to FALSE Set piTransparentColor to clWhite Set pbFrom to TRUE Set phoViewButton to (oViewFromData_bn(Self)) //AB-StoreStart //Procedure OnClick // Send DoServerConnect //End_Procedure // OnClick //AB-StoreEnd End_Object // oFromLogin_bn Object oFromPath_bn is a cPathButton Set Label to "&Select File" Set Size to 14 50 Set Location to 113 457 Set Status_Help to "Click to activate the Open File Dialog and select a database table. Only available for database format 'DataFlex' and 'Pervasive'" Set peAnchors to anTopRight Set Bitmap to "FolderO16.bmp" Set piTransparentColor to clWhite Set pbFrom to TRUE //AB-StoreStart Procedure OnClick Send DoOpenFileDialog End_Procedure // OnClick //AB-StoreEnd End_Object // oFromPath_bn Object oViewFromData_bn is a cViewDataButton Set Label to "&View Data" Set Size to 14 52 Set Location to 129 228 Set Status_Help to "View data for the selected database table." Set Bitmap to "ViewData16.bmp" Set Enabled_State to FALSE Set piTransparentColor to clWhite Set pbFrom to TRUE //AB-StoreStart Procedure OnClick Send DoViewData True -1 End_Procedure // OnClick //AB-StoreEnd End_Object // oViewFromData_bn Object oFromRecordRefresh_bn is a cBitmapButton Set Size to 14 16 Set Location to 128 518 Set Status_Help to "Refresh the number of records. (Alt+R)" Set peAnchors to anTopRight Set Bitmap to "Refresh16.bmp" Set piTransparentColor to clFuchsia //AB-StoreStart Procedure DoUpdateData Integer iFromFile Integer iToFile Boolean bFrom Integer iOpen iRecords String sDriver If iFromFile Get_Attribute DF_FILE_OPENED Of iFromFile To iOpen If iOpen Begin Get_Attribute DF_FILE_DRIVER Of iFromFile To sDriver If (sDriver = FLEX_DRV_ID Or sDriver = DFBTRDRV_ID) ; Get_Attribute DF_FILE_RECORDS_USED Of iFromFile To iRecords End // If iOpen Begin Set Value Of oNoOfFromRecords_fm To iRecords End_Procedure // DoUpdateData Procedure OnClick Integer iFile iOpen iRecords Get Field_Current_Value Of (Main_DD(Self)) Field SncTable.FromFile To iFile If iFile Get_Attribute DF_FILE_OPENED Of iFile To iOpen If iOpen Get_Attribute DF_FILE_RECORDS_USED Of iFile To iRecords Set Value Of oNoOfFromRecords_fm To iRecords End_Procedure // OnClick //AB-StoreEnd End_Object // oFromRecordRefresh_bn Object oFromFileDSN_bn is a cFileDSNButton //AB-StoreTopStart Set phoFileDSN_bn Of (oFromDSN_grp(Self)) To Self // Group property. //AB-StoreTopEnd Set Label to "Select File" Set Size to 14 50 Set Location to 76 423 Set Status_Help to "Button is only enabled when the 'File Data Sources' radio button has been selected." Set peAnchors to anTopRight Set Bitmap to "FolderO16.bmp" Set piTransparentColor to clWhite Set pbFrom to TRUE //AB-StoreStart //AB-StoreEnd End_Object // oFromFileDSN_bn Object oFromODBCAdmin_bn is a cODBCAdminButton Set Label to "ODBC Admin" Set Size to 14 58 Set Location to 76 474 Set Status_Help to "Start Windows 'ODBC Data Source Administrator'." Set peAnchors to anTopRight Set Bitmap to "ODBC16.bmp" Set piTransparentColor to clFuchsia End_Object // oFromODBCAdmin_bn //AB-StoreStart //Use LFFile.pkg // *** License check package *** On_Key Key_Alt+Key_R Send KeyAction Of oFromRecordRefresh_bn //On_Key Key_Alt+Key_C Send KeyAction Of oFromFileDSN_bn //On_Key Key_Alt+Key_D Send KeyAction Of oFromODBCAdmin_bn //AB-StoreEnd End_Object // oFromDatabase_grp Object oToDatabase_grp is a cRDSDbGroup Set Size to 148 539 Set Location to 147 5 Set peAnchors to anAll Set Label to "Target Database" Object oSnctable_Todbtype is a cDbComboformFormat Entry_Item Snctable.Todbtype Set Label to "Database Format:" Set Size to 13 150 Set Location to 10 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to FALSE Set pbFrom to FALSE //AB-StoreStart // We need this to return to the correct object if Shift+Tab // is pressed. Function Prior_Object_Id Returns Integer Handle ho Move (oSnctable_Frfileoemtoansi(oFromDatabase_grp(Self))) To ho Function_Return ho End_Function // Prior_Object_Id //AB-StoreEnd End_Object // oSnctable_Todbtype Object oSnctable_Toserver is a cDbComboformServer Entry_Item Snctable.Toserver Set Label to "Server:" Set Size to 13 150 Set Location to 25 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to FALSE End_Object // oSnctable_Toserver Object oToDSN_grp is a cRDSDbRadioGroup //AB-StoreTopStart Property Handle phoServerObject (oSnctable_ToServer(Self)) Property Handle phoFileDSN_bn 0 // Set by object itself. Property Integer piDbType 0 Property Boolean pbFrom False //AB-StoreTopEnd Entry_Item Snctable.Todsntype Set Size to 52 244 Set Location to 22 288 Set peAnchors to anTopRight Set Label to "Select an ODBC Data Source Type" Object oToRadio4 is a Radio Set Label to "User Data Sources" Set Size to 10 77 Set Location to 10 5 Set Status_Help to "Click to se the descriptive text below change" End_Object // oToRadio4 Object oToRadio5 is a Radio Set Label to "System Data Sources" Set Size to 10 85 Set Location to 10 83 Set Status_Help to "Click to se the descriptive text below change" End_Object // oToRadio5 Object oToRadio6 is a Radio Set Label to "File Data Sources" Set Size to 10 73 Set Location to 10 170 Set Status_Help to "Press the 'Select File' button to select a Data Source" End_Object // oToRadio6 Object oToODBCText is a Textbox Set Label to "An ODBC File data source allows you to connect to a data provider. File DSNs can be shared by users who have the same drivers installed. NOTE: You can now press the 'Select File' button." Set Auto_Size_State to FALSE Set Location to 24 7 Set Size to 24 233 Set Justification_Mode to jMode_Left Set TypeFace to "MS Sans Serif" End_Object // oToODBCText //AB-StoreStart Procedure DoEnableDisable Integer iValue Set piDbType To iValue Set Enabled_State To (iValue = 4) Set Enabled_State Of (oToODBCAdmin_bn(Self)) To (iValue = 4) Set Current_Radio To 1 Set Current_Radio To 0 End_Procedure // DoEnableDisable // This shouldn't be needed but something is broken in VDF8? Procedure DoFindData Integer iFile iField iType Handle hoDD Get Data_File To iFile Get Data_Field To iField Get Server To hoDD Get File_Field_Current_Value Of hoDD iFile iField To iType Set Current_Radio To iType End_Procedure // DoFindData Procedure Notify_Select_State Integer iToItem Integer iFromItem Handle ho Integer iFile iField Forward Send Notify_Select_State iToItem iFromItem Get Data_File To iFile Get Data_Field To iField Set File_Field_Changed_Value Of (Server(Self)) iFile iField To iToItem Move (oToODBCText(Self)) To ho If Not (Enabled_State(Self)) Begin Set Value Of ho Item 0 To "" Procedure_Return End // If (ho And Not(Enabled_State(Self))) Begin If (iToItem = 0) Set Value Of ho Item 0 To ; ("An ODBC User data source stores information about how to connect to" * ; "the indicated data provider. A User data source is only visible to you," * ; "and can only be used on the current machine.") If (iToItem = 1) Set Value Of ho Item 0 To ; ("An ODBC System data source stores information about how to connect to" * ; "the indicated data provider. A System data source is visible to all users" * ; "on this machine, including NT services.") If (iToItem = 2) Begin Set Value Of ho Item 0 To ; ("An ODBC File data source allows you to connect to a data provider. File" * ; "DSNs can be shared by users who have the same drivers installed. NOTE:" * ; "You can now press the 'Select File' button.") End // If (iToItem = 2) Begin If (phoFileDSN_bn(Self)) Set Enabled_State Of (phoFileDSN_bn(Self)) To (iToItem = 2) If (iToItem <> 2) Begin If (pbFrom(Self)) Set Field_Changed_Value Of (Main_DD(Self)) Field SncTable.FromFilePath To "" Else Set Field_Changed_Value Of (Main_DD(Self)) Field SncTable.ToFilePath To "" End // If (iToItem <> 2) Begin If (iToItem <> iFromItem And iToItem <> 2) Send DoEnableDisable Of (phoServerObject(Self)) (piDbType(Self)) End_Procedure // Notify_Select_State //AB-StoreEnd End_Object // oToDSN_grp Object oSnctable_Todatabase is a cDbComboFormDatabase Entry_Item Snctable.Todatabase Set Label to "Database Name:" Set Size to 13 150 Set Location to 40 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to FALSE End_Object // oSnctable_Todatabase Object oSnctable_Touser is a cDbFormUser Entry_Item Snctable.Touser Set Label to "User Name:" Set Size to 13 150 Set Location to 70 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to FALSE End_Object // oSnctable_Touser Object oSnctable_Topv is a cDbFormPassword Entry_Item Snctable.Topv Set Label to "Password:" Set Size to 13 150 Set Location to 85 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right End_Object // oSnctable_Topv Object oSnctable_Tontauth is a cDbCheckBoxNtAuth Entry_Item Snctable.Tontauth Set Label to "Use Windows NT Authentication" Set Size to 13 120 Set Location to 56 76 Set pbFrom to FALSE End_Object // oSnctable_Tontauth Object oSnctable_Toowner is a cDbFormSchema Entry_Item Snctable.Toowner Set Label to "Schema Name:" Set Size to 13 150 Set Location to 100 76 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to FALSE End_Object // oSnctable_Toowner Object oSnctable_Tofilepath is a cDbFormPath Entry_Item Snctable.Tofilepath Set Label to "Table Path:" Set Size to 13 379 Set Location to 114 76 Set peAnchors to anTopLeftRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set pbFrom to FALSE End_Object // oSnctable_Tofilepath Object oSnctable_ToDataTable is a cDbComboformDataTable Entry_Item Snctable.Todatatable Set Label to "Table Name:" Set Size to 13 150 Set Location to 130 76 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to TRUE Set pbFrom to FALSE //AB-StoreStart Function Prior_Object_Id Returns Integer Handle ho Forward Get Prior_Object_Id 0 To ho If (ho = 0) Move (oSnctable_Todbtype(Self)) To ho Function_Return ho End_Function // Prior_Object_Id //AB-StoreEnd End_Object // oSnctable_ToDataTable Object oSnctable_Tofileoemtoansi is a cRDSDbCheckBox Entry_Item Snctable.Tofileoemtoansi Set Label to "Save data in ANSI format" Set Size to 13 97 Set Location to 132 287 //AB-StoreStart Procedure DoEnableDisable Integer iValue If (Not(Current_Record(Main_DD(Self))) And iValue > 1 And iValue < 6) ; Set Checked_State To True // If (iValue = 1) Set Enabled_State To False // Else Set Enabled_State To True End_Procedure // DoEnableDisable // We _must_ have this, else the program will hang while trying // to figure out the next_object_id with the cBitmap objects: //Function Next_Object_Id Returns Integer // Handle ho // Move (oDbTabPage2(oDbTables_TD(Self))) To ho // Function_Return ho //End_Function // Next_Object_Id //AB-StoreEnd End_Object // oSnctable_Tofileoemtoansi Object oNoOfToRecords_fm is a cRDSForm Set Label to "Number of records:" Set Size to 13 60 Set Location to 130 457 Set Status_Help to "Current number of physical records in the selected database table" Set peAnchors to anTopRight Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Form_DataType to mask_numeric_window //AB-StoreStart Set Form_Mask Item 0 To "#,###########" Set Enabled_State To False //AB-StoreEnd End_Object // oNoOfToRecords_fm Object oSnctable_Todriver is a cDbComboformDriver Entry_Item Snctable.Todriver Set Label to "Database Driver:" Set Size to 13 78 Set Location to 96 457 Set Form_Border to 0 Set Label_Row_Offset to 0 Set Label_Col_Offset to 2 Set Label_Justification_Mode to jMode_Right Set Entry_State to FALSE Set Combo_Sort_State to FALSE //AB-StoreStart Set pbHidden To True //AB-StoreEnd End_Object // oSnctable_Todriver Object oToLogin_bn is a cLoginButton Set Label to "L&ogin" Set Size to 14 52 Set Location to 99 228 Set Status_Help to "Click to login to the selected database server/data source. You only need to do this if you get a login error." Set Bitmap to "Keys16.bmp" Set Enabled_State to FALSE Set piTransparentColor to clWhite Set pbFrom to FALSE Set phoViewButton to (oViewToData_bn(Self)) //AB-StoreStart //Procedure OnClick // Send DoServerConnect //End_Procedure // OnClick //AB-StoreEnd End_Object // oToLogin_bn Object oToPath_bn is a cPathButton Set Label to "Select &File" Set Size to 14 50 Set Location to 114 457 Set Status_Help to "Click to activate the Open File Dialog and select a database table. Only available for database format 'DataFlex' and 'Pervasive'" Set peAnchors to anTopRight Set Bitmap to "FolderO16.bmp" Set piTransparentColor to clWhite Set pbFrom to FALSE //AB-StoreStart Procedure OnClick Send DoOpenFileDialog End_Procedure // OnClick //AB-StoreEnd End_Object // oToPath_bn Object oViewToData_bn is a cViewDataButton Set Label to "View &Data" Set Size to 14 52 Set Location to 129 228 Set Status_Help to "View data for the selected database table." Set Bitmap to "ViewData16.bmp" Set Enabled_State to FALSE Set piTransparentColor to clWhite Set pbFrom to FALSE //AB-StoreStart Procedure OnClick Send DoViewData True -1 End_Procedure // OnClick //AB-StoreEnd End_Object // oViewToData_bn Object oToRecordRefresh_bn is a cBitmapButton Set Size to 14 16 Set Location to 130 518 Set Status_Help to "Refresh the number of records. (Alt+R)" Set peAnchors to anTopRight Set Bitmap to "Refresh16.bmp" Set piTransparentColor to clFuchsia //AB-StoreStart Procedure DoUpdateData Integer iFromFile Integer iToFile Boolean bFrom Integer iOpen iRecords String sDriver If iToFile Get_Attribute DF_FILE_OPENED Of iToFile To iOpen If iOpen Begin Get_Attribute DF_FILE_DRIVER Of iToFile To sDriver If (sDriver = FLEX_DRV_ID Or sDriver = DFBTRDRV_ID) ; Get_Attribute DF_FILE_RECORDS_USED Of iToFile To iRecords End // If iOpen Begin Set Value Of oNoOfToRecords_fm To iRecords End_Procedure // DoUpdateData Procedure OnClick Integer iFile iOpen iRecords Get Field_Current_Value Of (Main_DD(Self)) Field SncTable.ToFile To iFile If iFile Get_Attribute DF_FILE_OPENED Of iFile To iOpen If iOpen Get_Attribute DF_FILE_RECORDS_USED Of iFile To iRecords Set Value Of oNoOfToRecords_fm To iRecords End_Procedure // OnClick //AB-StoreEnd End_Object // oToRecordRefresh_bn Object oToFileDSN_bn is a cFileDSNButton //AB-StoreTopStart Set phoFileDSN_bn Of (oToDSN_grp(Self)) To Self // Group property. //AB-StoreTopEnd Set Label to "Select File" Set Size to 14 50 Set Location to 76 423 Set Status_Help to "Button is only enabled when the 'File Data Sources' radio button has been selected." Set Bitmap to "FolderO16.bmp" Set piTransparentColor to clWhite Set pbFrom to FALSE //AB-StoreStart //AB-StoreEnd End_Object // oToFileDSN_bn Object oToODBCAdmin_bn is a cODBCAdminButton Set Label to "ODBC Admin" Set Size to 14 58 Set Location to 76 474 Set Status_Help to "Start Windows 'ODBC Data Source Administrator'." Set Bitmap to "ODBC16.bmp" Set piTransparentColor to clFuchsia End_Object // oToODBCAdmin_bn //AB-StoreStart On_Key Key_Alt+Key_R Send KeyAction Of oToRecordRefresh_bn //On_Key Key_Alt+Key_C Send KeyAction Of oToFileDSN_bn //On_Key Key_Alt+Key_D Send KeyAction Of oToODBCAdmin_bn //AB-StoreEnd End_Object // oToDatabase_grp End_Object // oDataTables_tp Object oDbTabPage2 is a cRDSDbTabPage Set Label to "Fields/Columns" Set Tab_ToolTip_Value to "Field selection method and fields to include for the two tables" Set piImageIndex to 5 End_Object // oDbTabPage2 Object oDbTabPage3 is a cRDSDbTabPage Set Label to "Index/Sorting" Set Tab_ToolTip_Value to "Index to use to finding an equal Destination table record" Set piImageIndex to 6 End_Object // oDbTabPage3 Object oDbTabPage4 is a cRDSDbTabPage Set Label to "Filters" Set Tab_ToolTip_Value to "Filters or selections for the source table" Set piImageIndex to 7 End_Object // oDbTabPage4 Object oDbTabPage5 is a cRDSDbTabPage Set Label to "Null Defaults" Set Tab_ToolTip_Value to "Null defaults for the Destination table to use for undefined Source table values." Set piImageIndex to 8 End_Object // oDbTabPage5 Object oDbTabPage6 is a cRDSDbTabPage Set Label to "Value Conversion" Set Tab_ToolTip_Value to "Change a Source field value into something else for the Target table" Set piImageIndex to 9 End_Object // oDbTabPage6 Object oDbTabPage7 is a cRDSDbTabPage Set Label to "Mark Source Rows" Set Tab_ToolTip_Value to "Set field values for the source table records when a new Target record is created" Set piImageIndex to 10 End_Object // oDbTabPage7 Object oDbTabPage8 is a cRDSDbTabPage Set Label to "Other" Set Tab_ToolTip_Value to "Miscellaneous settings." Set piImageIndex to 11 End_Object // oDbTabPage8 End_Object // oDbTables_td //AB-StoreStart Procedure DoEnableDisable Boolean bstate End_Procedure //AB-StoreEnd End_Object // oDbTabPage1 Object oCollections_tb is a cRDSDbTabPage Set Label to "2. Collections of Database Connections" Set Tab_ToolTip_Value to "2. Collections of Database Connections" Set piImageIndex to 1 End_Object // oCollections_tb Object oRun_TP is a cRDSDbTabPage Set Label to "3. CrossMerge Engine" Set Tab_ToolTip_Value to "Set up defaults for and schedule when to run the CrossMerge Engine." Set piImageIndex to 2 End_Object // oRun_TP Object oLog_tp is a cRDSDbTabPage Set Label to "4. View Log" Set Tab_ToolTip_Value to "View Log records created by the CrossMerge Engine" Set piImageIndex to 3 End_Object // oLog_tp End_Object // oMain_TD //AB-StoreStart Set peAnchors To anAll // This needs to be manually set in VDF9.1 -> //AB-StoreEnd CD_End_Object // oBuilderView //AB/ End_Object // prj