procedure
TDemoForm
.
FormCreate(Sender: TObject);
begin
EmployeeDefsQuery
.
SQL
.
Text :=
'Select * From Employees Where 0 = 1'
;
EmployeeDefsQuery
.
Open;
end
;
procedure
TDemoForm
.
FetchButtonClick(Sender: TObject);
var
SqlStatement, WhereClause:
string
;
begin
EmployeeResultsQuery
.
Close;
SqlStatement :=
'Select * From Employees'
;
WhereClause := EmployeeFilterControl
.
FilterText;
if
WhereClause <>
''
then
SqlStatement := SqlStatement +
' Where '
+ EmployeeFilterControl
.
FilterText;
EmployeeResultsQuery
.
SQL
.
Text := SqlStatement;
EmployeeResultsQuery
.
Open;
if
EmployeesTableView
.
ItemCount =
0
then
EmployeesTableView
.
DataController
.
CreateAllItems;
end
;
评论