Размещено на http://www.allbest.ru/

1. Общие положения

1.1 Полное наименование системы и ее условное обозначение

Полное наименование системы: База данных "Фирма по трудоустройству". Краткое наименование системы: БД Фирма по трудоустройству. база программа профессия договор

1.2 Наименования организации-заказчика и организаций-участников работ

Заказчиком системы является Саранский гуманитарно-технический колледж им. Абая Кунанбаева, технологическое отделение.

Адрес заказчика: Республика Казахстан, Карагандинская область, г. Сарань ул. Ленина д. 14

Разработчиком базы данных является студентка группы ПВТ-9-12 Гойнаш Анна Юрьевна.



2. Назначение и цели создания системы

2.1 Назначение системы

БД «Фирма по трудоустройству» предназначена для поиска работников для предприятий и трудоустройства населения. От предприятия поступает вакансия, на которую агентство по трудоустройству ищет работника.

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

Таким образом, «Фирма по трудоустройству» необходимая база данных для того, чтобы знать, от кого поступила вакансия, какой специалист необходим предприятию. В базе данных должны храниться сведения о предприятиях с их данными, сведения от предприятия (вакансии), сведения о клиентах, ищущих работу, сведения о специальностях, по которым могут работать клиенты для того, чтобы осуществить запрос по специальности.

Назначение системы: ведение БД о клиентах, о предприятиях, поступающих вакансий от предприятий, подобранные вакансии. Основными функциями агентства по трудоустройству являются обслуживание клиентов и предприятий, регистрация новых клиентов и предприятий, подбор работников по вакансиям, подготовка отчетов для руководства.

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

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



3. Таблицы базы данных

Таблица 1 - Оформление договоров

Имя поля	Тип данных
Код клиента	Alpha
Код заказчика	Alpha
Код договора	Alpha
Дата договора	Alpha
Получаемая должность	Alpha
Оплата фирме	Alpha

Таблица 2 - Заказчики

Имя поля	Тип данных
Код заказчика	Alpha
Название заказчика	Alpha
Телефон	Alpha
Адрес	Alpha
Вакантная должность	Alpha

Таблица 3 - Клиенты

Имя поля	Тип данных
Код клиента	Alpha
ФИО клиента	Alpha
Дата рождения	Alpha
Адрес	Alpha
Образование	Alpha
Стаж работы	Alpha

Таблица 4 - Профессии

Имя поля	Тип данных
Код профессии	Alpha
Название профессии	Alpha
Срок обучения	Alpha



4. Схема данных базы данных

Рисунок 1 - Схема данных



5. Технология разработки базы данных

Таблица 5 - Компоненты

Компоненты	Инспектор объектов	Свойства события	Действие
Form1	Properties	Caption	БД Учебный центр
DBNavigator1	Properties	DataSource	DataModule2.DataSource4
DBGrid1	Properties	DataSource	DataModule2.DataSource4
RadioGroup1	Properties	Caption	Отобразить информацию о
		Items
	Events	OnClick	case RadioGroup1.ItemIndex of 0: Form3.Show; 1: Form4.Show; 2: Form5.Show;
GroupBox1	Properties	Caption	Запросы
Button1	Properties	Caption	Должности
	Events	OnClick	Form6.show;
Button2	Properties	Caption	Договоры
	Events	OnClick	Form7.show;
DataSource1	Properties	DataSet	Table1
Table1	Properties	DatabaseName	Alias
		TableName	Клиенты.DB
		Active	True
DataSource2	Properties	DataSet	Table2
Table3	Properties	DatabaseName	Alias
		TableName	Заказчики.db
		Active	True
DataSource3	Properties	DataSet	Table3
Table3	Properties	DatabaseName	Alias
		TableName	Профессии.db
		Active	True
DataSource4	Properties	DataSet	Table4
Table4	Properties	DatabaseName	Alias
		TableName	Договоры.db
		Active	True
Query1	Properties	DatabaseName	Alias
		DataSource	DataSource4
		Active	True
DataSource5	Properties	DataSet	Query1
Form3	Properties	Caption	Заказчики
DBGrid2	Properties	DataSource	DataModule2.DataSource2
DBNavigator2	Properties	DataSource	DataModule2.DataSource2
Form4	Properties	Caption	Клиенты
DBGrid3	Properties	DataSource	DataModule2.DataSource1
DBNavigator3	Properties	DataSource	DataModule2.DataSource1
Form5	Properties	Caption	Клиенты
DBGrid4	Properties	DataSource	DataModule2.DataSource3
DBNavigator4	Properties	DataSource	DataModule2.DataSource3
Form6	Properties	Caption	Запрос
Label1	Properties	Caption	Получаемая должность
Edit1	Properties	Text
BitBtn1	Properties	Kind	bkOk
Form7	Properties	Caption	Запрос
Label1	Properties	Caption	Дата договора
Edit1	Properties	Text
BitBtn1	Properties	Kind	bkOk



6. Скриншоты базы данных

Рисунок 2 - Скриншот программы

Рисунок 3 - Скриншот программы

Рисунок 4 - Скриншот программы



Рисунок 5 - Скриншот программы

Рисунок 6 - Скриншот запроса

Рисунок 7 - Скриншот запроса



Рисунок 8 - Скриншот отчета



7. Листинг результатов

Текст программы:

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

RadioGroup1: TRadioGroup;

Button1: TButton;

Button2: TButton;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Button3: TButton;

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(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.RadioGroup1Click(Sender: TObject);

begin

case RadioGroup1.ItemIndex of

0: Form3.Show;

1: Form4.Show;

2: Form5.Show;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form6.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Form8.Show;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Buttons;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

Edit1: TEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

DataModule2.Query1.Close;

DataModule2.Query1.SQL.Clear;

DataModule2.Query1.SQL.Add('Select *');

DataModule2.Query1.SQL.Add('From Договоры');

DataModule2.Query1.SQL.Add('Where Poluch_dol= '''+Edit1.Text+'''');

DataModule2.Query1.Open;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, QRCtrls, DB, DBTables, QuickRpt, ExtCtrls;

type

TForm8 = class(TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

TitleBand1: TQRBand;

SummaryBand1: TQRBand;

QRLabel1: TQRLabel;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

Table1: TTable;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel2: TQRLabel;

QRExpr1: TQRExpr;

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormShow(Sender: TObject);

begin

QuickRep1.PreviewModal;

end;

end.

Размещено на Allbest.ru