48618 (Разработка приложения, представляющего собой базу данных о сотрудниках), страница 8

end;

end;

procedure TForm8. Button4Click(Sender: TObject);

begin

Edit1. Text: = ''; Edit2. Text: = ''; Edit3. Text: = ''; Edit4. Text: = '';

Edit5. Text: = ''; Edit6. Text: = ''; Edit7. Text: = ''; Edit8. Text: = '';

Edit9. Text: = ''; Edit10. Text: = ''; Edit11. Text: = ''; Edit12. Text: = '';

ADOQuery1. Active: = false;

end;

procedure TForm8. Button2Click(Sender: TObject);

begin

ADOQuery1. Post; end

procedure TForm8. Button3Click(Sender: TObject);

begin close; end;

procedure TForm8. Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit11KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit4KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case Key of '0'. '9':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit7KeyPress(Sender: TObject; var Key: Char);

begin

case Key of '0'. '9':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit8KeyPress(Sender: TObject; var Key: Char);

begin

case Key of '0'. '9':; #8:

else Key: = #0;

end; end;

procedure TForm8. Edit10KeyPress(Sender: TObject; var Key: Char);

begin

case Key of 'а'. 'я':; 'А'. 'Я':; #8:

else Key: = #0;

end; end; end.

unit Unit9;

interface

uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls;

type

TForm9 = class(TForm)

QuickRep1: TQuickRep; QRBand1: TQRBand; QRLabel1: TQRLabel;

QRBand2: TQRBand; QRSubDetail1: TQRSubDetail; DetailBand1: TQRBand; QRLabel9: TQRLabel; QRLabel8: TQRLabel; QRLabel7: TQRLabel;

QRLabel6: TQRLabel; QRLabel51: TQRLabel; QRLabel50: TQRLabel;

QRLabel5: TQRLabel; QRLabel49: TQRLabel; QRLabel48: TQRLabel;

QRLabel47: TQRLabel; QRLabel46: TQRLabel; QRLabel45: TQRLabel;

QRLabel44: TQRLabel; QRLabel43: TQRLabel; QRLabel42: TQRLabel;

QRLabel41: TQRLabel; QRLabel40: TQRLabel; QRLabel4: TQRLabel; QRLabel39: TQRLabel; QRLabel38: TQRLabel; QRLabel37: TQRLabel;

QRLabel36: TQRLabel; QRLabel35: TQRLabel; QRLabel34: TQRLabel;

QRLabel33: TQRLabel; QRLabel32: TQRLabel; QRLabel31: TQRLabel;

QRLabel30: TQRLabel; QRLabel3: TQRLabel; QRLabel29: TQRLabel;

QRLabel28: TQRLabel; QRLabel27: TQRLabel; QRLabel26: TQRLabel;

QRLabel25: TQRLabel; QRLabel24: TQRLabel; QRLabel23: TQRLabel;

QRLabel22: TQRLabel; QRLabel21: TQRLabel; QRLabel20: TQRLabel; QRLabel2: TQRLabel; QRLabel19: TQRLabel; QRLabel18: TQRLabel;

QRLabel17: TQRLabel; QRLabel16: TQRLabel; QRLabel15: TQRLabel; QRLabel14: TQRLabel; QRLabel13: TQRLabel; QRLabel12: TQRLabel; QRLabel11: TQRLabel; QRLabel10: TQRLabel; QRDBText9: TQRDBText;

QRDBText8: TQRDBText; QRDBText7: TQRDBText; QRDBText6: TQRDBText; QRDBText50: TQRDBText; QRDBText5: TQRDBText; QRDBText49: TQRDBText; QRDBText48: TQRDBText; QRDBText47: TQRDBText; QRDBText46: TQRDBText; QRDBText45: TQRDBText;

QRDBText44: TQRDBText; QRDBText43: TQRDBText; QRDBText42: TQRDBText; QRDBText41: TQRDBText; QRDBText40: TQRDBText;

QRDBText4: TQRDBText; QRDBText39: TQRDBText; QRDBText38: TQRDBText; QRDBText37: TQRDBText; QRDBText36: TQRDBText;

QRDBText35: TQRDBText; QRDBText34: TQRDBText; QRDBText33: TQRDBText; QRDBText32: TQRDBText; QRDBText31: TQRDBText;

QRDBText30: TQRDBText; QRDBText3: TQRDBText; QRDBText29: TQRDBText; QRDBText28: TQRDBText; QRDBText27: TQRDBText;

QRDBText26: TQRDBText; QRDBText25: TQRDBText; QRDBText24: TQRDBText; QRDBText23: TQRDBText; QRDBText22: TQRDBText;

QRDBText21: TQRDBText; QRDBText20: TQRDBText;

QRDBText2: TQRDBText; QRDBText19: TQRDBText; QRDBText18: TQRDBText; QRDBText17: TQRDBText; QRDBText16: TQRDBText;

QRDBText15: TQRDBText; QRDBText14: TQRDBText; QRDBText13: TQRDBText; QRDBText12: TQRDBText; QRDBText11: TQRDBText; QRDBText10: TQRDBText; QRDBText1: TQRDBText;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit2, Unit3, Unit7;

{$R *. dfm}

end;

end.

unit Unit10;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, ExtCtrls;

type

TForm10 = class(TForm)

QuickRep1: TQuickRep; QRBand1: TQRBand; QRLabel1: TQRLabel;

QRSubDetail1: TQRSubDetail; QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText;

QRDBText5: TQRDBText; QRBand2: TQRBand; QRLabel2: TQRLabel;

QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *. dfm}

end.

Описание программы

Для работы с программой не требуется никаких специфических знаний компьютерных технологий, кроме навыков работы в среде операционной системы Windows 98 SE / ME / 2000/XP.

Помимо всего, для нормального функционирования программы необходима установка всех ее компонентов и модулей, а так же наличие необходимых программных средств (наличие исполняемого файла BazaDann. exe и файла базы данных Access Саша в одной папке). Запуск программы осуществляется двойным щелчком правой кнопки "мыши" по исполняемому файлу. После открытия главной форм "Картотека работников" пользователь выбирает в строке главного меню режим работы с программой. Программа должна, применяться при заданных условиях и в определенных целях.

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

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

Для разработки программного продукта была выбрана система визуального программирования Borland Delphi 7.0, основой которого является язык программирования Object Pascal.

Программа содержит 10 форм, хранение данных производится в 6 главных и 6 второстепенных таблицах. Главные таблицы: "Основные сведения", "Паспорт", "Образование", "ВУС" связаны между собой и объединены в таблицу "Запрос1". Второстепенные таблицы (справочники): "Семейное положение", "Пол", "Зарегистрирован", "Годность к военной службе", "Обязанность", "Воинское звание" - они не связаны между собой и используются для заполнения главных таблиц. Связь с файлами базы данных (MS Access) осуществляется с использованием технологии ADO (Active Data Object - объекты данных как объекты ActiveX) и провайдера данных Microsoft Jet 4.0 OLE DB Provider. При помощи SQL-запросов введётся расширенный поиск по таблице.

Тестирование программы

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

Тесты для ввода данных: режим добавления (с допустимыми значениями)

При выборе подпункта "Сведения о сотрудниках" открывается форма "Сведения о сотрудниках", на которой находятся следующие текстовые поля, которые заполняются данными, представленными в табл.12:

Таблица 12

Входные данные для проверки режима добавления

Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".

При нажатии на кнопку "Паспорт" открывается форма "Паспорт", на которой находятся следующие текстовые поля, представленными в табл.13:

Таблица13

Входные данные для проверки режима добавления

Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".

При нажатии кнопки "Образование" открывается форма "Образование", на которой находятся следующие текстовые поля, представленными в табл.14:

Таблица14

Входные данные для проверки режима добавления

Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".

При нажатии кнопки "Работа" открывается форма "Работа", на которой находятся следующие текстовые поля, представленными в табл.15:

Таблица15