数据输入合法性检查

OnExit只在离开表格时才会发生，应该在OnSelectCell事件上也加上校验。
如下例，CheckData函数检查指定单元数据的合法性，在OnSelectCell和
OnExit事件中调用该函数进行校验。

function TForm1.CheckData(Row, Col: integer): boolean;
{对指定单元数据进行校验，要求数据必须为整数}
begin
  Result := True;
  if StringGrid1.Cells[Col, Row] = '' then
    Exit;
  try
    StrToInt(StringGrid1.Cells[Col, Row]);
  except
    ShowMessage('Cell(' + IntToStr(Row) + ',' + IntToStr(Col) + ')' +
    ' is not a valid integer value');
    Result := False;
  end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
  CanSelect := CheckData(StringGrid1.Row, StringGrid1.Col);
end;

procedure TForm1.StringGrid1Exit(Sender: TObject);
begin
  if not CheckData(StringGrid1.Row, StringGrid1.Col) then
    StringGrid1.SetFocus;
end;  

 

 在相關數據表中（table,adoquery）的OnPostError()事件中判斷：
......

const
  eKeyViol=9729;        //主鍵必須唯一
  eReqdErr=9732;        //主鍵不能為空
......
procedure TDataModule1.Q_XLSPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if (E is EDBEngineError) then
    if (E as EDBEngineError).Errors[0].ErrorCode=eKeyViol then
      begin
        MessageDlg('提交失敗：成本項目名稱不能重復！',mtInformation,[mbOK],0);
        Abort;
      end
    else if (E as EDBEngineError).Errors[0].ErrorCode=eReqdErr then
      begin
        MessageDlg('提交失敗：成本項目名稱不能為空！',mtInformation,[mbOK],0);
        Abort;
      end;
end;

 

使焦点返回Grid.SelectedIndex := n;

取消修改

abort;