Post date: Feb 14, 2011 6:46:59 AM
1.Open NewWindow Form.
2. Insert -> Field From Database Table -> List Table-> Select the approriate Table-> Select Table Field Radio button-> Ok
3. Give the Name to that Tabale
To GetSelect details from database and show it into the Table Field.
On Click 'Load_Data_btn'
BEGIN
member_tf.member_page.tblmember_tf.Clear();
row_index=1;
SELECT :tblmember_tf[row_index].code= code,
:tblmember_tf[row_index].name= name,
:tblmember_tf[row_index].gender=gender,
:tblmember_tf[row_index].DOj= DOj
FROM tblmembers ORDER by code
BEGIN
row_index= row_index+1;
end;
Show the selected Row!
ON childDoubleClick tblmember_tf
Begin
IF tblmember_tf.lastrow=0 THEN
message 'Details Not Avaiable';
ELSE
/*Get Current select row index*/
row_index = field(tblmember_tf).ActiveRow;
/*Check that row is not an empty row*/
IF row_index =0 OR tblmember_tf[row_index].code ='' THEN
CurFrame.InfoPopUp('Please Select the Row!');
ELSE
field(member_tf).CurPageIndex=2;
field(member_tf.detail_page.code_ent).TextValue =VARCHAR(tblmember_tf[row_index].code);
field(member_tf.detail_page.name_ent).TextValue = tblmember_tf[row_index].name;
/*Select the Gender*/
sex = tblmember_tf[row_index].gender;
field(member_tf.detail_page.Gender_rbt).CurEnumText= sex;
/*Set the format of the Date to display*/
field(member_tf.detail_page.DOj_ent).TextValue = tblmember_tf[row_index].DOj;
ENDIF;
ENDIF;
END;
On Keypress Event:(When press Enter Key in the keyboard):
/*On key press Events on the DataTable*/
ON ChildKeyPress member_tf.member_page.tblmember_tf=
DECLARE
keyinfo = KeypressInfo;
enddeclare{
keyinfo = KeyPressInfo(CurFrame.messageObject);
IF keyinfo.ANSICode='13' THEN
CurFrame.sendUserEvent(eventname='OK_Button');
ENDIF;
}
Check Data Changed in the Entry Field:
if field(username_ent).hasdatachanged = true then
/*Do your updating stuff here*/
Endif;
Change Background Color of Current EntryField Box Automatically:
On ChildEntry=
begin
ActiveField(CurFrame.TriggerField).BgColor=cc_sys_infoBk;
end;