Помощь в написании студенческих работ
Антистрессовый сервис

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

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

В ходе выполнения курсовой работы, были изучены основные функции работы оптового склада. Разработана база данных в среде 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;

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;

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;

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;

Вывод

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

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

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

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

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

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

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

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

ИЛИ