Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Delphi - это просто! arrow Урок 8.6. Delphi 7. Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)
06.10.2022 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Урок 8.6. Delphi 7. Запись данных в таблицу (Append, TTable, AssignFile, FieldByName) Печать E-mail
Автор megabax   
29.10.2009 г.
New Page 2

Программирование баз данных в Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

Сегодня мы загрузим в нашу базу данных товары из текстового файла. Этот тактовый файл вы можете скачать здесь.

Создаем новый проект, кидаем на форму компонент TTable, он у нас на закладке DBE*:

Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

Затем кладем на форму кнопочку (TButton). Напомню, она у нас на закладке Standart*:

Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

Сменим заголовок и идентификатор кнопки. Пусть выглядит кнопка как "Старт", а свойство Name будет равно btnStart.

Затем переключимся на компонент TTable, что бы выбрать у него свойство DatabaseName*:

Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

Свойство DatabseName установим в StorePrj, а свойство TableName нужно сделать wares.db.

Теперь пишем обработчик события OnClick кнопочки:

procedure TfrmLoader.btnStartClick(Sender: TObject);
var VF:textfile; s:string;
begin
      Table.Open;

      //связываем файловую переменную (типа дискриптор) с файлом
     AssignFile(VF,'d:\1\wares.txt'); //это разовая программа, поэтому не время тратим
     //на всякие диалоги выбора файлов и прочие "красивости"

     // открываем файл
     Reset(VF);

    //в цикле читаем файл
    while not(eof(VF)) do
    begin
         ReadLn(VF,s); //читаем наименование товара
         Table.Append; // добавляем запись в базу данных
         Table.Fields.FieldByName('name').Value:=s; //записываем в поле
         ReadLn(VF,s); // читаем цены
         Table.Fields.FieldByName('price').Value:=StrToInt(s);
    end;
    CloseFile(VF);
    Table.Close;
end;

Запускаем программу и нажимаем кнопочку "Старт"

Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

После нажатия на кнопку программа "подумаем" пару секунд, и все, товары загружены. Посмотреть их мы сможем пую мри помощи нашей заготовки программы складского учета, которую мы делали на предыдущем уроке:

Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)

Если у вас загруженные товары не показывает, то нужно в процедуре acWaresListExecute строку

CreateMDIChild(copy(SessionParams[i],6,Length(SessionParams[i])-5)+'/wares.db', WaresFields);

заменить нас строку

CreateMDIChild(copy(SessionParams[i],6,Length(SessionParams[i])-5)+'\wares.db', WaresFields);

Так же заготовку программы складского учета можно скачать здесь.


Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями   программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".


Последнее обновление ( 06.11.2011 г. )
 
« След.   Пред. »
 
© 2022 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги