VPF::Combobox+Memo - Форум программистов

Anakin

Дата 25.10.2007, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Всем драсте.
Мусолить не буду перейду сразу к делу..
Использую Mysql сервер, для связи с ним использую компонент MYDAC
есть таблица с названием ttask
в ней поля:
ID= Счетчик, индексное поле.
task= поле максимальное хранение текста 255 символов.
ntask= поле с максимальным вводом символов 20

На форме стоит:
Combobox= в котором должны отображтся поля ntask
Memo=тут отображаетса поле task
Edit1= тут поле ID
Необходимо чтобы при выборе в комбобоксе данных в мемо заносились данных и в Edit
выше описал что за что отвечает.
вот сам попробовал на мудрить почитал статьи на форуме и в этоге получилось такая байда:

Код


procedure Tfrmtask.FormShow(Sender: TObject);
begin
  MainForm.maccess.Close;
  MainForm.maccess.SQL.Clear;
  MainForm.maccess.SQL.Add('SELECT ID,ntask FROM ttask;');
  MainForm.maccess.Open;
  cbtask.Clear;
  while not MainForm.maccess.Eof do
  begin
    cbtask.Items.AddObject(MainForm.maccess.Fields.Fields[1].AsString, Pointer(MainForm.maccess.Fields.Fields[0].AsInteger));
    MainForm.maccess.Next;
  end;
end;

Rodman

Дата 25.10.2007, 10:57 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

Код


procedure Tfrmtask.FormShow(Sender: TObject);
begin
  MainForm.maccess.Close;
  MainForm.maccess.SQL.Clear;
  MainForm.maccess.SQL.Add('SELECT ID,ntask FROM ttask;');
  MainForm.maccess.Open;
  cbtask.Clear;
  while not MainForm.maccess.Eof do
  begin
    cbtask.Items.AddObject(MainForm.maccess.Fields.Fields[1].AsString, Pointer(MainForm.maccess.Fields.Fields[0].AsInteger));
    MainForm.maccess.Next;
  end;
end;

procedure TForm1.cbtaskChange(Sender: TObject);
begin
  MainForm.maccess.Close;
  MainForm.maccess.SQL.Clear;
  MainForm.maccess.SQL.Add('SELECT ID,ntask, task FROM ttask WHERE (ID=:Prm);');
  MainForm.maccess.Parameters.ParamByName('Prm').Value:=IntToStr(integer(cbtask.Items.Objects[cbtask.ItemIndex]));
  MainForm.maccess.Open;
  Edit1.Clear;
  Memo1.Clear;
  Edit1.Text:=MainForm.maccess.Fields.Fields[0].AsString;
  Memo1.Text:=MainForm.maccess.Fields.Fields[2].AsString;
end;

вот так, если я правильно понял все!

Это сообщение отредактировал(а) Rodman - 25.10.2007, 10:58

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »