这是我的一段代码
var
sqlstring:string;
begin
if ruyicar_datasource.ruyicar_connection.Connected=false then
begin
ruyicar_datasource.ruyicar_connection.ConnectionString:=ruyicar_mainform.userid.Strings[2];
ruyicar_datasource.ruyicar_connection.Connected:=true;
end;
ruyicar_datasource.ruyicar_query.Active:=false;
ruyicar_datasource.ruyicar_query.SQL.Clear;
if (query_quantity.ItemIndex=0) and (trim(searchinfo.Text)<>'') then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where connectionman like ''%'+searchinfo.Text+'%'' and userid='+ruyicar_mainform.userid.Strings[0];
end;
if (query_quantity.ItemIndex=1) and (trim(searchinfo.Text)<>'') then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where companyname like ''%'+searchinfo.Text+'%'' and userid='+ruyicar_mainform.userid.Strings[0];
end;
if (query_quantity.ItemIndex=2) and (trim(searchinfo.Text)<>'') then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where telephone like ''%'+searchinfo.Text+'%'' and userid='+ruyicar_mainform.userid.Strings[0];
end;
if (query_quantity.ItemIndex=3) and (trim(searchinfo.Text)<>'') then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where introduce like ''%'+searchinfo.Text+'%'' and userid='+ruyicar_mainform.userid.Strings[0];
end;
if (query_quantity.ItemIndex=4) and (trim(searchinfo.Text)<>'') then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where address like ''%'+searchinfo.Text+'%'' and userid='+ruyicar_mainform.userid.Strings[0];
end;
if trim(searchinfo.Text)='' then
begin
sqlstring:='select lastconnect as 最后联系时间,buyerstatus as 客户状态,buyerlevel as 客户等级,companyname as 客户名称,telephone as 联系电话,';
sqlstring:=sqlstring+'connectionman,salekeywords,buykeywords,fax,introduce,userid,email,buyerform,buyertype,buyertrade,buyerremake,ID,address from business_clientdata where userid='+ruyicar_mainform.userid.Strings[0];
end;
ruyicar_datasource.ruyicar_query.SQL.Add(sqlstring);
ruyicar_datasource.ruyicar_query.Active:=true;
with buyer_dbgrid do
begin
columns[0].Width:=90;
columns[1].Width:=90;
columns[2].Width:=100;
columns[3].Width:=200;
columns[4].Width:=120;
columns[5].Visible:=false;
columns[6].Visible:=false;
columns[7].Visible:=false;
columns[8].Visible:=false;
columns[9].Visible:=false;
columns[10].Visible:=false;
columns[11].Visible:=false;
columns[12].Visible:=false;
columns[13].Visible:=false;
columns[14].Visible:=false;
columns[15].Visible:=false;
columns[16].Visible:=false;
columns[17].Visible:=false;
end;
buyer_dbgrid.Visible:=true;
end;
偶尔出现的错误提示: ruyicar_query:field 'lastconnect' not found
但是有时不出现。