Разработка приложения, представляющего собой базу данных о сотрудниках
Программный продукт "Автоматизированная система начальника отдела кадров учреждения" для автоматизации процесса заполнения документации на сотрудников учреждения, ее хранения, обработки и поиска по задаваемым критериям и вывода на печать отчета.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | курсовая работа |
Язык | русский |
Дата добавления | 06.05.2009 |
Размер файла | 1,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
4
Оглавление
- Введение 2
- Назначение и область применения 3
- Технические характеристики 3
- Разработка программы 9
- Специфика программы 28
- Текст программы 30
- Описание программы 57
- Тестирование программы 58
- Внедрение 61
- Литература 66
Введение
Задание на курсовую работу по дисциплине: "Программирование на языке высокого уровня".
Тема: Разработка приложения, представляющего собой базу данных о сотрудниках.
Условие задачи:
Программный продукт "Автоматизированная система начальника отдела кадров учреждения" предназначен для автоматизации процесса заполнения документации на сотрудников и работников учреждения, хранения, обработки информации, поиска информации по задаваемым критериям, получения отчета по поиску и вывод его на печать.
Задание выдано: _______________
Назначение и область применения
Программный продукт "Автоматизированная система начальника отдела кадров учреждения" предназначен для автоматизации процесса заполнения документации на сотрудников и работников учреждения, хранения, обработки информации, поиска информации по задаваемым критериям, получения отчета по поиску и вывод его на печать.
Программа имеет широкую область применения, призвана освободить работников отдела кадров от рутиной работы по заполнению форм различного рода, содержащих информацию о сотрудниках и работниках предприятия и выполнению поиска необходимой информации.
Поскольку ставилась задача разработать приложение для Windows, то и использовать программу можно только под управлением Windows.
Технические характеристики
В условие задачи "Автоматизированная система начальника отдела кадров учреждения" указывается на необходимость использования средства связи с базами данных и саму базу данных для хранения информации о сведеньях, о сотрудниках, поэтому нужно в постановку задачи включить определения структуры и организации базы данных. В задаче также требуется организовать ввод данных, редактирование, поиск информации о сотрудниках и вывод её на печать. Также требовалось организовать дружественный пользовательский интерфейс и обеспечить стабильное выполнение всех функций программы, связанных как непосредственно с управлением данными, хранящимися в базе данных, так и с сервисными функциями.
В программе решаются три подзадачи:
Внесение данных по сотруднику в базу данных (рис.1);
Поиск информации о сотруднике в базе данных, с возможностью составления отчёта (рис.2);
Редактирование информации о сотруднике в базе данных (рис3);
Рис. 1.Схема внесения данных
Рис.2. Схема поиска информации о сотруднике
Рис.3. Схема редактирование информации о сотруднике
Выходные данные представляют собой результаты обработки (добавления, изменения) данных из БД. При получении конечных (выходных данных), в основном, переменные не используются, а ведется непосредственная обработка значений в базе данных. Все эти данные имеют различный формат и тип. Полученные данные сохраняются в таблицах базы данных. Кроме того, входными данными являются условия формирования запросов, поиска и отчетов, а выходными данными являются соответствующие результаты выполнения этих функций программы. К выходным данным так же относятся сформированные печатные формы документов (таб.1).
Таблица 1
Структура главных таблиц
Список полей |
Тип поля |
|
Таблица "Общие сведения" |
||
Фамилия |
Текстовый |
|
Имя |
Текстовый |
|
Отчество |
Текстовый |
|
Гражданство |
Текстовый |
|
Семейное положение |
Текстовый |
|
Пол |
Текстовый |
|
Номер страхового свидетельства |
Числовой |
|
Дата выдачи страхового свидетельства |
Дата |
|
Номер медполиса |
Числовой |
|
Компания выдавшая медполис |
Текстовый |
|
Адрес компании выдавшей медполис |
Текстовый |
|
Таблица "Паспорт" |
||
Серия |
Числовой |
|
Номер |
Числовой |
|
Выдан |
Текстовый |
|
Зарегистрирован |
Текстовый |
|
По адресу |
Текстовый |
|
Дата рождения |
Дата |
|
Место рождения |
Текстовый |
|
Индекс |
Числовой |
|
Адрес проживания |
Текстовый |
|
Телефон |
Текстовый |
|
Выход на пенсию |
Дата |
|
Таблица "Образование" |
||
Код |
Счетчик |
|
Учебное заведение |
Текстовый |
|
Наименование заведения |
Текстовый |
|
Вид обучения |
Текстовый |
|
Факультет |
Текстовый |
|
Образование |
Текстовый |
|
Документ |
Текстовый |
|
Специальность |
Текстовый |
|
Квалификация |
Текстовый |
|
Номер |
Числовой |
|
Дата выдачи |
Дата |
|
Таблица "Работа" |
||
Общий стаж работы |
Числовой |
|
Непрерывный стаж работы |
Числовой |
|
Последнее место работы |
Текстовый |
|
Профессия(Должность) |
Текстовый |
|
Дата увольнения |
Дата |
|
Причина увольнения |
Текстовый |
|
Таблица "ВУС" |
||
Годность к военной службе |
Текстовый |
|
Обязанность |
Текстовый |
|
Группа войск |
Текстовый |
|
Категория запаса |
Текстовый |
|
Состав |
Текстовый |
|
Воинское звание |
Текстовый |
|
Военно-учётная специальность |
Текстовый |
|
Состоит на спецучёте номер |
Числовой |
|
Наименование военкомата по месту жительства |
Текстовый |
|
Номер военного билета |
Текстовый |
|
Выдан |
Дата |
Структура 6 второстепенных таблиц представлена в табл.2.
Таблица 2
Структура второстепенных таблиц
Список полей |
Тип поля |
|
Таблица "Семейное положение" |
||
Семейное положение |
Текстовый |
|
код |
Счетчик |
|
Таблица "Пол" |
||
Пол |
Текстовый |
|
код |
Счетчик |
|
Таблица "Зарегистрирован" |
||
Зарегистрирован |
Текстовый |
|
код |
Счетчик |
|
Таблица "Годность к военной службе" |
||
Годность к военной службе |
Текстовый |
|
код |
Счетчик |
|
Таблица "Обязанность" |
||
Обязанность |
Текстовый |
|
код |
||
Таблица "Воинское звание" |
||
Воинское звание |
Текстовый |
|
код |
Счетчик |
Для разработки программного продукта была выбрана система визуального программирования Borland Delphi 7.0, основой которого является язык программирования Object Pascal. Данная система была выбрана по нескольким критериям. Во-первых, она за долгие годы использования зарекомендовала себя как наиболее удобное, надежное и гибкое средство разработки приложений баз данных. Во-вторых, Borland Delphi 7.0 имеет широкие возможности по проектированию приложений различной сложности, предоставляет разработчику удобные средства осуществления различных методов обработки информации. В-третьих, эта система поддерживает широкий спектр технологий, применяемых как для доступа к данным, так и для организации взаимодействия создаваемой программы с другими объектами операционной системы Windows. Кроме того, Object Pascal, является высоко структурированным языком программирования, что значительно упрощает разработку подобных приложений.
Для установки работы на компьютере данного программного продукта должна быть установлена операционная система Windows 98 SE / ME / 2000/XP.
Минимальный набор технических средств для работы программы:
компьютер на базе процессора Intel 486 DX 4-100 и выше;
FDD 3.5 или CD-ROM для установки программного продукта на компьютер;
ОЗУ - не менее 32-х Мегабайт памяти.
свободное дисковое пространство - не менее 2-х Мегабайт для установки программы + размер базы данных.
SVGA-монитор c поддержкой режима минимум 800х600 точек.
Клавиатура, мышь.
Принтер (для распечатки отчетов).
Разработка программы
Для разработки программы "Автоматизированная система начальника отдела кадров учреждения" используется среда визуального программирования Delphi. Проект программы содержит 10 окон:
Form1 - главная форма;
Form2 - вносятся общие сведенья о сотруднике;
Form3 - вносятся паспортные данные и прописка;
Form4 - вносятся сведенья об образование;
Form5 - вносятся сведения о работе;
Form6 - вносятся сведенья о военной службе;
Form7 - поиск информации по базе данных;
Form8 - редактирование информации в базе данных;
Окно Form1. (рис.4).
Рис.4 "Картотека работников"
Таблица 3
№ |
Компонент |
Свойства |
Событие |
|
Form1 |
Caption - Картотека работников; Align - al Custom; Anchors - akLeft, akTop, akRight, akBottom; AutoScroll - False; BorderIcons - biSystemMenu,biMinimize; ClientHeight - 694; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; FormStyle - fsMDIForm; Menu - MainMenu1; OldCreateOrder - False; Position - poScreenCenter; Scaled - False; Visible - True; |
OnCreative - FormCreate; |
||
1 |
TMainMenu |
Смотрите схему 1 |
N4Click - закрывает программу; N5Click - открывает форму "Поиск"; N7Click - открывает форму "Сведенья о сотруднике"; N2Click - открывает форму "Редактирование"; N1Click - вызывает подсказку о программе; N8Click - вызывает сведения о создателе. |
|
2 |
PopupMenu |
Items |
Нет |
|
3 |
ActionList |
Нет |
1 - компонент TMainMenu.
Свойства:
Схема 1
Items
Файл (N1) Поиск(N5) Начало работы (N6) О программе(N12)
Выход (N4) Сведения о сотруднике(N7) Помощь(N1)
Редактирование(N2) Создатель(N8)
Окно Form2 заносятся общие сведенья о сотруднике. (Рис.5).
Рис.5. Окно программы - "Сведения о сотрудниках"
Таблица 4
№ |
Компонент |
Свойства |
Событие |
|
Form2 |
Caption - Сведения о сотрудниках; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 468; ClientWidth - 844; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
OnCreative - FormCreate; |
||
1 |
Tlabel1 |
Caption - Фамилия |
Нет |
|
2 |
Tlabel2 |
Caption - Имя |
Нет |
|
3 |
Table1 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Семейное положение; |
Нет |
|
4 |
Tlabel4 |
Caption - Отчество |
Нет |
|
5 |
Table6 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Семейное положение; |
Нет |
|
6 |
Tlabel5 |
Caption - Семейное положение |
Нет |
|
7 |
DataSource2 |
Data Set - Table6; |
Data Set - Table6; |
|
8 |
Tlabel5 |
Caption - Гражданство |
Нет |
|
9 |
Table7 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; |
Нет |
|
10 |
Tlabel6 |
Table Name - Пол; |
Нет |
|
11 |
Tlabel7 |
Caption - Пол. |
Нет |
|
12 |
Tlabel8 |
Caption - Номер страхового свидетельства. |
Нет |
|
13 |
Tlabel10 |
Caption - Номер медполиса. |
Нет |
|
14 |
Tlabel11 |
Caption - Компания выдавшая медполис. |
Нет |
|
15 |
Tlabel12 |
Caption - Адрес компании выдавшей медполис. |
Нет |
|
16 |
DataSource3 |
Data Set - Table7; |
Data Set - Table7; |
|
17 |
DBLookupComboBox2 |
Data Field - Пол; Data Sourse - DataSource1; Key Field - Пол; List Field - Пол; List Source - DataSource3; |
Data Sourse - DataSource1; List Source - DataSource3; |
|
18 |
DBEdit5 |
Data Field - Номер страхового свидетельства; Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
19 |
DateTimePicker1 |
Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; |
Нет |
|
20 |
Mask Edit1 |
EditMask - ! 999999; 0;; |
Нет |
|
21 |
DBEdit9 |
Data Field - Компания выдавшая медполис; Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
22 |
DBEdit10 |
Data Field - Адрес компании выдавшей медполис; Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
23 |
Button6 |
Caption - Выход |
OnClick - Button6Click. |
|
24 |
Button5 |
Caption - Внести Enabled - False; |
OnClick - Button5Click. |
|
25 |
Button4 |
Caption - ВУС; Enabled - False; |
OnClick - Button4Click. |
|
26 |
Button3 |
Caption - Работа Enabled - False; |
OnClick - Button3Click |
|
27 |
Button2 |
Caption - Образование Enabled - False; |
OnClick - Button2Click. |
|
28 |
Button1 |
Caption - Паспорт Enabled - False; |
OnClick - Button1Click. |
|
29 |
DBEdit1 |
Data Field - Фамилия Data Sourse - DataSource1; |
Data Sourse - DataSource1; OnKeyPress - dbedit1KeyPress. |
|
30 |
DBEdit2 |
Data Field - Имя Data Sourse - DataSource1; |
Data Sourse - DataSource1; OnKeyPress - dbedit2KeyPress. |
|
31 |
DBEdit3 |
Data Field - Гражданство; Data Sourse - DataSource1; |
Data Sourse - DataSource1; OnKeyPress - dbedit3KeyPress. |
|
32 |
DBLookupComboBox1 |
Data Field - Семейное положение; Data Sourse - DataSource1; Key Field - Семейное положение; List Field - Семейное положение; List Source - DataSource2; |
Data Sourse - DataSource1; List Source - DataSource2; |
|
33 |
DBEdit4 |
Data Field - Отчество; Data Sourse - DataSource1; |
Data Sourse - DataSource1; OnKeyPress - dbedit4KeyPress. |
Окно Form3 заносятся паспортные данные. (Рис.6).
Рис.6. Окно программы - "Паспорт"
Таблица 5
№ |
Компонент |
Свойства |
Событие |
|
Form3 |
Caption - Паспорт; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 298; ClientWidth - 783; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
OnCreative - FormCreate; |
||
1 |
Tlabel2 |
Caption - Серия. |
Нет |
|
2 |
Tlabel3 |
Caption - Номер. |
Нет |
|
3 |
Tlabel4 |
Caption - Выдан. |
Нет |
|
4 |
Tlabel5 |
Caption - Зарегесрирован. |
Нет |
|
5 |
Tlabel6 |
Caption - По адресу. |
Нет |
|
6 |
DataSource1 |
Data Set - Table2 |
Data Set - Table2 |
|
7 |
DataSource2 |
Data Set - Table8 |
Data Set - Table8 |
|
8 |
Table2 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Паспорт; |
Нет |
|
9 |
Table8 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Зарегестрирован;. |
Нет |
|
10 |
Button1 |
Caption - Внести; |
OnClick - Button1Click |
|
11 |
DBEdit5 |
Data Field - По адресу; Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
12 |
DBLookupComboBox1 |
Data Field - Зарегистрирован; Data Sourse - DataSource1; Key Field - Зарегистрирован; List Field - Зарегистрирован; List Source - DataSource2; |
Data Sourse - DataSource1; List Source - DataSource2; |
|
13 |
DBEdit4 |
Data Field - Выдан; Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
14 |
Mask Edit2 |
EditMask - ! 999999; 0;; |
Нет |
|
15 |
Mask Edit1 |
EditMask - ! 999999; 0;; |
Нет |
|
16 |
Tlabel6 |
Caption - Выход на пенсию. |
Нет |
|
17 |
Tlabel6 |
Caption - Телефон. |
Нет |
|
18 |
Tlabel6 |
Caption - Адрес проживания. |
Нет |
|
19 |
Button2 |
Caption - Выход |
OnClick - Button2Click. |
|
20 |
DBEdit8 |
Data Field - Адрес проживания Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
21 |
DBEdit9 |
Data Field - Телефон Data Sourse - DataSource1; |
Data Sourse - DataSource1; |
|
22 |
DBEdit1 |
Data Field - Выход на пенсию; |
Data Sourse - DataSource1; |
|
23 |
Mask Edit3 |
EditMask - ! 999999; 0;; |
Нет |
|
24 |
DateTimePicker1 |
Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; |
Нет |
|
25 |
Tlabel7 |
Caption - Дата рождения (формат дн. мц. гггг.). |
Нет |
|
26 |
Tlabel8 |
Caption - Индекс. |
Нет |
Окно Form4 заносятся данные по образованию. (Рис.7).
Рис.7. Окно программы - "Образование"
Таблица 6
№ |
Компонент |
Свойства |
Событие |
|
Form4 |
Caption - Образования; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 436; ClientWidth - 804; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
OnCreative - FormCreate; |
||
1 |
Tlabel1 |
Caption - Код сотрудника |
Нет |
|
2 |
Tlabel2 |
Caption - Учебное заведение. |
Нет |
|
3 |
Tlabel3 |
Caption - Наименование заведения. |
Нет |
|
4 |
Tlabel4 |
Caption - Вид обучения. |
Нет |
|
5 |
Tlabel5 |
Caption - Факультет. |
Нет |
|
6 |
Tlabel6 |
Caption - Вид образования. |
Нет |
|
7 |
DataSource1 |
Data Set - Table3 |
Data Set - Table3 |
|
8 |
Table3 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Образование; |
Нет |
|
9 |
DBGrid1 |
DataSource - DataSource1. |
DataSource - DataSource1. |
|
10 |
Edit6 |
Text - очистить. |
Нет |
|
11 |
Edit5 |
Text - очистить. |
Нет |
|
12 |
Edit4 |
Text - очистить. |
Нет |
|
13 |
Edit3 |
Text - очистить. |
Нет |
|
14 |
Edit2 |
Text - очистить |
OnKeyPress - Edit2KeyPress |
|
15 |
Edit1 |
Text - очистить |
OnKeyPress - Edit1KeyPress |
|
16 |
Button1 |
Caption - Внести; |
OnClick - Button1Click. |
|
17 |
Tlabel11 |
Caption - Дата выдачи (формат дн. мц. гггг.) |
Нет |
|
18 |
Tlabel10 |
Caption - Номер. |
Нет |
|
19 |
Tlabel9 |
Caption - Квалификация. |
Нет |
|
20 |
Tlabel8 |
Caption - Специальность. |
Нет |
|
21 |
Tlabel7 |
Caption - Документ. |
Нет |
|
22 |
Button2 |
Caption - Выход; |
OnClick - Button2Click |
|
23 |
DateTimePicker1 |
Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; |
Нет |
|
24 |
Edit10 |
Text - очистить |
Нет |
|
25 |
Edit9 |
Text - очистить |
Нет |
|
26 |
Edit8 |
Text - очистить |
Нет |
|
27 |
Edit7 |
Text - очистить |
Нет |
Окно Form5 заносятся данные по работе. (Рис.8).
Рис.8 Окно программы - "Работа"
Таблица 7
№ |
Компонент |
Свойства |
Событие |
|
Form5 |
Caption - Работа; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 283; ClientWidth - 750; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
OnCreative - FormCreate; |
||
1 |
Tlabel1 |
Caption - Общий стаж работы. |
Нет |
|
2 |
Tlabel2 |
Caption - Непрерывный стаж работы. |
Нет |
|
3 |
Tlabel3 |
Caption - Последнее место работы. |
Нет |
|
4 |
Table4 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Работа; |
Нет |
|
5 |
DataSource1 |
Data Set - Table4; |
Data Set - Table4; |
|
6 |
Button1 |
Caption - Внести; |
OnClick - Button1Click. |
|
7 |
DBEdit3 |
Data Field - Последнее место работы; Data Sourse - DataSource1. |
Data Sourse - DataSource1. |
|
8 |
DBEdit2 |
Data Field - Непрерывный стаж работы; Data Sourse - DataSource1. |
Data Sourse - DataSource1. OnKeyPress - Edit2KeyPress; |
|
9 |
DBEdit1 |
Data Field - Общий стаж работы; Data Sourse - DataSource1. |
Data Sourse - DataSource1. OnKeyPress - Edit1KeyPress; |
|
10 |
Tlabel4 |
Caption - Причина увольнения. |
Нет |
|
11 |
Tlabel5 |
Caption - Дата увольнения (формат дн. мц. гггг.). |
Нет |
|
12 |
Tlabel6 |
Caption - Профессия(Должность). |
Нет |
|
13 |
Button2 |
Caption - Выход; |
OnClick - Button2Click. |
|
14 |
DBEdit6 |
Data Field - Причины увольнения; Data Sourse - DataSource1. |
Data Sourse - DataSource1. |
|
15 |
DBEdit5 |
Data Field - Дата увольнения; Data Sourse - DataSource1. |
Data Sourse - DataSource1. |
|
16 |
DBEdit4 |
Data Field - Профессия (Должность); Data Sourse - DataSource1. |
Data Sourse - DataSource1. OnKeyPress - Edit4KeyPress; |
Окно Form6 заносятся сведенья о военной службе. (Рис.9).
Рис.9. Окно программы - "ВУС"
Таблица 8
№ |
Компонент |
Свойства |
Событие |
|
Form5 |
Caption - ВУС; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 724; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
OnCreative - FormCreate; |
||
1 |
Tlabel1 |
Caption - Годность к военной службе. |
Нет |
|
2 |
Tlabel2 |
Caption - Обязанность. |
Нет |
|
3 |
Tlabel3 |
Caption - Группа войск. |
Нет |
|
4 |
Tlabel4 |
Caption - Категория запаса |
Нет |
|
5 |
Tlabel5 |
Caption - Состав. |
Нет |
|
6 |
Tlabel6 |
Caption - Воинское звание. |
Нет |
|
7 |
Table9 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Годность к военной службе; |
Нет |
|
8 |
Table11 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Воиннское звание; |
Нет |
|
9 |
Table10 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - Обязаность; |
Нет |
|
10 |
Table5 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; Table Name - ВУС; |
Нет |
|
11 |
DataSource2 |
Data Set - Table9 |
Data Set - Table9 |
|
12 |
DataSource4 |
Data Set - Table11 |
Data Set - Table11 |
|
13 |
DataSource3 |
Data Set - Table10 |
Data Set - Table10 |
|
14 |
DataSource1 |
Data Set - Table5; |
Data Set - Table5; |
|
15 |
DBLookup ComboBox3 |
Data Field - Воинское звание; Data Sourse - DataSource1; Key Field - Воинское звание; List Field - Воинское звание; List Source - DataSource4; |
Data Sourse - DataSource1; List Source - DataSource4; |
|
16 |
Button1 |
Caption - Внести; |
OnClick - Button1Click. |
|
17 |
Tlabel11 |
Caption - Выдан. |
Нет |
|
18 |
Tlabel10 |
Caption - Номер военного билета. |
Нет |
|
19 |
Tlabel9 |
Caption - Наименование военкомата по месту жительства. |
Нет |
|
20 |
Tlabel8 |
Caption - Состоит на спецучете. |
Нет |
|
21 |
Tlabel7 |
Caption - Военно-учётная специальная номер. |
Нет |
|
22 |
Button2. |
Caption - Выход; |
OnClick - Button2Click. |
|
23 |
DateTimePicker1. |
Date - 04.06. 2005; Tab Order - 15; Time - 11: 10: 53; |
Нет |
|
24 |
DBEdit7. |
Data Field - Номер военного билета; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
25 |
DBEdit6 |
Data Field - Наименование военкомата по месту жительства; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
26 |
DBEdit5 |
Data Field - Состоит на спецучете номер; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
27 |
DBEdit4 |
Data Field - Военно-учетная специальность номер; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
28 |
DBEdit3 |
Data Field - Состав; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
29 |
DBEdit2 |
Data Field - Категория запаса; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
30 |
DBEdit3 |
Data Field - Группа войск; Data Sourse - DataSource1 |
Data Sourse - DataSource1 |
|
31 |
DBLookupComboBox2 |
Data Field - Обязанность; Data Sourse - DataSource1; Key Field - Обязанность; List Field - Обязанность; List Source - DataSource3 |
Data Sourse - DataSource1 List Source - DataSource3 |
|
32 |
DBLookupComboBox1 |
Data Field - Годность к военной служб; Data Sourse - DataSource1; Key Field - Годность к военной служб; List Field - Годность к военной служб; List Source - DataSource2; |
Data Sourse - DataSource1; List Source - DataSource2; |
Окно Form7 поиск информации по базе данных. (Рис.10).
Рис.10 Окно программы - "Поиск"
Таблица 9
№ |
Компонент |
Свойства |
Событие |
|
Form7 |
Caption - Поиск; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 338; ClientWidth - 808; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
Нет |
||
1 |
DBGrid1 |
DataSource - DataSource1. DataSource - DataSource1; |
DataSource - DataSource1. |
|
2 |
DBNavigator1 |
DataSource - DataSource1; VisibleButtons - nbPrior,nbNext |
DataSource - DataSource1. |
|
3 |
Tlabel1 |
Caption - Фамилия. |
Нет |
|
4 |
Tlabel2 |
Caption - Имя. |
Нет |
|
5 |
Tlabel3 |
Caption - Отчество |
Нет |
|
6 |
Tlabel4 |
Caption - Серия. |
Нет |
|
7 |
Tlabel5 |
Caption - Номер. |
Нет |
|
8 |
Tlabel6 |
Caption - По адресу |
Нет |
|
9 |
ADOQuery1 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; CursorType - ctStatic; Parameters - (TParameters); |
Нет |
|
10 |
DataSource1 |
Data Set - ADOQuery1 |
Data Set - ADOQuery1 |
|
11 |
Edit6 |
Text - очистить. OnKeyPress - Edit2KeyPress; OnKeyPress - Edit2KeyPress; |
Нет |
|
12 |
Edit5 |
Text - очистить. |
OnKeyPress - Edit5KeyPress; |
|
13 |
Edit4 |
Text - очистить. |
OnKeyPress - Edit4KeyPress; |
|
14 |
Edit3 |
Text - очистить. |
OnKeyPress - Edit3KeyPress; |
|
15 |
Edit2 |
Text - очистить. |
OnKeyPress - Edit2KeyPress |
|
16 |
Edit1 |
Text - очистить. |
OnKeyPress - Edit1KeyPress |
|
17 |
Tlabel12 |
Caption - Номер военного билета. |
Нет |
|
18 |
Tlabel11 |
Caption - Профессия(Должность). |
Нет |
|
19 |
Tlabel10 |
Caption - Вид образования. |
Нет |
|
20 |
Tlabel9 |
Caption - Дата рождения (формат дн. мц. гггг.). |
Нет |
|
21 |
Tlabel8 |
Caption - Номер медполиса. |
Нет |
|
22 |
Tlabel7 |
Caption - Номер страхового свидетельства. |
Нет |
|
23 |
Edit12 |
Text - очистить. |
Нет |
|
24 |
Edit11 |
Text - очистить. |
OnKeyPress - Edit11KeyPress |
|
25 |
Edit10 |
Text - очистить. |
OnKeyPress - Edit12KeyPress |
|
26 |
Edit9 |
Text - очистить. |
Нет |
|
27 |
Edit8 |
Text - очистить. |
OnKeyPress - Edit8KeyPress |
|
28 |
Panel1 |
Text - очистить. |
Нет |
|
29 |
Button5 |
Caption - Выход; |
OnClick - Button5Click |
|
30 |
Button4 |
Caption - Очистить |
OnClick - Button4Click. |
|
31 |
Button3 |
Caption - Краткий отчёт; |
OnClick - Button3Click. |
|
32 |
Button2 |
Caption - Полный отчёт; |
OnClick - Button2Click. |
|
33 |
Button1 |
Caption - Поиск; |
OnClick - Button1Click. |
|
34 |
Edit7 |
Text - очистить. |
OnKeyPress - Edit7KeyPress; |
Окно Form8 поиск информации по базе данных. (Рис.11).
Рис.11. Окно программы - "Редактирование"
Таблица 10
№ |
Компонент |
Свойства |
Событие |
|
Form7 |
Caption - Поиск; BorderIcons - biSystemMenu; BorderStyle - bsToolWindow; ClientHeight - 724; ClientWidth - 1024; Color - clBtnFace; Font - Tfont [MS Sans Serif] ; OldCreateOrder - False; Position - poScreenCenter; |
Нет |
||
1 |
DBGrid1 |
DataSource - DataSource1. DataSource - DataSource1; |
DataSource - DataSource1. |
|
2 |
DBNavigator1 |
DataSource - DataSource1; VisibleButtons - nbFirst, nbPrior, bNext, nbLast, nbEdit, nbPost, nbCancel, nbRefresh. |
DataSource - DataSource1. |
|
3 |
Tlabel1 |
Caption - Фамилия. |
Нет |
|
4 |
Tlabel2 |
Caption - Имя. |
Нет |
|
5 |
Tlabel3 |
Caption - Отчество |
Нет |
|
6 |
Tlabel4 |
Caption - Серия. |
Нет |
|
7 |
Tlabel5 |
Caption - Номер. |
Нет |
|
8 |
Tlabel6 |
Caption - По адресу |
Нет |
|
9 |
ADOQuery1 |
Connection String - Provider=Microsoft. Jet. OLEDB.4.0; Password=""; Data Source=Саша. mdb; Persist Security Info=True; CursorType - ctStatic; Parameters - (TParameters); |
Нет |
|
10 |
DataSource1 |
Data Set - ADOQuery1 |
Data Set - ADOQuery1 |
|
11 |
Edit6 |
Text - очистить. OnKeyPress - Edit2KeyPress; OnKeyPress - Edit2KeyPress; |
Нет |
|
12 |
Edit5 |
Text - очистить. |
OnKeyPress - Edit5KeyPress; |
|
13 |
Edit4 |
Text - очистить. |
OnKeyPress - Edit4KeyPress; |
|
14 |
Edit3 |
Text - очистить. |
OnKeyPress - Edit3KeyPress; |
|
15 |
Edit2 |
Text - очистить. |
OnKeyPress - Edit2KeyPress |
|
16 |
Edit1 |
Text - очистить. |
OnKeyPress - Edit1KeyPress |
|
17 |
Tlabel12 |
Caption - Номер военного билета. |
Нет |
|
18 |
Tlabel11 |
Caption - Профессия(Должность). |
Нет |
|
19 |
Tlabel10 |
Caption - Вид образования. |
Нет |
|
20 |
Tlabel9 |
Caption - Дата рождения (формат дн. мц. гггг.). |
Нет |
|
21 |
Tlabel8 |
Caption - Номер медполиса. |
Нет |
|
22 |
Tlabel7 |
Caption - Номер страхового свидетельства. |
Нет |
|
23 |
Edit12 |
Text - очистить. |
Нет |
|
24 |
Edit11 |
Text - очистить. |
OnKeyPress - Edit11KeyPress |
|
25 |
Edit10 |
Text - очистить. |
OnKeyPress - Edit12KeyPress |
|
26 |
Edit9 |
Text - очистить. |
Нет |
|
27 |
Edit8 |
Text - очистить. |
OnKeyPress - Edit8KeyPress |
|
28 |
Panel1 |
Text - очистить. |
Нет |
|
29 |
Button3 |
Caption - Выход; |
OnClick - Button3Click |
|
30 |
Button2 |
Caption - Сохранить |
OnClick - Button2Click |
|
31 |
Button4 |
Caption - Очистить |
OnClick - Button4Click |
|
32 |
Button1 |
Caption - Поиск |
OnClick - Button1Click |
|
33 |
Edit7 |
Text - очистить. |
OnKeyPress - Edit7KeyPress; |
Обработчик Form2. Button5Click.
var
spisok: string;
begin
if (Dbedit1. text='') or (Dbedit2. text='') or (Dbedit3. text='') or (DblookupCombobox1. text='') or (DblookupCombobox2. text='') or (Dbedit5. text='') or (MaskEdit1. Text='') or (Dbedit9. text='') or (Dbedit10. text='') then Begin
if dbedit1. text='' then spisok: =spisok+'Фамилия, ';
if dbedit2. text='' then spisok: =spisok+'Имя, ';
if dbedit3. text='' then spisok: =spisok+'Отчество, ';
if DblookupCombobox1. text='' then spisok: =spisok+'Семейное положение, ';
if DblookupCombobox2. text='' then spisok: =spisok+'Пол, ';
if dbedit5. text='' then spisok: =spisok+'Номер страхового свидетельства, ';
if MaskEdit1. Text='' then spisok: =spisok+'Номер медполиса, ';
if dbedit9. text='' then spisok: =spisok+'Компания выдававшая медполис, ';
if dbedit10. text='' then spisok: =spisok+'Адрес компании выдававшей медполис, ';
Showmessage('Вы не заполнили поля: '+Spisok);
End; else begin
table1. FieldByName('Номер медполиса'). Asstring: =(MaskEdit1. Text);
table1. FieldByName('Дата выдачи страхового свидетельства'). AsDateTime: =DateTimePicker1. DateTime;
table1. post;
end; button1. Enabled: =true; button2. Enabled: =true; button3. Enabled: =true;
button4. Enabled: =true;
end;
При нажатие кнопки программа проверяет заполнения полей, в случае не заполнения их, выводится сообщение. Если все поля заполнены правильно таблица активизируется и данные заносятся в неё. Так же разблокируются кнопки button1, button2, button3, button4.
Обработчик Form8. Button1Click
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;
При нажатие кнопки проверяет заполнения полей, в случае не заполнения их, выводится сообщение: "Вы не внесли критерии поиска". Если задан критерий, то по нему введётся поиск
Специфика программы
Исполняемый файл программы "Автоматизированная система начальника отдела кадров учреждения" имеет название BazaDann,exe.
Таблица 11
Наименование |
Обозначение |
Примечание |
|
HELP |
Файл помощник |
Содержит пояснительную информацию |
|
Project1. dof |
Файл параметров проекта |
Содержит текущие установки проекта: настройки компилятора и компоновщика, имена служебных каталогов, условные директивы |
|
Project1. dpr |
Файл проекта |
Связывает все файлы из, которых состоит проект |
|
Project1. res |
Файл ресурсов |
Содержит пиктограммы, графические рисунки |
|
Unit1. pas |
Файл программного модуля для формы №1 |
Определяет функциональность для формы №1 |
|
Unit2. pas |
Файл программного модуля для формы №2 |
Определяет функциональность для формы №2 |
|
Unit3. pas |
Файл программного модуля для формы №3 |
Определяет функциональность для формы №3 |
|
Unit4. pas |
Файл программного модуля для формы №4 |
Определяет функциональность для формы №4 |
|
Unit5. pas |
Файл программного модуля для формы №5 |
Определяет функциональность для формы №5 |
|
Unit6. pas |
Файл программного модуля для формы №6 |
Определяет функциональность для формы №6 |
|
Unit7. pas |
Файл программного модуля для формы №7 |
Определяет функциональность для формы №7 |
|
Unit8. pas |
Файл программного модуля для формы №8 |
Определяет функциональность для формы №8 |
|
Unit9. pas |
Файл программного модуля для формы №9 |
Определяет функциональность для формы №9 |
|
Unit10. pas |
Файл программного модуля для формы №10 |
Определяет функциональность для формы №10 |
|
Unit1. dfm |
Файл формы №1 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit2. dfm |
Файл формы №2 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit3. dfm |
Файл формы №3 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit4. dfm |
Файл формы №4 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit5. dfm |
Файл формы №5 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit6. dfm |
Файл формы №6 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit7. dfm |
Файл формы №7 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit8. dfm |
Файл формы №8 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit9. dfm |
Файл формы №9 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit10. dfm |
Файл формы №10 |
Содержит список свойств всех компонентов, включенных в форму №1 |
|
Unit1. dcu |
Объектный файл для Unit1. pas |
Откомпилированная версия Unit1. pas |
|
Unit2. dcu |
Объектный файл для Unit2. pas |
Откомпилированная версия Unit2. pas |
|
Unit3. dcu |
Объектный файл для Unit3. pas |
Откомпилированная версия Unit3. pas |
|
Unit4. dcu |
Объектный файл для Unit4. pas |
Откомпилированная версия Unit4. pas |
|
Unit5. dcu |
Объектный файл для Unit5. pas |
Откомпилированная версия Unit5. pas |
|
Unit6. dcu |
Объектный файл для Unit6. pas |
Откомпилированная версия Unit6. pas |
|
Unit7. dcu |
Объектный файл для Unit7. pas |
Откомпилированная версия Unit7. pas |
|
Unit8. dcu |
Объектный файл для Unit8. pas |
Откомпилированная версия Unit8. pas |
|
Unit9. dcu |
Объектный файл для Unit9. pas |
Откомпилированная версия Unit9. pas |
|
Unit10. dcu |
Объектный файл для Unit10. pas |
Откомпилированная версия Unit10. pas |
|
Саша |
Файл базы данных Access |
Содержит информацию о сотрудниках |
Текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, StdActns, ShellAPI, ComCtrls;
type
TForm1 = class(TForm) MainMenu1: TMainMenu; PopupMenu1: TPopupMenu;
ActionList1: TActionList; Open: TAction; N3: TMenuItem; N4: TMenuItem;
N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N12: TMenuItem;
Pasport: TAction; Obrazov: TAction; Rabota: TAction; VSY: TAction;
Poisc: TAction; N1: TMenuItem; N2: TMenuItem; N8: TMenuItem; StatusBar1: TStatusBar; procedure N4Click(Sender: TObject); procedure OpenExecute(Sender: TObject); procedure PoiscExecute(Sender: TObject); procedure N2Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N1Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *. dfm}
procedure TForm1. N4Click(Sender: TObject);
begin
Close; // закрывает программу
end;
procedure TForm1. OpenExecute(Sender: TObject);
begin
form2: =tform2. Create(self); // открывает форму "Сведения о сотрудниках"
form2. showmodal;
end;
procedure TForm1. PoiscExecute(Sender: TObject);
begin
form7: =tform7. Create(self); // открывает форму "Поиск"
form7. showmodal;
end;
procedure TForm1. N2Click(Sender: TObject);
begin
form8: =tform8. Create(self); // открывает форму "Редактировать"
form8. showmodal;
end;
procedure TForm1. N8Click(Sender: TObject);
begin
ShellAbout(Form1. Handle, 'Картотека работников',
'Разработал студент 2 курса Рыженков А.В. ' + #13#10 +
'специальность"Информатика и ВТ"', Application. Icon. Handle);
end;
procedure TForm1. FormCreate(Sender: TObject);
begin
statusbar1. Panels. Items [1]. Text: =datetostr(date);
end;
procedure TForm1. N1Click(Sender: TObject);
begin
aPPLICATION. HelpFile: ='HELP. HLP';
APPLICATION. HelpCommand(HELP_FINDER,0);
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,
ComCtrls;
type
TForm2 = class(TForm)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; Label7: TLabel; Label8: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit;
Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton;
Button5: TButton; Button6: TButton; DataSource1: TDataSource;
Table1: TADOTable; DataSource2: TDataSource; Table6: TADOTable; DBLookupComboBox1: TDBLookupComboBox; Table7: TADOTable; DataSource3: TDataSource; DBLookupComboBox2: TDBLookupComboBox; DateTimePicker1: TDateTimePicker; MaskEdit1: TMaskEdit; procedure Button6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure dbedit1KeyPress(Sender: TObject; var Key: Char); procedure dbedit2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form2: TForm2;
implementation
uses Unit3, Unit4, Unit5, Unit6;
{$R *. dfm}
procedure TForm2. Button6Click(Sender: TObject);
begin
Close; // закрывает форму "Свединияо сотруднике"
end;
procedure TForm2. Button1Click(Sender: TObject);
begin
form3: =tform3. Create(self); // запускает форму "Паспорт"
form3. showmodal;
end;
procedure TForm2. Button2Click(Sender: TObject);
begin
unit4. Form4. Edit1. Text: =table1. Fields. Fields [0]. AsString;
/ / form4. edit1. text: =table1. fieldbyname('код_с'). asstring;
/ / form4: =tform4. Create(self); // запускает форму "Образование"
form4. showmodal;
end;
procedure TForm2. Button3Click(Sender: TObject);
begin
form5: =tform5. Create(self); // запускает форму "Работа"
form5. showmodal;
end;
procedure TForm2. Button4Click(Sender: TObject);
begin
form6: =tform6. Create(self); // запускает форму "ВУС"
form6. showmodal;
end;
procedure TForm2. Button5Click(Sender: TObject);
var
spisok: string;
begin
if (Dbedit1. text='') or (Dbedit2. text='') or (Dbedit3. text='') or (DblookupCombobox1. text='') or (DblookupCombobox2. text='') or (Dbedit5. text='') or (MaskEdit1. Text='') or (Dbedit9. text='') or (Dbedit10. text='') then Begin
if dbedit1. text='' then spisok: =spisok+'Фамилия, ';
if dbedit2. text='' then spisok: =spisok+'Имя, ';
if dbedit3. text='' then spisok: =spisok+'Отчество, ';
if DblookupCombobox1. text='' then spisok: =spisok+'Семейное положение, ';
if DblookupCombobox2. text='' then spisok: =spisok+'Пол, ';
if dbedit5. text='' then spisok: =spisok+'Номер страхового свидетельства, ';
if MaskEdit1. Text='' then spisok: =spisok+'Номер медполиса, ';
if dbedit9. text='' then spisok: =spisok+'Компания выдававшая медполис, ';
if dbedit10. text='' then spisok: =spisok+'Адрес компании выдававшей медполис, ';
Showmessage('Вы не заполнили поля: '+Spisok);
End else begin
table1. FieldByName('Номер медполиса'). Asstring: =(MaskEdit1. Text);
table1. FieldByName('Дата выдачи страхового свидетельства'). AsDateTime: =DateTimePicker1. DateTime;
table1. post;
end; button1. Enabled: =true; button2. Enabled: =true; button3. Enabled: =true;
button4. Enabled: =true;
end;
procedure TForm2. FormCreate(Sender: TObject);
begin
table1. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb'; // связывает форму "Свединия о сотруднике" с базой данных, таблицей "Общие сведения"
table1. Active: =true;
table6. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb'; // связывает форму "Свединия о сотруднике" с базой данных, таблицей ""
table6. Active: =true;
Table7. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table7. Active: =true;
table1. insert;
end;
procedure TForm2. dbedit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'а'. 'я':; 'А'. 'Я':; #8: else Key: = #0;
end; end;
procedure TForm2. dbedit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm2. DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm2. DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end; end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Mask,
ComCtrls;
Type
TForm3 = class(TForm) Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit8: TDBEdit; DBEdit9: TDBEdit; DataSource1: TDataSource; Table2: TADOTable;
Button1: TButton; Button2: TButton; DBLookupComboBox1: TDBLookupComboBox; DataSource2: TDataSource; Table8: TADOTable;
DateTimePicker1: TDateTimePicker; MaskEdit1: TMaskEdit; MaskEdit2: TMaskEdit; MaskEdit3: TMaskEdit; DBEdit1: TDBEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *. dfm}
procedure TForm3. Button1Click(Sender: TObject);
var
spisok1: string;
begin
if (MaskEdit1. Text='') or (MaskEdit2. Text='') or(Dbedit4. text='') or (DblookupCombobox1. text='') or (Dbedit5. text='') or (MaskEdit3. Text='') or (Dbedit8. text='') then Begin
if MaskEdit1. Text='' then spisok1: =spisok1+'Серия, ';
if MaskEdit2. Text='' then spisok1: =spisok1+'Номер, ';
if dbedit4. text='' then spisok1: =spisok1+'Выдан, ';
if DblookupCombobox1. text='' then spisok1: =spisok1+'Зарегестрирован, ';
if dbedit5. text='' then spisok1: =spisok1+'По адресу, ';
/ / if dbedit6. text='' then spisok1: =spisok1+'Дата рождения, ';
if MaskEdit3. Text='' then spisok1: =spisok1+'Индекс, ';
Showmessage('Вы не заполнили поля: '+Spisok1);
End else begin
table2. FieldByName('Серия'). Asstring: =(MaskEdit1. Text);
table2. FieldByName('Номер'). Asstring: =(MaskEdit2. Text);
table2. FieldByName('Дата рождения'). AsDateTime: =DateTimePicker1. DateTime;
table2. FieldByName('Индекс'). Asstring: =(MaskEdit3. Text);
table2. post;
end; end;
procedure TForm3. Button2Click(Sender: TObject);
begin
close; // закрывает форму "Паспорт"
end;
procedure TForm3. FormCreate(Sender: TObject);
begin
Table2. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "Паспорт" с базой данных, таблицей "Паспорт"
table2. Active: =true;
Table8. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "Паспорт" с базой данных, таблицей ""
table8. Active: =true;
table2. insert;
end;
procedure TForm3. DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end; end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, ComCtrls;
type
Form4 = class(TForm)
DataSource1: TDataSource; Table3: TADOTable; DBGrid1: TDBGrid;
Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton;
Edit5: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit;
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel;
Label10: TLabel; Label11: TLabel; Button2: TButton; DateTimePicker1: TDateTimePicker; Edit4: TEdit; Edit6: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form4: TForm4;
implementation
{$R *. dfm}
procedure TForm4. FormCreate(Sender: TObject);
begin
Table3. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "Образование" с базой данных, таблицей "Образование"
table3. Active: =true;
end;
procedure TForm4. Button1Click(Sender: TObject);
var
spisok: string;
begin
table3. Insert;
table3. FieldByName('код'). AsInteger: =strtoint(edit1. Text);
table3. FieldByName('Учебное заведение'). Asstring: =(edit2. Text);
table3. FieldByName('Наименование заведения'). Asstring: =(edit3. Text);
table3. FieldByName('Вид обучения'). Asstring: =(edit4. Text);
table3. FieldByName('Факультет'). Asstring: =(edit5. Text);
table3. FieldByName('Образование'). Asstring: =(edit6. Text);
table3. FieldByName('Документ'). Asstring: =(edit7. Text);
table3. FieldByName('Специалность'). Asstring: =(edit8. Text);
table3. FieldByName('Квалификация'). Asstring: =(edit9. Text);
table3. FieldByName('Номер'). Asstring: =(edit10. Text);
table3. FieldByName('Дата выдачи'). AsDateTime: =DateTimePicker1. DateTime;
if (edit1. Text='') or(edit4. Text='') then Begin
if edit1. Text='' then spisok: =spisok+'код, ';
if edit4. Text='' then spisok: =spisok+'Вид обучения, ';
Showmessage('Вы не заполнили поля: '+Spisok);
End else
table3. Post;
end;
procedure TForm4. Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm4. Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm4. Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm4. Edit6KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:; #32:
else Key: = #0;
end;
end; end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls, StdCtrls, Mask,
ComCtrls;
type
TForm5 = class(TForm)
DataSource1: TDataSource; Table4: TADOTable; Label1: TLabel;
Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit;
DBEdit4: TDBEdit; DBEdit6: TDBEdit; Button1: TButton; Button2: TButton;
DBEdit5: TDBEdit; procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *. dfm}
procedure TForm5. Button2Click(Sender: TObject);
begin
Close; // закрывает форму "Работа"
end;
procedure TForm5. Button1Click(Sender: TObject);
var
spisok2: string;
begin
if (Dbedit4. text='') then
Begin
if dbedit4. text='' then spisok2: =spisok2+'Профессия(Должность), ';
Showmessage('Вы не заполнили поля: '+Spisok2);
End else table4. post;
end;
procedure TForm5. FormCreate(Sender: TObject);
begin
Table4. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "Работа" с базой данных, таблицей "Работа"
table4. Active: =true;
table4. insert;
end;
procedure TForm5. DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm5. DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm5. DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end; end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask,
ComCtrls;
type
TForm6 = class(TForm)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel; Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit;
DBEdit3: TDBEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel;
Label10: TLabel; Label11: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit;
DBEdit6: TDBEdit; DBEdit7: TDBEdit; Table5: TADOTable;
DataSource1: TDataSource; Button1: TButton; Button2: TButton;
DBLookupComboBox1: TDBLookupComboBox; DataSource2: TDataSource; Table9: TADOTable; Table10: TADOTable; DataSource3: TDataSource;
DBLookupComboBox2: TDBLookupComboBox; DBLookupComboBox3: TDBLookupComboBox; DataSource4: TDataSource; Table11: TADOTable; DateTimePicker1: TDateTimePicker; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form6: TForm6;
implementation
{$R *. dfm}
procedure TForm6. Button1Click(Sender: TObject);
var
spisok4: string;
begin
if (DblookupCombobox1. text='') or (DblookupCombobox2. text='') then Begin
if DblookupCombobox1. text='' then spisok4: =spisok4+'Годность к военой службе,';
if DblookupCombobox2. text='' then spisok4: =spisok4+'Обязанность, ';
Showmessage('Вы не заполнили поля: '+Spisok4);
end
else
begin
table5. FieldByName('Выдан'). AsDateTime: =DateTimePicker1. DateTime;
table5. post;
end; end;
procedure TForm6. Button2Click(Sender: TObject);
begin
close; // закрывает форму "ВУС"
end;
procedure TForm6. FormCreate(Sender: TObject);
begin
Table5. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей "ВУС"
table5. Active: =true;
Table9. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table9. Active: =true;
Table10. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table10. Active: =true;
Table11. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table11. Active: =true;
table5. insert;
end; end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls, ImgList;
type
TForm7 = class(TForm)
DBGrid1: TDBGrid; 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; Button2: TButton; ADOQuery1: TADOQuery; Label1: TLabel;
Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel;
Label10: TLabel; Label11: TLabel; Label12: TLabel; DataSource1: TDataSource; Button4: TButton; DBNavigator1: TDBNavigator;
Button3: TButton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject); procedure Button5Click(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 Button3Click(Sender: TObject);
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
Form7: TForm7;
implementation
uses Unit9, Unit10;
{$R *. dfm}
procedure TForm7. 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 TForm7. Button2Click(Sender: TObject);
begin
Form9. QuickRep1. Preview;
end;
procedure TForm7. 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 TForm7. Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm7. Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit3KeyPress(Sender: TObject; var Key: Char);
Подобные документы
Использование информационной системы отдела кадров предприятия для уменьшения времени выполнения функций, автоматического создания документации, проставления дат и табельных номеров, простоты поиска. Интерфейс программы и структура базы данных приложения.
курсовая работа [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