Разработка информационного банка данных

Для того чтобы открыть таблицу «Пассажирские проходящие поезда» в элементе ADOTable нужно в свойстве Active поставить «true». В компоненте DBGrid отобразятся записи таблицы, созданной в Access.

Изменить ширину полей таблицы, а также для изменения их заголовков отображаемых на экране нужно два раза щелкнуть на элементе ADOTable– Add all fields. Свойство Display label- изменение заголовков таблиц, прописывается имя, которое должно отображаться на сетке. Для того чтобы сохранить ширину полей делаем два щелчка по сетке DBGrid и выбираем все поля.

Таким образом, создается соединение таблицы Access с Delphi. Так как в нашем случае всего одна таблица этих операций достаточно.

Если необходимо привязать несколько таблиц,как в нашем случае, то нужно повторить действия, то есть сначала настроить соединение с Delphi, на форме поместить элементы для графического отображения таблицы и элементы управления ей, а затем связать их таблицей Access. Аналогично повторяем действия, описанные выше, привязывая к Delphi таблицу «Станция Ружино», сохраненную в базе данных Access «ЖД вокзал.mdb».

Также используются и другие компоненты, располагаемые на форме.

Компонент DBEdit предназначен как для отображения значения какого-либо поля текущей записи, так и для внесения изменений в это значение.

Следующий компонент называется DBMemo и используется для отображения или редактирования содержимого BLOB-поля текущей записи.

Компонент DBImage расположен после DBMemo и предназначен для отображения и копирования графического изображения, находящегося в BLOB-поле текущей записи.

Компонент DBLJstBox служит для отображения списка значений из поля (столбца) таблицы и выбора одного из них. Применяется, когда нужно, чтобы пользователь ввел одно из фиксированных значений.

Компонент DBComboBox используется для отображения списка значений из столбца таблицы с возможностью одиночного выбора, а также поддерживает ручной ввод произвольного значения данного поля текущей записи.

Компонент DBCheckBox предназначен для отображения или редактирования значений полей текущей записи, содержащих данные булевского типа.

Компонент DBRadioGroup отображает переключатель, то есть группу кнопок, которые соответствуют значениям набора полей булевого типа.

Компонент Button– кнопка–это компонент, которому можно прописать код для исполнения какой–либо команды.

Палитра компонентов в Delphi 7 очень разнообразна, их число насчитывает около сотни различных компонентов и элементов управления в зависимости от поставленных задач и области разработки того или иного проекта.

В данной курсовой работе используются компоненты с вкладок ADO, Data Controls, Data Access и Standard и Additional. Вид главной формы Form1 показан на рисунке 6.

Рисунок 6 Главная форма Form1 БД «Автоматизация деятельности ЖД вокзала».

Кнопка «Поиск» предназначена поиска по номеру поезда. Для того чтобы произвести поиск по определенному номеру поезда нужно в поле Edit1 ввести нужное значение и нажать собственно кнопку Button2. Но для того, чтобы кнопка заработала в редакторе кода нужно прописать код

procedure TForm1.btn1Click(Sender: TObject);

begin

with tbl2 do begin

Filtered := False;

Filter := '[nomer_poezda] LIKE ' + QuotedStr(edt1.Text+'*');

Filtered := True;

То есть мы ставим фильтр на столбец таблицы «Станция Ружино» с названием «nomer_poezda» осуществляющий выборку из всего диапазона значений данного столбца по введенному в Edt1 значения.

Кнопка «Сброс поиска» осуществляет возврат всех исходных данных таблицы. Для нее пишем следующий код:

procedure TForm1.btn2Click(Sender: TObject);

begin

   Form1.tbl2.Active:=false;

   Form1.tbl2.Active:=true;

   Form1.tbl2.Filtered:=False;

В кнопке «О программе» заложен открывающий Form2, на которой расположен всего один элемент StdCtrl, содержащий надпись в которой указано название программы и ее разработчики (рисунок 7).

Рисунок 7 Внешний вид Form 2 «О программе»

Для работы кнопки «О программе» прописываем код:

procedure TForm1.btn3Click(Sender: TObject);

begin

 Form2.Show;

end;

То есть при нажатии на Вtn2 происходит открытие Form2.

Для работы кнопки «Выход» прописываем код закрывающий Form1:

procedure TForm1.btn4Click(Sender: TObject);

begin

form1.close;

end;

 

4 Код программы

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

 

type

  TForm1 = class(TForm)

    con1: TADOConnection;

    tbl1: TADOTable;

    ds1: TDataSource;

    dbgrd1: TDBGrid;

    dbnvgr1: TDBNavigator;

    con2: TADOConnection;

    tbl2: TADOTable;

    ds2: TDataSource;

    dbgrd2: TDBGrid;

    dbnvgr2: TDBNavigator;

    edt1: TEdit;

    btn1: TButton;

    wdstrngfldtbl1nomer_poezda: TWideStringField;

    wdstrngfldtbl1marshrut: TWideStringField;

    wdstrngfldtbl1vremya_otpravlenia_c_nachalnogo_punkta: TWideStringField;

    wdstrngfldtbl1vremya_pribitia_v_Konechnii_punkt: TWideStringField;

    wdstrngfldtbl1tip_poezda: TWideStringField;

    bcdfldtbl1cena: TBCDField;

    wdstrngfldtbl1tip_vagona: TWideStringField;

    wdstrngfldtbl2nomer_poezda: TWideStringField;

    wdstrngfldtbl2vremya_pribitia: TWideStringField;

    intgrfldtbl2stoyanka: TIntegerField;

    wdstrngfldtbl2vremya_otbitia: TWideStringField;

    wdstrngfldtbl2periodichnost: TWideStringField;

    btn2: TButton;

    lbl1: TLabel;

    lbl2: TLabel;

    btn3: TButton;

    btn4: TButton;

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

    procedure btn3Click(Sender: TObject);

    procedure btn4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm1.btn1Click(Sender: TObject);

begin

  with tbl2 do begin

Filtered := False;

Filter := '[nomer_poezda] LIKE ' + QuotedStr(edt1.Text+'*');

Filtered := True;

end;

 

end;

 

procedure TForm1.btn2Click(Sender: TObject);

begin

   Form1.tbl2.Active:=false;

  Form1.tbl2.Active:=true;

   Form1.tbl2.Filtered:=False;

 

end;

 

procedure TForm1.btn3Click(Sender: TObject);

begin

Form2.Show;

end;

 

procedure TForm1.btn4Click(Sender: TObject);

begin

form1.close;

end;

end.

 

5 Методика испытаний

 

 

Запускаем созданный в Delphi 7 Project1.exe. открывается главное окно (рисунок 8):

Рисунок 8 Внешний вид окна проекта

При нажатии кнопки «О программе» появляется окно с информацией о теме базы данных и разработчиках.

При вводе числового значения инвентарного номера и нажатии кнопки «Поиск» осуществляется поиск по введенному числовому значению.

При нажатии конки «Сброс поиска» происходит отмена результатов поиска и возврат всех записей исходной таблицы.

При нажатии на кнопки навигатора происходят события символьно указанные на той или иной кнопке, то есть пи нажатии на «+» или «–» –происходит добавление/удаление строки и т.д.

При нажатии кнопки «Выход» происходит закрытие проекта.

Все компоненты проекта нормально функционируют и выполняют прописанные коды.

 

6 Возможности программы

 

 

Созданная в данной курсовой работе база данных в Delphi 7 «Автоматизация деятельности ЖД вокзала» обеспечивает хранение и редактирование данных о поездах, проходящих через станцию Ружино.

Простота и доступность интерфейса, позволяет любому пользователю работать с программой.

Кроме того, программа позволяет осуществлять поиск информации по номеру поезда, выполнив который можно узнать всю требуемую информацию по конкретному маршруту.

Программа может быть изменена, в нее могут быть добавлены новые критерии поиска, что также существенно расширит ее функциональные возможности.

 

7 Выводы

 

 

В данной курсовой работе показано создание базы данных «Автоматизация деятельности ЖД вокзала» с помощью технологии ADO.

Созданная база данных выполняет  следующие задачи:

1. Обеспечивает хранение и редактирование информации о проходящих через станцию Ружино поездах;
2. Позволяет выполнять поиск по номеру поезда.

Программа не использует никаких дополнительных устройств, кроме основной конфигурации, а также  не требует мощной конфигурации персонального компьютера.

 

Список использованной литературы

 

 

1. Гофман В. Э., Хомоненко А. Д. Работа с базами данных в Delphi. –СПб.: БХВ-Петербург, 2001. –656 с.
2. Фленов М. Е. Библия Delphi. –СПб.: БХВ-Петербург, 2004. — 880 с.
3. Сорокин А. В. Delphi. Разработка баз данных. – СПб.: Питер, 2005. –477 с.