Автор работы: Пользователь скрыл имя, 03 Марта 2014 в 10:08, курсовая работа
Тема курсовой работы «Разработка базы данных «Биржа труда». Целью курсовой работы является разработка базы данных «Биржа труда»».
Задачами разработки курсовой работы являются разработка и создание базы данных. Разработанная база должна выполнять следующие задачи:
- формировать информацию о безработных;
-позволяет в любое время просматривать сведения о вакансиях, безработных, а также легко модифицировать их (добавлять, редактировать, удалять);
-обеспечивает поиск конкретного безработного путем указания его фамилии, а также вывод информации по вакансиям.
1. ВВЕДЕНИЕ
2. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ
2.1. Информация о компиляторе Delphi XE
2.2 Standard.
2.3 Additional.
2.4 Data Source, ADO Table, DB Grid.
3. ВЫПОЛНЕНИЕ РАБОТЫ
3.1 Постановка задачи
3.2 Описание алгоритмов
3.3 Описание программы
4. БД “Биржа труда”.
4.1 Порядок выполнения работы.
5. ЗАКЛЮЧЕНИЕ
6. СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
В результате выполнения данного курсового проекта были решены задачи, поставленные в начале работы. Была разработана структура базы данных; в программу были включены функции поиска, выполнения различных запросов. При этом были учтены все требования, выдвинутые в начале выполнения данного проекта.
Разработанная программа устойчиво выполняет все свои функции, но теперь стоит задача сделать ее более совершенной и более расширенной.
При подготовке данной курсовой работы мною были получены и углублены знания по технологии создания базы данных с помощью программы MS Access. Microsoft Access объединяет сведения из разных источников в одной реляционной базе данных. Создаваемые формы, запросы и отчеты позволяют быстро и эффективно обновлять данные, получать ответы на вопросы, осуществлять поиск нужных данных, анализировать данные, печатать отчеты, диаграммы и почтовые наклейки.
В базе данных сведения из каждого источника сохраняются в отдельной таблице. При работе с данными из нескольких таблиц устанавливаются связи между таблицами. Для поиска и отбора данных, удовлетворяющих определенным условиям, создается запрос. Запросы позволяют также обновить или удалить одновременно несколько записей, выполнить встроенные или специальные вычисления. Для просмотра, ввода или изменения данных прямо в таблице применяются формы. Форма позволяет отобрать данные из одной или нескольких таблиц и вывести их на экран, используя стандартный или созданный пользователем макет. Для анализа данных или распечатки их определенным образом используется отчет.
Приложение А
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, jpeg, ExtCtrls, StdCtrls, ShellApi;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
Image1: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Filtered:=false;
Form2.ShowModal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable2.Filtered:=false;
Form4.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ADOTable2.Append;
Form5.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ADOTable3.Filtered:=false;
Form6.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable2.Filtered:=false;
ADOTable3.Filtered:=false;
Form7.ShowModal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
ADOTable1.Filtered:=false;
Form8.QuickRep1.Preview;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
ADOTable2.Filtered:=false;
Form10.QuickRep2.Preview;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
ShellExecute(Handle,'open','
end;
end.