home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / QBFFORM.CPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  11KB  |  273 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl\vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include <memory>     //for std::auto_ptr
  10. #include "QBFForm.h"
  11. //---------------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TQueryForm *QueryForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TQueryForm::TQueryForm(TComponent* Owner)
  16.   : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TQueryForm::FormCreate(TObject *Sender)
  21. {
  22.   Screen->Cursor = Controls::TCursor(crHourGlass);
  23.  
  24.   // Populate the alias list
  25.   ListBox1->Items->Clear();
  26.   Session->GetAliasNames(ListBox1->Items);
  27.  
  28.   // Make sure there are aliases defined
  29.   Screen->Cursor = Controls::TCursor(crDefault);
  30.   if (ListBox1->Items->Count < 1)
  31.     MessageDlg( "There are no database aliases currently defined.  You " \
  32.                 "need at least one alias to use this demonstration.",
  33.                  mtError, TMsgDlgButtons() << mbOK, 0 );
  34.  
  35.   // Default the drop-down list to the first value in the list
  36.   ComboBox1->ItemIndex = 0;
  37.  
  38. }
  39. //---------------------------------------------------------------------
  40. void __fastcall TQueryForm::BitBtn2Click(TObject *Sender)
  41. {
  42.   AnsiString
  43.     strAlias,            // Alias name selected by the user
  44.     strTable,            // Table name selected by the user
  45.     strField,            // Field name selected by the user
  46.     strValue,            // Field Value entered by the user
  47.     strWhere,            // WHERE clause for the user's query
  48.     strQuote,            // Holds quotes is the query field is text
  49.     strQuery;               // String used to construct the query
  50.   std::auto_ptr<TResultForm> frmQuery; // The Results form
  51.   char szTemp[1024];
  52.  
  53.   /*
  54.       The following type is used with the Type drop-down
  55.         list.  The text values corresponding with each item is
  56.         described in comments, along with the relevant SQL operators.
  57.     */
  58.  
  59.   typedef enum {
  60.               soNoCondition,  // not field conditions: no WHERE clause
  61.             soEqual,        // equals: =
  62.             soNotEqual,     // is not equal to: <>
  63.             soLessThan,     // is less than: <
  64.             soLessEqual,    // is less than or equal to: <=
  65.             soMoreThan,     // is greater than: >
  66.             soMoreEqual,    // is greater than or equal to: >=
  67.             soStartsWith,   // starts with: LIKE xx%
  68.             soNoStartsWith, // doesn't start with: NOT LIKE xx%
  69.             soEndsWith,     // ends with: LIKE %xx
  70.             soNoEndsWith,   // doesn't end with: NOT LIKE %xx
  71.             soContains,     // contains: LIKE %xx%
  72.             soNoContains,   // doesn't contain: NOT LIKE %xx%
  73.             soBlank,        // is blank:
  74.             soNotBlank,     // is not blank:
  75.             soInside,       // contains only: IN ( xx, yy, zz )
  76.             soOutside       // doesn't contain: NOT IN (xx, yy, zz)
  77.             } etSQLOps;
  78.  
  79.     // Initialize the variables needed to run the query
  80.   if (ListBox1->ItemIndex == -1)
  81.       throw Exception("Can't Run Query: No Alias Selected");
  82.   else
  83.       strAlias = ListBox1->Items->Strings[ListBox1->ItemIndex];
  84.  
  85.   if (ListBox2->ItemIndex == -1)
  86.     throw Exception("Can't Run Query: No Table Selected");
  87.   else
  88.     strTable = ListBox2->Items->Strings[ListBox2->ItemIndex];
  89.  
  90.   if (ListBox3->ItemIndex == -1)
  91.   {
  92.     if (ComboBox1->ItemIndex > soNoCondition)
  93.       throw Exception("Can't Run Query: No Field Selected");
  94.     else
  95.       strField = "";
  96.   }
  97.   else
  98.     strField = ListBox3->Items->Strings[ListBox3->ItemIndex];
  99.  
  100.   if ((Edit1->Text.Length() == 0) && (ComboBox1->ItemIndex > soNoCondition) &&
  101.     (ComboBox1->ItemIndex < soBlank))
  102.     throw Exception("Can't Run Query: No Search Value Entered");
  103.   else
  104.     strValue = Edit1->Text;
  105.  
  106.   /*
  107.       See if the field being search is a string field.  If so, then pad the
  108.         quote string with quotation marks; otherwise, set it to a null value.
  109.     */
  110.   if (strField.Length() != 0)
  111.   {
  112.       if ((Table1->FieldByName(strField)->DataType == ftString) ||
  113.          (Table1->FieldByName(strField)->DataType == ftMemo))
  114.          strQuote = "\"";
  115.      else
  116.         strQuote = " ";
  117.   }
  118.  
  119.   /*
  120.       Construct the WHERE clause of the query based on the user's choice
  121.         in Type.
  122.   */
  123.  
  124.   szTemp[0] = '\0';
  125.   switch (etSQLOps(ComboBox1->ItemIndex))
  126.   {
  127.     case soNoCondition:
  128.          szTemp[0] = '\0';
  129.         break;
  130.     case soEqual:
  131.         wsprintf(szTemp, "%s = %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  132.          break;
  133.     case soNotEqual:
  134.         wsprintf(szTemp, "%s <> %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  135.          break;
  136.     case soLessThan:
  137.         wsprintf(szTemp, "%s < %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  138.          break;
  139.      case soLessEqual:
  140.         wsprintf(szTemp, "%s <= %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  141.          break;
  142.      case soMoreThan:
  143.         wsprintf(szTemp, "%s > %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  144.          break;
  145.      case soMoreEqual:
  146.         wsprintf(szTemp, "%s >= %s%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  147.          break;
  148.      case soStartsWith:
  149.         wsprintf(szTemp, "%s LIKE %s%s%%%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  150.          break;
  151.      case soNoStartsWith:
  152.         wsprintf(szTemp, "%s NOT LIKE %s%s%%%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  153.          break;
  154.      case soEndsWith:
  155.         wsprintf(szTemp, "%s LIKE %s%%%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  156.          break;
  157.      case soNoEndsWith:
  158.         wsprintf(szTemp, "%s NOT LIKE %s%%%s%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  159.          break;
  160.      case soContains:
  161.         wsprintf(szTemp, "%s LIKE %s%%%s%%%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  162.          break;
  163.      case soNoContains:
  164.         wsprintf(szTemp, "%s NOT LIKE %s%%%s%%%s", strField.c_str(), strQuote.c_str(), strValue.c_str(), strQuote.c_str());
  165.          break;
  166.      case soBlank:
  167.         wsprintf(szTemp, "%s IS NULL", strField.c_str());
  168.          break;
  169.      case soNotBlank:
  170.         wsprintf(szTemp, "%s IS NOT NULL", strField.c_str());
  171.          break;
  172.      default:
  173.          szTemp[0] = '\0';
  174.   }
  175.   strWhere = szTemp;
  176.  
  177.     szTemp[0] = '\0';
  178.   if (ComboBox1->ItemIndex == soNoCondition)
  179.         wsprintf(szTemp, "SELECT * FROM \"%s\"", strTable.c_str());
  180.   else if (Table1->FieldByName(strField)->DataType == ftString)
  181.         wsprintf(szTemp, "SELECT * FROM \"%s\" t WHERE t.%s", strTable.c_str(), strWhere.c_str());
  182.   else
  183.         wsprintf(szTemp, "SELECT * FROM \"%s\" t WHERE t.%s", strTable.c_str(), strWhere.c_str());
  184.   strQuery = szTemp;
  185.  
  186.   // Create an instance of the browser form.
  187.   frmQuery.reset(new TResultForm(Application));
  188.  
  189.   szTemp[0] = '\0';
  190.  
  191.   Screen->Cursor = Controls::TCursor(crHourGlass);
  192.   if (frmQuery->Query1->Active)
  193.     frmQuery->Query1->Close();
  194.   frmQuery->Query1->DatabaseName = strAlias; // set the alias the query poitns to
  195.   frmQuery->Query1->SQL->Clear();            // empty existing SQL in the query
  196.   frmQuery->Query1->SQL->Add(strQuery);      // add query string to query object
  197.   frmQuery->Query1->Active = True;           // try to run the query
  198.   Screen->Cursor = Controls::TCursor(crDefault);
  199.  
  200.   if (frmQuery->Query1->Active){
  201.     /* If the query didn't return any records, there's no point in
  202.        displaying the form.  In that event, raise an exception. */
  203.     if (frmQuery->Query1->RecordCount < 1)
  204.       throw Exception("No records matched your criteria.  " \
  205.                       "Please try again.");
  206.  
  207.     // write a message to the browse form's status line
  208.     if (strField.Length() == 0){
  209.        wsprintf(szTemp, "Now showing all records from %s ...", strTable.c_str());
  210.        frmQuery->Panel3->Caption = szTemp;
  211.     }
  212.     else {
  213.        wsprintf(szTemp, "Now showing %s where %s contains values equal to ..."
  214.           , strTable.c_str(), strField.c_str(), strValue.c_str());
  215.        frmQuery->Panel3->Caption = szTemp;
  216.     }
  217.     // show the form
  218.     frmQuery->ShowModal();
  219.   }
  220. }
  221. //---------------------------------------------------------------------
  222. void __fastcall TQueryForm::ListBox1Click(TObject *Sender)
  223. {
  224.   AnsiString strValue;       // Holds the alias selected by the user
  225.  
  226.   // Determine the alias name selected by the user }
  227.   strValue = ListBox1->Items->Strings[ListBox1->ItemIndex];
  228.  
  229.   /*
  230.       Get the names of the tables in the alias and put them in the
  231.         appropriate list box, making sure the user's choices are reflected
  232.         in the list.
  233.   */
  234.   ListBox2->Items->Clear();
  235.   Session->GetTableNames(strValue,          // alias to enumerate
  236.                         "",                 // pattern to match
  237.                         CheckBox1->Checked, // show extensions flag
  238.                         CheckBox2->Checked, // show system tables flag
  239.                         ListBox2->Items);   // target for table list
  240.  
  241.   /*
  242.       Make sure there are tables defined in the alias.  If not, show an
  243.         error; otherwise, clear the list box.
  244.   */
  245.   Screen->Cursor = Controls::TCursor(crDefault);
  246.   if (ListBox2->Items->Count < 1)
  247.     MessageDlg("There are no tables in the alias you selected.  Please " \
  248.                "choose another", mtError, TMsgDlgButtons() << mbOK, 0 );
  249.  
  250.   ListBox3->Items->Clear();
  251. }
  252. //---------------------------------------------------------------------
  253. void __fastcall TQueryForm::ListBox2Click(TObject *Sender)
  254. {
  255.   Screen->Cursor = Controls::TCursor(crHourGlass);
  256.   try
  257.   {
  258.     // First, disable the TTable object.
  259.     if (Table1->Active) Table1->Close();
  260.  
  261.     // Open the selected table
  262.     Table1->DatabaseName = ListBox1->Items->Strings[ListBox1->ItemIndex];
  263.     Table1->TableName = ListBox2->Items->Strings[ListBox2->ItemIndex];
  264.  
  265.     // Open the table and put a list of the field names in the Fields list box. }
  266.     Table1->Open();
  267.     if (Table1->Active) Table1->GetFieldNames(ListBox3->Items);
  268.   }
  269.   catch (...) {}
  270.   Screen->Cursor = Controls::TCursor(crDefault);
  271. }
  272. //---------------------------------------------------------------------
  273.