МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ
Поможем в ✍️ написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Курсовая работа

по дисциплине «Базы данных»

 

Информационно-аналитическая система «MTTS»

 

Выполнила: студент гр. 1312

Маркелова И. А.

Проверил: доцент:

Хузятов Ш.Ш.

 

 

г. Набережные Челны

2009 г.

 

СОДЕРЖАНИЕ

 

ВВЕДЕНИЕ

Задание на курсовую работу

1.МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ

1.1 Создание псевдонима для работы с базой данных

1.2 Организация доступа к таблицам база данных

2. Проектирование алгоритмов обработки информации

2.1 Форма «MTTS»

2.2. Добавление записи в таблицу

2.3. . Изменение полей выбранной записи

2.4. Удаление записи из таблицы

2.5. Поиск данных

2.6. Сортировка данных

2.7. Фильтрация данных

2.8. Создание отчета

2.9. Изменение цвета формы и изменение шрифта

2.10.Регистрация разговоров

3. Форма «MTTS страница «АБОНЕНТЫ»

4. Форма «MTTS страница ТАРИФЫ»

5. Форма «MTTS страница ПЕРЕГОВОРЫ»

ЗАКЛЮЧЕНИЕ

Список использованных источников

ВВЕДЕНИЕ

 

Основы современной информационной технологии составляют базы данных (БД) и системы управления базами данных (СУБД), роль которых как единого средства хранения, обработки и доступа к большим объемам информации постоянно возрастает. При этом существенным является постоянное повышение объемов информации, хранимой в БД, что влечет за собой требование увеличения производительности таких систем. Резко возрастает также в разнообразных применениях спрос на интеллектуальный доступ к информации. Это особенно проявляется при организации логической обработки информации в системах баз знаний, на основе которых создаются современные экспертные системы.

Целью данной курсовой работы является создание Информационно-аналитической системы (базы данных) «Реализация кондитерских изделий». В работе были использованы такие методы как сортировка, добавление, удаление, изменение и поиск данных, фильтрация, диапазон.

Delphi является средой разработки, используемой, прежде всего для поддержки и разработки приложений, предназначенных как для отдельных рабочих станций, так и для серверов. Delphi может функционировать под управлением операционной системы Windows 95, 98, NT. Delphi имеет графический пользовательский интерфейс, подобный используемому в Microsoft Visual Basic и C++. Поскольку пользовательский интерфейс создается визуально, о Delphi говорят как о среде, предназначенной для быстрого создания приложений. В основе идеологии Delphi лежит технология визуального проектирования и событийного программирования (программирование процедур обработки событий), применение которых позволяет существенно сократить время разработки и облегчить процесс создания приложений.



Задание на курсовую работу

 

Курсовая работа должна представлять собой информационно – аналитическую систему управления базой данных «MTTS».

При запуске программы перед основной формой должна появляться заставка, содержащая оригинальное изображение, соответствующее теме программы. Основная форма должна содержать 3 вкладки (Page Control), на каждой из которых представляется информация из отдельной таблицы: на первой вкладке – с использованием компонента DBGrid, на второй – с использованием DBEdit, на третьей – Query. Форма должна содержать действующие компоненты MainMenu, PopupMenu с основными командами (сброс, выход, о программе, редактировать, добавить, изменить, удалить, поиск и т.д.).



МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ

 

Информационно-аналитическая система «МТТS» представляет собой приложение, с помощью которого пользователю представлены возможности для:

· Добавления (регистрации) абонентов;

· Изменения данных абонентов;

· Удаления абонентов;

· Регистрации междугородних переговоров;

Проектирование алгоритмов обработки информации

Форма «MTTS»

 

 

Форма «MTTS» содержится из трех вкладок. На первой вкладке указаны абоненты, где можно выполнить сортировку по возрастанию и по убыванию, также можно выполнить фильтрацию. Можно выполнить добавление новых данных, изменение, удаление не нужных данных, выполнить в таблице поиск по коду абонента, также можно представить регистрацию абонента, просмотреть квитанцию на переговоры. Можно просмотреть отчет «Список абонентов» и «Список должников». В меню «Файл» находится справка по данной информационной-аналитической системе; можно произвести настройки шрифта, цвета и размера таблиц.

На второй вкладке указана таблица в режимы формы, при помощи Navigatorа можно листать данные, удалять, добавлять и т.д.

 

Добавление записи в таблицу

Нажав на кнопку «Добавление» на самой основной форме, открывается форма, где нужно ввести новый абонент:

 

 

Нажать «Добавление».

Программа:

procedure Ttaradd.Button1Click(Sender: TObject);

var i: integer;

begin

if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then

begin

 

showmessage('Введены не все поля'+#13+'Добавление невозможно');

end else

begin

dd.Query2.Filter:='tarkod='+edit1.Text;

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=1 then

begin

 

showmessage('Введенный код уже зарегестрирован за городом '+dd.Query2.Fields[1].Text+#13+'Совпадение кодов недопустимо' );

edit1.SetFocus;

dd.Query2.Filtered:=false;

end else

begin

dd.DataSource2.DataSet:=dd.Table2;

dd.Table2.Append;

dd.Table2.Fields[0].AsFloat:=strtofloat(edit1.text);

dd.Table2.Fields[1].Text:=edit2.Text;

dd.Table2.Fields[2].AsFloat:=strtofloat(edit3.Text);

dd.Table2.Post;

dd.DataSource2.DataSet:=dd.Query2;

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('Select * FROM Tarif ORDER BY tarkod');

dd.Query2.Filtered:=false;

dd.Query2.Open;

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit1.SetFocus;

end;

 

Удаление записи из таблицы

 

Нажав на кнопку «Удаление» на самой основной форме, открывается форма, где выбирается из раскрывающегося списка абонент, который нужно удалить:

 

 

Нажать «Удалить».

Программа:

procedure Ttardel.Button1Click(Sender: TObject);

var i: integer;

begin

if messagedlg('Удалить город: '+dd.Table2.Fields[1].Text, mtinformation,[mbYes,mbNo],0)=mrYes

then

begin

 

dd.Table2.Delete;

//dd.Table1.Post;

dd.Query2.Close;

dd.DataSource2.DataSet:=dd.Query2;

dd.Query2.Open;

for i:=1 to dd.Table3.RecordCount do

begin

dd.Table3.RecNo:=i;

dd.Table3.Delete;

end;

dd.Query3.Close;

dd.DataSource3.DataSet:=dd.Query3;

dd.Query3.Open;

// dd.Table3.Post;

 

end

else exit;

end;

Поиск данных

 

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

 

 

Нажать «Поиск».

Программа:

procedure Ttarfind.Button1Click(Sender: TObject);

var s, s1: string;

begin

if pole.ItemIndex=0 then

begin

dd.DataSource2.DataSet:=dd.Query2;

s:='tarkod='+ search.Text;

dd.Query2.Filter:=s;

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=0 then

showmessage('Поиск закончен. Запись НЕ НАЙДЕНА');

end;

if pole.ItemIndex=1 then

begin

dd.DataSource2.DataSet:=dd.Query2;

dd.Query2.close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM tarif');

s1:='WHERE targor'+' LIKE "'+search.Text+'%"';

dd.Query2.SQL.Add(s1);

dd.Query2.Open;

if dd.Query2.RecordCount>=1 then

label6.Caption:='Результаты поиска: Найдены :'+floattostr(dd.Query2.RecordCount)+' зап.';

if dd.Query2.RecordCount=0 then

begin

showmessage('Поиск закончен. Запись НЕ НАЙДЕНА');

search.SetFocus;

end;

end;

if dd.Query2.RecordCount>1 then

begin

label1.Visible:=true;

label2.Visible:=true;

label3.Visible:=true;

label6.Visible:=true;

dbtext1.Visible:=true;

dbtext2.Visible:=true;

dbtext3.Visible:=true;

abfind.height:=264;

button2.Enabled:=true;

end;

end;



Сортировка данных

 

Сортировка выполняется на первой вкладке формы «MTTS». Можно выполнить сортировку по возрастанию и по убыванию. Нужно выбрать то поле, по которому нужно выполнить сортировку.

 

 

Программа для выполнения сортировки по возрастанию:

procedure Ttarsor.SpeedButton1Click(Sender: TObject);

begin

//Сортировка по КОДУ

if (pole.ItemIndex=0) and (pole.ItemIndex=0) then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod');

dd.Query2.Open;

end;

if (pole.ItemIndex=0) and (pole.ItemIndex=1) then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod DESC');

dd.Query2.Open;

end;

//Сортировка по ГОРОДУ

if (pole.ItemIndex=1) and (pole.ItemIndex=0)then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY targor');

dd.Query2.Open;

end;

if (pole.ItemIndex=1) and (pole.ItemIndex=1)then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY targor DESC');

dd.Query2.Open;

end;

//Сортировка по ЦЕНЕ

if (pole.ItemIndex=2) and (pole.ItemIndex=0)then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarprice');

dd.Query2.Open;

end;

if (pole.ItemIndex=2) and (pole.ItemIndex=1)then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarprice DESC');

dd.Query2.Open;

end;

end;

Аналогично и для других полей таблицы.

Фильтрация данных

 

Фильтрация выполняется на первой вкладке формы «MTTS». Нужно выбрать то условие, по которому нужно выполнить фильтрацию, можно вернуть все обратно.

 

 

Программа:

procedure Ttarfilter.SpeedButton1Click(Sender: TObject);

begin

if (pole.Text='') or (ysl.Text='') or (text.Text='') then

begin

 

showmessage('Выполнены не все условия для фильтрации');

end else

begin

if pole.ItemIndex=0 then

begin

dd.Query2.Filtered:=false;

dd.Query2.Filter:='TARkod'+ysl.Text+text.Text;

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=0 then

begin

 

showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');

dd.Query2.Filtered:=false;

end;

end;

 

if pole.ItemIndex=1 then

begin

dd.Query2.Filtered:=false;

dd.Query2.Filter:='TARgor'+ysl.Text+''''+ text.Text+'''';

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=0 then

begin

 

showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');

dd.Query2.Filtered:=false;

end;

end;

 

if pole.ItemIndex=2 then

begin

dd.Query2.Filtered:=false;

dd.Query2.Filter:='TARprice'+ysl.Text+''''+text.Text+'''';

dd.Query2.Filtered:=true;

if dd.Query2.RecordCount=0 then

begin

 

showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');

dd.Query2.Filtered:=false;

end;

end;

sp.Panels[0].Text:='Результат фильтрации: '+floattostr(dd.Query2.RecordCount)+' зап.';

end;

end;

 

2.8. Создание отчета

 

По данной таблице создан отчет «Список абонентов». Для создания отчета нужно выбрать вкладку Rave компоненты RVProject, RTF и RVDataSetConection. На компоненте RVDataSetConection свойство DataSet нужно выбрать ту таблицу, которая должна быть представлена в виде отчета. После этого: Tools – Rave Designer – File – NewDataObject – DirectDataNiew – Finish. Tools – Report Wieardz – Simple Table – Next – All – Next – Geniered. Нужно изменить шрифт, форматировать отчет, сохранить. RVProject – Project File – название отчета.

В меню «Сервис» можно просмотреть отчет.

 

Программа для запуска отчета:

procedure Tdd.N32Click(Sender: TObject);

begin

dd.RvProject1.Execute;

end;

 

2.9. Изменение цвета формы и изменение шрифта

 

В меню «Формат» можно изменить цвет формы и изменить шрифт.

Программа для выполнения изменений цвета формы:

procedure Tdd.N55Click(Sender: TObject);

begin

capt.ShowModal;

end;


 

Программа для выполнения изменений шрифта:

procedure Tdd.N54Click(Sender: TObject);

begin

if dd.FontDialog1.Execute then

begin

main.DBGrid1.Font:=dd.FontDialog1.Font;

main.DBGrid2.Font:=dd.FontDialog1.Font;

main.DBGrid3.Font:=dd.FontDialog1.Font;

end;

end;

Программа для изменения размера таблиц:

procedure Tdd.N57Click(Sender: TObject);

begin

size.showmodal;

end;


Регистрация разговоров

 

На форме «MTTS страница «Абоненты» можно произвести регистрацию разговоров.

 

 

Программа для регистрации:

procedure Tdd.N12Click(Sender: TObject);

begin

pereg.ShowModal;

end;


При нажатии на кнопку регистрация появляется следующая форма:

 




ЗАКЛЮЧЕНИЕ

Курсовая работа

по дисциплине «Базы данных»

 

Информационно-аналитическая система «MTTS»

 

Выполнила: студент гр. 1312

Маркелова И. А.

Проверил: доцент:

Хузятов Ш.Ш.

 

 

г. Набережные Челны

2009 г.

 

СОДЕРЖАНИЕ

 

ВВЕДЕНИЕ

Задание на курсовую работу

1.МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ

1.1 Создание псевдонима для работы с базой данных

1.2 Организация доступа к таблицам база данных

2. Проектирование алгоритмов обработки информации

2.1 Форма «MTTS»

2.2. Добавление записи в таблицу

2.3. . Изменение полей выбранной записи

2.4. Удаление записи из таблицы

2.5. Поиск данных

2.6. Сортировка данных

2.7. Фильтрация данных

2.8. Создание отчета

2.9. Изменение цвета формы и изменение шрифта

2.10.Регистрация разговоров

3. Форма «MTTS страница «АБОНЕНТЫ»

4. Форма «MTTS страница ТАРИФЫ»

5. Форма «MTTS страница ПЕРЕГОВОРЫ»

ЗАКЛЮЧЕНИЕ

Список использованных источников

ВВЕДЕНИЕ

 

Основы современной информационной технологии составляют базы данных (БД) и системы управления базами данных (СУБД), роль которых как единого средства хранения, обработки и доступа к большим объемам информации постоянно возрастает. При этом существенным является постоянное повышение объемов информации, хранимой в БД, что влечет за собой требование увеличения производительности таких систем. Резко возрастает также в разнообразных применениях спрос на интеллектуальный доступ к информации. Это особенно проявляется при организации логической обработки информации в системах баз знаний, на основе которых создаются современные экспертные системы.

Целью данной курсовой работы является создание Информационно-аналитической системы (базы данных) «Реализация кондитерских изделий». В работе были использованы такие методы как сортировка, добавление, удаление, изменение и поиск данных, фильтрация, диапазон.

Delphi является средой разработки, используемой, прежде всего для поддержки и разработки приложений, предназначенных как для отдельных рабочих станций, так и для серверов. Delphi может функционировать под управлением операционной системы Windows 95, 98, NT. Delphi имеет графический пользовательский интерфейс, подобный используемому в Microsoft Visual Basic и C++. Поскольку пользовательский интерфейс создается визуально, о Delphi говорят как о среде, предназначенной для быстрого создания приложений. В основе идеологии Delphi лежит технология визуального проектирования и событийного программирования (программирование процедур обработки событий), применение которых позволяет существенно сократить время разработки и облегчить процесс создания приложений.



Задание на курсовую работу

 

Курсовая работа должна представлять собой информационно – аналитическую систему управления базой данных «MTTS».

При запуске программы перед основной формой должна появляться заставка, содержащая оригинальное изображение, соответствующее теме программы. Основная форма должна содержать 3 вкладки (Page Control), на каждой из которых представляется информация из отдельной таблицы: на первой вкладке – с использованием компонента DBGrid, на второй – с использованием DBEdit, на третьей – Query. Форма должна содержать действующие компоненты MainMenu, PopupMenu с основными командами (сброс, выход, о программе, редактировать, добавить, изменить, удалить, поиск и т.д.).



МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ

 

Информационно-аналитическая система «МТТS» представляет собой приложение, с помощью которого пользователю представлены возможности для:

· Добавления (регистрации) абонентов;

· Изменения данных абонентов;

· Удаления абонентов;

· Регистрации междугородних переговоров;

Дата: 2019-12-22, просмотров: 187.