package untitled8;

import java.awt.*;
import java.awt.event.*;
import borland.jbcl.control.*;
import borland.jbcl.layout.*;
import borland.sql.dataset.*;
import borland.jbcl.dataset.*;

public class Frame1 extends DecoratedFrame {

  //Construct the frame
  BorderLayout borderLayout1 = new BorderLayout();
  BevelPanel bevelPanel1 = new BevelPanel();
  Database database1 = new Database();
  ProcedureDataSet procedureDataSet1 = new ProcedureDataSet();
  GridControl gridControl1 = new GridControl();
  NavigatorControl navigatorControl1 = new NavigatorControl();
  BorderLayout borderLayout2 = new BorderLayout();
  ParameterRow parameterRow1 = new ParameterRow();
  Column column1 = new Column();         
  
  public Frame1() {
    try  {
      jbInit();
    }
    catch (Exception e) {
      e.printStackTrace();
    }
  }
//Component initialization
  
  private void jbInit() throws Exception  {
    this.setLayout(borderLayout1);
    this.setSize(new Dimension(400, 300));
    this.setTitle("Frame Title");
    database1.setConnection(new borland.sql.dataset.ConnectionDescriptor("jdbc:oracle:thin:@schitzo:1521:TEST", "techtmp", "techtmp", false, "oracle.jdbc.driver.OracleDriver"));
    database1.openConnection();
    procedureDataSet1.setProcedure(new borland.sql.dataset.ProcedureDescriptor(database1, "{call JO_CUST_PACK_SP(?,?)}", parameterRow1, true, Load.ALL));
    gridControl1.setDataSet(procedureDataSet1);
    navigatorControl1.setDataSet(procedureDataSet1);
    column1.setColumnName("TEXT");
    column1.setDataType(borland.jbcl.util.Variant.STRING);
//    column1.setParameterType(java.sql.DatabaseMetaData.procedureColumnInOut);
    bevelPanel1.setLayout(borderLayout2);
    parameterRow1.setColumns(new Column[] {column1});
    parameterRow1.setString(0,"Valhalla");
    this.add(bevelPanel1, BorderLayout.CENTER);
    bevelPanel1.add(gridControl1, BorderLayout.CENTER);
    bevelPanel1.add(navigatorControl1, BorderLayout.NORTH);
  }
}