Хобрук: Ваш путь к мастерству в программировании

Как автоматически заполнить поле editlabel определенной строкой базы данных delphi

Привет, у меня проблема, мне нужно автоматически заполнить информацию из базы данных, но если я сделаю это так:

       leemail.text             := dm.atInlog['email'];
       lenaam.text              := dm.atInlog['naam'];
       leAdres.text             := dm.atInlog['adres'];
       lePostcode.text          := dm.atInlog['postcode'];
       leTelefoonnummer.text    := dm.atInlog['telefoon'];
       leWoonplaats.Text        := dm.atInlog['Woonplaats']

Он просто занимает первую строку. Мне нужна конкретная строка. Я могу заставить его работать с помощью такой кнопки:

procedure TfmKlant.BTGegevensClick(Sender: TObject);
begin
//vraag gegevens van gebruiker op
    dm.atInlog.Open;
    while (not gevonden) and (not dm.atInlog.eof) do
    begin
        if dm.atInlog['email'] = fminloggen.inlognaam
      then
      begin
//     plaats gegevens in de textboxen
       gevonden := true;
       leemail.text             := dm.atInlog['email'];
       lenaam.text              := dm.atInlog['naam'];
       leAdres.text             := dm.atInlog['adres'];
       lePostcode.text          := dm.atInlog['postcode'];
       leTelefoonnummer.text    := dm.atInlog['telefoon'];
       leWoonplaats.Text        := dm.atInlog['Woonplaats']
      end
        else dm.atInlog.Next;
end;

Но Он не делает этого в форме создания. Как я могу автоматически заполнить labeledit запрошенными данными?

заранее спасибо

delphi
04.04.2011

Ответы:


1

Вы можете использовать TDataSet.Locate или Lookup:

type
  TfmKlant = class(TForm)
  // ... other declarations
  private
    procedure ShowData(p_Email: string);
  end;


...
    procedure TfmKlant.FormCreate(Sender: TObject);
    begin
      // assuming the data set is already open, and fminloggen.inlognaaem is already set
      if dm.atInLog.Locate('email', fminloggen.inlognaam, []) then
      begin
       ShowData(fminloggen.inloognam);
      end;
    end;

    procedure TfmKlant.ShowData(p_Email: string);
    begin
           gevonden := true;
           leemail.text             := dm.atInlog['email'];
           lenaam.text              := dm.atInlog['naam'];
           leAdres.text             := dm.atInlog['adres'];
           lePostcode.text          := dm.atInlog['postcode'];
           leTelefoonnummer.text    := dm.atInlog['telefoon'];
           leWoonplaats.Text        := dm.atInlog['Woonplaats']
    end;
04.04.2011
  • Вы добавили ShowData в раздел интерфейса TfmKlant? 04.04.2011
  • TfmKlant = class(TForm) // другие объявления ... частная процедура ShowData(p_Email: string); конец; 04.04.2011
  • Я добавил раздел интерфейса в ответ - теперь должно быть понятнее. 04.04.2011
  • Ах вот как, я понял, но он все еще не показывает информацию :( 04.04.2011
    • Новые материалы
    Понимание структуры каталогов Linux
    Структура каталогов Linux — это иерархическая организация файлов и каталогов в системе Linux. Понимание этой структуры важно для всех, кто хочет использовать Linux в качестве основной..
    Введение в SQLite3 в Python
    SQLite3 — это популярная и часто используемая программная библиотека для управления реляционными базами данных. Она портативна, быстра и проста в использовании, что делает ее отличным выбором..
    Как создать ORM в Node.js
    Что такое ОРМ? Проще говоря, система ORM — это метод, в котором вы используете объектно-ориентированную парадигму для создания сопоставления между приложением и базой данных для выполнения..
    Руководство для начинающих по обработке естественного языка .
    Обработка естественного языка — захватывающая и быстро развивающаяся область, которую можно охарактеризовать как сочетание лингвистики, информатики и искусственного интеллекта. Это помогает..
    Защитите свое приложение NodeJS с помощью веб-токенов JSON (JWT): руководство по аутентификации на основе токенов
    В современном мире веб-приложений безопасность важнее, чем когда-либо. Одним из наиболее важных аспектов защиты веб-приложений является аутентификация пользователей. Аутентификация на основе..
    Вводное руководство по аннотациям @PreAuthorize и @PostAuthorize в Spring Security
    Введение Spring Security — это мощная и настраиваемая среда аутентификации и контроля доступа для приложений Java, особенно тех, которые созданы с использованием среды Spring. Этот пост..
    От стартапов к успеху в индустрии наук о данных: 5 важных инструментов
    Постоянно растущие объемы данных сегодня играют решающую роль для каждой компании, которая хочет оставаться на вершине. Это означает использование технологий искусственного интеллекта ,..