HI Chaps,
I am trying to adapt a script supplied in the sample 'Learning Xbasic' application - can anybody show me how to link the dialog box fields to populate my Customers Table?
Thanks
Andy
Here is the script
'Date Created: 25-Jun-2002 05:10:30 PM
'Last Updated: 22-Aug-2003 01:15:22 AM
'Created By : Selwyn
'Updated By :
page = 1
max_pages = 6
dim genie_stay as l 'flag controls if you can move off the current genie page.
genie_stay = .f.
dim error_message as c
error_message = "" 'error message if you try to move off the current page when all conditions have not been met.
vl = local_variables()
define_pages(vl)
set_flags(vl)
ui_dlg_box("New Enquiry!",""%dlg%
{startup=init}
{region0}
{region1}
{wrap=20};
Use this Genie Tool to record the New Enquiry.;
{lf};
To save time later, ensure you complete all the information in the fields provided.;
{lf};
{image=group}
{endregion1}|{sp}|
{frame=1,1}
{region3}
{embedded=60,15genie}
{endregion3};
{region}
{endregion};
{endregion0};
{region}
{justify=right}"15&Cancel" "15"&Previous!previous?flag_previous" "15&Next\"!next?flag_next" "15&Finish!finish?flag_finish"
{endregion}
%dlg%, ""%code%
if a_dlg_button = "finish" then
end if
if a_dlg_button = "init" then
a_dlg_button = ""
show_page(vl,1)
end if
if a_dlg_button = "next" then
a_dlg_button = ""
page = page + 1
if page " max_pages then
page = max_pages
end if
show_page(vl,page)
end if
if a_dlg_button = "previous" then
a_dlg_button = ""
page = page - 1
if page " 1 then
page = 1
end if
show_page(vl,page)
end if
%code%)
function show_page as c (vars as p, page as n )
with vars
if genie_stay = .f. then
temp_code = eval("page_"+page)
evaluate_template(temp_code)
set_flags(vl)
else
ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
end if
end with
end function
function define_pages as c (vars as p)
with vars
page_1 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
{lf};
Welcome to the Xdialog genie.;
{lf};
Press the Next button below to get started.;
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_2 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter the Date & Time:;
{lf};
{lf};
Date: | [.20date];
{lf};
Time: | [.10time];
{lf};
Recorded by: | [.10staff];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_3 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter the Enquiry Name:;
{lf};
{lf};
Title: | [.10title];
{lf};
First Name: | [.30fname];
{lf};
Initials: | [.10initial];
{lf};
Last Name: | [.30lname];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_4 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter Contact Address:;
{lf};
Address 1: | [.32address1];
Address 2: | [.32address2];
Address 3: | [.32address3];
Address 4: | [.32address4];
City : | [.25city];
PC/Zip : | [.14postcode] [.14zip];
Country : | [.32country];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_5 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter Contact Address:;
{lf};
{lf};
Phone 1: | [.32phone1];
{lf};
Phone 2: | [.32phone2];
{lf};
Fax : | [.32fax3];
{lf};
Mobile 4: | [.32mobile4];
%dlg%,""%code%
1=1
%code%)
%dlg2%
end with
end function
function set_flags as c (vars as p)
with vars
if page = max_pages
flag_finish = .t.
flag_next = .f.
flag_finish = .t.
flag_previous = .t.
else if page = 1 then
flag_next = .t.
flag_previous = .f.
flag_finish = .f.
else
flag_next = .t.
flag_previous = .t.
flag_finish = .f.
end if
end with
end function
I am trying to adapt a script supplied in the sample 'Learning Xbasic' application - can anybody show me how to link the dialog box fields to populate my Customers Table?
Thanks
Andy
Here is the script
'Date Created: 25-Jun-2002 05:10:30 PM
'Last Updated: 22-Aug-2003 01:15:22 AM
'Created By : Selwyn
'Updated By :
page = 1
max_pages = 6
dim genie_stay as l 'flag controls if you can move off the current genie page.
genie_stay = .f.
dim error_message as c
error_message = "" 'error message if you try to move off the current page when all conditions have not been met.
vl = local_variables()
define_pages(vl)
set_flags(vl)
ui_dlg_box("New Enquiry!",""%dlg%
{startup=init}
{region0}
{region1}
{wrap=20};
Use this Genie Tool to record the New Enquiry.;
{lf};
To save time later, ensure you complete all the information in the fields provided.;
{lf};
{image=group}
{endregion1}|{sp}|
{frame=1,1}
{region3}
{embedded=60,15genie}
{endregion3};
{region}
{endregion};
{endregion0};
{region}
{justify=right}"15&Cancel" "15"&Previous!previous?flag_previous" "15&Next\"!next?flag_next" "15&Finish!finish?flag_finish"
{endregion}
%dlg%, ""%code%
if a_dlg_button = "finish" then
end if
if a_dlg_button = "init" then
a_dlg_button = ""
show_page(vl,1)
end if
if a_dlg_button = "next" then
a_dlg_button = ""
page = page + 1
if page " max_pages then
page = max_pages
end if
show_page(vl,page)
end if
if a_dlg_button = "previous" then
a_dlg_button = ""
page = page - 1
if page " 1 then
page = 1
end if
show_page(vl,page)
end if
%code%)
function show_page as c (vars as p, page as n )
with vars
if genie_stay = .f. then
temp_code = eval("page_"+page)
evaluate_template(temp_code)
set_flags(vl)
else
ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
end if
end with
end function
function define_pages as c (vars as p)
with vars
page_1 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
{lf};
Welcome to the Xdialog genie.;
{lf};
Press the Next button below to get started.;
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_2 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter the Date & Time:;
{lf};
{lf};
Date: | [.20date];
{lf};
Time: | [.10time];
{lf};
Recorded by: | [.10staff];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_3 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter the Enquiry Name:;
{lf};
{lf};
Title: | [.10title];
{lf};
First Name: | [.30fname];
{lf};
Initials: | [.10initial];
{lf};
Last Name: | [.30lname];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_4 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter Contact Address:;
{lf};
Address 1: | [.32address1];
Address 2: | [.32address2];
Address 3: | [.32address3];
Address 4: | [.32address4];
City : | [.25city];
PC/Zip : | [.14postcode] [.14zip];
Country : | [.32country];
%dlg%,""%code%
1=1
%code%)
%dlg2%
page_5 = ""%dlg2%
ui_modeless_dlg_box("genie",""%dlg%
{cellspillover=on}
Enter Contact Address:;
{lf};
{lf};
Phone 1: | [.32phone1];
{lf};
Phone 2: | [.32phone2];
{lf};
Fax : | [.32fax3];
{lf};
Mobile 4: | [.32mobile4];
%dlg%,""%code%
1=1
%code%)
%dlg2%
end with
end function
function set_flags as c (vars as p)
with vars
if page = max_pages
flag_finish = .t.
flag_next = .f.
flag_finish = .t.
flag_previous = .t.
else if page = 1 then
flag_next = .t.
flag_previous = .f.
flag_finish = .f.
else
flag_next = .t.
flag_previous = .t.
flag_finish = .f.
end if
end with
end function
Comment