//顧客マスタ
procedure TForm1.N1Click(Sender: TObject);
begin
  with  Query1  do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('SELECT * FROM CUSTOMER');    //SQL[0]
    SQL.Add('ORDER BY CUSTNO');           //SQL[1]
    Active := True;
  end;
end;

//商品マスタ
procedure TForm1.N2Click(Sender: TObject);
begin
  with Query1 do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('SELECT * FROM PARTS');   //SQL[0]
    SQL.Add('ORDER BY PARTNO');       //SQL[1]
    Active := True;
  end;
end;