delphi使用SQL的教程6

例子全部的程序清单如下：
unit main;
　
interface
　
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, DB, DBTables, Buttons, ComCtrls, Tabnotbk;
　
type
TQueryForm = class(TForm)
BitBtn1: TBitBtn;
DataSource1: TDataSource;
Table1: TTable;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label5: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
Edit1: TEdit;
ComboBox1: TComboBox;
BitBtn2: TBitBtn;
TabSheet2: TTabSheet;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
end;
　
var
QueryForm: TQueryForm;
　
implementation
　
{$R *.DFM}
　
uses RSLTFORM;
　
procedure TQueryForm.FormCreate(Sender: TObject);
begin
Screen.Cursor := crHourglass;
　
{ Populate the alias list }
　
with ListBox1 do
begin
Items.Clear;
Session.GetAliasNames(Items);
end;
　
{ Make sure there are aliases defined }
　
Screen.Cursor := crDefault;
if ListBox1.Items.Count < 1 then
MessageDlg( ’There are no database aliases currently defined. You
need at least one alias to use this demonstration.’,
mtError, [mbOK], 0 );
　
{ Default the drop-down list to the first value in the list }
ComboBox1.ItemIndex := 0;
end;
　
procedure TQueryForm.ListBox1Click(Sender: TObject);
var
strValue: string; { Holds the alias selected by the user }
bIsLocal: Boolean; { Indicates whether or not an alias is local }
slParams: TStringList; { Holds the parameters of the selected alias }
iCounter: Integer; { An integer counter variable for loops}
begin
　
{ Determine the alias name selected by the user }
　
with ListBox1 do
strValue := Items.Strings[ItemIndex];
　
{ Get the names of the tables in the alias and put them in the
appropriate list box, making sure the user’s choices are reflected
in the list. }
　
ListBox2.Items.Clear;
Session.GetTableNames(strValue, { alias to enumerate }
’’, { pattern to match }
CheckBox1.Checked, { show extensions flag }
CheckBox2.Checked, { show system tables flag }
ListBox2.Items); { target for table list }
　
{ Make sure there are tables defined in the alias. If not, show an
error; otherwise, clear the list box. }
　
Screen.Cursor := crDefault;
if ListBox2.Items.Count < 1 then
MessageDlg(’There are no tables in the alias you selected. Please
choose another’, mtError, [mbOK], 0 );
　
ListBox3.Items.Clear;
end;
　
procedure TQueryForm.ListBox2Click(Sender: TObject);
begin
Screen.Cursor := crHourglass;
try
{ First, disable the TTable object. }
if Table1.Active then
Table1.Close;
　
{ Open the selected table }
　
with ListBox1 do
Table1.DatabaseName := Items.Strings[ItemIndex];
　
with ListBox2 do
Table1.TableName := Items.Strings[ItemIndex];
　
{ Open the table and put a list of the field names in the Fields
list box. }
　
Table1.Open;
if Table1.Active then
Table1.GetFieldNames(ListBox3.Items);
finally
Screen.Cursor := crDefault;
end;
end;
　
procedure TQueryForm.BitBtn2Click(Sender: TObject);
var
strAlias, { Alias name selected by the user }
strTable, { Table name selected by the user }
strField, { Field name selected by the user }
strValue, { Field Value entered by the user }
strWhere, { WHERE clause for the user’s query }
strQuote, { Holds quotes is the query field is text }
strQuery: string; { String used to construct the query }
frmQuery: TResultForm; { The Results form }
type
　
{ The following type is used with the Type drop-down
list. The text values corresponding with each item is
described in comments, along with the relevant SQL operators. }
　
etSQLOps = (soNoCondition, { not field conditions: no WHERE clause }
soEqual, { equals: = }
soNotEqual, { is not equal to: <> }
soLessThan, { is less than: < }
soLessEqual, { is less than or equal to: <= }
soMoreThan, { is greater than: > }
soMoreEqual, { is greater than or equal to: >= }
soStartsWith, { starts with: LIKE xx% }
soNoStartsWith, { doesn’t start with: NOT LIKE xx% }
soEndsWith, { ends with: LIKE %xx }
soNoEndsWith, { doesn’t end with: NOT LIKE %xx }
soContains, { contains: LIKE %xx% }
soNoContains, { doesn’t contain: NOT LIKE %xx% }
soBlank, { is blank: }
soNotBlank, { is not blank: }
soInside, { contains only: IN ( xx, yy, zz ) }
soOutside); { doesn’t contain: NOT IN (xx, yy, zz) }
begin

转载于:https://www.cnblogs.com/JTeacher/archive/2012/11/19/2776909.html