Читайте также: |
|
Создание простейшего приложения для работы с таблицами данных.
Выберите пункт главного меню Delphi Tools/Database Desktop для того, чтобы запустить программу Database Desktop, с помощью которого можно создавать таблицы, изменять их структуру и назначать им индексы.
После запуска Database Desktop выберите меню File/New/Table, чтобы начать процесс создания новой таблицы. После выбора этой команды на экране появляется окно Create Table, в котором нужно выбрать формат (тип) таблицы (например, Paradox 7). После выбора формата таблицы появляется окно определения структуры таблицы БД.
В этом окне находятся следующие поля:
Каждая таблица должна иметь хотя бы одно поле.
[Insert] – вставка поля;
[Ctrl]+[Delete] – удаление поля (в окне определения и изменения структуры таблицы).
Определим поля, входящие в таблицу «Товары». Введите имя поля Tovar в столбец Field Name, в поле Type выберите тип поля Alpha и установите размер поля 20. Задайте для таблицы следующую структуру:
Компонент | Свойство | Значение |
Table1 | DataBaseName | C:\Baza (путь к папке, где находится таблица) |
TableName (открыть список). Если путь к таблице указан неверно, этот список не откроется. | Tovar.db (имя нужной таблицы) | |
Active (двойной щелчок или открыть список) | True (открываем таблицу) | |
DataSource1 | DataSet (открыть списо)к | Table1 |
DBGrid1 | DataSource (открыть список) | DataSource1 |
DBNavigator1 | DataSource | DataSource1 |
Field Name | Type | Size |
Tovar | A | |
Kod | N | |
DataVipusk | D | |
SrokGodnos | D | |
Kolvo | N | |
Cena | $ |
Для каждого поля можно определить требование обязательного его заполнения значением. Для этого, переходя от поля к полю, включайте переключатели Required Field. Другие поля служат для наложения ограничений назначение поля:
Отсутствия значения в одном из полей означает отсутствие ограничений на значение поля.
После определения структуры таблицы ее необходимо сохранить, нажав на кнопку Save as…,и в появившемся окне указать расположение таблицы на диске и задать ее имя.
Сохраните созданную таблицу на диске под именем Tovar.db в папке Baza на рабочем диске.
Закройте Database Desktop. Перейдите в главное окно Delphi. Подготовим форму для нашего приложения, с помощью которого можно перемещаться по записям таблицы БД, просматривать и редактировать поля, удалять записи из таблицы и вставлять новые.
Разместите на форме компоненты Table, DataSource (п. к. DataAccess) и DBGrid, DBNavigator (п. к. DataControls), в окне инспектора объектов установите для них свойства:
Запустите программу и заполните созданную вами таблицу (10 записей, 11-я – пустая). Чтобы добавилась новая запись, установите курсор в последнем поле таблицы и нажмите [Tab] на клавиатуре. Закройте работающую программу и установите для компонента Table1 в свойстве Active значение False и сразу же значение True. В окне формы в компоненте DBGrid вы увидите записи.
Компонент DataSource1(источник данных) является связующим элементом между компонентами доступа к данным (Table1 – соединен с реальной таблицей БД) и визуальными компонентами отображения данных (DBGrid1 – отображает содержимое таблицы в виде сетки).
– компонент DBNavigator используется для управления набором данных.
Свойство VisibleButtons типа TButtonSet – определяет состав видимых кнопок:
– перейти к первой записи
– к предыдущей
– к следующей
– к последней
– вставить новую запись
– удалить текущую запись
– редактировать текущую запись
– сохранить изменения записи
– отменить изменения текущей записи
– обновить информацию в БД
Свойство ConfirmDelete типа Boolean – выдает на экран окно для подтверждения удаления записи (True – по умолчанию), = False – запись удаляется без подтверждения.
Свойство Flat типа Boolean – управляет внешним видом кнопок
=False – кнопки отображаются в объемном виде;
=True – плоский вид кнопок.
Свойство DataSource – связывает навигатор с набором данных.
Дата добавления: 2015-07-19; просмотров: 50 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Таблицы Paradox | | | Набор данных |