procedure TEmp_F.btnDeleteClick(Sender: TObject);
begin
if dbgEmp.SelectedRows.Count > 0 then
begin
if MessageBox(Handle, '您要删除所有选中的记录吗?', '删除记录?', MB_OKCANCEL + MB_ICONWARNING) = IDOK then
begin
IF qryEMP.RecordCount > 0 then
begin
dbgEmp.SelectedRows.Delete;
end;
end;
end else
begin
Application.MessageBox('请单击左边的序号选中一条记录或拖选一段记录,' +
#13#10 +
'也可以用Ctrl及Shift来进行多选,然后再删除记录。', '提示',
MB_OK + MB_ICONINFORMATION);
end;
end;
procedure TEmp_F.dbgEmpMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then dbgFirst := qryEmp.RecNo;
end;
procedure TEmp_F.dbgEmpMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then dbgLast := qryEmp.RecNo;
end;