– обработка заказов;
– выдача на печать.
Отдела снабжения:
– подача заявки на новый заказ поставщику;
– организацию полного и достоверного учета всех товаров и комплектующих;
– устранение дублирования при вводе информации и, возникающих при этом механических ошибок;
– выдача на печать.
По предметной области составлена информационная модель по средствами языка проектирования c использованием AllFusionProcessModelerr7.
Система реализована средствами системы разработки ПО Delphi2009, платформа MicrosoftWindowsXPProfessionalServicePack 3 v2002, Pentium 4, AMDAthlon (tm) 64 X2 DualCoreProcessor 4800+, 2.51ГГц, 2.00Гб ОЗУ.
Литература
1. Калянов Г.Н. CASE: структурный системный анализ (автоматизация и применение) М.: ЛОРИ, 1996.
2. Калянов Г.Н. Теория и практика реорганизации бизнес-процессов М.: СИНТЕГ, 2000.
3. Баронов В.В., Калянов Г.Н., Попов Ю.И., Рыбников А.И., Титовский И.Н. Автоматизация управления предприятием М.: ИНФРА-М, 2000.
4. А.Я. Архангельский. Программирование в Delphi 7.
5. Delphi 7. Учебный курс. Бобровский С.И. СПб.: Питер. 2004
6. Delphi УЧИМСЯ НА ПРИМЕРАХ. Парижский С. М. "МК-Пресс". 2005
Приложение№1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, StdCtrls, Buttons, jpeg;
type
TGlavnaya = class(TForm)
Panel1: TPanel;
MainMenu1: TMainMenu;
Tables: TMenuItem;
dogovor: TMenuItem;
klient: TMenuItem;
postavshik: TMenuItem;
zakaz_postavshiku: TMenuItem;
TV: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N1: TMenuItem;
BitBtn1: TBitBtn;
N8: TMenuItem;
N50001: TMenuItem;
N9: TMenuItem;
BitBtn2: TBitBtn;
N2: TMenuItem;
N3: TMenuItem;
Dsjl1: TMenuItem;
N4: TMenuItem;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Image1: TImage;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit3: TEdit;
ComboBox1: TComboBox;
procedure dogovorClick(Sender: TObject);
procedure zakaz_postavshikuClick(Sender: TObject);
procedure TVClick(Sender: TObject);
procedure postavshikClick(Sender: TObject);
procedure klientClick(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N50001Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Dsjl1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Glavnaya: TGlavnaya;
implementation
uses DMSaleUnit, fmDogovorUnit, fmKlientUnit, fmPostavshikUnit,
fmZakaz_postavUnit, fmTV_i_komplekUnit, fmZakl_dogovoraUnit,
fmZakl_zakazi_s_postUnit, fmRashodiTovaraUnit, fmQuery2Unit, fmAvtorUnit,
fmQuery1Unit, fmSchet_FacturaUnit, fmFNakladnayaUnit, fmOtchet_o_tovarahUnit;
{$R *.dfm}
procedure TGlavnaya.BitBtn1Click(Sender: TObject);
begin
DM.Dogovor.Close;
DM.Klient.Close;
DM.Postavshik.Close;
DM.TV_i_komplekt.Close;
DM.Zakaz_postav.Close;
end;
procedure TGlavnaya.BitBtn2Click(Sender: TObject);
begin
if Edit1.Text='1' then
begin
Glavnaya.Label1.Visible:=false;
Glavnaya.Label2.Visible:=false;
Glavnaya.Label3.Visible:=false;
Glavnaya.Edit1.Visible:=false;
Glavnaya.Label4.Visible:=true;
Glavnaya.Label5.Visible:=true;
Glavnaya.Label6.Visible:=true;
Glavnaya.ComboBox1.Visible:=true;
Glavnaya.Edit3.Visible:=true;
if (ComboBox1.ItemIndex=0) and (Edit3.Text='0000') then
begin
Glavnaya.Panel2.Visible:=false;
Glavnaya.Tables.Visible:=true;
Glavnaya.N10.Visible:=true;
Glavnaya.N12.Visible:=true;
Glavnaya.N13.Visible:=true;
Glavnaya.N17.Visible:=true;
Glavnaya.N4.Visible:=false;
Glavnaya.postavshik.Visible:=false;
Glavnaya.zakaz_postavshiku.Visible:=false;
Glavnaya.N1.Visible:=false;
Glavnaya.N8.Visible:=false;
Glavnaya.N50001.Visible:=false;
Glavnaya.N14.Visible:=false;
Glavnaya.Caption:='Отдел продаж ЗАО "Рекорд"';
end;
if (ComboBox1.ItemIndex=0) and (Edit3.Text<>'0000') then
begin
MessageBoxA(0,'Неверно введен пароль!', 'Ошибка авторизации',0);
Edit3.Text:='';
end;
ComboBox1.ItemIndex:=0;
end;
if Edit1.Text='2' then
begin
Glavnaya.Label1.Visible:=false;
Glavnaya.Label2.Visible:=false;
Glavnaya.Label3.Visible:=false;
Glavnaya.Edit1.Visible:=false;
Glavnaya.Label4.Visible:=true;
Glavnaya.Label5.Visible:=true;
Glavnaya.Label6.Visible:=true;
Glavnaya.ComboBox1.Visible:=true;
Glavnaya.Edit3.Visible:=true;
if (ComboBox1.ItemIndex=1) and (Edit3.Text='1111') then
begin
Glavnaya.Panel2.Visible:=false;
Glavnaya.Tables.Visible:=true;
Glavnaya.N10.Visible:=true;
Glavnaya.N12.Visible:=true;
Glavnaya.N13.Visible:=true;
Glavnaya.N17.Visible:=true;
Glavnaya.dogovor.Visible:=false;
Glavnaya.klient.Visible:=false;
Glavnaya.N2.Visible:=false;
Glavnaya.N11.Visible:=false;
Glavnaya.N9.Visible:=false;
Glavnaya.N15.Visible:=false;
Glavnaya.Caption:='Отдел снабжения ЗАО "Рекорд"';
end;
if (ComboBox1.ItemIndex=1) and (Edit3.Text<>'1111') then
begin
MessageBoxA(0,'Неверно введен пароль!', 'Ошибка авторизации',0);
Edit3.Text:='';
end;
ComboBox1.ItemIndex:=1;
end;
if (Edit1.Text <> '1') and (Edit1.Text <> '2') then
begin
MessageBoxA(0, 'Введите 1 или 2 без пробелов!!!', 'Ошибка!!!', 0);
edit1.Text:='';
end;
end;
procedure TGlavnaya.N11Click(Sender: TObject);
begin
FZakl_dogovora.ShowModal;
end;
procedure TGlavnaya.N14Click(Sender: TObject);
begin
FSchet_Factura.ShowModal;
end;
procedure TGlavnaya.N15Click(Sender: TObject);
begin
FNakladnaya.ShowModal;
end;
procedure TGlavnaya.N16Click(Sender: TObject);
begin
//FOtchet_o_tovarah.ShowModal;
end;
procedure TGlavnaya.N18Click(Sender: TObject);
begin
FAvtor.ShowModal;
end;
procedure TGlavnaya.N1Click(Sender: TObject);
begin
FZaklDogovora_s_postav.ShowModal;
end;
procedure TGlavnaya.dogovorClick(Sender: TObject);
begin
FDogovor.ShowModal;
end;
procedure TGlavnaya.Dsjl1Click(Sender: TObject);
begin
Close;
end;
procedure TGlavnaya.klientClick(Sender: TObject);
begin
FKlient.ShowModal;
end;
procedure TGlavnaya.N50001Click(Sender: TObject);
begin
FZapros1.ShowModal;
end;
procedure TGlavnaya.postavshikClick(Sender: TObject);
begin
FPostavshiki.ShowModal;
end;
procedure TGlavnaya.zakaz_postavshikuClick(Sender: TObject);
begin
FZakaz_postav.ShowModal;
end;
procedure TGlavnaya.TVClick(Sender: TObject);
begin
FTV_i_komplek.ShowModal;
end;
procedure TGlavnaya.N8Click(Sender: TObject);
begin
FRashodiTovara.ShowModal;
end;
procedure TGlavnaya.N9Click(Sender: TObject);
begin
FKol_Klientov.ShowModal;
end;
end.
Форма 1. Техническое задание
| Заказчик | |
| Телефон | |
| Характеристики | |
| 1 | Диагональ экрана |
| 2 | Яркость экрана |
| 3 | Чувствительность приемника (тюнера) |
| 4 | Возможность работы в нескольких стандартах (многостандартность) |
| 5 | Наличие дистанционного управления |
| 6 | Возможность работы в качестве монитора |
| 7 | Количество работающих людей |
Исполнитель _________________________________________________
Телефон ____________________________________________________
Дата ______________________
Форма 2. Технико-коммерческое предложение
Исх. № ____ “ ” _____200_ г.
Уважаемый
На ваш запрос от «______» ________ 20___ г. по подбору телевизионной (ых) установки(ок) для _______________________________
1. Исходные данные
| Размеры телевизора |
| Вид продукции |
| Количество продукции |
| Количество запоминаемых программ в памяти |
| Количество звуковых каналов (моно, стерео (NICAM), квадро) |
| Наличие дополнительных цифровых функций (PIP, 100 Гц), так же прием телетекста |
| Наличие блока для цифрового телевидения |
2. Для обеспечения требуемых исходных данных предлагается следующее телевизионное оборудование:
Вариант №
| Наименование | Модель | Фирма | Кол-во | Цена | Итого |
Всего:
Стоимость указана с учетом НДС. Срок поставки оборудования на склад в г. Омске – по согласованию сторон. Оплата – перечислением, предоплата – 100 %. Оплата осуществляется в рублях РФ. Цены выражены в условных единицах. Для расчета за одну условную единицу принимается рублевый эквивалент 1 доллара США по официальному обменному курсу, установленному ЦБ РФ на день перечисления средств. В случае, если с момента перечисления средств до момента получения их продавцом, обменный курс возрастет более чем на 50 пунктов, курсовая разница оплачивается покупателем дополнительно. Стоимость монтажных составит 10 % от стоимости телевизионного оборудования.
Директор_______________________
Форма 3. Договор поставки
ДОГОВОР ПОСТАВКИ
ЗАО "Рекорд", именуемое в дальнейшем «Продавец», в лице _________________________ действующего на основании Устава, с одной стороны и ___________________________________, именуемое в дальнейшем «Покупатель», в лице ____________________________________________, действующего на основании Устава, с другой стороны, заключили настоящий Договор о нижеследующем:
1. Предмет договора
1.1. Продавец, обязуется поставить и передать в собственность Покупателю товар, а Покупатель обязуется принять и оплатить его стоимость.
1.2. Наименование и стоимость товара согласно приложенному счету.
1.3. Условие поставки: _________________________ с момента поступления на счет Продавца предоплаты от Покупателя в размере _____ %.
2. Порядок расчетов и платежей
2.1. Покупатель производит Продавцу предоплату, согласно счету.
2.2. Окончательный расчет осуществляется переводом денег Покупателем на расчетный счет Продавца в течение 3-х банковских дней с момента поступления товара на склад Продавца.
2.3. Место передачи товара - склад Покупателя. Расходы, связанные с доставкой товара до склада Покупателя (транспортные, погрузочно-разгрузочные и иные), относятся на счет Продавца.
2.4. Передача товара оформляется накладной и счетом-фактурой. Передачей признается вручение товара Покупателю.
2.5. С этого момента собственником товара становится Покупатель.
3. Ответственность сторон
3.1. При нарушении Продавцом сроков поставки (пункт 1.3) Продавец выплачивает Покупателю пеню 0,1 % от суммы предоплаты за каждый день просрочки.
3.2. При нарушении Покупателем сроков оплаты (пункт 2.2) Покупатель выплачивает Продавцу пеню 0,1 % от суммы окончательного расчета за каждый день просрочки.
3.3. Если переданный товар не соответствует сертификату, предоставленному Продавцом, последний заменяет товар на качественный в течение 20 календарных дней.
4. Прочие условия
4.1. Все споры и разногласия, возникшие между сторонами по настоящему договору, решаются путем переговоров, переписки. При недостижении договоренности спор подлежит рассмотрению в Арбитражном Суде г. Омска.
5. Срок действия договора
5.1. Договор вступает в силу с момента подписания и действует до «_____» _______________ 20 ___ г.
5.2. Вносимые изменения и дополнения рассматриваются сторонами в недельный срок и оформляются дополнительным соглашением.