2. Состав технических средств

В состав технических средств должен входить IВМ-совместимый персональный компьютер (ПЭВМ), выполняющий роль сервера, включающий в себя:

1. Процессор Pentium-1.5 ГГц, не менее;

2. Оперативную память объемом, 1 Гигабайт, не менее;

3. HDD, 50 Гигабайт, не менее;

4. Операционную систему Windows XP, Windows 7.

3. Выполнение программы

Для начала работы с программным комплексом «Конкурс красоты» необходимо запустить на исполнение файл «Конкурс красоты.exe»( по умолчанию файл находится в C:\Programfiles\База Данных\ Конкурс красоты.exe).

После, того как мы откроем на нашем экране появится главная рабочая форма, на которой находятся все необходимые для работы компоненты.

В таблице отображаются все записи, имеющиеся в базе данных.

При необходимости добавления нового автомобиля поступившего на автомойку следует выбрать в главном меню «Добавить», на открывшейся форме заполнить все поля и нажать кнопку «OK».

Для редактирования информации в полях необходимо использовать клавишу «Изменить», на открывшейся форме редактируем необходимую нам информацию и нажимаем «OK».

В программе имеется клавиша «Удалить», которая служит для того что бы очищать поле от ненужной информации.

4. Заключение

За установленные сроки был разработан программный комплекс, выполняющий все поставленные задачи. Данный комплекс разработан в среде Delphi(Object Pascal). Была разработана большая база, для хранения информации о конкурсантках проходших через кастинг. Данное ПО облегчит работу управляющего конкурсом. Простой и понятный интерфейс поможет освоить основные приемы работы с программой в кротчайшие сроки. При увеличении сроков разработки ПО в программный комплекс будет добавлено:

1. Проверка вводимых данных, необходимая для нормализации базы данных.

2. Возможность изменения интерфейса.

5. Список литературы

1. Шупрута В.В. "Самоучитель Delphi 2005" г.Санкт-Петербург, издательство «Альфа-книга», 2007г.

2. Кандзюба С. П., Громов В. Н. "Delphi 6/7. Базы данных и приложения. Лекции и упражнения", г. Москва, издательство СПбГПУ, 2008г.

3. Сорокин А. "Delphi Разработка баз данных.", г.Москва, издательский центр «Академия», 2007г.

Приложение Листинг программы

Основной текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB;

type

TForm1 = class(TForm)

ADOTable1: TADOTable;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1DSDesigner2: TWideStringField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1DSDesigner4: TDateTimeField;

ADOTable1DSDesigner5: TWideStringField;

ADOTable1DSDesigner6: TIntegerField;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

ADOTable2: TADOTable;

ADOConnection2: TADOConnection;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

BitBtn4: TBitBtn;

BitBtn6: TBitBtn;

ADOTable3: TADOTable;

ADOConnection3: TADOConnection;

DataSource3: TDataSource;

DBGrid3: TDBGrid;

ADOTable3DSDesigner: TAutoIncField;

ADOTable3DSDesigner2: TWideStringField;

BitBtn5: TBitBtn;

BitBtn7: TBitBtn;

BitBtn9: TBitBtn;

BitBtn8: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

BitBtn12: TBitBtn;

ADOTable2DSDesigner: TAutoIncField;

ADOTable2DSDesigner2: TWideStringField;

ADOTable2DSDesigner3: TIntegerField;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn12Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit6, Unit7, Unit3, Unit8, Unit10;

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Form4.QuickRep1.Preview;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

Form5.showmodal;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

form7.QuickRep1.Preview;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

ADOtable3.Delete;

end;

procedure TForm1.BitBtn10Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm1.BitBtn11Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.BitBtn12Click(Sender: TObject);

begin

ADOTable2.Delete;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

form1.close;

end;

end.