Информационно-аналитическая система "MTTS" (стр. 2 из 2)

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

Программа:

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;

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

Сортировка выполняется на первой вкладке формы «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;

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

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

Фильтрация выполняется на первой вкладке формы «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 – RaveDesigner – File – NewDataObject – DirectDataNiew – Finish. Tools – Report Wieardz – Simple Table – Next – All – Next – Geniered. Нужно изменить шрифт, форматировать отчет, сохранить. RVProject – ProjectFile – название отчета.

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

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

procedure Tdd.N32Click(Sender: TObject);

begin

dd.RvProject1.Execute;

end;

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

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

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

procedureTdd.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;

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

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

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

procedure Tdd.N12Click(Sender: TObject);

begin

pereg.ShowModal;

end;

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

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

Форма «MTTS страница «Абоненты» содержится таблица «Абоненты». Она состоит из трех полей: телефон, фамилия и адрес. Можно выполнить регистрацию абонентов (отчет), добавление новых данных, изменение, удаление не нужных данных, выполнить в таблице поиск и фильтрацию по номеру абонента. Можно просмотреть отчет «Список абонентов».

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

Форма «MTTS страница ТАРИФЫ» состоит из «Файла», где указаны справка, настройка (шрифт, цвет, размер таблиц), а также выход из самой программы. В меню «Сервис» указаны тарифы (добавить, изменить, удалить, поиск, сортировка, фильтрация.)

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

Форма «MTTS страница ПЕРГОВОРЫ» состоит из «Файла», где указаны справка, настройка (шрифт, цвет, размер таблиц), а также выход из самой программы. В меню «Сервис» указаны следующие операции по переговорам: выписать квитанцию, должники, поиск, сортировка, фильтрация.

ЗАКЛЮЧЕНИЕ

база данные программирование delphi

В данной курсовой выполнены все требования, а именно создание базы данных и СУБД для управления ею.

На основе проделанной работы можно сделать вывод о том, что язык программирования Delphi является мощной средой, позволяющая создавать различные банки данных, разрабатывать удобный интерфейс для работы с ними. Данный язык имеет огромное количество различных компонент: DBGrid, ADOTable, Query, DBEdit, ComboBox и т.д., которые позволяют работать с данными базы.

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

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

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

1. А.Г. Исавнин, Д.М. Лысанов, В.С. Фрикк «Создание отчетов с помощью RAVE – компонентов Delphi», издательство ИНЭКА, Набережные Челны, 2006г.

2. Ш.Ш. Хузятов «Delphi7. Основные компоненты и элементы языка программирования», издательство КамПИ, Набережные Челны, 2005г.

3. В.В. Фаронов «Delphi7 Программирование на языке высокого уровня». Учебник для вузов. 2007г.