Товар с полями Код тип ~ счетчик Наименование тип ~ текстовый и Количество тип ~ числовой
Работа добавлена на сайт samzan.net:
Обработка базы данных MSAccess в Delphi
Создаем новую базу в MSAccess.
С помощью конструктора создаем в этой базе таблицу «Товар» с полями «Код» (тип счетчик), «Наименование» (тип текстовый) и «Количество» (тип числовой).
Внесите несколько записей в созданную таблицу и сохраните базу данных на рабочем столе с названием db1.mdb
Запустите Delphi и на панели компонентов выберите вкладку ADO.
Разместите на форме компонент ADOTable.
Перейдите на панели компонентов во вкладку DataAccess и разместите на форме компонент DataSource из этой вкладки.
Выделите созданный в предыдущем шаге объект DataSource и в инспекторе объектов (окошко в левом нижнем углу экрана) в поле DataSet выберите в выпадающем меню пункт ADOTable1.
Выделите ранее созданный объект ADOTable затем в инспекторе объектов выделите поле ConnectionString и нажмите кнопку с троеточием.
В открывшемся окошке нажмите кнопку Build.
Во вкладке «Поставщик данных» выберите пункт MicrosoftJet 4.0 OLEDBProvider
Перейдите во вкладку «Подключение»
Укажите путь к ранее созданной базе данных и поставьте галочку в пункте «Пустой пароль» и нажмите ОК и снова ОК.
Выделите созданный вами на предыдущих этапах компонент ADOTablе, затем в инспекторе объектов выделите поле TableName и в выпадающем меню выберите пункт Товар.
Перейдите во вкладку DataControls на панели компонентов и перенесите компонент DBEdit на вашу форму. Выделите этот компонент.
В инспекторе объектов в поле DataSource выберите пункт DataSource1, а в поле DataField выберите пункт Наименование
Повторите шаг 14 и 15, только теперь в поле DataField выберите пункт Количество
Разместите на форме объект DBNavigator из вкладки DataControls.
Выделите его и в инспекторе объектов в поле DataSource выберите пункт DataSource1.
Выделите форму (щелкните по пустому месту в вашем проекте).
В инспекторе объектов перейдите во вкладку Events.
Найдите поле OnShow и произведите двойной клик левой кнопкой мыши по белому пространству в этом поле. Откроется код вашего проекта.
Не меняя положения мигающего курсора напишите ADOTable1.Open;
Найдите поле OnClose и произведите двойной клик левой кнопкой мыши по белому пространству в этом поле. Откроется код вашего проекта.
Не меняя положения мигающего курсора напишите ADOTable1.Close;