home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / CPPAWARE.PAK / DBACC.CPP next >
Encoding:
C/C++ Source or Header  |  1997-05-06  |  2.9 KB  |  142 lines
  1. //--------------------------------------------------------
  2. // DBACC.CPP
  3. // Copyrights (C) 1996 Borland International
  4. // All Rights Reserved
  5. //--------------------------------------------------------
  6.  
  7. #include <vdbt/dbacc.h>
  8.  
  9.  
  10. bool TDBDataSource::Create()
  11. {
  12.   if( TVbxControl::Create() )
  13.   {
  14.     if( IsFlagSet( wfFromResource ) )
  15.     {
  16.       AttachToControl( Parent->HWindow, GetId() );
  17.       return true;
  18.     }
  19.     else
  20.     {
  21.       char    szName[ 32 ];
  22.  
  23.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  24.           && SetProp( 0, szName )
  25.           && SetProp( "Object", LONG( GetPITDataSource() ) );
  26.     }
  27.   }
  28.   else
  29.     return false;
  30. }
  31.  
  32. bool TDBTable::Create()
  33. {
  34.   if( TVbxControl::Create() )
  35.   {
  36.     if( IsFlagSet( wfFromResource ) )
  37.     {
  38.       AttachToControl( Parent->HWindow, GetId() );
  39.       return true;
  40.     }
  41.     else
  42.     {
  43.       char    szName[ 32 ];
  44.  
  45.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  46.           && SetProp( 0, szName )
  47.           && SetProp( "Object", LONG( GetPITTable() ) );
  48.     }
  49.   }
  50.   else
  51.     return false;
  52. }
  53.  
  54. bool TDBQuery::Create()
  55. {
  56.   if( TVbxControl::Create() )
  57.   {
  58.     if( IsFlagSet( wfFromResource ) )
  59.     {
  60.       AttachToControl( Parent->HWindow, GetId() );
  61.       return true;
  62.     }
  63.     else
  64.     {
  65.       char    szName[ 32 ];
  66.  
  67.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  68.           && SetProp( 0, szName )
  69.           && SetProp( "Object", LONG( GetPITQuery() ) );
  70.     }
  71.   }
  72.   else
  73.     return false;
  74. }
  75.  
  76. bool TDBBatchMove::Create()
  77. {
  78.   if( TVbxControl::Create() )
  79.   {
  80.     if( IsFlagSet( wfFromResource ) )
  81.     {
  82.       AttachToControl( Parent->HWindow, GetId() );
  83.       return true;
  84.     }
  85.     else
  86.     {
  87.       char    szName[ 32 ];
  88.  
  89.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  90.           && SetProp( 0, szName )
  91.           && SetProp( "Object", LONG( GetPITBatchMove() ) );
  92.     }
  93.   }
  94.   else
  95.     return false;
  96. }
  97.  
  98. bool TDBDatabase::Create()
  99. {
  100.   if( TVbxControl::Create() )
  101.   {
  102.     if( IsFlagSet( wfFromResource ) )
  103.     {
  104.       AttachToControl( Parent->HWindow, GetId() );
  105.       return true;
  106.     }
  107.     else
  108.     {
  109.       char    szName[ 32 ];
  110.  
  111.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  112.           && SetProp( 0, szName )
  113.           && SetProp( "Object", LONG( GetPITDatabase() ) );
  114.     }
  115.   }
  116.   else
  117.     return false;
  118. }
  119.  
  120. bool TDBStoredProc::Create()
  121. {
  122.   if( TVbxControl::Create() )
  123.   {
  124.     if( IsFlagSet( wfFromResource ) )
  125.     {
  126.       AttachToControl( Parent->HWindow, GetId() );
  127.       return true;
  128.     }
  129.     else
  130.     {
  131.       char    szName[ 32 ];
  132.  
  133.       return ::VBXMakeDefCtlNameBuf( GetHCTL(), szName, sizeof( szName ) )
  134.           && SetProp( 0, szName )
  135.           && SetProp( "Object", LONG( GetPITStoredProc() ) );
  136.     }
  137.   }
  138.   else
  139.     return false;
  140. }
  141.  
  142.