"因你而精彩"请进(0分)

ftquery是我添加在你的form6上的,设置它的别名就行了.我把你的代码注释了.
procedure TForm6.ComboBox1Change(Sender: TObject);
var
ft:String;
begin
if combobox1.text='新增机型...' then
begin
form7.show;
end;
if combobox1.Text<>'新增机型...' then
begin
with ftQuery do
begin
close;
sql.clear;
sql.Add('SELECT * FROM ljqd WHERE Jx=:ft');
ParamByName('ft').Value:=ComboBox1.Text;
open;
end;

//table2.close;
//table2.emptytable;
//table4.Close;
//table4.Open;
//table2.Open;
//table2.Filter:='jx='''+combobox1.text+'''';
//table2.Filtered:=true;
//table2.BatchMove(table4,batappend);
end;
end;

//你添加一个button1来试试这段代码看怎么样.就是查找的功能的.
procedure TForm6.Button1Click(Sender: TObject);
begin
if ComboBox2.Text='按国内图号查找' then
begin
with ftQuery do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM ljqd WHERE jx=:a1 AND glth=:b1');
ParamByName('a1').Value:=Combobox1.Text;
ParamByName('b1').Value:=Edit1.Text;
open;
end;
end;

if ComboBox2.Text='按国际图号查找' then
begin
with ftQuery do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM ljqd WHERE jx=:a1 AND gjth=:b1');
ParamByName('a1').Value:=Combobox1.Text;
ParamByName('b1').Value:=Edit1.Text;
open;
end;
end;

if ComboBox2.Text='按通号图号查找' then
begin
with ftQuery do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM ljqd WHERE jx=:a1 AND tyth=:b1');
ParamByName('a1').Value:=Combobox1.Text;
ParamByName('b1').Value:=Edit1.Text;
open;
end;
end;

end;

上面的就是你的两个功能,其实我在button1中就是查询符合条件的记录的.
没用什么临时表的东东.

老大，你应该说：”因你而精彩“这位朋友（同志，，，）请进
我还以为你的帖子因为我进来了而精彩呢
：）

接受答案了.