![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Доброго времени суток! Уважаемые господа, помогите с некоторыми вопросами с DbGrid.
1. Прокрутка добавляется сама автоматически или где-то указываеться в свойствах самого Dbgrid'a? 2. Как програмно удалить запись (строку) из Dbgrid'a с возжностью потом её повесить на кнопку? 3. Как перемещать(!!!!) из одного Dbgrida во второй Dbgrid конкретно выбранную запись Вот пример кода в котором добавляеться запись в конец списка, а при нажатии кнопки первая запись в списке 1-го grida переходит в следующий (во 2-й) Код:
procedure TForm1.N11Click(Sender: TObject);
var s:String;
begin
s:=InputBox('Машина прибыла','Номер машины','');
if s<>'' then begin
ADOTable1.Last;
ADOTable1.Insert;
ADOTable1.FieldByName('number').AsString:=s;
ADOTable1.FieldByName('pos').AsInteger:=1;
end;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
ADOTable1.First;
ADOTable1.Edit;
ADOTable1.FieldByName('pos').AsInteger:=ADOTable1.FieldByName('pos').AsInteger+1;
try ADOTable1.Requery;except end;
try ADOTable2.Requery;except end;
try ADOTable3.Requery;except end;
try ADOTable4.Requery;except end;
end;
procedure TForm1.N31Click(Sender: TObject);
begin
ADOTable2.First;
ADOTable2.Edit;
ADOTable2.FieldByName('pos').AsInteger:=ADOTable2.FieldByName('pos').AsInteger+1;
try ADOTable1.Requery;except end;
try ADOTable2.Requery;except end;
try ADOTable3.Requery;except end;
try ADOTable4.Requery;except end;
end; |