Разработка информационно-аналитической системы компании ООО "Автошины"
Общая характеристика предприятия и его структуры. Разработка форм приложений и интерфейса, структуры программного обеспечения, сценария диалога и экранных форм. Обоснование экономических показателей проекта. Обеспечение безопасности жизнедеятельности.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 12.11.2015 |
| Размер файла | 1,9 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
with DBGrid11.DataSource.DataSet do
for i:=0 to DBGrid11.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid11.SelectedRows.Items[i]));
adotable1.Insert;
adotable1.FieldByName('naim').Asstring:=fields[1].FieldName;
adotable1.FieldByName('idorder').AsInteger:=f;
adotable1.FieldByName('Price').AsInteger:=Fields[2].AsInteger;
adotable1.FieldByName('Dev').AsString:=Fields[1].AsString;
adotable1.FieldByName('Type').AsString:=Fields[3].AsString;
adotable1.FieldByName('Datas').AsString:=datetostr(date);
adotable1.Post;
end;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select sum(Price) as Itog from Orders where idOrder='+inttostr(f));
adoquery1.Close;
adoquery1.Open;
fl:=1;
end;
procedure TForm3.Button8Click(Sender: TObject);
begin
if adotable1.RecordCount=0 then
begin f:=1;end
else
begin
if fl=0 then
begin
adotable1.Sort:='idOrder ASC';
adotable1.Last;f:=adotable1.fieldbyname('idorder').AsInteger+1;
end;
end;
//подборка комплектующих для счета
if DBGrid8.SelectedRows.Count>0 then
with DBGrid8.DataSource.DataSet do
for i:=0 to DBGrid8.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid8.SelectedRows.Items[i]));
adotable1.Insert;
adotable1.FieldByName('naim').Asstring:=fields[1].FieldName;
adotable1.FieldByName('idorder').AsInteger:=f;
adotable1.FieldByName('Price').AsInteger:=Fields[2].AsInteger;
adotable1.FieldByName('Dev').AsString:=Fields[1].AsString;
adotable1.FieldByName('Type').AsString:=Fields[3].AsString;
adotable1.FieldByName('Datas').AsString:=datetostr(date);
adotable1.Post;
end;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select sum(Price) as Itog from Orders where idOrder='+inttostr(f));
adoquery1.Close;
adoquery1.Open;
fl:=1;
end;
procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select sum(Price) as Itog from Orders where idOrder='+inttostr(adotable1.Fields[0].AsInteger));
adoquery1.Close;
adoquery1.Open;
end;
procedure TForm3.DBGrid9DblClick(Sender: TObject);
begin
pagecontrol2.TabIndex:=1;
end;
procedure TForm3.DBGrid2DblClick(Sender: TObject);
begin
pagecontrol2.TabIndex:=2;
end;
procedure TForm3.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Visible:=false;
image2.Visible:=true;
end;
procedure TForm3.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image2.Visible:=false;
image3.Visible:=true;
end;
procedure TForm3.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image3.Visible:=false;
image2.Visible:=true;
end;
procedure TForm3.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Visible:=true;
image2.Visible:=false;
image3.Visible:=false;
image4.Visible:=true;
image5.Visible:=false;
image6.Visible:=false;
image7.Visible:=true;
image8.Visible:=false;
image9.Visible:=false;
end;
procedure TForm3.Image2Click(Sender: TObject);
begin
pagecontrol2.TabIndex:=1;
end;
procedure TForm3.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image4.Visible:=false;
image5.Visible:=true;
end;
procedure TForm3.Image5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image5.Visible:=false;
image6.Visible:=true;
end;
procedure TForm3.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image6.Visible:=false;
image5.Visible:=true;
end;
procedure TForm3.Image5Click(Sender: TObject);
begin
pagecontrol2.TabIndex:=0;
end;
procedure TForm3.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image7.Visible:=false;
image8.Visible:=true;
end;
procedure TForm3.Image8MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image8.Visible:=false;
image9.Visible:=true;
end;
procedure TForm3.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image9.Visible:=false;
image8.Visible:=true;
end;
procedure TForm3.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image11.Visible:=false;
image12.Visible:=true;
end;
procedure TForm3.Image12MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image12.Visible:=false;
image13.Visible:=true;
end;
procedure TForm3.Image12Click(Sender: TObject);
begin
pagecontrol2.TabIndex:=0;
end;
procedure TForm3.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image13.Visible:=false;
image12.Visible:=true;
end;
procedure TForm3.Image14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image14.Visible:=false;
image15.Visible:=true;
end;
procedure TForm3.Image15MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image15.Visible:=false;
image16.Visible:=true;
end;
procedure TForm3.Image15Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image16.Visible:=false;
image15.Visible:=true;
end;
procedure TForm3.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image14.Visible:=true;
image15.Visible:=false;
image16.Visible:=false;
end;
procedure TForm3.Image17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image17.Visible:=false;
image18.Visible:=true;
end;
procedure TForm3.Image18MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image18.Visible:=false;
image19.Visible:=true;
end;
procedure TForm3.Image18Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image19MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image19.Visible:=false;
image18.Visible:=true;
end;
procedure TForm3.Panel5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image20.Visible:=true;
image21.Visible:=false;
image22.Visible:=false;
end;
procedure TForm3.Image20MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image20.Visible:=false;
image21.Visible:=true;
end;
procedure TForm3.Image21MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image21.Visible:=false;
image22.Visible:=true;
end;
procedure TForm3.Image21Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image22MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image22.Visible:=false;
image21.Visible:=true;
end;
procedure TForm3.Panel4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image17.Visible:=true;
image18.Visible:=false;
image19.Visible:=false;
end;
procedure TForm3.DBGrid13DblClick(Sender: TObject);
begin
pagecontrol3.TabIndex:=1;
end;
procedure TForm3.DBGrid14DblClick(Sender: TObject);
begin
pagecontrol3.TabIndex:=2;
end;
procedure TForm3.Image23MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image23.Visible:=false;
image24.Visible:=true;
end;
procedure TForm3.Image24MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image24.Visible:=false;
image25.Visible:=true;
end;
procedure TForm3.Image24Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image25MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image25.Visible:=false;
image24.Visible:=true;
end;
procedure TForm3.Panel11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image23.Visible:=true;
image24.Visible:=false;
image25.Visible:=false;
end;
procedure TForm3.Image26MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image26.Visible:=false;
image27.Visible:=true;
end;
procedure TForm3.Image27MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image27.Visible:=false;
image28.Visible:=true;
end;
procedure TForm3.Image27Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image28MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image28.Visible:=false;
image27.Visible:=true;
end;
procedure TForm3.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image26.Visible:=true;
image27.Visible:=false;
image28.Visible:=false;
end;
procedure TForm3.Image29MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image29.Visible:=false;
image30.Visible:=true;
end;
procedure TForm3.Image30MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image30.Visible:=false;
image31.Visible:=true;
end;
procedure TForm3.Image30Click(Sender: TObject);
begin
close;
end;
procedure TForm3.Image31MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image31.Visible:=false;
image30.Visible:=true;
end;
procedure TForm3.Panel9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image29.Visible:=true;
image30.Visible:=false;
image31.Visible:=false;
end;
procedure TForm3.Image32MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image32.Visible:=false;
image33.Visible:=true;
end;
procedure TForm3.Image33MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image33.Visible:=false;
image34.Visible:=true;
end;
procedure TForm3.Image34MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image34.Visible:=false;
image33.Visible:=true;
end;
procedure TForm3.Image35MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image35.Visible:=false;
image36.Visible:=true;
end;
procedure TForm3.Image36MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image36.Visible:=false;
image37.Visible:=true;
end;
procedure TForm3.Image37MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image37.Visible:=false;
image36.Visible:=true;
end;
procedure TForm3.Panel6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image32.Visible:=true;
image33.Visible:=false;
image34.Visible:=false;
image35.Visible:=true;
image36.Visible:=false;
image37.Visible:=false;
end;
procedure TForm3.Image33Click(Sender: TObject);
begin
pagecontrol3.TabIndex:=1;
end;
procedure TForm3.Image36Click(Sender: TObject);
begin
pagecontrol3.TabIndex:=0;
end;
procedure TForm3.Image39MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image39.Visible:=false;
image40.Visible:=true;
end;
procedure TForm3.Image40MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image40.Visible:=false;
image41.Visible:=true;
end;
procedure TForm3.Image40Click(Sender: TObject);
begin
pagecontrol3.TabIndex:=0;
end;
procedure TForm3.Image41MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image41.Visible:=false;
image40.Visible:=true;
end;
procedure TForm3.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image11.Visible:=true;
image12.Visible:=false;
image13.Visible:=false;
end;
procedure TForm3.Panel7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image39.Visible:=true;
image40.Visible:=false;
image41.Visible:=false;
end;
end.
unit Unit4; //модуль формирования отчётов
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QRCtrls, QuickRpt, ExtCtrls, StdCtrls;
type
TForm4 = class(TForm)
QuickRep1: TQuickRep;
QRSubDetail1: TQRSubDetail;
QRDBText1: TQRDBText;
QRDBText3: TQRDBText;
QRLabel1: TQRLabel;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRLabel2: TQRLabel;
QRDBText8: TQRDBText;
QRLabel3: TQRLabel;
Label1: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
end.
Размещено на Allbest.ru
...Подобные документы
Этапы разработки технического задания. Спецификация программного обеспечения при структурном подходе. Дерево диаграмм, базовые понятия сетевой модели данных. Разработка пользовательского интерфейса. Разработка сценария диалога на основе экранных форм.
курсовая работа [2,0 M], добавлен 24.06.2012Моделирование предметной области. Состав программного модуля. Разработка логической структуры единой базы данных банковской информационной системы "БИС". Создание экранных форм для ввода и корректировки информации. Разработка интерфейса пользователя.
курсовая работа [1,8 M], добавлен 17.05.2016Определение этапов разработки программного обеспечения. Разработка модели представления данных и структуры интерфейса. Проектирование входных и выходных форм. Этапы программирование приложения. Проверка функциональности на контрольном примере.
курсовая работа [1,2 M], добавлен 25.05.2009Проектирование алгоритмов и программных кодов для различных элементов пользовательских форм информационно-аналитической системы. Исследование структуры базы данных. Связь между таблицами. Разработка графического интерфейса программы и справочной системы.
курсовая работа [2,4 M], добавлен 10.01.2015Разработка технологии и средств реализации Java-приложения, сокращающих трудоемкость создания и гибкость модификации интерфейса пользователя. Использование XML-документов для описания внешнего представления, элементов управления и событий экранных форм.
дипломная работа [2,8 M], добавлен 19.08.2011Разработка структуры сайта и автоматизация процесса заказа и покупки товара посредством сети интернет. Проектирование базы данных, подключенной к сайту. Создание инфологической модели, форм входных и выходных документов, графа диалога, экранных форм.
дипломная работа [1,9 M], добавлен 06.07.2015Анализ проектирования интерфейса программы. Выбор и назначение визуальных компонентов. Изучение экранных форм приложения. Модули, процедуры, функции проекта и их назначение. Листинг программного кода. Результаты работы автоматизированного продукта.
курсовая работа [1,9 M], добавлен 11.12.2017Описание приложения в виде пользовательского сценария. Проектирование обмена сообщениями между модулями. Разработка общей структуры приложения. Обзор структуры файлов. Разработка получения данных со страницы. Характеристика результата работы программы.
дипломная работа [1,5 M], добавлен 22.03.2018Компиляция и использование модулей. Разработка интерфейса программы. Факторы, воздействующие на комфорт пользователя. Структура диалога типа меню и разработка экранных форм. Обоснование выбора типа подпрограмм для решения задачи. Текст программы.
курсовая работа [30,1 K], добавлен 22.02.2014Понятие пользовательского интерфейса, требования к его разработке. Понятие диалога, типы диалога. Критерии хорошего диалога. Эвристические правила Якоба. Принципы построения интерфейсов. Факторы, влияющие на удобство работы с программным обеспечением.
презентация [2,9 M], добавлен 19.09.2016Принципы разработки программного обеспечения, паттерны проектирования. Прототип информационно-аналитической системы MCControl для поддержки процесса техобслуживания и ремонта оборудования дискретного производства малого производственного предприятия.
курсовая работа [81,7 K], добавлен 10.01.2014Разработка интерфейса и программного обеспечения виртуальной библиотеки. Проектирование структуры экранов и навигационной системы. Построение прототипа пользовательского интерфейса. Тестирование и модификация прототипа. Экспертная оценка разработки.
курсовая работа [41,2 K], добавлен 19.12.2010Разработка структуры пользовательского интерфейса автоматизированной системы. Концептуальная модель базы данных. Структура экранных форм ввода данных. Индивидуальные процедуры взаимодействия с текстовым редактором "Word" и электронными таблицами "Excel".
курсовая работа [276,6 K], добавлен 16.02.2016Разработка проекта для регистрации пользователей на Web-сайте с целью отслеживания интересов посетителей. Обоснование выбранных технических средств и программного обеспечения: PHP и MySQL. Описание интерфейса и отчетных форм, листинг программы модулей.
курсовая работа [1,5 M], добавлен 01.11.2012Создание генератора статичной версии системы стратегического планирования в виде сайта. Разработка способа перевода динамических веб-страниц в статичные и Flash-объектов в изображения. Реализация веб-интерфейса взаимодействия пользователя с генератором.
отчет по практике [1,5 M], добавлен 06.04.2013Проектирование структуры информационной базы и разработка программного комплекса, позволяющего автоматизировать процесс учета налогоплательщиков. Разработка конфигурации и создание интерфейса базы данных, форм и отчетов в программе "1С Предприятие".
дипломная работа [3,2 M], добавлен 21.06.2015Общая характеристика и функциональное назначение проектируемого программного обеспечения, требования к нему. Разработка и описание интерфейса клиентской и серверной части. Описание алгоритма и программной реализации приложения. Схема базы данных.
курсовая работа [35,4 K], добавлен 12.05.2013Разработка программы-модели в среде "Adamview" для имитации стратегии и наглядной иллюстрации работы программы. Настройка сети; описание эмулятора стратегии и экранных форм интерфейса оператора. Структурная схема распределённой системы управления.
курсовая работа [2,6 M], добавлен 21.01.2013Выбор типа и структуры нейронной сети. Подбор метода распознавания, структурная схема сети Хопфилда. Обучение системы распознавания образов. Особенности работы с программой, ее достоинства и недостатки. Описание интерфейса пользователя и экранных форм.
курсовая работа [3,0 M], добавлен 14.11.2013Создание программного продукта, предназначенного для автоматизированного учета гостиничных номеров, упрощения работы с базой данных, обеспечения быстрого поиска. Автоматизация резервирования номеров и регистрация постояльцев. Разработка экранных форм.
курсовая работа [1,8 M], добавлен 08.01.2014
