数据库:
代码:procedure TBooking.Button1Click(Sender: TObject);
begin
   with adoquery1 do
  begin
  try
    close;
    sql.Clear;
    sql.Add('insert into Book values(:t,:p,:e,:n,:i,:o,:m)');
    Parameters.ParamByName('t').Value:=date;
    Parameters.ParamByName('p').Value:=edit1.Text;
    Parameters.ParamByName('e').Value:=combobox2.Text;//出错行
    Parameters.ParamByName('n').Value:=combobox1.Text;
    Parameters.ParamByName('i').Value:=datetimepicker1.DateTime;
    Parameters.ParamByName('o').Value:=datetimepicker2.DateTime;
    Parameters.ParamByName('m').Value:=LogIn.Edit1.Text;
    ExecSQL;
  except
    showmessage('数据处理异常!');
  end;
  end;
end;