Создание информационно-аналитической системы управления базой данных магазина автозапчастей

datamodule3.adoquery1.sql[2]:='where Name='''+labelededit1.Text+'''';

 

if form2.RadioButton2.checked then

datamodule3.adoquery1.sql[2]:='where Lmane='''+labelededit1.Text+'''';

 

if form2.RadioButton3.checked then

datamodule3.adoquery1.sql[2]:='where Phone='''+labelededit1.Text+''' or Phone2='''+labelededit1.Text+'''' ;

datamodule3.ADOQuery1.Open;

 

Код для кнопки всего списка клиентов:

 

datamodule3.ADOQuery1.Close;

datamodule3.adoquery1.sql[2]:=' ';

datamodule3.ADOQuery1.Open;

 

 

 

 

 

 

 

 

 

2.6 Диаграмма

 

Открыть диаграмму можно кликнув  по кнопке «Диаграмма» на вкладке  Архив заказов.

Диаграмма отражает количество заказанных запчастей по датам. Изучив диаграмму можно определить пик заказов за заданный промежуток. Промежуток задается на странице «Архив заказов»

 

 

 

2.7 Создание  ведомостей или отчётов

 

Отчет сделал в Rave designer.Сохранение отчета в каком либо формате не предусматривал. Он исключительно для печати.

Кнопка расположена  на вкладке «Оформление заказа»

 

RvProject1.Open;

RvProject1.SetParam('opl', form2.Edit1.Text);

RvProject1.Close;

RvProject1.Execute;

Для переноса данных из Edit1 использовал параметр.

 

3. Проектирование  интерфейса.

3.1 Заставка программы.

 

 

Код формы:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 

if x=1 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+10;

if Form1.ProgressBar1.Position=100 then

begin

Form1.ProgressBar1.Position:=0;

x:=2;

 

end;  end;

 

if x=2 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+30;

if Form1.ProgressBar1.Position=90 then

begin

Form1.ProgressBar1.Position:=0;

x:=3;

form1.Label1.Caption:='ïîèñê áàçû äàííûõ' ;

end;end;

 

if x=3 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+2;

if Form1.ProgressBar1.Position=90 then

begin

Form1.ProgressBar1.Position:=0;

x:=4;

form1.Label1.Caption:='çàãðóçêà äàííûõ' ;

end;end;

 

if x=4 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+1;

if Form1.ProgressBar1.Position=90 then

begin

Form1.ProgressBar1.Position:=0;

x:=5;

form1.Label1.Caption:='çàâåðøåíèå çàãðóæçêè' ;

end;

end;

 

 

if x=5 then

begin

Form1.ProgressBar1.Position:=Form1.ProgressBar1.Position+5;

if Form1.ProgressBar1.Position=100 then

timer1.Enabled:=false;

Form2.show;

form2.MonthCalendar1.Date:=now();

form2.DateTimePicker1.Date:=now();

form2.DateTimePicker2.Date:=now();

form1.hide;

end;

end;

 

 

 

procedure TForm1.FormActivate(Sender: TObject);

begin

  x:=1;

timer1.Interval:=10;

timer1.Enabled:=true;

 

end;

3.2 Главная  форма для работы с данными.

Программный код для первого запроса для кнопки “Поиск”:

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.query2.Close;

form1.query2.SQL[2]:=('where IdOrder = '''+edit5.text+'''');

form1.query2.Open;

end;

end.

Программный код для второго запроса для кнопки “Поиск”:

 

procedure TForm1.Button5Click(Sender: TObject);

begin

adoquery5.Open;

 

end;

end.

 

 

 

 

 

 

 

 

 

 

3.3 Информационное окно “Справка” и “Автор”.

 

 

3.4 Мини браузер.

Браузер с минимальными возможностями. Имеет кнопку вперед и назад, кнопку открытия сайта, адрес которой пишется  или выбирается в Combobox

Код кнопок:

 

 procedure TForm9.ToolButton1Click(Sender: TObject);

begin

form9.WebBrowser1.GoBack;

end;

 

procedure TForm9.ToolButton2Click(Sender: TObject);

begin

form9.WebBrowser1.GoForward;

 

end;

 

procedure TForm9.ToolButton3Click(Sender: TObject);

begin  form9.WebBrowser1.Navigate(combobox1.text);

end;

 

В Combobox изначально задал нужные для работы сайты:

http:\\www.exist.ru

http:\\www.drive.su

http:\\www.yandex.ru

http:\\zap-ti.ru

 

3.5 Меню  игр

Для развлечения в свободное время от работы добавил несколько игр, серию игр YetiSports, а так же 2 игры найденные в сети интернет , написанные на Delphi программистами любителями.

Найти их можно на вкладке «Игры»

procedure TForm2.N9Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\snake\Project1.exe', nil, nil, SW_SHOW);

end;

 

procedure TForm2.N1Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\go_quads\DODGE1\delph\xwxwc.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N13Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports1.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N21Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports2.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N31Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports3.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N41Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports4.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N51Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports5.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N61Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports6.exe', nil, nil, SW_SHOWNORMAL);

end;

 

procedure TForm2.N71Click(Sender: TObject);

begin

shellexecute(Handle, 'open', 'C:\InterCarDB\Intercar\GAMES\yetisports\yetisports7.exe', nil, nil, SW_SHOWNORMAL);

end;

 

3.6 Выход.

Выход есть на всех вкладках PageControl в виде кнопки BitBtn так и на компоненте MainMenu.

Во всех кнопках  выхода следующий код:

form1.Close;

 

 

 

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

1. Лекции по дисциплине «Высокоуровневые методы информатики и программирования» Исавнина А.Г.
2. Работа с СУБД Microsoft Access и SQL Server  в среде Delphi: Учебное пособие для специальностей 0811665 – «Математические методы в экономике» и 08080165 – «Прикладная информатика в экономике» дневной, заочной и дистанционной форм обучения / Составитель – А.Г. Исавнин. Набережные Челны: Изд-во ИНЭКА, 2008.
3. Исавнин А.Г., Макарова И.В., Лысанов Д.М. Язык структурированных запросов, Учебное пособие. Набережные Челны: Изд-во КамПи, 2004.
4. Создание отчетов с помощью RAVE-компонентов Delphi: Учебное пособие для студентов специальностей 08011665 – «Математические методы в экономике» и 08080165 – «Прикладная информатика в экономике» дневной, заочной и дистанционной форм обучения/ Составители: Исавнин А.Г., Фрикк В.С., Лысанов Д.М. Набережные Челны: Изд-во ИНЭКА, 2006. – 39с.