Разработка приложения, представляющего собой базу данных о сотрудниках
Программный продукт "Автоматизированная система начальника отдела кадров учреждения" для автоматизации процесса заполнения документации на сотрудников учреждения, ее хранения, обработки и поиска по задаваемым критериям и вывода на печать отчета.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 06.05.2009 |
| Размер файла | 1,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit11KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Button3Click(Sender: TObject);
begin
Form10. QuickRep1. Preview;
end;
procedure TForm7. Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit8KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit10KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:; #32:
else Key: = #0;
end; end; end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm8 = class(TForm)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel;
Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel;
DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Edit1: TEdit;
Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit;
Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit;
Edit12: TEdit; Panel1: TPanel; Button1: TButton; Button4: TButton;
ADOQuery1: TADOQuery; DataSource1: TDataSource; Button2: TButton;
Button3: TButton; procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *. dfm}
procedure TForm8. Button1Click(Sender: TObject);
begin
if (edit1. text='') and (edit2. text='') and (edit3. text='') and (edit4. text='') and (edit5. text='') and (edit6. text='') and (edit7. text='') and (edit8. text='') and (edit9. text='') and (edit10. text='') and (edit11. text='') and (edit12. text='') then Showmessage('Вы не внесли критерии поиска')
else
Begin
adoquery1. Parameters. ParamByName('p1'). Value: ='%'+edit1. text+'%';
adoquery1. Parameters. ParamByName('p2'). Value: ='%'+edit2. text+'%';
adoquery1. Parameters. ParamByName('p3'). Value: ='%'+edit3. text+'%';
adoquery1. Parameters. ParamByName('p4'). Value: ='%'+edit4. text+'%';
adoquery1. Parameters. ParamByName('p5'). Value: ='%'+edit5. text+'%';
adoquery1. Parameters. ParamByName('p6'). Value: ='%'+edit6. text+'%';
adoquery1. Parameters. ParamByName('p7'). Value: ='%'+edit7. text+'%';
adoquery1. Parameters. ParamByName('p8'). Value: ='%'+edit8. text+'%';
adoquery1. Parameters. ParamByName('p9'). Value: ='%'+edit9. text+'%';
adoquery1. Parameters. ParamByName('p10'). Value: ='%'+edit10. text+'%';
adoquery1. Parameters. ParamByName('p11'). Value: ='%'+edit11. text+'%';
adoquery1. Parameters. ParamByName('p12'). Value: ='%'+edit12. text+'%';
ADOQuery1. Active: = True;
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
Входные данные для проверки режима добавления
|
Фамилия |
Петров |
|
|
Имя |
Алексей |
|
|
Отчество |
Владимирович |
|
|
Гражданство |
Российское |
|
|
Семейное положение |
женат |
|
|
Пол |
муж |
|
|
Номер страхового свидетельства |
12 344567890 |
|
|
Дата выдачи страхового свидетельства |
25.03. 1998 |
|
|
Номер медполиса |
012345 |
|
|
Компания выдавшая медполис |
Страхком |
|
|
Адрес компании, выдавшей медполис |
Пр. Гагарина д.32 |
Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".
При нажатии на кнопку "Паспорт" открывается форма "Паспорт", на которой находятся следующие текстовые поля, представленными в табл.13:
Таблица13
Входные данные для проверки режима добавления
|
Серия |
0999 |
|
|
Номер |
123456 |
|
|
Выдан |
РОВД Промышленного р-он |
|
|
Зарегистрирован |
Постояно |
|
|
По адресу |
Пр. Гагарина д.52 |
|
|
Дата рождения |
19.02. 1980 |
|
|
Место рождения |
Пр. Гагарина |
|
|
Индекс |
123456 |
|
|
Адрес проживания |
Пр. Гагарина д.52 |
Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".
При нажатии кнопки "Образование" открывается форма "Образование", на которой находятся следующие текстовые поля, представленными в табл.14:
Таблица14
Входные данные для проверки режима добавления
|
Код |
3 |
|
|
Учебное заведение |
колледж |
|
|
Наименование заведения |
СПЭК |
|
|
Вид обучения |
очное |
|
|
Факультет |
Программное обеспечение ВТ и АС |
|
|
Образование |
Средне специальное |
|
|
Документ |
диплом |
|
|
Специальность |
Программное обеспечение ВТ и АС |
|
|
Номер |
45456467 |
|
|
Дата выдачи |
19.06. 2000 |
Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".
При нажатии кнопки "Работа" открывается форма "Работа", на которой находятся следующие текстовые поля, представленными в табл.15:
Таблица15
Входные данные для проверки режима добавления
|
Общий стаж работы |
2 |
|
|
Непрерывный стаж работы |
2 |
|
|
Последнее место работы |
СПЭК |
|
|
Профессия(Должность) |
Программист |
|
|
Дата увольнения |
30.06. 2001 |
|
|
Причина увольнения |
По своему желанию |
Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".
При нажатии кнопки "ВУС" открывается форма "ВУС", на которой находятся следующие текстовые поля, представленными в табл.16:
Таблица16
Входные данные для проверки режима добавления
|
Годность к военной службе |
Не годен |
|
|
Обязанность |
Не военобязан |
|
|
Номер военного билета |
АБ 123456 |
|
|
Выдан |
19.09. 2003 |
Данные заполнены без ошибок, и они вносятся в базу данных после нажатия кнопки "Внести".
Тест выполнен, сбоев в работе программы не произошло.
Внедрение
Минимальный набор технических средств для работы программы:
компьютер на базе процессора Intel 486 DX 4-100 и выше;
FDD 3.5 или CD-ROM для установки программного продукта на компьютер;
ОЗУ - не менее 32-х Мегабайт памяти.
свободное дисковое пространство - не менее 2-х Мегабайт для установки программы + размер базы данных.
SVGA-монитор c поддержкой режима минимум 800х600 точек.
Клавиатура, мышь.
Принтер (для распечатки отчетов).
При запуске программы открывается главная форма "Картотека работников", на которой располагается строка Главного меню, содержащая пункты: "Файл", "Поиск", "Начать работу", "О программе".
Пункт "Файл" содержит подпункт "Выход", выбор которого позволяет выйти из программы.
При нажатии на пункт "Поиск" запускается форма "Поиск". На этой форме находятся 12 текстовых полей: "Фамилия", "Имя", "Отчество", "Серия" и "Номер" паспорта, "По адресу", "Номер медполиса", "Номер страхового свидетельства", "Дата рождения", "Образование", "Профессия (Должность)", "Номер военного билета", - в них вносятся данные на сотрудника или рабочего, которые должны быть найдены. После заполнения этих полей и нажатия кнопки "Поиск" производится поиск в базе данных. Результаты поиска отображается в сетки таблицы, расположенной на этой форме. Если ни одно текстовое поле не заполнено, то выдаётся сообщение "Вы не внесли критерии поиска". После выполнения поиска по получены данным на сотрудника или работника предприятия можно получить два вида отчётов. Для получения полного отчёта по сотруднику нужно нажать кнопку "Полный отчёт". Для получения краткого отчёта по сотруднику нужно нажать кнопку "Краткий отчёт". Для обнуления результатов поиска надо нажать кнопку "Очистить". Для выхода из формы "Поиск" следует нажать кнопку "Выход".
В пункте "Начать работу" находятся два подпункта: "Сведения о сотрудниках" и "Редактирование"
При выборе подпункта "Сведения о сотрудниках" открывается форма "Сведения о сотрудниках", на которой находятся следующие текстовые поля для заполнения: "Фамилия", "Имя", "Отчество", "Гражданство" (в них можно вводить только русские буквы), "Семейное положение" (раскрывающийся список из которого можно выбрать: "холост", "женат", "не замужем", "замужем"), "Пол" (раскрывающийся список из которого можно выбрать: "муж" или "жен"), "Номер страхового свидетельства" (вводится в это поле только цифры), "Дата выдачи страхового свидетельства" (в него вносится дата, имеющий формат, д.н.мц. гггг.), "Номер медполиса" (вводятся только числа), "Компания выдававшая медполис", "Адрес компании выдавшей медполис". Чтобы занести введённую запись в базу данных, нажимаем на кнопку "Внести" (которая находится в правой стороне форме, в колонке из шести кнопок: "Паспорт", "Образование", "Работа", "ВУС", "Внести", "Выход"). После нажатия на кнопку "Внести" производится проверка наличия внесённых обязательных данных (к ним относятся: "Фамилия", "Имя", "Отчество", "Гражданство", "Пол", "Семейное положение", "Номер страхового свидетельства", "Дата выдачи страхового свидетельства", "Номер медполиса", "Компания выдававшая медполис", "Адрес компании выдавшей медполис". Если не все они внесены, то выводится сообщение, какие именно обязательные данные не заполнены, а сами данные в базу данных не заносятся. Если все данные заполнены без ошибок, то они вносятся в базу данных. После нажатия кнопки "Внести" активируются кнопки "Паспорт", "Образование", "Работа", "ВУС", которые до этого были заблокированы. При нажатие на кнопку "Выход" форма "Сведения о сотрудниках" закрывается.
При нажатие на кнопку "Паспорт" открывается форма "Паспорт", на которой находятся текстовые поля: "Серия" (вводятся только 4 цифры), "Номер"(вводятся только 6 цифры), "Выдан", "Зарегистрирован"(раскрывающийся список из которого можно выбрать: временно или постоянно), "По адресу", "Дата рождения" (в него вносится дата, имеющий формат. д.н.мц. гггг.), "Место рождения", "Индекс" (вводятся только 6 цифры), "Адрес проживание", "Телефон", "Выход на пенсию" (в него вносится дата, имеющий формат. д.н.мц. гггг.), после заполнения этих полей нажимается кнопка "Внести". После нажатия на кнопку "Внести" производится проверка наличия внесённых обязательных данных (к ним относятся: "Серия", "Номер", "Выдан", "Зарегистрирован", "По адресу", "Дата рождения","Индекс". Если не все они внесены, то выводится сообщение, какие именно обязательные данные не заполнены, а сами данные в базу данных не заносятся. Если все данные заполнены без ошибок, то они вносятся в базу данных. При нажатии на кнопку "Выход" форма "Паспорт" закрывается.
При нажатии кнопки "Образование" открывается форма "Образование", на которой отображается таблица "Образование". Так же на ней находятся текстовые поля: "Код" (в него вносится код сотрудника или рабочего для образования), "Учебное заведение", "Наименование заведения", "Вид обучения", "Факультет", "Вид образования", "Документ", "Специальность", "Квалификация", "Номер", "Дата выдачи" (в него вносится дата, имеющий формат. д.н.мц. гггг.), после заполнения этих полей нажимается кнопка "Внести". В случае если сотрудник или рабочий предприятия имеет несколько образований то повторяется порядок действий (описанный выше), а в текстовое поле "Код" вносится код этого сотрудника или рабочего. При нажатие на кнопку "Выход" форма "Паспорт" закрывается.
При нажатие кнопки "Работа" открывается форма "Работа", на который находятся текстовые поля: "Общий стаж" (вводятся цифры), "Непрерывный стаж" (вводятся цифры), "Последнее место работы", "Профессия (Должность)", "Дата увольнения" (в него вносится дата, имеющий формат дн. мц. гггг.), "Причина увольнения" - после заполнения этих полей нажимается кнопка "Внести". После нажатия на кнопку "Внести" производится проверка наличия внесённых обязательных данных (к ним относятся: "Профессия (Должность)". Если не все они внесены, то выводится сообщение, какие именно обязательные данные не заполнены, а сами данные в базу данных не заносятся. Если все данные заполнены без ошибок, то они вносятся в базу данных. При нажатии на кнопку "Выход" форма "Паспорт" закрывается.
При нажатии кнопки "ВУС" открывается форма "ВУС", на которой располагаются текстовые поля: "Годность к военной службе" (раскрывающийся список из которого можно выбрать: "годен", "не годен", "ограничено годен"), "Обязанность" (раскрывающийся список из которого можно выбрать: "военнообязан", "военнослужащий", "не военнообязан"), "Группа войск", "Категория запаса", "Состав", "Воинское звание" (раскрывающийся список из которого можно выбрать звание), "Военно-учётная специальность (номер)" (вводится 6 цифр), "Состоит на спецучёте (номер)", "Наименование военкомата по месту жительства", "Номер военного билета", "Выдан" (в него вносится дата, имеющий формат мц. дн. гггг.), после заполнения этих полей нажимается кнопка "Внести". После нажатия на кнопку "Внести" производится проверка наличия внесённых обязательных данных (к ним относятся: "Годность к военной службе", "Обязанность". Если не все они внесены, то выводится сообщение, какие именно обязательные данные не заполнены, а сами данные в базу данных не заносятся. Если все данные заполнены без ошибок, то они вносятся в базу данных. При нажатии на кнопку "Выход" форма "Паспорт" закрывается.
При нажатии на пункт "Редактировать" открывается форма "Редактировать". На этой форме находятся 12 текстовых полей: "Фамилия", "Имя", "Отчество", "Серия" и "Номер" паспорта, "По адресу", "Номер медполиса", "Номер страхового свидетельства", "Дата рождения", "Образование", "Профессия (Должность)", "Номер военного билета", - в них вносятся данные на сотрудника или рабочего которые должны быть найдены. Позже по этим полям после нажатия кнопки "Поиск" введётся поиск по базе данных. Результаты поиска отображается в сетки таблицы расположенной на этой форме. Если ни одно текстовое поле не заполнено выдаётся сообщение "Вы не внесли критерии поиска". После выполнения поиска по получены данным на сотрудника или работника предприятия можно эти данные редактировать. После редактирования данных нужно нажать кнопку "Сохранить". Для обнуления результатов поиска надо нажать кнопку "Очистить". Для выхода из формы "Поиск" следует нажать кнопку "Выход".
Использую пункт "Помощь" можно получить информацию о программе.
В пункте "Создатель" можно просмотреть сведенья о разработчике программы.
Литература
1. Архангельский А.Я. Delphi 7. Справочное пособие. - М.: ЗАО "Издательство БИНОП", 2005 г.
2. Карпова.Г.С. - Базы данных: модели, разработка, реализация - СПб.: Питер, 2005 г.
3. Кириллов В.В. Структурированный язык запросов (SQL). - СПб.: ИТМО, 2004 г. - 80 с.
4. Фаронов В.В. - Delphi "Программирование на языке высокого уровня" - СПб: "ПИТЕР", 2005г.
5. Фаронов В.В. - Программирование баз данных в Delphi 6: учебный курс - СПб.: Питер, 2004 г.
6. Хомоненко.А.Д., Цыганков В.М., Мальцев В. Г - Базы данных: Учебник для высших учебных заведений - СПб.: КОРОНА принт, 2005 г.
Подобные документы
Использование информационной системы отдела кадров предприятия для уменьшения времени выполнения функций, автоматического создания документации, проставления дат и табельных номеров, простоты поиска. Интерфейс программы и структура базы данных приложения.
курсовая работа [254,7 K], добавлен 25.03.2011Дерево целей ООО "ЖБИ-7". Концептуальный план создания автоматизированной системы управления, информационное и организационное обеспечение. Логическая и даталогическая модель информационной базы начальника отдела кадров. Функции программы "кадры".
дипломная работа [2,9 M], добавлен 11.02.2013Исследование особенностей работы с динамическими структурами данных, обработки строк. Реализация работоспособного программного обеспечения, которое должно поддерживать информационную базу пользователей компьютеров. Метод пирамидальной сортировки данных.
курсовая работа [364,1 K], добавлен 06.04.2014Задачи реляционной модели данных. Работа с БД посредством SQL запросов. Требования к программе. Система просмотра отчета. Способы вывода информации: на бумажный носитель и в табличный процессор Microsoft Excel. Средства защиты и хранения данных.
курсовая работа [245,7 K], добавлен 22.06.2009Разработка программного продукта, который позволяет формировать отчет о мобильных телефонах во всем мире. Реализация функций добавления, редактирования, поиска и вывода на печать отчета. Проектирование интерфейса пользователя. Описание рабочих модулей.
курсовая работа [6,6 M], добавлен 11.01.2017Понятие, сущность и структура баз данных. Принципы регистрации новых сотрудников в базе данных отдела кадров. Методика создания приложения баз данных, позволяющее автоматизировать операции учета и процессы составления отчетных документов в отделе кадров.
курсовая работа [2,1 M], добавлен 01.12.2010Разработка концептуальной и логической моделей базы данных "Отдела кадров (института)". Примеры построения запросов для получения данных по различным критериям выборки, описание получения отчетных документов. Формы для ввода и редактирования данных.
курсовая работа [1,8 M], добавлен 16.12.2015Освоение функций работы со структурами данных и файлами. Разработка программного обеспечения для создания, обработки сведений о сотрудниках учреждения. Реализация алгоритма программы в среде Microsoft Visual Studio 2010. Изучение руководства пользователя.
курсовая работа [3,3 M], добавлен 28.08.2012Проектирование баз данных, реализация ее серверной части, методика создания таблиц, различных триггеров, хранимых процедур, клиентского приложения. Процедура поиска данных, фильтрации данных, вывода отчета, ввода SQL запросов и вывода хранимых процедур.
контрольная работа [50,1 K], добавлен 30.10.2009Основные направления деятельности предприятия, его аппаратное и программное обеспечение. Разработка базы данных, включающей информацию о сотрудниках учреждения в Microsoft Access. Создание физической модели, таблиц, запросов, форм, отчетов и макросов.
отчет по практике [1,4 M], добавлен 23.09.2013
