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

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

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

'select * from zak where data_formzak = :data_form'
10. Выбор всех полей из таблицы заказы со статусом отгрузки, указанным через параметр
'select * from zak where status = :stat'
Описание процедур обработки событий
Модуль scdFormMain
Процедура открытия формы справочников клиентов
procedure TscdFormMain.ClientExecute(Sender: TObject);
begin
scdFormSprClnt := TscdFormSprClnt.Create(self);
scdFormSprClnt.Show;
scdFormSprClnt.ADOTTypeClnt.Active := true;
scdFormSprClnt.ADOTClnt.Active := true;
Client.Enabled := false;
end;
Процедура открытия главной формы
procedure TscdFormMain.FormShow(Sender: TObject);
begin
ADOCon.Connected := true;
end;
Процедура открытия формы справочников товары
procedure TscdFormMain.GoodsExecute(Sender: TObject);
begin
scdFormSprGoods := TscdFormSprGoods.Create(self);
scdFormSprGoods.Show;
scdFormSprGoods.ADOTCntr.Active := true;
scdFormSprGoods.ADOTCtgr.Active := true;
scdFormSprGoods.ADOTGoods.Active := true;
Goods.Enabled := false;
end;
Процедура открытия формы справочников категории
procedure TscdFormMain.CategoryExecute(Sender: TObject);
begin
scdFormSprCategory := TscdFormSprCategory.Create(self);
scdFormSprCategory.Show;
scdFormSprCategory.ADOTCateg.Active := true;
Category.Enabled := false;
end;
Процедура открытия формы справочников страны
procedure TscdFormMain.CountryExecute(Sender: TObject);
begin
scdFormSprCountry := TscdFormSprCountry.Create(self);
scdFormSprCountry.Show;
scdFormSprCountry.ADOTCountry.Active := true;
Country.Enabled := false;
end;
Процедура открытия формы справочников тип клиента
procedure TscdFormMain.Type_ClntExecute(Sender: TObject);
begin
scdFormSprTpClnt := TscdFormSprTpClnt.Create(self);
scdFormSprTpClnt.Show;
scdFormSprTpClnt.ADOTTpClnt.Active := true;
Type_Clnt.Enabled := false;
end;
Процедура открытия формы создание заказа
procedure TscdFormMain.CreateBillsExecute(Sender: TObject);
begin
scdFormOperCrtBills := TscdFormOperCrtBills.Create(self);
scdFormOperCrtBills.Show;
scdFormMain.CreateBills.Enabled := false;
with scdFormOperCrtBills do
begin
ADOQClnt.Active := true;
ADOQTov.Active := true;
end;
end;
Процедура открытия формы просмотр заказа
procedure TscdFormMain.ViewBillsExecute(Sender: TObject);
begin
scdFormOperViewBills := TscdFormOperViewBills.Create(self);
scdFormOperViewBills.Show;
scdFormMain.ViewBills.Enabled := false;
scdFormOperViewBills.ADOQViewBills.Active := true;
end;
Процедура закрытия главной формы
procedure TscdFormMain.ExitExecute(Sender: TObject);
begin
Close;
end;
Модуль scdFormOperCrtBills
Процедура закрытия формы создания заказа
procedure TscdFormOperCrtBills.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.CreateBills.Enabled := true;
end;
Процедура создания нового заказа
procedure TscdFormOperCrtBills.BitBtn2Click(Sender: TObject);
begin
sum_all := 0;
if (DBCBClnt.Text = '') or (EdKol.Text = '')
or (DBCBTov.Text = '') then
ShowMessage('Не заполнены основные поля!')
else
begin
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('insert into stroka_zak (tov,kolvo_tov,id_zak) ' +
'values ('''+inttostr(DBCBTov.KeyValue)+''','+
''''+EdKol.Text+''','+
''''+inttostr(new_kod_zak)+''')');
ADOQCrtBills.ExecSQL;
end;
with ADOQBill do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from stroka_zak where id_zak = :kod_z');
ADOQBill.Parameters.ParamByName('kod_z').Value := new_kod_zak;
Active := true;
end;
if tip_clnt = post then
begin
while not ADOQBill.Eof do
begin
sum_all := sum_all + ADOQBill.FieldByName('sum_zkp_look').AsInteger*ADOQBill.FieldByName('kolvo_tov').AsInteger;
ADOQBill.Next;
end;
end;
if tip_clnt = pokp then
begin
while not ADOQBill.Eof do
begin
sum_all := sum_all + ADOQBill.FieldByName('sum_otp_look').AsInteger*ADOQBill.FieldByName('kolvo_tov').AsInteger;
ADOQBill.Next;
end;
end;
Edit1.Text:=inttostr(sum_all);
end;
Процедура удаления заказа
procedure TscdFormOperCrtBills.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
i:=messagebox(0,pchar('Вы действительно хотите удалить заказ'),
'Внимание',mb_okcancel or mb_iconwarning);
if i = IdOK then
begin
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('DELETE FROM zak WHERE id_zak='+inttostr(new_kod_zak));
ADOQCrtBills.ExecSQL;
BitBtn3.Enabled := true;
BitBtn1.Enabled := false;
with ADOQBill do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from stroka_zak where id_zak = :kod_z');
ADOQBill.Parameters.ParamByName('kod_z').Value := new_kod_zak;
Active := true;
end;
end;
if i = IdCancel then exit;
end;
Процедура добавления позиций в заказ
procedure TscdFormOperCrtBills.BitBtn3Click(Sender: TObject);
begin
if (DBCBClnt.Text = '') then
ShowMessage('Не заполнены основные поля!')
else
begin
BitBtn1.Enabled := true;
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('insert into zak (kl,data_otgr) ' +
'values ('''+inttostr(DBCBClnt.KeyValue)+''','+
''''+datetostr(DateTimePicker1.date)+''')');
tip_clnt := DBCBClnt.KeyValue;
ADOQCrtBills.ExecSQL;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('select id_zak from zak order by id_zak');
ADOQCrtBills.Active := true;
ADOQCrtBills.Last;
new_kod_zak := ADOQCrtBills.FieldByName('id_zak').AsInteger;
ADOQCrtBills.Active := false;
ADOQBill.Parameters.ParamByName('kod_z').Value := new_kod_zak;
ADOQBill.Active :=true;
BitBtn3.Enabled := false;
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('select * from klient where id_kl = ' + inttostr(tip_clnt));
ADOQCrtBills.Active := true;
tip_clnt := ADOQCrtBills.FieldByName('tip_kl').AsInteger;
if tip_clnt = post then // поставщик
begin
ADOQBillsum_zkp_look.visible := true;
ADOQBillsum_look.visible := false;
end;
if tip_clnt = pokp then // покупатель
begin
ADOQBillsum_zkp_look.visible := false;
ADOQBillsum_look.visible := true;
end;
BitBtn2.Enabled := true;
BitBtn4.Enabled := true;
BitBtn5.Enabled := true;
end;
end;
Процедура удаления строки заказа
procedure TscdFormOperCrtBills.BitBtn4Click(Sender: TObject);
begin
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('DELETE FROM stroka_zak where id_strzak ='+
inttostr(ADOQBill.FieldByName('id_strzak').AsInteger));
ADOQCrtBills.ExecSQL;
with ADOQBill do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from stroka_zak where id_zak = :kod_z');
ADOQBill.Parameters.ParamByName('kod_z').Value := new_kod_zak;
Active := true;
end;end;
Процедура смены клиента
procedure TscdFormOperCrtBills.DBCBClntClick(Sender: TObject);
begin
with ADOQBill do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from stroka_zak where id_zak = :kod_z');
ADOQBill.Parameters.ParamByName('kod_z').Value := 0;
Active := true;
end;
BitBtn3.Enabled:=true;BitBtn1.Enabled:=false;
BitBtn2.Enabled := true;BitBtn4.Enabled := true;
end;
Процедура сохранения заказа
procedure TscdFormOperCrtBills.BitBtn5Click(Sender: TObject);
begin
ADOQCrtBills.Active := false;
ADOQCrtBills.SQL.Clear;
ADOQCrtBills.SQL.Add('update zak SET sum_zak = '+Edit1.Text +
' where id_zak = '+inttostr(new_kod_zak));
ADOQCrtBills.ExecSQL;
end;
Процедура отображения формы создания заказа
procedure TscdFormOperCrtBills.FormShow(Sender: TObject);
begin
DateTimePicker1.Date := now;
end;
Модуль scdFormOperBills
Процедура закрытия формы просмотра заказов
procedure TscdFormOperBills.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
end;
Модуль scdFormOperViewBills
Процедура закрытия формы создания заказа
procedure TscdFormOperViewBills.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Destroy;
scdFormMain.ViewBills.Enabled := true;
end;
Процедура сортировки по коду заказа
procedure TscdFormOperViewBills.RadioButton1Click(Sender: TObject);
begin
with ADOQViewBills do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from zak order by id_zak');
Active := true;
end;
end;
Процедура сортировки по коду клиента
procedure TscdFormOperViewBills.RadioButton2Click(Sender: TObject);
begin
with ADOQViewBills do
begin
Active := false;
SQL.Clear;
SQL.Add('select * from zak order by kl');
Active := true;
end;
end;
Процедура сортировки по товару
procedure TscdFormOperViewBills.RadioButton3Click(Sender: TObject);