Автоматизированное рабочее место по расчёту голосов в избирательных участках

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

(счётчик) первичный ключ;

  • Код избирателя (числовой);
  • Дата голосования (дата);
  • Код выборной компании (числовой) вторичный ключ.
  •  

    1.4 Алгоритм решения задачи

     

    1. Разработка структуры проекта.
    2. Разработка структуры базы данных.
    3. Выбор дизайна проекта.
    4. Разработка системы меню.
    5. Заполнение таблиц базы данных.
    6. Соединение проекта с базой данных.
    7. Наполнение страниц.
    8. Тестирование проекта.
    9. Устранение ошибок, выявленных в процессе тестирования.
    10. Оформление технической документации.
    11. Подготовка проекта к эксплуатации.

     

     

    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 Требования предъявляемые к эксплуатации ресурса, техническим

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

     

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

    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: добавление, изменение удаление и поиск.

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

    Для того чтобы изменить запись вам нужно проделать то же что и при добавлении только сначала вам нужно выбрать запись в таблице, которую вы хоти?/p>