if (form1.table1.FieldByName(combobox1.Text).AsString=edit5.Text )
then
begin
with query1 do
begin
close;
sql.clear;
sql.add('Select * From "db\show.db" As show');
sql.add('where 署名 between :date1 and :date2 ');
parambyname('date1').Value:=ComboBox1.text;//strtodate(datetostr(DateTimePicker1.Date));
parambyname('date2').Value:=ComboBox1.text;
????? sql.add('ORDER BY 日期 ASC ');
open;
last;
end;
then
begin
with query1 do
begin
close;
sql.clear;
sql.add('Select * From "db\show.db" As show');
sql.add('where 署名 between :date1 and :date2 ');
parambyname('date1').Value:=ComboBox1.text;//strtodate(datetostr(DateTimePicker1.Date));
parambyname('date2').Value:=ComboBox1.text;
????? sql.add('ORDER BY 日期 ASC ');
open;
last;
end;
TQuery 和 TUpdateSQL的部分
then
begin
with query1 do
begin
close;
sql.clear;
sql.add('Select * From "db\show.db" As show');
sql.add('where 署名 between :date1 and :date2 ');
sql.add('ORDER BY 日期 ASC ');
parambyname('date1').Value:=ComboBox1.text;//strtodate(datetostr(DateTimePicker1.Date));
parambyname('date2').Value:=ComboBox1.text;
open;
last;
end;
不可修改的视图需要自己手工写SQL,TSQLUpdate就提供了修改视图的方法。