Your account has been activated. Please check your email to set your password.
OKGreat! Your password has been set up. Now you can log in.
OKPlease check your email to reset your password.
OKPartner Log in
Selected
partners:
Demo - Compare before and after
Re_Forms 21 vs Oracle Forms Architecture
Presentation
Execution enviornment
Database
Development
Developer tools - Re_Forms21 Studio
2:32
Re_Forms 21 side-by-side with Oracle Forms
2:06
Re_Forms 21 Java compared to Oracle Forms
1:31
Migrating Oracle Forms to Java with Re_Forms 21
5:48
Designing a new form in Re_Forms 21
Loading..
Code - Compare before and after
PL/SQL
PACKAGE EMP_PKG IS
PROCEDURE fill_job_name;
END;
PACKAGE BODY EMP_PKG IS
PROCEDURE fill_job_name IS
CURSOR lookup_job IS
SELECT job_title
FROM jobs
WHERE job_id = :EMP_BLOCK.JOB_ID;
BEGIN
OPEN lookup_job;
FETCH lookup_job INTO :EMP_BLOCK.JOB_NAME;
CLOSE lookup_job;
END;
END;
TRIGGER "WHEN-NEW-FORM-INSTANCE" IS
BEGIN
Execute_Query;
END "WHEN-NEW-FORM-INSTANCE";
TRIGGER "POST-QUERY" ON EMP_BLOCK IS
BEGIN
EMP_PKG.fill_job_name;
END "POST-QUERY";
Java
@FormController("EXAMPLE1")
public class Example1Form{
@Inject EmpPkg emp_pkg;
public static abstract class EmpPkg {
public abstract void fill_job_name();
}
@Package
public class EmpPkgBody extends EmpPkg {
public void fill_job_name() {
SqlCursor <?> lookup_job = cursorFor(
"SELECT job_title FROM jobs WHERE
job_id = :EMP_BLOCK.JOB_ID"
);
try {
open(lookup_job);
fetchInto(lookup_job) ,
nameIn("EMP_BLOCK.JOB_NAME"));
} finally {
if (lookup_job.isOpen()) {
close(lookup_job);
}
}
}
}
@WhenNewFormInstance
public void form_WHEN_NEW_FORM_INSTANCE() {
executeQuery();
}
@PostQuery("EMP_BLOCK")
public void block_EMP_BLOCK_POST_QUERY() {
emp_pkg.fill_job_name();
}
}
Files to download

Contact us to learn more about the partner network.
Contact Us!