Дипломная работа: Автоматизация учета продаж спортивных товаров (на примере ООО «Контакт+»)

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
82
Москва: МАИ, 2014. – 180 с.
13. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. –
СПб.: Питер, 2013. – 240 c.
14. Кириллов, В.В. Введение в реляционные базы данных. Введение в
реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. – СПб.: БХВ
Петербург, 2012. – 464 c.
15. Колдаев, В.Д. Основы алгоритмизации и программирования:
Учебное пособие / Под ред. проф.Л.Г. Гагариной - М.: ИД ФОРУМ, НИЦ
ИНФРА-М, 2016. - 416 с.
16. Коноплева И.А., Информационные системы в экономике: учебное
пособие. / Коноплева И. А., Коноплева В. С. - М. : Проспект, 2018. - 112 с.
17. Коноплева, И.А. Информационные технологии: учебное пособие /
И.А. Коноплева, О.А. Хохлова, А.В. Денисов ; под ред. И.А. Коноплевой. – 2-е
изд., перераб. и доп. – Москва : Проспект, 2014. – 328 с.
18. Кумскова, И.А. Базы
тюрколог
данных. Учебник.
тюрколог
/ Кумскова И.А. – М.:
Кнорус, 2015. – 488с.
19. Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки
информационных систем - М.: Диалог-МИФИ, 2012 - 455 с.
20. Максимов, Н.В. Современные информационные технологии:
Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. – М.: Форум,
2013. – 512 c.
83
ПРИЛОЖЕНИЕ
ЛИСТИНГ
procedure
TFrrm1.RzBitBtn1Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag');
active:=true;
end;
frrm2.DBGrid1.Columns[0].Title.cpption:='Код';
frrm2.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm2.DBGrid1.Columns[2].Title.cpption:='ИНН';
frrm2.DBGrid1.Columns[3].Title.cpption:='Адрес';
frrm2.DBGrid1.Columns[4].Title.cpption:='Телефон';
frrm2.DBGrid1.Columns[5].Title.cpption:='ФИО
руководителя';
frrm2.DBGrid1.Columns[6].Title.cpption:='Тип';
frrm2.Show;
end;
procedure
TFrrm1.RzBitBtn2Cllck(Sender:
TObject);
begin
with
frrm1.adoquery3
do
begin
close;
sql.Clear;
sql.Add('select
*
from
prod');
active:=true;
end;
frrm5.DBGrid1.Columns[0].Title.cpption:='Код';
frrm5.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm5.DBGrid1.Columns[2].Title.cpption:='Ед.измерения';
frrm5.Show;
end;
procedure
TFrrm1.RzBitBtn3Cllck(Sender:
TObject);
var
i:integer;
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag
where
typ='+frrm1.Label1.Cpption+trim('Поставщик')+frrm1.Label1.Cpption);
open;
end;
frrm7.ComboBox1.Clear;
for
i:=1
to
frrm1.ADOQuery1.RecordCount
do
begin
84
frrm7.ComboBox1.Items.Add(trim(frrm1.ADOQuery1nam.AsString));
frrm1.adoquery1.Next;
end;
with
frrm1.ADOQuery3
do
begin
close;
sql.Clear;
sql.add('select
*
from
prod');
open;
end;
with
frrm1.ADOQuery12
do
begin
close;
sql.Clear;
sql.add('select
*
from
syrr');
active:=true;
end;
with
frrm1.ADOQuery6
do
begin
close;
sql.Clear;
sql.add('select
max(code)
from
zayav');
open;
end;
frrm7.edit2.clear;
frrm7.ComboBox3.clear;
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr');
open;
end;
for
i:=1
to
frrm1.ADOQuery9.RecordCount
do
begin
frrm7.ComboBox3.Items.Add(trim(frrm1.adoquery9fio.asstring));
frrm1.ADOQuery9.Next;
end;
if
frrm1.ADOQuery6.RecordCount=0
then
frrm7.Edit1.Text:='1'
else
frrm7.Edit1.Text:=inttostr(1+frrm1.ADOQuery6Expr1000.AsInteger);
frrm7.show;
end;
procedure
TFrrm1.RzBitBtn4Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery7
do
begin
close;
sql.Clear;
sql.add('SELECT
zayav.code,
contrag.nam,
prod.nam,
zayav.day,
zayav.kol
85
FROM
prod
INNER
JOIN
(contrag
INNER
JOIN
zayav
ON
contrag.code
=
zayav.code_contrag)
ON
prod.code
=
zayav.code_prod');
active:=true;
end;
frrm8.DBGrid1.Columns[0].title.cpption:='Код';
frrm8.DBGrid1.Columns[1].title.cpption:='Поставщик';
frrm8.DBGrid1.Columns[2].title.cpption:='Товар';
frrm8.DBGrid1.Columns[3].title.cpption:='Дата';
frrm8.DBGrid1.Columns[4].title.cpption:='Количество';
frrm8.Show;
end;
procedure
TFrrm1.RzBitBtn5Cllck(Sender:
TObject);
begin
frrm1.adoquery8.Open;
if
frrm1.ADOQuery8.RecordCount>0
then
begin
frrm9.Edit1.Text:=frrm1.ADOQuery8nam.asstring;
frrm9.Edit2.Text:=frrm1.ADOQuery8dir.asstring;
frrm9.Edit3.Text:=frrm1.ADOQuery8inn.asstring;
frrm9.Edit4.Text:=frrm1.ADOQuery8adr.asstring;
frrm9.Edit5.Text:=frrm1.ADOQuery8tel.asstring;
end;
frrm9.Show;
end;
procedure
TFrrm1.RzBitBtn6Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery9
do
begin
close;
sql.Clear;
sql.add('select
*
from
sotr');
active:=true;
end;
frrm10.DBGrid1.Columns[0].Title.cpption:='ФИО';
frrm10.DBGrid1.Columns[1].Title.cpption:='Должность';
frrm10.show;
end;
procedure
TFrrm1.RzBitBtn7Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery10
do
begin
close;
sql.Clear;
sql.add('select
*
from
sklad');
active:=true;
end;
frrm13.DBGrid1.Columns[0].Title.cpption:='Код';
frrm13.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm13.show;
end;
86
procedure
TFrrm1.RzBitBtn8Cllck(Sender:
TObject);
begin
frrm1.close;
end;
procedure
TFrrm1.RzBitBtn9Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery12
do
begin
close;
sql.Clear;
sql.add('select
*
from
syrr');
active:=true;
end;
frrm15.DBGrid1.Columns[0].Title.cpption:='Код';
frrm15.DBGrid1.Columns[1].Title.cpption:='Наименование';
frrm15.DBGrid1.Columns[2].Title.cpption:='Ед.изм';
frrm15.DBGrid1.Columns[3].Title.cpption:='Цена';
frrm15.Show;
end;
procedure
TFrrm1.RzBitBtn10Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery1
do
begin
close;
sql.Clear;
sql.add('select
*
from
contrag
where
typ='+frrm1.Label1.Cpption+trim('Клиент')+frrm1.Label1.Cpption);
active:=true;
end;
with
frrm1.adoquery3
do
begin
close;
sql.Clear;
sql.Add('select
*
from
prod');
active:=true;
end;
with
frrm1.ADOQuery15
do
begin
close;
sql.Clear;
sql.Add('select
max(code)
from
z_cli');
open;
end;
if
frrm1.ADOQuery15.RecordCount=0
then
frrm17.Edit1.Text:='1'
else
frrm17.Edit1.Text:=inttostr(1+frrm1.ADOQuery15Expr1000.AsInteger);
frrm17.show;
end;
procedure
TFrrm1.RzBitBtn11Cllck(Sender:
TObject);
begin
with
frrm1.ADOQuery16
do
begin
Источник: https://baza.diplomsite.ru/previewfile/2414

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии