Показать сообщение отдельно
  #1  
Старый 26.06.2009, 10:59
antikhrist antikhrist вне форума
Прохожий
 
Регистрация: 23.06.2009
Сообщения: 7
Репутация: 10
По умолчанию Вопросы по DbGrig'у

Доброго времени суток! Уважаемые господа, помогите с некоторыми вопросами с 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;
Помогите плиз!!!
Ответить с цитированием