50206 (Автоматизированное рабочее место по расчёту голосов в избирательных участках), страница 2

begin

Form1->Hide;

Form2->Show;

end;

При нажатии на кнопку «Выход», прописывается следующий код:

begin

Close;

end;

На главной форме находятся вкладки на панели PageControl, при нажатии на их мы переходим к разным таблицам БД.На главной форме в строке меню находятся ссылка «Справка», при нажатии на которую мы переходим к файлу справки:

begin

Application.HelpJump("StartLabel");

end;

При вызове поиска из вкладки на панели PagesControl, на событие CellClik прописываем следующий код:

begin

if MessageBox(Handle,'Удалить запись?','Подтверждение на удаление ',mb_iconquestion+mb_yesnocancel)=idyes then

begin

ADOQuery13.Parameters.ParamByName('id_rezultat_golosovanija').Value:=ADOQuery20.FieldByName('id_rezultat_golosovanija').AsInteger;

ADOQuery20.Active:=false;

ADOQuery20.Active:=true;

end;

end;

procedure TForm1.Edit17KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ComboBox2.ItemIndex=0 then

begin

with Form1.ADOQuery27 do begin

Close;

SQL.Clear;

SQL.Add('SELECT izberateli.id_izberateli, izberateli.fio, izberateli.adress_iz, izberateli.serija_pasporta, izberateli.nomer_pasporta, izberateli.kogda_vydan, izberateli.kem_vydan, izberateli.nalichie_urny, uchastki.id_uchastok, uchastki.adress');

SQL.Add('FROM uchastki INNER JOIN izberateli ON uchastki.id_uchastok = izberateli.id_uchastok');

SQL.Add('WHERE fio LIKE "'+Edit17.Text+'%"');

SQL.Add('ORDER BY fio');

active:=false;

active:=true;

Open;

end;

end

else begin

if ComboBox2.ItemIndex=1 then

begin

DBGrid2.Visible:=true;

with form1.ADOQuery27 do begin

Close;

SQL.Clear;

SQL.Add('SELECT izberateli.id_izberateli, izberateli.fio, izberateli.adress_iz, izberateli.serija_pasporta, izberateli.nomer_pasporta, izberateli.kogda_vydan, izberateli.kem_vydan, izberateli.nalichie_urny, uchastki.id_uchastok, uchastki.adress');

SQL.Add('FROM uchastki INNER JOIN izberateli ON uchastki.id_uchastok = izberateli.id_uchastok');

SQL.Add('WHERE nomer_pasporta LIKE "'+Edit17.Text+'%"');

SQL.Add('ORDER BY nomer_pasporta');

Open;

end;

end;

end;

При нажатии на кнопку «Добавить» из вкладки на панели PagesControl, на событие OnClick прописываем следующий код:

begin

if (LabelSobytie3.Caption='Добавление') Then

begin

ADOQuery14.Parameters.ParamByName('data_provedenija_vyborov').Value:=DateTimePicker2.Date;

ADOQuery14.ExecSQL;

end;

Panel5.Visible:=false;

ADOTable4.Active:=false;

ADOTable4.Active:=true;

end;

Запрос на добавление:

Insert Into vybornaja_kompanija

(data_provedenija_vyborov)

Values

(:data_provedenija_vyborov);

Запрос на изменение:

Update vybornaja_kompanija

Set

data_provedenija_vyborov=:data_provedenija_vyborov

Where id_vybornaja_kompanija=:id_vybornaja_kompanija;

Запрос на удаление:

Delete

From vybornaja_kompanija

Where id_vybornaja_kompanija=:id_vybornaja_kompanija;

Запрос на выборку данных из другой таблицы:

SELECT kondidat.fio_k, kondidat.biografija, kondidat.foto, uchastki.adress, kondidat.id_kondidat,uchastki.id_uchastok

FROM (uchastki INNER JOIN kondidat ON uchastki.id_uchastok=kondidat.id_uchastok);

Запрос для вывод отчёта о заказах на печать:

SELECT [Общее кол-во избирателей]![Count-id_izberateli]-[Кол-во голосовавших]![Count-id_izberateli] AS Выражение1

FROM [Общее кол-во избирателей], [Кол-во голосовавших];

Код на OnClose.Form1 (эффект затухания):

begin

Application.Terminate;

Form1.AlphaBlend:=false;

Sleep(500);

AnimateWindow(handle, 1000, AW_BLEND or AW_HIDE);

end;

3. ВНЕДРЕНИЕ

3.1 Требования предъявляемые к эксплуатации ресурса, техническим

средствам, программному обеспечению

Для нормального функционирования и полноценного использования электронного пособия необходимы следующие системные требования:

1. 40 Мб свободного места на HDD;

2. ОС Windows/2000/NT/XP/7;

3. Наличие мыши и клавиатуры;

4. Монитор с 32-битной цветовой палитрой, разрешением 1280х1024 и частотой обновления 75 Гц;

5. Не менее 256 МБ оперативной памяти;

6. Процессор с частотой не ниже 300 МГц;

7. DVD/CD-ROM дисковод или USB-разъем;

8. Текстовый редактор Microsoft Word;

9. PowerPoint – для просмотра презентации;

3.2. Тестирование

Рисунок 1. Форма «Загрузка»

После того как произошла загрузка программы, появляется окно, где нужно ввести данные по выборам, для этого вам необходимо полностью заполнить таблицу (рис.2).

Рисунок 2. Форма «Выборы»

В зависимости от того, что вы хотите сделать с БД вам предоставляется несколько операций, которые можно провести с данной таблицей их всего 4: добавление, изменение удаление и поиск.

При добавлении вам необходимо нажать первую кнопку на панели инструментов.

Для того чтобы изменить запись вам нужно проделать то же что и при добавлении только сначала вам нужно выбрать запись в таблице, которую вы хотите изменить, нажать на нее после этого в окне редактирования(рис.3) каждое поле заполнится соответствующим полем в таблице, после чего можно изменить любое поле которое вы хотите изменить далее нажмите кнопку изменить для внесения изменений в таблице.

Рисунок 3. Форма «Выборы»

Для того чтоб организовать поиск по нашей таблице нажимаем на соответствующую кнопку(рис.4). На форме появляется еще одна панель с полем ввода для условия отбора.

Рисунок 4. Форма «Выборы»

Так выглядит отчёт о избирателях перед выводом его на печать(рис.5):

Рисунок 5. Форма «Выборы». Вкладка «Отчёты»

Так выглядит форма «Об авторе»(рис.6):

Рисунок 6. Форма «Выборы». Вкладка «Об авторе»

ЗАКЛЮЧЕНИЕ

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

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

Таким требованиям удовлетворяют СУБД, что и было доказано в работе. Использование СУБД эффективно не только для программистов, но и для конечных пользователей, не владеющих глубокими знаниями в области программирования.

Данная СУБД позволяет производить доработку и изменение данных. Многообразие форм, отчетов, запросов позволяют оперативно обрабатывать данные, получать отчеты, выводить данные на печать.

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

В процессе разработки данного курсового проекта было создано «Автоматизированное рабочее место по расчёту голосов в избирательных участках». Приложение обладает надлежащими интерфейсом и функциональностью в соответствии с требованиями на сегодняшний день. В процессе написания этого приложения были углублены знания в области управления, отбора информации из базы данных в среде Delphi 7.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. А.Я. Архангельский. Программирование в Delphi 7. – М.: «Издательство БИНОМ», 2003 г. – 1152с.

2. http://www.google.ru

3. http://www.yandex.ru

23