Разработка приложения «оптовый склад» + разработка прикладного приложения

Курсовая Купить готовую Узнать стоимостьмоей работы

В ходе выполнения курсовой работы, были изучены основные функции работы оптового склада. Разработана база данных в среде MS ACCESS. Реализована система автоматизации процессов работы оптового склада в среде визуального программирования Delphi 7. Составлено руководство пользователя для первичного ознакомления с работой приложения. В перспективе может быть предпринята модернизация… Читать ещё >

Разработка приложения «оптовый склад» + разработка прикладного приложения (реферат, курсовая, диплом, контрольная)

Содержание

Введение
Описание базы данных Руководство пользователя Описание запросов Описание процедур обработки событий Вывод Библиографический
список

Clear;

SQL.Add ('select * from zak where data_formzak = :data_form');

Parameters.ParamByName ('data_form').Value:=DateToStr (DateTimePicker2.Date);

Active := true;

end;

Процедура фильтрации по статусу заказа

procedure TscdFormOperViewBills. RadioButton11Click (Sender: TObject);

var

f:boolean;

begin

if ComboBox1. Text = '' then

begin

ShowMessage ('Не введено значение');

RadioButton11.Checked :=false;

exit;

end;

if ComboBox1. ItemIndex = 0 then f := true else f := false;

with ADOQViewBills do

begin

Active := false;

SQL.Clear;

SQL.Add ('select * from zak where status = :stat');

Parameters.ParamByName ('stat').Value:=f;

Active := true;

end;

Процедура отмены фильтрации и сортировок

procedure TscdFormOperViewBills. BitBtn1Click (Sender: TObject);

begin

RadioButton1.Checked := true;

with ADOQViewBills do

begin

Active := false;

SQL.Clear;

SQL.Add ('select * from zak order by id_zak');

Active := true;

end;

Процедура закрытия формы просмотра заказа

procedure TscdFormOperViewBills. BitBtn2Click (Sender: TObject);

begin

close;

end;

Процедура просмотра списка товаров выбранного заказа (переход по кнопке)

procedure TscdFormOperViewBills. BBillsClick (Sender: TObject);

begin

scdFormOperBills := TscdFormOperBills. Create (self);

scdFormOperBills.Show;

scdFormOperBills.ADOQStrZak.SQL.Clear;

scdFormOperBills.ADOQStrZak.SQL.Add ('select * from stroka_zak where id_zak = :kod_z');

scdFormOperBills.ADOQStrZak.Parameters.ParamByName ('kod_z').Value:=ADOQViewBills.FieldByName ('id_zak').AsInteger;

scdFormOperBills.ADOQStrZak.Active := true;

end;

Процедура просмотра списка товаров выбранного заказа (переход по двойному щелчку в таблице)

procedure TscdFormOperViewBills. DBGBillsDblClick (Sender: TObject);

begin

scdFormOperBills := TscdFormOperBills. Create (self);

scdFormOperBills.Show;

scdFormOperBills.ADOQStrZak.SQL.Clear;

scdFormOperBills.ADOQStrZak.SQL.Add ('select * from stroka_zak where id_zak = :kod_z');

scdFormOperBills.ADOQStrZak.Parameters.ParamByName ('kod_z').Value:=ADOQViewBills.FieldByName ('id_zak').AsInteger;

scdFormOperBills.ADOQStrZak.Active := true;

end;

Модуль scdFormSprCategory

Процедура закрытия формы справочника категории

procedure TscdFormSprCategory. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Destroy;

scdFormMain.Category.Enabled := true;

end;

Процедура применения изменений

procedure TscdFormSprCategory. BitBtn3Click (Sender: TObject);

begin

if (DBEdit1.Text = '') then

begin

MessageBox (0,'Необходимо заполнить основные поля!','Внимание', mb_ok);

exit;

end else

DSSprCateg.DataSet.Post;

Panel2.Visible:=false;

end;

Процедура добавления новой категории

procedure TscdFormSprCategory. BitBtn1Click (Sender: TObject);

begin

DSSprCateg.DataSet.Append;

Panel2.Visible:=true;

end;

Процедура редактирования категории

procedure TscdFormSprCategory. BitBtn2Click (Sender: TObject);

begin

DSSprCateg.DataSet.Edit;

Panel2.Visible:=true;

end;

Процедура удаления категории

procedure TscdFormSprCategory. BitBtn4Click (Sender: TObject);

begin

DSSprCateg.DataSet.Delete;

end;

Процедурв отмены изменений

procedure TscdFormSprCategory. BitBtn5Click (Sender: TObject);

begin

DSSprCateg.DataSet.Cancel;Panel2.Visible:=false;end;

Модуль scdFormSprClnt

Процедура закрытия формы справочника клиенты

procedure TscdFormSprClnt. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Destroy;

scdFormMain.Client.Enabled := true;

end;

Процедура применения изменений

procedure TscdFormSprClnt. BitBtn3Click (Sender: TObject);

begin

if (DBEdit1.Text = '') or (DBEdit2.Text = '') or

(DBEdit3.Text = '') or (DBEdit4.Text = '') or

(DBEdit5.Text = '') or (DBLookupComboBox1.Text = '') then

begin

MessageBox (0,'Необходимо заполнить основные поля!','Внимание', mb_ok);

exit;

end else

DSSpr.DataSet.Post;

Panel2.Visible:=false;

end;

Процедура добавления нового клиента

procedure TscdFormSprClnt. BitBtn1Click (Sender: TObject);

begin

DSSpr.DataSet.Append;

Panel2.Visible:=true;

end;

Процедура редактирования справочника клиенты

procedure TscdFormSprClnt. BitBtn2Click (Sender: TObject);

begin

DSSpr.DataSet.Edit;

Panel2.Visible:=true;

end;

Процедура удаления клиента

procedure TscdFormSprClnt. BitBtn4Click (Sender: TObject);

begin

DSSpr.DataSet.Delete;

end;

Процедура отмены изменений в справочнике клиенты

procedure TscdFormSprClnt. BitBtn5Click (Sender: TObject);

begin

DSSpr.DataSet.Cancel;

Panel2.Visible:=false;

end;

Модуль scdFormSprCountry

Процедура закрытия формы справочника страны

procedure TscdFormSprCountry. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Destroy;

scdFormMain.Country.Enabled := true;

end;

Процедура добавления страны

procedure TscdFormSprCountry. BitBtn1Click (Sender: TObject);

begin

DSSprCountry.DataSet.Append;

Panel2.Visible:=true;

end;

Процедура редактирования страны

procedure TscdFormSprCountry. BitBtn2Click (Sender: TObject);

begin

DSSprCountry.DataSet.Edit;

Panel2.Visible:=true;

end;

Процедура удаления страны

procedure TscdFormSprCountry. BitBtn3Click (Sender: TObject);

begin

DSSprCountry.DataSet.Delete;

end;

Процедура применения изменений в справочнике страны

procedure TscdFormSprCountry. BitBtn4Click (Sender: TObject);

begin

if (DBEdit1.Text = '') then

begin

MessageBox (0,'Необходимо заполнить основные поля!','Внимание', mb_ok);

exit;

end else

DSSprCountry.DataSet.Post;

Panel2.Visible:=false;end;

Процедура отмены изменений

procedure TscdFormSprCountry. BitBtn5Click (Sender: TObject);

begin

DSSprCountry.DataSet.Cancel;

Panel2.Visible:=false;

end;

Модуль scdFormSprGoods

Процедура закрытия формы справочника товары

procedure TscdFormSprGoods. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Destroy;

scdFormMain.Goods.Enabled := true;

end;

Процедура применения изменений в справочнике товары

procedure TscdFormSprGoods. BitBtn3Click (Sender: TObject);

begin

if (DBEdit1.Text = '') or (DBEdit4.Text = '') or

(DBLookupComboBox1.Text = '') then

begin

MessageBox (0,'Необходимо заполнить основные поля!','Внимание', mb_ok);

exit;

end else

DSSprGoods.DataSet.Post;

Panel2.Visible:=false;

end;

Процедура добавления новой записи в справочник товары

procedure TscdFormSprGoods. BitBtn1Click (Sender: TObject);

begin

DSSprGoods.DataSet.Append;

Panel2.Visible:=true;

end;

Процедура редактирования записи

procedure TscdFormSprGoods. BitBtn2Click (Sender: TObject);

begin

DSSprGoods.DataSet.Edit;

Panel2.Visible:=true;

end;

Процедура удаления записи

procedure TscdFormSprGoods. BitBtn4Click (Sender: TObject);

begin

DSSprGoods.DataSet.Delete;

end;

Процедура отмены изменений в справочнике

procedure TscdFormSprGoods. BitBtn5Click (Sender: TObject);

begin

DSSprGoods.DataSet.Cancel;

Panel2.Visible:=false;

end;

Модуль scdFormSprTpClnt

Процедура закрытия формы справочника клиенты

procedure TscdFormSprTpClnt. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Destroy;

scdFormMain.Type_Clnt.Enabled := true;

end;

Процедуры добавления записи в справочнике клиенты

procedure TscdFormSprTpClnt. BitBtn1Click (Sender: TObject);

begin

DSTpClnt.DataSet.Append;

PAdd.Visible:=true;

end;

Процедура применения изменений в справочник

procedure TscdFormSprTpClnt. BitBtn3Click (Sender: TObject);

begin

if (DBEdit1.Text = '') or (DBEdit2.Text = '') then

begin

MessageBox (0,'Необходимо заполнить основные поля!','Внимание', mb_ok);

exit;

end else

DSTpClnt.DataSet.Post;

PAdd.Visible:=false;

end;

Процедура редактирования справочника клиенты

procedure TscdFormSprTpClnt. BitBtn2Click (Sender: TObject);

begin

DSTpClnt.DataSet.Edit; PAdd. Visible:=true; end;

Процедура удаления записи из справочника клиенты

procedure TscdFormSprTpClnt. BitBtn4Click (Sender: TObject);

begin

DSTpClnt.DataSet.Delete;

end;

Процедура отмены изменений в справочнике клиенты

procedure TscdFormSprTpClnt. BitBtn5Click (Sender: TObject);

begin

DSTpClnt.DataSet.Cancel;

PAdd.Visible:=false;

end;

Вывод

Библиографический список Архангельский А. Я. «100 компонентов общего назначения библиотеки Delphi» Bel&Chen Co. 2002.

5 Delphi. Программирование на языке высокого уровня: Учебник для вузов/ Фаронов В. В. — СПб.: Питер, 2004.

Золотова С. И. «Практикум о ACCESS» — Москва, 2005.

Михеева В. Харитонова И. MicroSoft Access 2002 — СПб.:БХВ-Петербург, 2003.

Показать весь текст

Список литературы

Архангельский А. Я. «100 компонентов общего назначения библиотеки Delphi» Bel&Chen Co. 2002.
Delphi. Программирование на языке высокого уровня: Учебник для вузов/ Фаронов В. В. — СПб.: Питер, 2004.
Золотова С. И. «Практикум о ACCESS» — Москва, 2005.
Михеева В. Харитонова И. MicroSoft Access 2002 — СПб.:БХВ-Петербург, 2003.

Заполнить форму текущей работой

Купить готовую работу

Другие работы

Параметрический синтез информационно-измерительных систем с мультипликативным взаимодействием измерительных каналов

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

Диссертация

Подробнее...

Группа 10. Программы для поддержки рекламной деятельности

Пользователь таких программ — лицо, принимающее решения: директор по маркетингу, директор по развитию, руководитель компании, консультант. Область решаемых задач отражает название группы — помощь в осуществлении анализа и планирования маркетинговой стратегии компании и комплекса маркетинга. Стоит отметить, что, несмотря на схожее назначение, программы сильно отличаются и по способу реализации…

Реферат

Подробнее...

Диагностика ошибок в формулах Excel

Ошибка #ЗНАЧ! возникает, когда используется недопустимый тип аргумента, например пользователь пытается сложить текстовое и числовое значение. Сообщение об ошибке типа #ИМЯ? появляется, когда Excel не может найти имя, используемое в формуле. Например, такая ситуация возникнет, если: Как правило, ошибка ###### возникает, когда полученный результат не умещается в ячейке. В этом случае необходимо…

Реферат

Подробнее...

Метод отношения предпочтений

Преимущество метода отношения предпочтений заключается в опоре на математический аппарат теории нечетких множеств. Для получения исходных данных, т. е. при определении предпочтительности альтернатив по отдельным критериям, при таком подходе нужно владеть основами теории нечеткости и представлять себе (хотя бы в общих чертах) алгоритм последующей обработки данных. Другой подход, не требующий…

Реферат

Подробнее...

Понятие о классификации двоичных функций

При анализе полное перечисление всех б.ф. и их свойств не под силу современным электронно-вычислительным машинам (ЭВМ) уже при числе переменных п > 5. В связи с этим используется разбиение функций на классы, где внутри классов функции обладают близкими свойствами. Если число классов невелико, то анализ облегчается, ведь по свойствам представителей классов можно судить о свойствах остальных…

Реферат

Подробнее...

Обратная связь в датчиках тонов Короткова

Весьма перспективным представляется использование в датчиках ТК обратной связи. Рис. 6.46. Схемы ДТК с компланарным расположением дополнительного пьезоэлемента: Рис. 6.45. ДТК с компланарным расположением дополнительного пьезоэлемента: Рис. 6.44. Схема датчика с обратной связью и круглым биморфным элементом. Дополнительный электрод; 5 — дополнительный пьезоэлемент; 6 — крышка. Рис. 6.43. Схема…

Реферат

Подробнее...

Описание работы системы

Где s — время запуска, б — константа, зависящая от команды (обычно ½, 1 или 2) и N — длина вектора. Архитектура «память-память» реализована в вычислительных системах Advanced Scientific Computer фирмы Texas Instruments Inc., семействе вычислительных систем фирмы Control Data Corporation, прежде всего Star 100, серии Cyber 200 и ВС типа ЕТА-10. Все эти вычислительные системы появились в середине…

Реферат

Подробнее...

Тестирование и семантическая отладка

Поскольку исчерпывающее функциональное тестирование невозможно, речь может идти о разработки методов, позволяющих подбирать тесты не «вслепую», а с большой вероятностью обнаружения ошибок в программе. При структурном тестировании программа рассматривается как «белый ящик» (т.е. ее текст открыт для пользования). Происходит проверка логики программы. Полным тестированием в этом случае будет такое…

Реферат

Подробнее...

Введение. Современные методы создания сайтов

WWW или просто Web (Word-Wide Webвсемирная паутина). Это самый популярный сервис Сети и удобный способ работы с информацией. Именно за счет WWW Сеть растёт так стремительно. Пользуясь языком гипертекстовых разметок описания, можно составлять гипермедийные документы сайты для их последующей публикации в Сети (под гипермедийным я подразумеваю документ, который может содержать все виды информации…

Реферат

Подробнее...

Введение. Моделирование работы аэропорта и составление расписания взлёта и посадки самолётов

Оптимальным вариантом решения приведенной задачи будет использование имитационного моделирования. Для решения одним из аналитических методов, базирующихся на теории массового обслуживания, ее следует предварительно упростить, что, естественно, скажется на точности и достоверности полученных результатов. Использование языков программирования при решении задачи так же не является оптимальным…

Реферат

Подробнее...

Требования к системе

Для информационного обмена между компонентами системы должна быть организована локальная сеть c архитектурой «клиент-сервер». Эта необходимость обусловлена следующими важными факторами: возможность параллельной обработки информации; возможность совместного использования данных и устройств; оперативный доступ к информации; улучшение процесса обмена информацией и взаимодействия между сотрудниками…

Реферат

Подробнее...

Лабораторная работа: Пользовательские функции

FROM Студенты Из вышепредставленной команды видно, что из таблицы «Студенты» отображаются поля «ФИО» и «Дата рождения», а также вычислимое поле «Возраст». Поле «Возраст» вычисляется при помощи встроенной функцииDateDiff вычисляющей различие между датами в определенных единицах измерения (частях даты) и имеющей следующий синтаксис: Теперь перейдем к созданию табличных пользовательских функций. Для…

Реферат

Подробнее...

1980-е годы. История операционных систем

В 1984 году фирма Apple впервые представила новый 32-разрядный компьютер Macintosh. В дальнейшем выпуск компьютеров этой серии стал основным бизнесом компании. На протяжении двух десятилетий компания выпускала компьютеры Macintosh на базе процессоров Motorola, оснащённые фирменной операционной системой. Эта платформа выпускается только «Apple» — на короткое время в середине 1990;х руководство…

Реферат

Подробнее...

InterBase. Аудит базы данных

В Delphi включена однопользовательская копией Local InterBase. Local InterBase — это версия InterBase, которая работает с локальными базами данных. Также существует версия InterBase для работы с базой данных клиент/сервер. Основная причина, по которой в Delphi внедрена ограниченная версия, заключается в том, приложения, написанные для локальных баз данных, могут быть без значительных изменений…

Реферат

Подробнее...

Численный пример применения L-меры и сравнение L-меры с F-мерой

Из сравнения значений F-меры и L-меры мы видим, что L-мера имеет большие значения. Это обусловлено тем, что при истинных результатах классификации (как идентификации, так и неидентификации), уровень сходства-различия выше, чем при ложных результатах классификации, в классической F-мере это не учитывается. Поэтому если при положительных решениях игнорировать те из из них, которые с уровнем…

Реферат

Подробнее...