nw = new window("My Query", << modal(),
panelbox("Input",
hlistbox(
text box("Enter the number of days: "),
ndays_teb = text edit box()
),
),
panelbox("Actions",
hlistbox(
ok_button = button box("OK",
ndays = ndays_teb << get text;
ok_pushed = 1;),
cancel_button = button box("Cancel", ok_pushed = 0),
)
)
);
sql_statement = "SELECT '" || ndays || "' FROM DUAL";