// Use FdxSelct.utl // Functions iFdxSelectOneFile and iFdxSelectOneField Use Fdx_Attr.utl // FDX compatible attribute functions Use FdxField.nui // FDX Field things Use FdxIndex.nui // Index analysing functions Use GridUtil.utl // Grid and List utilities Use SetOfFld.utl // cSetOfFields class Use DBMS.utl // Basic DBMS functions #IFDEF IS$WINDOWS Use APS // Auto Positioning and Sizing classes for VDF class cFdxSelectOneFileList is a aps.Grid #ELSE Use App.utl // Character Mode classes class cFdxSelectOneFileList is a app.List #ENDIF procedure construct_object integer img# forward send construct_object img# set line_width to 4 0 #IFDEF IS$WINDOWS set header_label item 0 to "#" set header_label item 1 to "Display name" set header_label item 2 to "DF name" set header_label item 3 to "Root name" set form_margin item 0 to 4 // set form_margin item 1 to 40 // set form_margin item 2 to 10 // set form_margin item 3 to 32 // set highlight_row_state to true set CurrentCellColor to clHighlight set CurrentCellTextColor to clHighlightText set CurrentRowColor to clHighlight set CurrentRowTextColor to clHighlightText // set highlight_row_color to (rgb(0,255,255)) // set current_item_color to (rgb(0,255,255)) set select_mode to no_select on_key knext_item send switch on_key kprevious_item send switch_back #ELSE set highlight_row_state to dfTrue #ENDIF on_key key_ctrl+key_r send sort_data property integer piValidateFunction public 0 property integer piValidateObject public 0 end_procedure #IFDEF IS$WINDOWS procedure mouse_click integer liItem integer liGrb if ((liItem-1)This function is defined in a package called "fdxselct.utl". This //>function calls an object defined just before the function (note that two //>versions of this object is defined, one for VDF and one for DF3.2). The //>Function returns the number of the selected file or 0 if the user //>cancelled the dialog. //> //>lhFDX: Object ID that holds a set of table definitions. VDFQuery passes //>zero in order not to use such an object and instead let the user select //>a table that is actually there (physically present). //> //>liDefaultFile: If this parameter is not zero, the cursor will locate //>itself on the corresponding file as the the dialog pops up. VDFQuery //>passes the number of the currently selected file. //> //>liValidFnc, liValidObj: Identifies a booelan function (liValidFnc) in an //>object (liValidObj) that may be used to validate each file, before it is //>added to the selection list (1 makes the file go in the list, 0 excludes //>the file). VDFQuery passes a function that checks that "@" is not part //>of the display name, and the the file has not been excluded by the //>programmer (this is what Dan Walsh describes with the //>VdfQuery_ExcludeFile message). //> //>Check the code calling this function in VDFQuery.utl to get the full //>picture function iFdxSelectOneFileValidate global integer lhFDX integer liDefaultFile integer liValidFnc integer liValidObj returns integer function_return (iPopup.iiii(oFdxSelectOneFile(self),lhFDX,liDefaultFile,liValidFnc,liValidObj)) end_function //> Function iFdxSelectOneFile returns number of selected file or 0 //> if the user cancelled the dialog. If the liDefaultFile parameter is the number //> of an existing table, the cursor will locate itself on that as the //> the dialog pops up. function iFdxSelectOneFile global integer lhFDX integer liDefaultFile returns integer function_return (iFdxSelectOneFileValidate(lhFDX,liDefaultFile,0,0)) end_function #IFDEF IS$WINDOWS object oFdxSelectOneField is a aps.ModalPanel label "Select field" set locate_mode to CENTER_ON_SCREEN set Border_Style to BORDER_THICK // Make panel resizeable property integer piResult public 0 property integer piFDX_Server public 0 property integer piCurrentFile public 0 property integer piLockFile public 0 on_key ksave_record send close_panel_ok on_key kcancel send close_panel on_key kprompt send Table_Select send aps_make_row_space 10 object oFrm1 is a aps.Form label "Table" abstract AFT_NUMERIC4.0 set label_justification_mode to JMODE_TOP set object_shadow_state to true end_object object oFrm2 is a aps.Form label "Display name" abstract AFT_ASCII40 snap SL_RIGHT set label_justification_mode to JMODE_TOP set object_shadow_state to true end_object object oFrm3 is a aps.Form label "DF name" abstract AFT_ASCII10 snap SL_RIGHT set label_justification_mode to JMODE_TOP set object_shadow_state to true end_object object oFrm4 is a aps.Form label "Root name" abstract AFT_ASCII35 snap SL_RIGHT set label_justification_mode to JMODE_TOP set object_shadow_state to true end_object procedure DoUpdateDisplay local integer oFDX# file# get piFDX_Server to oFDX# get piCurrentFile to file# set value of (oFrm1(self)) item 0 to file# set value of (oFrm2(self)) item 0 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_DISPLAY_NAME,file#)) set value of (oFrm3(self)) item 0 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,file#)) set value of (oFrm4(self)) item 0 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_ROOT_NAME,file#)) end_procedure object oLst is a cFdxSelectOneFieldList snap SL_DOWN relative_to (oFrm1(self)) on_key kenter send close_panel_ok end_object procedure close_panel_ok set piResult to 1 send close_panel end_procedure object oBtn1 is a aps.Multi_Button on_item t.btn.ok send close_panel_ok end_object object oBtn2 is a aps.Multi_Button on_item "Change table" send Table_Select end_object object oBtn3 is a aps.Multi_Button on_item t.btn.cancel send close_panel end_object send aps_locate_multi_buttons procedure Table_Select local integer file# oFDX# get piFDX_Server to oFDX# ifnot (piLockFile(self)) begin move (iFdxSelectOneFile(oFDX#,piCurrentFile(self))) to file# if file# begin send fill_list.iiii to (oLst(self)) oFDX# file# 0 0 set piCurrentFile to file# send DoUpdateDisplay end end end_procedure function iPopup.iii integer oFDX# integer lock_file# integer suggest# returns integer local integer rval# suggest_file# suggest_field# file# field# move (hi(suggest#)) to suggest_file# move (low(suggest#)) to suggest_field# set piResult to 0 if (lock_file# and suggest_file#) if lock_file# ne suggest_file# move 0 to suggest_file# ifnot suggest_file# move 0 to suggest_field# set piFDX_Server to oFDX# set piLockFile to lock_file# if lock_file# move lock_file# to file# else begin if suggest_file# move suggest_file# to file# else get FDX_NextFileThatCanOpen oFDX# 0 to file# // Find first# end if file# begin send fill_list.iiii to (oLst(self)) oFDX# file# suggest_file# suggest_field# set piCurrentFile to file# send DoUpdateDisplay send popup if (piResult(self)) begin get piCurrentFile to file# move (iCurrentField(oLst(self))) to field# move (file#*65536+field#) to rval# end else move 0 to rval# end else begin send obs "Sorry, no tables to select" move 0 to rval# end function_return rval# end_function procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 send aps_register_multi_button (oBtn1(self)) send aps_register_multi_button (oBtn2(self)) send aps_register_multi_button (oBtn3(self)) send aps_register_max_rc (oFrm4(self)) send aps_locate_multi_buttons send aps_auto_size_container end_procedure procedure aps_beautify send aps_align_by_moving (oFrm2(self)) (oFrm1(self)) SL_ALIGN_BOTTOM send aps_align_by_moving (oFrm3(self)) (oFrm2(self)) SL_ALIGN_BOTTOM send aps_align_by_moving (oFrm4(self)) (oFrm3(self)) SL_ALIGN_BOTTOM send aps_align_inside_container_by_moving (oLst(self)) SL_ALIGN_CENTER end_procedure end_object // oFdxSelectOneField #ELSE /FdxSelectOneField.Hdr ÉÍSelect FieldÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º º /FdxSelectOneField.Frm º # Display name DF name Root name º º___. ______________________________ _______________ _______________ º º º /FdxSelectOneField.Lst º # Name Typ Len OffSet Ix Relation º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º __. _______________ ___ _____ ____. _. _________________________ º º º /FdxSelectOneField.Btn º _____________ _________________ _____________ º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ /* object oFdxSelectOneField is a app.ModalClient FdxSelectOneField.Hdr property integer piFDX_Server public 0 property integer piCurrentFile public 0 property integer piLockFile public 0 set location to 6 5 absolute on_key kprompt send Table_Select object oFrm is a Form FdxSelectOneField.Frm set location to 2 0 relative set focus_mode to POINTER_ONLY item_list on_item "" send none on_item "" send none on_item "" send none on_item "" send none end_item_list set window_color item 0 to 2 set window_color item 1 to 2 set window_color item 2 to 2 set window_color item 3 to 2 procedure DoUpdateDisplay local integer oFDX# file# get piFDX_Server to oFDX# get piCurrentFile to file# set value item 0 to file# set value item 1 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_DISPLAY_NAME,file#)) set value item 2 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,file#)) set value item 3 to (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_ROOT_NAME,file#)) end_procedure end_object object oLst is a cFdxSelectOneFieldList FdxSelectOneField.Lst set location to 5 0 relative on_key kenter send ok end_object object oBtn is a app.Button FdxSelectOneField.Btn set location to 14 0 relative item_list on_item t.btn.ok send ok on_item "Change table" send Table_Select on_item t.btn.cancel send cancel end_item_list end_object procedure Table_Select local integer file# oFDX# get piFDX_Server to oFDX# ifnot (piLockFile(self)) begin move (iFdxSelectOneFile(oFDX#,piCurrentFile(self))) to file# if file# begin send fill_list.iiii to (oLst(self)) oFDX# file# 0 0 set piCurrentFile to file# send DoUpdateDisplay to (oFrm(self)) end end end_procedure function iPopup.iii integer oFDX# integer lock_file# integer suggest# returns integer local integer rval# suggest_file# suggest_field# file# field# move (hi(suggest#)) to suggest_file# move (low(suggest#)) to suggest_field# if (lock_file# and suggest_file#) if lock_file# ne suggest_file# move 0 to suggest_file# ifnot suggest_file# move 0 to suggest_field# set piFDX_Server to oFDX# set piLockFile to lock_file# if lock_file# move lock_file# to file# else begin if suggest_file# move suggest_file# to file# else get FDX_NextFileThatCanOpen oFDX# 0 to file# // Find first# end if file# begin send fill_list.iiii to (oLst(self)) oFDX# file# suggest_file# suggest_field# set piCurrentFile to file# send DoUpdateDisplay to (oFrm(self)) ui_accept self to rval# if rval# eq msg_ok begin get piCurrentFile to file# move (iCurrentField(oLst(self))) to field# move (file#*65536+field#) to rval# end else move 0 to rval# end else begin send obs "Sorry, no tables to select" move 0 to rval# end function_return rval# end_function end_object // oFdxSelectOneField #ENDIF //> Function iFdxSelectOneField returns selected file multiplied by 65536 //> plus the number of the selected field. If the user cancels the dialog //> 0 will be returned. If a file# is passed as the first parameter the //> dialog will be locked to that file. function iFdxSelectOneField global integer oFDX# integer file# integer suggest# returns integer function_return (iPopup.iii(oFdxSelectOneField(self),oFDX#,file#,suggest#)) end_function #IFDEF IS$WINDOWS Use APS // Auto Positioning and Sizing classes for VDF class cFdxSelectFieldsList is a aps.Grid #ELSE Use App.utl // Character Mode classes class cFdxSelectFieldsList is a app.List #ENDIF procedure construct_object integer img# forward send construct_object img# #IFDEF IS$WINDOWS send GridPrepare_AddColumn "" AFT_ASCII3 send GridPrepare_AddColumn "Name" AFT_ASCII25 send GridPrepare_AddColumn "Type" AFT_ASCII6 send GridPrepare_AddColumn "Length" AFT_ASCII8 send GridPrepare_AddColumn "Relates to" AFT_ASCII12 send GridPrepare_Apply self #ELSE set highlight_row_state to dfTrue #ENDIF set select_mode to MULTI_SELECT on_key kswitch send switch on_key kswitch_back send switch_back end_procedure procedure select_toggling integer itm# integer i# forward send select_toggling (Grid_BaseItem(self)) i# // Redirect to first column end_procedure procedure fill_list.iii integer oFDX# integer file# integer set# local integer field# max_field# base# rel_file# set dynamic_update_state to DFFALSE send delete_data move (FDX_AttrValue_FILE(oFDX#,DF_FILE_NUMBER_FIELDS,file#)) to max_field# for field# from 0 to max_field# get item_count to base# send add_item msg_none "" set checkbox_item_state item base# to true if (iFindField.ii(set#,file#,field#)<>-1) set select_state item base# to true send add_item msg_none (FDX_AttrValue_FIELD(oFDX#,DF_FIELD_NAME,file#,field#)) send add_item msg_none (StringFieldType(FDX_AttrValue_FIELD(oFDX#,DF_FIELD_TYPE,file#,field#))) send add_item msg_none (FDX_FieldLength(oFDX#,file#,field#)) move (FDX_AttrValue_FIELD(oFDX#,DF_FIELD_RELATED_FILE,file#,field#)) to rel_file# if rel_file# send add_item msg_none (FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,rel_file#)) else send add_item msg_none "" loop send Grid_SetEntryState self 0 set dynamic_update_state to DFTRUE end_procedure procedure rebuild_set integer set# integer file# local integer row# max# fld# base# columns# send reset to set# get Grid_Columns self to columns# get Grid_RowCount self to max# for row# from 0 to (max#-1) move (row#*columns#) to base# if (select_state(self,base#)) send add_field to set# file# row# loop end_procedure procedure select_help integer st# local integer row# max# base# columns# get Grid_Columns self to columns# get Grid_RowCount self to max# for row# from 0 to (max#-1) move (row#*columns#) to base# set select_state item base# to st# loop set dynamic_update_state to true end_procedure procedure select_all send select_help 1 end_procedure procedure select_none send select_help 0 end_procedure end_class // cFdxSelectFieldsList #IFDEF IS$WINDOWS object oFdxSelectFields is a aps.ModalPanel set locate_mode to CENTER_ON_SCREEN on_key ksave_record send close_panel_ok on_key kcancel send close_panel property integer piResult public 0 set pMinimumSize to 150 0 object oLst is a cFdxSelectFieldsList on_key kenter send next set size to 200 0 end_object object oBtn1 is a aps.Multi_Button on_item "Select all" send select_all to (oLst(self)) end_object object oBtn2 is a aps.Multi_Button on_item "Deselect all" send select_none to (oLst(self)) end_object object oBtn3 is a aps.Multi_Button on_item t.btn.ok send close_panel_ok end_object object oBtn4 is a aps.Multi_Button on_item t.btn.cancel send close_panel end_object send aps_locate_multi_buttons sl_vertical procedure close_panel_ok set piResult to 1 send close_panel end_procedure set Border_Style to BORDER_THICK // Make panel resizeable procedure aps_onResize integer delta_rw# integer delta_cl# send aps_resize (oLst(self)) delta_rw# 0 send aps_register_multi_button (oBtn1(self)) send aps_register_multi_button (oBtn2(self)) send aps_register_multi_button (oBtn3(self)) send aps_register_multi_button (oBtn4(self)) send aps_locate_multi_buttons sl_vertical send aps_auto_size_container end_procedure function iPopup.iii integer oFDX# integer file# integer set# returns integer set piResult to 0 send fill_list.iii to (oLst(self)) oFDX# file# set# set label to ("Select fields: "+FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,file#)) send popup if (piResult(self)) begin send rebuild_set to (oLst(self)) set# file# end function_return (piResult(self)) end_function end_object // oFdxSelectFields #ELSE /oFdxSelectFields.hdr É_____________________________________________________________» /oFdxSelectFields.lst º º º Field name Type Length Relates to º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º º ___ _________________________ ______ ________ ____________ º /oFdxSelectFields.btn º ______________ _______________ ______ __________ º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ /* object oFdxSelectFields is a app.ModalClient oFdxSelectFields.hdr set location to 5 5 absolute set window_color item 0 to 2 on_key ksave_record send ok on_key kcancel send cancel object oLst is a cFdxSelectFieldsList oFdxSelectFields.lst set location to 1 0 relative end_object object oBtn is a app.Button oFdxSelectFields.btn set location to 14 0 relative item_list on_item "Select all" send select_all to (oLst(self)) on_item "Deselect all" send select_none to (oLst(self)) on_item t.btn.ok send ok on_item t.btn.cancel send cancel end_item_list end_object function iPopup.iii integer oFDX# integer file# integer set# returns integer local integer rval# send fill_list.iii to (oLst(self)) oFDX# file# set# set value item 0 to ("Select fields: "+FDX_AttrValue_FILELIST(oFDX#,DF_FILE_LOGICAL_NAME,file#)+"ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ") ui_accept self to rval# move (rval#=msg_ok) to rval# if rval# send rebuild_set to (oLst(self)) set# file# function_return rval# end_function end_object // oFdxSelectFields #ENDIF //> Function iFdxSelectFields returns 1 if the the user did indeed select a //> set of fields and 0 if the user cancelled the selection. If 1 is returned //> the function will modify the set of fields passed to it in parameter //> set#. function iFdxSelectFields global integer oFDX# integer file# integer set# returns integer local integer close# open# rval# ifnot oFDX# begin if (DBMS_IsOpenFile(file#)) begin move 0 to close# move 1 to open# end else begin if (DBMS_OpenFile(file#,DF_SHARE,0)) begin move 1 to close# move 1 to open# end else begin move 0 to close# move 0 to open# end end end else begin move 0 to close# move 1 to open# end move (iPopup.iii(oFdxSelectFields(self),oFDX#,file#,set#)) to rval# if close# close file# function_return rval# end_function #IFDEF IS$WINDOWS Use APS // Auto Positioning and Sizing classes for VDF class cFdxSelectIndexList is a aps.List #ELSE Use App.utl // Character Mode classes class cFdxSelectIndexList is a app.List #ENDIF procedure construct_object integer img# forward send construct_object img# #IFDEF IS$WINDOWS #ELSE set highlight_row_state to dfTrue #ENDIF on_key kswitch send switch on_key kswitch_back send switch_back property integer phFDX public 0 property integer piFile public 0 end_procedure #IFDEF IS$WINDOWS procedure mouse_click integer liItem integer liGrb if ((liItem-1)