Автоматизированное рабочее место по расчёту голосов в избирательных участках
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
(счётчик) первичный ключ;
1.4 Алгоритм решения задачи
- Разработка структуры проекта.
- Разработка структуры базы данных.
- Выбор дизайна проекта.
- Разработка системы меню.
- Заполнение таблиц базы данных.
- Соединение проекта с базой данных.
- Наполнение страниц.
- Тестирование проекта.
- Устранение ошибок, выявленных в процессе тестирования.
- Оформление технической документации.
- Подготовка проекта к эксплуатации.
2. РАЗРАБОТКА РАБОЧЕГО ПРОЕКТА
2.1 Спецификация программы
ОбозначениеНаименованиеПримечание*.dprФайл проекта*.exeФайл единого модуля, файл запуска*.pasФайл фрагмент программного кодаСодержит фрагмент программного кода*.jpgФайл изображенияДля отображения изображения в проекте*.hlpФайл справкиСодержит руководство по пользованию
2.2 Система меню
2.3 Состав основных модулей
После запуска главной формы загружается следующая форма. Код на Timer:
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 Требования предъявляемые к эксплуатации ресурса, техническим
средствам, программному обеспечению
Для нормального функционирования и полноценного использования электронного пособия необходимы следующие системные требования:
- 40 Мб свободного места на HDD;
- ОС Windows/2000/NT/XP/7;
- Наличие мыши и клавиатуры;
- Монитор с 32-битной цветовой палитрой, разрешением 1280х1024 и частотой обновления 75 Гц;
- Не менее 256 МБ оперативной памяти;
- Процессор с частотой не ниже 300 МГц;
- DVD/CD-ROM дисковод или USB-разъем;
- Текстовый редактор Microsoft Word;
- PowerPoint для просмотра презентации;
3.2. Тестирование
Рисунок 1. Форма Загрузка
После того как произошла загрузка программы, появляется окно, где нужно ввести данные по выборам, для этого вам необходимо полностью заполнить таблицу (рис.2).
Рисунок 2. Форма Выборы
В зависимости от того, что вы хотите сделать с БД вам предоставляется несколько операций, которые можно провести с данной таблицей их всего 4: добавление, изменение удаление и поиск.
При добавлении вам необходимо нажать первую кнопку на панели инструментов.
Для того чтобы изменить запись вам нужно проделать то же что и при добавлении только сначала вам нужно выбрать запись в таблице, которую вы хоти?/p>