Конрольная работа по "Программированию"

Описание  структуры БД.

 

База данных «Продажа программных  продуктов» состоит из 2 таблиц:

Продукт. Поля: *ID_продукта - типа счетчик (идентификационный номер  программного продукта), Наименование – текстового типа (наименование программного продукта), Фирма_изготовитель – текстового типа (фирма изготовитель программного продукта), Цена_комплетка – денежного  типа.

Продажи. Поля: *ID - типа счетчик, Дата продажи – текстового типа (дата продажи программного продукта), Количество на складе – числового  типа (оставшееся число программных  продуктов на складе), ID_продукта –  числового типа.

* - ключевое поле.

 

 

Схема связи между таблицами:

Описание  структуры программы.

 

Программа связана с БД с помощью компонента AdoConnection. Компонент TADOConnection предназначен для управления соединением с объектами хранилища  данных ADO. Он обеспечивает доступ к  хранилищу данных компонентам ADO, инкапсулирующим  набор данных.

Перед открытием соединения необходимо задать его параметры. Здесь  можно настроить соединение через  свойство ConnectionString (радио-кнопка Use Connection String). В качестве провайдера выбран Microsoft.Jet.OLEDB.4.0.

Применение этого компонента дает разработчику ряд преимуществ:  

• все компоненты доступа к данным ADO обращаются к хранилищу данных через одно соединение;  
• возможность напрямую задать объект провайдера соединения;  
• доступ к объекту соединения ADO;  
• возможность выполнять команды ADO;  
• выполнение транзакций;  
• расширенное управление соединением при помощи методов-обработчиков событий.

Программная реализация.

 

Программа организованна  на двух формах. Первая основная, вторая предназначена для вывода отчетов  - посредством SQL запросов. В программе  используются не визуальные компоненты такие как: XpManifest- для считывания настроек операционной системы, ADOConection для связи программы с БД, ADOTable для отображения данных из базы в DBGrid, ADOQuery для выполнения запросов на поиск и соответственно DataSource для соединения AdoTable и AdoQuery с соответствующими DBGrid.

Для того чтобы подключить БД используется процедура

 

procedure TForm1.FormCreate(Sender: TObject);

Var s: String;

begin

 

  s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="';

  s:=s+ExtractFilePath(Application.ExeName)+'Base';

  s:=s+'\База.mdb";Persist Security Info=False';

 

  Form1.ADOConnection1.ConnectionString:=s;

  Form1.ADOConnection1.Connected:=True;

  Form1.ADOTable1.Active:=True;

  Form1.ADOTable2.Active:=True;

 

end;

 

С помощью этой процедуры  программа находит БД в памяти компьютера.

Рассмотрим порядок подключения  таблицы.

Подключение таблиц происходит по цепочке ADOConection (автоматически –  см. процедуру выше) ---ADOTable ----DataSource ---- DBGrid

Сначала настроим ADOTable. Свойству Conection присвоим ADOConection. С помощью  свойства TableName  укажем нужную нам  таблицу. А подключение ADOTable происходит автоматически (см процедуру выше –  свойство Active). Теперь настраиваем DataSource – в свойстве DataSet указываем нужную нам ADOTable.

Теперь настраиваем DBGrid. В свойстве DataSource указываем нужный нам DataSource, в свойстве Collums указываем  какие поля из данной таблицы БД нужно выводить.

Для редактирования таблицы  предназначены шесть кнопок (Button) – вперед, назад, начало, конец, добавить, удалить.

 

При нажатии на кнопке «Вперед»

 

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Next;

 

end;

При нажатии на кнопке «Назад»

 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Prior;

 

end;

 

При нажатии на кнопке «Начало»

 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.First;

 

end;

 

При нажатии на кнопке «Конец»

 

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Last;

 

end;

 

При нажатии на кнопке «Добавить»

 

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Append;

 

end;

 

При нажатии на кнопке «Удалить»

 

procedure TForm1.BitBtn10Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form1.ADOTable1.Delete;

 

end;

Имеются еще две кнопки «поиск» и «сортировать»

 

«Поиск»

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=False;

  Form2.ADOQuery1.Active:=False;

  Form2.Edit1.Clear;

  Form2.ComboBox1.ItemIndex:=-1;

  Form2.ShowModal;

 

end;

При этом открывается вторая форма (о ней чуть позже)

 

«Сортировать»

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

 

  Form1.ListBox1.Visible:=True;

 

end;

 

Открывается ListBox, в котором  указаны параметры сортировки данных в таблицах.

Пни нажатии на выбранном  виде сортировки происходит соответственно сортировка данных и ListBox исчезает

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

 

  If ListBox1.ItemIndex=0 Then

  Begin

    Form1.ADOTable1.Sort:='Наименование';

    Form1.ListBox1.Visible:=False;

  End;

 

    If ListBox1.ItemIndex=1 Then

  Begin

    Form1.ADOTable1.Sort:='Фирма_изготовитель';