.
Урок 8.6. Delphi 7. Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)
Автор 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 г. )