procedure TForm1.Button1Click(Sender: TObject); var strsql:string; input11:string; begin if trim(edit1.text)<>'then begin strsql:='select * from handset where name= "'+input11+'"'; if query1.Active then query1.Active:=false; query1.SQL.Clear; query1.SQL.Add(strsql); query1.Active:=true; end; end;
----------------------------------------------
命运是一只沦落在鸡窝里的鹰