home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ool.zip / OOL / samples / sample10 / sample10.cpp < prev    next >
C/C++ Source or Header  |  1997-03-28  |  5KB  |  149 lines
  1. #include "sample10.h"
  2.  
  3. #include XColor_i
  4. #include XMessageBox_i
  5. #include XException_i
  6. #include XString_i
  7. #include XControlEvent_i
  8. #include XContainerInfo_i
  9. #include XContainerColumn_i
  10. #include XContainerObject_i
  11. #include XContainerHandler_i
  12. #include XContainerEvent_i
  13. #include XTable_i
  14. #include XTableException_i
  15.  
  16. #include <stdlib.h>
  17.  
  18.  
  19. class ContainerItem: public XContainerObject
  20. {
  21.       XString name, street, phone, zip, city;
  22.       XDate date;
  23.    public:
  24.       ContainerItem( char * n, char * s, char * p, char * z, char * c, XDate * d, XContainerControl * cont);
  25. };
  26.  
  27.  
  28. ContainerItem :: ContainerItem( char * n, char * s, char * p, char * z, char * c, XDate * d, XContainerControl * cont): XContainerObject( cont, 6, CON_RECORDREADONLY)
  29. { 
  30.    name=n; 
  31.    city=c; 
  32.    street=s;
  33.    phone = p;
  34.    zip = z;
  35.     date = *d;
  36.  
  37.    SetColumnData(0, (char*) name);
  38.    SetColumnData(1, (char*) phone);
  39.    SetColumnData(2, (char*) street);
  40.    SetColumnData(3, (char*) zip);
  41.    SetColumnData(4, (char*) city); 
  42.    SetColumnData(5, &date);
  43. }
  44.  
  45.  
  46. MyAppWindow :: MyAppWindow( XApplication * app, XResource * r ): XFrameWindow( r, "Sample10 - DB/2 access", XFrameWindow::defaultDialogStyle | FRM_TASKLIST )
  47. {
  48.    XColor c( COL_PALEGRAY);              //background-color
  49.    SetBackgroundColor( &c);
  50.    XRect re( 100, 100, 500, 400);
  51.    SetSize( &re);                        //size
  52.  
  53.    XRect r1(10, 30, 470, 330);             //create a container
  54.    XContainerControl * cont = new XContainerControl( this, &r1, 0, WIN_VISIBLE, "8.Helv");
  55.  
  56.    //setup (detail view)
  57.    XContainerInfo info2( "Database entries", CO_DETAIL | CO_TITLE | CO_DETAILTITLES );
  58.    cont->SetInfo( &info2);
  59.  
  60.    XContainerColumn * col = new XContainerColumn( cont, "Name", 0, COL_HORZSEPARATOR | COL_STRING | COL_SEPARATOR, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  61.    cont->InsertColumn( col);
  62.    XContainerColumn * col2 = new XContainerColumn( cont, "Phone", 1, COL_SEPARATOR | COL_HORZSEPARATOR | COL_STRING, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  63.    cont->InsertColumn( col2, col);
  64.    XContainerColumn * col3 = new XContainerColumn( cont, "Street", 2, COL_SEPARATOR | COL_HORZSEPARATOR | COL_STRING, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  65.    cont->InsertColumn( col3, col2);
  66.    XContainerColumn * col4 = new XContainerColumn( cont, "ZIP", 3, COL_SEPARATOR | COL_HORZSEPARATOR | COL_STRING, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  67.    cont->InsertColumn( col4, col3);
  68.    XContainerColumn * col5 = new XContainerColumn( cont, "City", 4, COL_SEPARATOR | COL_HORZSEPARATOR | COL_STRING, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  69.    cont->InsertColumn( col5, col4);
  70.    XContainerColumn * col6 = new XContainerColumn( cont, "Date", 5, COL_HORZSEPARATOR | COL_DATE, COL_LEFT | COL_FITITLEREADONLY | COL_HORZSEPARATOR | COL_TOP );
  71.    cont->InsertColumn( col6, col5);
  72.  
  73.    //update columns
  74.    cont->UpdateColumns();
  75.  
  76.    XString name, phone, zip, city, street;
  77.    XDate date;
  78.    try
  79.    {
  80.       XTable::Connect("TESTIT");//replace here TESTIT with the name of your database
  81.  
  82.       XTable table("ADRESS");
  83.  
  84.       table.Select( "ID > 0");
  85.  
  86.       while( table.IsEOF() == FALSE)
  87.       {
  88.          table.GetField( "NAME", &name);
  89.          table.GetField( "PHONE", &phone);
  90.          table.GetField( "ZIPCODE", &zip);
  91.          table.GetField( "STREET", &street);
  92.          table.GetField( "CITY", &city);
  93.             table.GetField( "BIRTHDAY", &date);
  94.             ContainerItem * item = new ContainerItem( name, street, phone, zip, city, &date, cont);
  95.          cont->AddObject( item );
  96.          table.MoveNext();
  97.       };
  98.    }
  99.    catch( XTableException e)
  100.    {
  101.       XString error = e.GetErrorMessage();
  102.       error += ", code: ";
  103.       error += (LONG) e.GetErrorCode();
  104.       XMessageBox((char*) error, "Error!");
  105.    }
  106.  
  107.    Activate();
  108. }
  109.  
  110.  
  111. MyAppWindow :: ~MyAppWindow()
  112. {
  113.    XTable::DisConnect();
  114. }
  115.  
  116.  
  117. //we only fill the background
  118. void MyAppWindow :: Draw( void )
  119. {
  120.    FillBackground( );
  121. }
  122.  
  123.  
  124. MyApp :: MyApp(): XApplication()
  125. {
  126.    XResource r( 0, GetResourceLibrary());
  127.    window = new MyAppWindow( this, &r );   //create new framewindow (see above)
  128. }
  129.  
  130.  
  131. void main ( void)
  132. {
  133.    try
  134.    {
  135.       MyApp * app = new MyApp();  //create a new application
  136.        app->Start();               //let the application work
  137.    }
  138.    catch( XTableException e)
  139.    {
  140.       XMessageBox( e.GetErrorMessage());
  141.       exit(-1);
  142.    }
  143.    catch( XException e)
  144.    {
  145.       XMessageBox( e.GetErrorMessage());
  146.       exit(-1);
  147.    }
  148. }
  149.