Дипломная работа: Автоматизация договорных отношений мелкооптового склада магазина ИП Шевелевой Е.В. с поставщиками и оптовыми покупателями
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
72
begin
//Form12.ShowModal;
Exit;
end;
If Form4.ComboBox2.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.ComboBox3.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit1.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit3.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit4.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit5.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit6.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit7.Text='' then
73
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit8.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit9.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
If Form4.Edit10.Text='' then
begin
//Form12.ShowModal;
Exit;
end;
{
Form1.Table2.Append;
Form1.Table2.FieldByName('V_pl').AsString:=ComboBox1.Text;
Form1.Table2.FieldByName('Provod').AsString:=ComboBox2.Text;
Form1.Table2.FieldByName('Och_pl').AsString:=ComboBox3.Text;
Form1.Table2.FieldByName('Num').AsString:=Edit1.Text;
Form1.Table2.FieldByName('Data').AsDateTime:=StrToDate(MaskEdit1.Text);
Form1.Table2.FieldByName('Usl').AsString:=Edit2.Text;
Form1.Table2.FieldByName('Summa').AsString:=Edit3.Text;
Form1.Table2.FieldByName('Summa_p').AsString:=Edit4.Text;
Form1.Table2.FieldByName('Inn_plat').AsString:=Edit5.Text;
Form1.Table2.FieldByName('Plat').AsString:=Edit6.Text;
Form1.Table2.FieldByName('Sch_plat').AsString:=Edit7.Text;
Form1.Table2.FieldByName('Bank_plat').AsString:=Edit8.Text;
Form1.Table2.FieldByName('Bik_plat').AsString:=Edit9.Text;
Form1.Table2.FieldByName('Korr_plat').AsString:=Edit10.Text;
Form1.Table2.FieldByName('Bank_pol').AsString:=Edit11.Text;
Form1.Table2.FieldByName('Bik_pol').AsString:=Edit12.Text;
Form1.Table2.FieldByName('Korr_pol').AsString:=Edit13.Text;
Form1.Table2.FieldByName('Pol').AsString:=Edit14.Text;
74
Form1.Table2.FieldByName('Sch_pol').AsString:=Edit15.Text;
Form1.Table2.FieldByName('Inn_pol').AsString:=Edit16.Text;
Form1.Table2.FieldByName('Naz').AsString:=Memo1.Lines[0]+Memo1.Lines[1]+
Memo1.Lines[2];
Form1.Table2.Post;
Form1.Table2.IndexName:='numdat_p';
//}
Form4.Close;
end;
По нажатию кнопки запись запускается подпрограмма регистрации
оплаты в соответствующих таблицах, например, в таблице «договоров» (таблица
№1) производится отметка об оплате, в таблице «Дебиторы и кредиторы»
(таблица №6) изменяется баланс или добавляется новая запись в случае
отсутствия такого контрагента.
По нажатию кнопки отмена будет обеспечено удаление информации
связанной с данным платежным документом.
Работа модуля завершается нажатием кнопки «Отмена» или «Запись»,
или средствами Windows для закрытия окна, например Alt+F4.
Модуль «Расчеты»
Входные данные
Входными данными модуля будет признак типа платежных документов,
которые должны выводиться для просмотра (0- приход; 1 – расход) и таблицы
базы данных содержащие информацию о зарегистрированных в программе
платежных документах.
Выходные данные
Выходными данными являются, данные о зарегистрированных в
программе платежных документах.
Методы решения
Модуль «Расчеты» запускается выбором пункта меню «Расчеты |
Платежное требование» (тип=0) или «Расчеты | Платежное поручение» (тип=1).
75
Рисунок №18. Форма модуля «Расчеты».
В данном модуле будет обеспечен просмотр платежного документа в
зависимости от выбранного пункта меню.
По нажатию кнопки «Добавить» будет вызываться модуль «Платежка»
для ввода данных соответствующих выбранному типу платежного документа.
Работа модуля завершается нажатием кнопки «Выход» или средствами
Windows для закрытия окна, например Alt+F4.
Модуль «Контроль»
Входные данные
Входными данными модуля являются данные о дебиторах и кредиторы а
также о просроченных договорах заключенных с ними. Необходимые данные
будут выбираться из соответствующих таблиц («Договора», «Дебиторы и
кредиторы», «Поставщики», «Покупатели») базы данных по кодам партнеров,
имеющих дебиторскую или кредиторскую задолженность.
76
Выходные данные
Выходными данными является, форма для просмотра перечня дебиторов
и/или кредиторов, а так же просроченных договоров, заключенных с ними.
Методы решения
Модуль «Контроль» будет запускаться выбором пункта меню «Договора
| Контроль» (рисунок №19).
Рисунок №19. Форма модуля «Контроль»
В данном модуле будет обеспечен определение и вывод на экран
дебиторов и кредиторов, а так же просроченных договоров, заключенных с
ними. Расчет начинается по запуску модуля, по завершению расчета результаты
расчета отображаются на форме. По выбору пункта меню «Печать» результаты
расчета могут быть распечатаны.
Работа модуля завершается выбором пункта меню «Выход», или
нажатием кнопки «Выход», или средствами Windows для закрытия окна,
например Alt+F4.
Источник: https://baza.diplomsite.ru/previewfile/1703