Список последних записей

[ГОСЕАН]

Вопрос такой:
1. есть таблицы в SQL Server2000
2. есть приложение в Delphi7
необходимо запомнить последние 10 сохраненные записи таблицы и вывести в меню. по аналогии в MS Word, но вместо файлов записи в таблице (например с номером акта, организации и номером записи) при нажатии на выбранном переход на эту запись.

[Andrei]

А в чем проблема-то?
Сохрани ключ нужной записи, привяжи его к соответствующему пункту меню, а потом, при выборе этого пункта меню переходи по ключу на нужную запись.
Только и всего

[Domovoy]

Если у тебя при добавлении новой записи есть поле с датой добавления , то делай так:
при загрузки формы считывай их : select top 10 * from tab1 order by dinput, пробегаешься по нд и пуляешь их в менюшку примерно так:

var
  item:TMenuItem;
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    item:=TMenuItem.Create(nil);
    item.Caption:=ADOQuery1['id'];
    mainmenu1.Items[0].Add(item);
    ADOQuery1.Next;
  end;
end;

Вариантов очень много а это всего лиш пример

[ГОСЕАН]

Сообщение от Domovoy

Если у тебя при добавлении новой записи есть поле с датой добавления , то делай так:
при загрузки формы считывай их : select top 10 * from tab1 order by dinput, пробегаешься по нд и пуляешь их в менюшку примерно так:

var
  item:TMenuItem;
begin
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
    item:=TMenuItem.Create(nil);
    item.Caption:=ADOQuery1['id'];
    mainmenu1.Items[0].Add(item);
    ADOQuery1.Next;
  end;
end;

Вариантов очень много а это всего лиш пример

а если из трех полей в меню?

[Domovoy]

Принцип тот же. Главное не забудь создать обработчика события при нажатии на менюшку.

[ГОСЕАН]

Сообщение от Domovoy

Принцип тот же. Главное не забудь создать обработчика события при нажатии на менюшку.

чот не получатся,
в меню должно отражаться следующим образом:
номер записи, номер акта, организация.
всяко разно пробовал, но больше одного параметра id не хочет брать. А обработчик события как сделать? необходимо при выборе определенной строки в меню добавленной переходило на определенную запись таблицы в открытой форме

[Domovoy]

Кинь свой код и сразу станет яснее.

[ГОСЕАН]

Сообщение от Domovoy

Кинь свой код и сразу станет яснее.

в том то и дело, что код я ваш использовал, только вот один момент item.Caption:=Query69['indakt' + пытаюсь присоединить NAkt и NOrg ];
как бы в одной строке меню. А вот обработчик не знаю как делать, необходимо чтобы переходило по indakt (форму открывать не надо, оно открыто, просто необходимо перейти на запись по индексному полю indakt)

[Domovoy]

procedure TForm1.myItem(sender: TObject);
begin
  DataSet.Locate('id',TMenuItem(sender).Tag,[loCaseInsensitive,loPartialKey]);
end;

TForm1.FormCreate(Sender: TObject);
var
  item:TMenuItem;
  id:integer;
begin
  id:=DataSet['id'];
  DataSet.First;
  while not DataSet.Eof do
  begin
    item:=TMenuItem.Create(nil);
    item.Caption:=dataset.fieldbyname('id').AsString+' '+dataset.fieldbyname('fio').AsString;
    item.Tag:=DataSet['id'];
    item.OnClick:=myItem;
    mainmenu1.Items[2].Add(item);
    DataSet.Next;
  end;
  DataSet.Locate('id',id,[loCaseInsensitive,loPartialKey]);
end;

Вместо Dataset Query и т.п. короч потомки его.

[ГОСЕАН]

Сообщение от Domovoy

procedure TForm1.myItem(sender: TObject);
begin
  DataSet.Locate('id',TMenuItem(sender).Tag,[loCaseInsensitive,loPartialKey]);
end;

TForm1.FormCreate(Sender: TObject);
var
  item:TMenuItem;
  id:integer;
begin
  id:=DataSet['id'];
  DataSet.First;
  while not DataSet.Eof do
  begin
    item:=TMenuItem.Create(nil);
    item.Caption:=dataset.fieldbyname('id').AsString+' '+dataset.fieldbyname('fio').AsString;
    item.Tag:=DataSet['id'];
    item.OnClick:=myItem;
    mainmenu1.Items[2].Add(item);
    DataSet.Next;
  end;
  DataSet.Locate('id',id,[loCaseInsensitive,loPartialKey]);
end;

Вместо Dataset Query и т.п. короч потомки его.

Спасибо огромное, получилось!