procedure TForm2.btNewClick(Sender: TObject);
begin
  if Length(Edit1{TxtAircraft}.text)=0 then{关键字段为空则显示出错对话框}
  begin
    MessageDlg('必须输入机型',mtError,[mbOK],0);
  end
  else
    ADOTable1.IndexFieldNames:='Aircraft';
  if ADOTable1.FindKey([TxtAirCraft.text]) then {所输入的关键字与已存在的记录重复}
  begin
    MessageDlg('该机型已经存在',mtError,[mbOK],0);
  end
  else
    ADOTable1.InsertRecord([Edit1.text,Edit2.text,
    Edit3.text,Edit4.text,Edit5.text,
    Edit6.text,Edit7.text,
    Edit8.text,Edit9.text,
    Edit10.text]);
    Edit1.text:='';
    Edit2.text:='';
    Edit3.text:='';
    Edit4.text:='';
    Edit5.text:='';
    Edit6.text:='';
    Edit7.text:='';
    Edit8.text:='';
    Edit9.text:='';
    Edit10.text:='';
end;