Class: dbComboFormDS
Class Hierarchy:
DFBaseComboBoxEntry
ComboEntrydbBasicComboForm_dbBasicComboFormdbDataComboFormdbComboFormDSDirect Known Subclasses:
dbComboFormDD_, Class Definition
Properties
IntegerAllow_Undefined_State
Only used by DDs
IntegerCode_Field
Fld 1=code, 2=descr
IntegerCode_File
Must be SET.
IntegerCode_Index
Indx1 is a good guess.
IntegerCode_Load_Object
(Code_Loader(self))
IntegerCombo_Data_File
IntegerCombo_Index
IntegerDescription_Field
are good guesses.
IntegerRelational_State
system maintained
IntegerType_Field
Undefined (none).
StringType_Value
default these two to
Functions and Procedures
Combo_Add_Record(Integer dFile Integer dField integer DescField)
Message to add a record to the list. We store the data value in
an array, the description in the proxy list, and the record number
in the proxy list
Send Add_Combo_Item Item_Value {Data_Value}
Combo_Edit_Changed()
Combo_Fill_List()
Combo_Fill_List_From_File()
Fills the list by loading the entire defined data-file
Combo_Fill_List_Local()
Fill the radio list from a file.
Combo_find_Current_record()
Combo_Item_Changed()
RowIdComboCurrentRowId()
Removed
Function Combo_Current_record Returns Integer
integer rec# Itm
String Val
Get Value Item 0 to Val
Get Combo_item_matching Val to Itm
If Itm ge 0 ; // if value is found
Get Record_Number item itm to Rec#
Function_Return rec#
End_Function
Construct_Object()
StringCurrent_Code()
StringCurrent_Description()
Initialize_File()
These are created to keep the compiler happy. These are defined in the
code lists. When not used, these messages must be understood even if
they are never accessed
integerNext_Code_Record()
RowIdRowIdNumber(Integer iItm)
Set(Integer iItm rowId riId)
not supported with rowid
Procedure Set Record_Number Integer Itm Integer Rec
integer dataobj
Get Combo_data_object to dataobj
If dataobj ;
Set Aux_Value of dataobj item itm to Rec
End_Procedure
Function Record_Number Integer Itm Returns Integer
integer dataobj
Get Combo_data_object to dataobj
If dataobj ;
Function_Return (Aux_Value(DataObj,Itm))
End_Function
References (1):