5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TEmp_F.dbgEmpMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then dbgFirst := dbgEmp.Row;
end;
procedure TEmp_F.dbgEmpMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then dbgLast := dbgEmp.Row;
end;
procedure TEmp_F.MenuN2Click(Sender: TObject);
var
I : Integer;
S : string;
begin
S := qryEmp.FieldByName(dbgEmp.SelectedField.FieldName).Value;
for I := dbgFirst to dbgLast-1 do
begin
qryEmp.MoveBy(-1);
qryEmp.Edit;
qryEMP.FieldByName(dbgEmp.SelectedField.FieldName).AsString := S;
end;
end;