SQL DELETE语句返回，参数错误没有默认值

Question

我正在德尔福制作医院计划，当输入患者的ID时，我有一个删除患者记录的按钮。但是，当我运行程序并输入患者ID时，它会给我一个错误，说明＆＃34;参数PatientID没有默认值＆＃34;

这是我的代码：

procedure TfrmPatient.btnRemovePatientClick(Sender: TObject);
var
iPatientID : Integer;
begin
  iPatientID := 0;
  iPatientID := StrToInt(InputBox('Delete Patient', 'Enter Patient ID to Delete',''));
  DBPatients.Close;
  DBPatients.SQL.Text := ('Delete from tblPatients ' + ' Where PatientID = "' + IntToStr(iPatientID) +'"');
  DBPatients.ExecSQL;
end;

非常感谢您的快速帮助

Answer 1

我相信我知道什么是错的：

您的表格 tblPatients 上的字段 PatientID 可能是一个整数fileld，您将其视为字符串字段。

试试这个：

public void onClick(View view) {
    switch(view.getId()) {
        case R.id.button1:
            Intent intent = new Intent(this, java1.class);
            startActivity(intent);
            break;
        case R.id.button2:
            Intent i = new Intent(this, java2.class);
            startActivity(i);
            break;
    }
}