Товар с полями Код тип ~ счетчик Наименование тип ~ текстовый и Количество тип ~ числовой
Работа добавлена на сайт samzan.net: 2015-07-10
Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
от 25%
Подписываем
договор
Обработка базы данных MS Access в Delphi
- Создаем новую базу в MS Access.
- С помощью конструктора создаем в этой базе таблицу «Товар» с полями «Код» (тип – счетчик), «Наименование» (тип – текстовый) и «Количество» (тип – числовой).
- Внесите несколько записей в созданную таблицу и сохраните базу данных на рабочем столе с названием db1.mdb
- Запустите Delphi и на панели компонентов выберите вкладку ADO.
- Разместите на форме компонент ADOTable.
- Перейдите на панели компонентов во вкладку Data Access и разместите на форме компонент DataSource из этой вкладки.
- Выделите созданный в предыдущем шаге объект DataSource и в инспекторе объектов (окошко в левом нижнем углу экрана) в поле DataSet выберите в выпадающем меню пункт ADOTable1.
- Выделите ранее созданный объект ADOTable затем в инспекторе объектов выделите поле ConnectionString и нажмите кнопку с троеточием.
- В открывшемся окошке нажмите кнопку Build.
- Во вкладке «Поставщик данных» выберите пункт Microsoft Jet 4.0 OLE DB Provider
- Перейдите во вкладку «Подключение»
- Укажите путь к ранее созданной базе данных и поставьте галочку в пункте «Пустой пароль» и нажмите ОК и снова ОК.
- Выделите созданный вами на предыдущих этапах компонент ADOTablе, затем в инспекторе объектов выделите поле TableName и в выпадающем меню выберите пункт Товар.
- Перейдите во вкладку Data Controls на панели компонентов и перенесите компонент DBEdit на вашу форму. Выделите этот компонент.
- В инспекторе объектов в поле DataSource выберите пункт DataSource1, а в поле DataField выберите пункт Наименование
- Повторите шаг 14 и 15, только теперь в поле DataField выберите пункт Количество
- Разместите на форме объект DBNavigator из вкладки Data Controls.
- Выделите его и в инспекторе объектов в поле DataSource выберите пункт DataSource1.
- Выделите форму (щелкните по пустому месту в вашем проекте).
- В инспекторе объектов перейдите во вкладку Events.
- Найдите поле OnShow и произведите двойной клик левой кнопкой мыши по белому пространству в этом поле. Откроется код вашего проекта.
- Не меняя положения мигающего курсора напишите ADOTable1.Open;
- Найдите поле OnClose и произведите двойной клик левой кнопкой мыши по белому пространству в этом поле. Откроется код вашего проекта.
- Не меняя положения мигающего курсора напишите ADOTable1.Close;
- Откомпилируйте ваш проект нажатием клавиши F9.