Автор: Пользователь скрыл имя, 19 Декабря 2012 в 07:18, курсовая работа
Целью данной работы является разработка приложения для работы с базой данных по учёту за успеваемостью студентов, поступивших в ВУЗ, необходимо создать наиболее удобный интерфейс для пользователя при работе с разрабатываемой базой данных. Для выполнения цели курсовой работы необходимо обозначить следующие задачи. Они включают в себя:
- ознакомление с программами, предназначенными для создания баз данных и форматом баз данных dBase;
- работу с особым набором компонентов предназначенных для создания и редактирования базы данных;
- ознакомление с подобными базами данных используемых в магазинах одежды;
- ознакомление с принципами действия в магазине;
- разработку программного кода для выполнения определенных действий с базой данных таких как: добавление, удаление, поиск, сортировка, фильтрация данных.
Глава 1. Теоретическое исследование предметной области…………………...4
1.1. Анализ аналогичных информационных систем ……………………...4
1.2. Характеристика организационной структуры предметной области…………………………………………………………………………….6
1.3. Назначение и цели создания системы…………………………………7
Глава 2. Описание информационной системы………………………………….8
2.1. Схема функциональной структуры системы с кратким описанием…………………………………………………………………………8
2.2. Описание информационных функций и комплекса решаемых задач……………………………………………………………………………….9
2.3. Разработка решений по специальному математическому обеспечению ИС…………………………………………………………………………………14
Заключение………………………………………………………………….18
Библиографический список………………………………………………...19
ПРИЛОЖЕНИЯ
Приложение 1. «Руководство оператора»……………………………………20
Приложение 2. «Листинг исходного кода ИС»………………………………25
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmStudent: TfmStudent;
implementation
uses dmSessiaU, fmSessiaU, fmIzmen_StudU, fmDobav_StudU, fmDisziplinyU,
LookUpU, fmLookUpU;
{$R *.dfm}
procedure TfmStudent.Button3Click(
//Кнопка удалить
begin
DM.STUDENT.Delete;
DM.STUDENT.Edit;
DM.STUDENT.Post;
end;
procedure TfmStudent.Button1Click(
begin
fmDobav_Stud.Visible:=true;
end;
procedure TfmStudent.Button2Click(
begin
fmIzmen_Stud.Visible:=true;
end;
procedure TfmStudent.Button4Click(
begin
fmStudent.Close;
end;
end.
unit fmPrepodU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DB, DBTables;
type
TfmPrepod = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
QueryPrep: TQuery;
DSPrep: TDataSource;
Q: TQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
UpdateSQLPrep: TUpdateSQL;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmPrepod: TfmPrepod;
implementation
uses fmSessiaU, fmDobav_PrepU, fmZamena_PrepU;
{$R *.dfm}
procedure TfmPrepod.Button1Click(Sender: TObject);
begin
fmDobav_Prep.Visible:=true;
end;
procedure TfmPrepod.Button2Click(Sender: TObject);
begin
fmZamena_Prep.Visible:=true;
end;
procedure TfmPrepod.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Вы
begin
with q do
begin
Active:=false;
SQL.Clear;
SQL.Add('DELETE FROM PREPODAVATELI WHERE PrepId='+QueryPrep.
ExecSQL;
end;
QueryPrep.Active:=false;
QueryPrep.Active:=true;
end;
end;
procedure TfmPrepod.Button4Click(Sender: TObject);
begin
fmPrepod.Close;
end;
end.
unit fmPrepodU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, DB, DBTables;
type
TfmPrepod = class(TForm)
Panel2: TPanel;
DBGrid1: TDBGrid;
QueryPrep: TQuery;
DSPrep: TDataSource;
Q: TQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
UpdateSQLPrep: TUpdateSQL;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmPrepod: TfmPrepod;
implementation
uses fmSessiaU, fmDobav_PrepU, fmZamena_PrepU;
{$R *.dfm}
procedure TfmPrepod.Button1Click(Sender: TObject);
begin
fmDobav_Prep.Visible:=true;
end;
procedure TfmPrepod.Button2Click(Sender: TObject);
begin
fmZamena_Prep.Visible:=true;
end;
procedure TfmPrepod.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Вы
begin
with q do
begin
Active:=false;
SQL.Clear;
SQL.Add('DELETE FROM PREPODAVATELI WHERE PrepId='+QueryPrep.
ExecSQL;
end;
QueryPrep.Active:=false;
QueryPrep.Active:=true;
end;
end;
procedure TfmPrepod.Button4Click(Sender: TObject);
begin
fmPrepod.Close;
end;
end.
unit fmGroopU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls;
type
TfmGroop = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmGroop: TfmGroop;
implementation
uses dmSessiaU, fmDobav_GroopU, fmZamena_GroopU;
{$R *.dfm}
procedure TfmGroop.Button3Click(Sender: TObject);
begin
DM.GROOPS.Delete;
DM.GROOPS.Edit;
DM.GROOPS.Post;
end;
procedure TfmGroop.Button1Click(Sender: TObject);
begin
fmDobav_Groop.Visible:=true;
end;
procedure TfmGroop.Button2Click(Sender: TObject);
begin
fmZamena_Groop.Visible:=true;
end;
procedure TfmGroop.Button4Click(Sender: TObject);
begin
fmGroop.Close;
end;
end.