Информационно Аналитическая Работа Курсовая
Информационно Аналитическая Работа Курсовая
Название: Информационно-аналитическая система "MTTS"
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 20:25:46 06 апреля 2011 Похожие работы
Просмотров: 256 Комментариев: 14 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно Скачать
Государственное образовательное учреждение высшего профессионального образования
Кафедра прикладной информатики и управления
Информационно-аналитическая система «MTTS»
1.МЕТОД РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ
1.1 Создание псевдонима для работы с базой данных
1.2 Организация доступа к таблицам база данных
2. Проектирование алгоритмов обработки информации
2.3. . Изменение полей выбранной записи
2.9. Изменение цвета формы и изменение шрифта
5. Форма «MTTS страница ПЕРЕГОВОРЫ»
Основы современной информационной технологии составляют базы данных (БД) и системы управления базами данных (СУБД), роль которых как единого средства хранения, обработки и доступа к большим объемам информации постоянно возрастает. При этом существенным является постоянное повышение объемов информации, хранимой в БД, что влечет за собой требование увеличения производительности таких систем. Резко возрастает также в разнообразных применениях спрос на интеллектуальный доступ к информации. Это особенно проявляется при организации логической обработки информации в системах баз знаний, на основе которых создаются современные экспертные системы.
Целью данной курсовой работы является создание Информационно-аналитической системы (базы данных) «Реализация кондитерских изделий». В работе были использованы такие методы как сортировка, добавление, удаление, изменение и поиск данных, фильтрация, диапазон.
Delphi является средой разработки, используемой, прежде всего для поддержки и разработки приложений, предназначенных как для отдельных рабочих станций, так и для серверов. Delphi может функционировать под управлением операционной системы Windows 95, 98, NT. Delphi имеет графический пользовательский интерфейс, подобный используемому в Microsoft Visual Basic и C++. Поскольку пользовательский интерфейс создается визуально, о Delphi говорят как о среде, предназначенной для быстрого создания приложений. В основе идеологии Delphi лежит технология визуального проектирования и событийного программирования (программирование процедур обработки событий), применение которых позволяет существенно сократить время разработки и облегчить процесс создания приложений.
Курсовая работа должна представлять собой информационно – аналитическую систему управления базой данных «MTTS».
Информационно-аналитическая система «МТТS» представляет собой приложение, с помощью которого пользователю представлены возможности для:
· Добавления (регистрации) абонентов;
· Регистрации междугородних переговоров;
Процесс создание БД состоит из 3 этапов:
Tools – Database Desktop – File – New – Table – Paradox7 – Ok.
Указываешь тип данных и сохраняешь.
Создание Alias – это некоторое короткое слово, предоставленное для указание пути к БД (к каталогу, в котором хранятся файлы таблиц). Пуск – Программы –BorlandDelphi7 – BDEAdministrator (в левой части перечислены все псевдонимы). Меню Object – New – OK. Для того чтобы зарегистрировать псевдоним: Object – Apply – OK. В свойствах для компонента Table – Database Name указать название псевдонима, а в свойстве Active – True.
Форма «MTTS» содержится из трех вкладок. На первой вкладке указаны абоненты, где можно выполнить сортировку по возрастанию и по убыванию, также можно выполнить фильтрацию. Можно выполнить добавление новых данных, изменение, удаление не нужных данных, выполнить в таблице поиск по коду абонента, также можно представить регистрацию абонента, просмотреть квитанцию на переговоры. Можно просмотреть отчет «Список абонентов» и «Список должников». В меню «Файл» находится справка по данной информационной-аналитической системе; можно произвести настройки шрифта, цвета и размера таблиц.
На второй вкладке указана таблица в режимы формы, при помощи Navigatorа можно листать данные, удалять, добавлять и т.д.
Нажав на кнопку «Добавление» на самой основной форме, открывается форма, где нужно ввести новый абонент:
procedure Ttaradd.Button1Click(Sender: TObject);
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
showmessage('Введены не все поля'+#13+'Добавление невозможно');
dd.Query2.Filter:='tarkod='+edit1.Text;
showmessage('Введенный код уже зарегестрирован за городом '+dd.Query2.Fields[1].Text+#13+'Совпадение кодов недопустимо' );
dd.Table2.Fields[0].AsFloat:=strtofloat(edit1.text);
dd.Table2.Fields[1].Text:=edit2.Text;
dd.Table2.Fields[2].AsFloat:=strtofloat(edit3.Text);
dd.Query2.SQL.Add('Select * FROM Tarif ORDER BY tarkod');
Нажав на кнопку «Изменение» на самой основной форме, открывается форма, где выбирается из раскрывающегося списка абонент, по которому нужно выполнить изменения:
//dd.Query2.RecNo:=dd.Table2.RecNo;
dd.Table2.Fields[0].AsFloat:=strtofloat(kod.Text); //strtofloat(label4.Caption);
dd.Table2.Fields[1].Text:=gorod.Text; //label5.Caption;
//dd.Table2.Fields[2].AsCurrency:=strtofloat(dbedit3.Text)*1;
for i:=1 to dd.Table3.RecordCount do
dd.Table3.Fields[6].AsFloat:=strtofloat(label4.Caption);
dd.Table3.Fields[1].Text:=label5.Caption;
//dd.Table3.Filter:='pertel='+dbedit1.Text;
Нажав на кнопку «Удаление» на самой основной форме, открывается форма, где выбирается из раскрывающегося списка абонент, который нужно удалить:
procedure Ttardel.Button1Click(Sender: TObject);
if messagedlg('Удалитьгород: '+dd.Table2.Fields[1].Text, mtinformation,[mbYes,mbNo],0)=mrYes
for i:=1 to dd.Table3.RecordCount do
Нажав на кнопку «Поиск» на самой основной форме, открывается форма, где выбирается сама таблица, по которой нужно выполнить поиск и из раскрывающегося списка выбирается те значения, которые нужно найти. Для таблицы «Изделие» поиск выполняется следующим образом:
procedure Ttarfind.Button1Click(Sender: TObject);
showmessage('Поиск закончен. Запись НЕ НАЙДЕНА');
dd.Query2.SQL.Add('SELECT * FROM tarif');
s1:='WHERE targor'+' LIKE "'+search.Text+'%"';
label6.Caption:='Результаты поиска: Найдены :'+floattostr(dd.Query2.RecordCount)+' зап.';
showmessage('Поиск закончен. Запись НЕ НАЙДЕНА');
Сортировка выполняется на первой вкладке формы «MTTS». Можно выполнить сортировку по возрастанию и по убыванию. Нужно выбрать то поле, по которому нужно выполнить сортировку.
Программа для выполнения сортировки по возрастанию:
procedure Ttarsor.SpeedButton1Click(Sender: TObject);
if (pole.ItemIndex=0) and (pole.ItemIndex=0) then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod');
if (pole.ItemIndex=0) and (pole.ItemIndex=1) then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod DESC');
if (pole.ItemIndex=1) and (pole.ItemIndex=0)then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY targor');
if (pole.ItemIndex=1) and (pole.ItemIndex=1)then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY targor DESC');
if (pole.ItemIndex=2) and (pole.ItemIndex=0)then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarprice');
if (pole.ItemIndex=2) and (pole.ItemIndex=1)then
dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarprice DESC');
Аналогично и для других полей таблицы.
Фильтрация выполняется на первой вкладке формы «MTTS». Нужно выбрать то условие, по которому нужно выполнить фильтрацию, можно вернуть все обратно.
procedure Ttarfilter.SpeedButton1Click(Sender: TObject);
if (pole.Text='') or (ysl.Text='') or (text.Text='') then
showmessage('Выполнены не все условия для фильтрации');
dd.Query2.Filter:='TARkod'+ysl.Text+text.Text;
showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');
dd.Query2.Filter:='TARgor'+ysl.Text+''''+ text.Text+'''';
showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');
dd.Query2.Filter:='TARprice'+ysl.Text+''''+text.Text+'''';
showmessage('Не найдено ни одной записи'+#13+'Нет смысла фильтровать');
sp.Panels[0].Text:='Результат фильтрации: '+floattostr(dd.Query2.RecordCount)+' зап.';
По данной таблице создан отчет «Список абонентов». Для создания отчета нужно выбрать вкладку Rave компоненты RVProject, RTF и RVDataSetConection. На компоненте RVDataSetConection свойство DataSet нужно выбрать ту таблицу, которая должна быть представлена в виде отчета. После этого: Tools – RaveDesigner – File – NewDataObject – DirectDataNiew – Finish. Tools – Report Wieardz – Simple Table – Next – All – Next – Geniered. Нужно изменить шрифт, форматировать отчет, сохранить. RVProject – ProjectFile – название отчета.
В меню «Сервис» можно просмотреть отчет.
procedure Tdd.N32Click(Sender: TObject);
2.9. Изменение цвета формы и изменение шрифта
В меню «Формат» можно изменить цвет формы и изменить шрифт.
Программа для выполнения изменений цвета формы:
procedureTdd.N55Click(Sender: TObject);
Программа для выполнения изменений шрифта:
procedure Tdd.N54Click(Sender: TObject);
main.DBGrid1.Font:=dd.FontDialog1.Font;
main.DBGrid2.Font:=dd.FontDialog1.Font;
main.DBGrid3.Font:=dd.FontDialog1.Font;
Программа для изменения размера таблиц:
procedure Tdd.N57Click(Sender: TObject);
На форме «MTTS страница «Абоненты» можно произвести регистрацию разговоров.
procedure Tdd.N12Click(Sender: TObject);
При нажатии на кнопку регистрация появляется следующая форма:
3. Форма « MTTS страница «АБОНЕНТЫ»
Форма «MTTS страница «Абоненты» содержится таблица «Абоненты». Она состоит из трех полей: телефон, фамилия и адрес. Можно выполнить регистрацию абонентов (отчет), добавление новых данных, изменение, удаление не нужных данных, выполнить в таблице поиск и фильтрацию по номеру абонента. Можно просмотреть отчет «Список абонентов».
Форма «MTTS страница ТАРИФЫ» состоит из «Файла», где указаны справка, настройка (шрифт, цвет, размер таблиц), а также выход из самой программы. В меню «Сервис» указаны тарифы (добавить, изменить, удалить, поиск, сортировка, фильтрация.)
Форма «MTTS страница ПЕРГОВОРЫ» состоит из «Файла», где указаны справка, настройка (шрифт, цвет, размер таблиц), а также выход из самой программы. В меню «Сервис» указаны следующие операции по переговорам: выписать квитанцию, должники, поиск, сортировка, фильтрация.
база данные программирование delphi
В данной курсовой выполнены все требования, а именно создание базы данных и СУБД для управления ею.
На основе проделанной работы можно сделать вывод о том, что язык программирования Delphi является мощной средой, позволяющая создавать различные банки данных, разрабатывать удобный интерфейс для работы с ними. Данный язык имеет огромное количество различных компонент: DBGrid, ADOTable, Query, DBEdit, ComboBox и т.д., которые позволяют работать с данными базы.
Все поставленные задачи, для разработки программы, выполнены. Программа представляет пользователю возможность просматривать все таблицы в нескольких видах, соответствующих сортировке таблицы по каждому из полей, а также при выполнении фильтрации. Также можно выполнить добавление новых данных, изменение, удаление не нужных данных, поиск, диапазон и т.д.
Все кнопки, расположенные на пользовательских формах, оснащены всплывающими подсказками, которые позволяют более точно истолковать назначение данных кнопок.
1. А.Г. Исавнин, Д.М. Лысанов, В.С. Фрикк «Создание отчетов с помощью RAVE – компонентов Delphi», издательство ИНЭКА, Набережные Челны, 2006г.
2. Ш.Ш. Хузятов «Delphi7. Основные компоненты и элементы языка программирования», издательство КамПИ, Набережные Челны, 2005г.
3. В.В. Фаронов «Delphi7 Программирование на языке высокого уровня». Учебник для вузов. 2007г.
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Курсовая работа : Информационно -аналитическая система...
Курсовая работа на тему "Разработка..."
Информационно -аналитическая система 'Отдел экспорта'.
Содержание и задачи информационно -аналитическая работа
Готовые курсовые работы по теме...
Сайты Где Делают Курсовые
Памятники Культуры Это Определение Для Сочинения
Сочинение На Тему Зима 10 Класс
Органы Предварительного Следствия Реферат
Реферат Прекращение Службы В Органах Внутренних Дел