vararrayof函数问题吗？

Question

你的字段名好奇怪啊 "pfm;fh"??

Answer 1

unit Unit19;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm19 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form19: TForm19;implementationuses Unit7;{$R *.DFM}procedure TForm19.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm19.Button1Click(Sender: TObject);
begin
 FORM7.QUERY1.Locate('PFM;FH',VarArrayOf([COMBOBOX1.TEXT,EDIT1.TEXT]),[]);
{ form7.Query1.First;
 while not form7.Query1.EOF do
 begin
  if (trim(combobox1.text)=trim(form7.Query1.FieldByName('pfm').asstring)) and (trim(edit1.text)=trim(form7.Query1.FieldByName('fh').asstring)) then
  begin
   break;
  end;
  form7.Query1.Next;
 end;   }
 close;
end;procedure TForm19.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
IF KEY=13 THEN
BEGIN
 BUTTON1.Click;
END;
end;end.

Answer 2

unit Unit19;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm19 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form19: TForm19;implementationuses Unit7;{$R *.DFM}procedure TForm19.Button2Click(Sender: TObject);
begin
close;
end;procedure TForm19.Button1Click(Sender: TObject);
begin
 FORM7.QUERY1.Locate('PFM;FH',VarArrayOf([COMBOBOX1.TEXT,EDIT1.TEXT]),[]);
{ form7.Query1.First;
 while not form7.Query1.EOF do
 begin
  if (trim(combobox1.text)=trim(form7.Query1.FieldByName('pfm').asstring)) and (trim(edit1.text)=trim(form7.Query1.FieldByName('fh').asstring)) then
  begin
   break;
  end;
  form7.Query1.Next;
 end;   }
 close;
end;procedure TForm19.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
IF KEY=13 THEN
BEGIN
 BUTTON1.Click;
END;
end;end.