UC知道DELPHI7事件处理问题求助
来源：百度知道 编辑：UC知道 时间：2024/06/05 19:27:30
在TBUTTON对象中的ONCLICK事件处理过程加入代码如下
begin
datasource1.dataset:=query1;
dbgrid1.DataSource:=datasource1;
flag :=0;
with query1 do
begin
databasename:='dbdemos'
close;
sql,clear;
str :='select * from employee.db';
if editempnostart.Text<>''THEN
begin
str :=str + 'where empno between '+
editempnostart.text + 'and'+
editempnoend.Text;
flag := 1;
end
if editnamestart.Text,.''then
begin
if flag = 0 then str := str+' where '
else str :=str + ' and ';
str := str + 'lastname between ''' +
editnamestart.Text + ''' and ''' +
editnameend.Text +'
begin
datasource1.dataset:=query1;
dbgrid1.DataSource:=datasource1;
flag :=0;
with query1 do
begin
databasename:='dbdemos'
close;
sql,clear;
str :='select * from employee.db';
if editempnostart.Text<>''THEN
begin
str :=str + 'where empno between '+
editempnostart.text + 'and'+
editempnoend.Text;
flag := 1;
end
if editnamestart.Text,.''then
begin
if flag = 0 then str := str+' where '
else str :=str + ' and ';
str := str + 'lastname between ''' +
editnamestart.Text + ''' and ''' +
editnameend.Text +'
Missing operator or semicolon 的意思是告诉你上一句的结束没有用分号
注意Pascal语法应该是这样子的
databasename:='dbdemos';
另外你注意SQL语句应该在必要的地方留空格
str :='select * from employee.db';
if editempnostart.Text<>''THEN
begin
str :=str + 'where empno between '+
这个部分employee.db与where之间就没有空格，多检查一下就可以了。