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

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.












2