Урок 8.6. Delphi 7. Запись данных в таблицу (Append, TTable, AssignFile, FieldByName) |
Автор megabax | ||
29.10.2009 г. | ||
Программирование баз данных в Delphi 7: Запись данных в таблицу (Append, TTable, AssignFile, FieldByName)Сегодня мы загрузим в нашу базу данных товары из текстового файла. Этот тактовый файл вы можете скачать здесь. Создаем новый проект, кидаем на форму компонент TTable, он у нас на закладке DBE*: Затем кладем на форму кнопочку (TButton). Напомню, она у нас на закладке Standart*: Сменим заголовок и идентификатор кнопки. Пусть выглядит кнопка как "Старт", а свойство Name будет равно btnStart. Затем переключимся на компонент TTable, что бы выбрать у него свойство DatabaseName*: Свойство DatabseName установим в StorePrj, а свойство TableName нужно сделать wares.db. Теперь пишем обработчик события OnClick кнопочки:
Запускаем программу и нажимаем кнопочку "Старт" После нажатия на кнопку программа "подумаем" пару секунд, и все, товары загружены. Посмотреть их мы сможем пую мри помощи нашей заготовки программы складского учета, которую мы делали на предыдущем уроке: Если у вас загруженные товары не показывает, то нужно в процедуре 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 г. ) |
« След. | Пред. » |
---|