Курсовая работа: Разработка АРМ специалиста отдела продаж и специалиста отдела снабжения
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.
Приложение №2
Основные документы, поступающие в ЗАО «Рекорд» и формируемые в нем, представлены в формах 1 - 6.
Форма 1. Техническое задание
Техническое задание на подбор оборудования для телевизионных приемников
| Заказчик | |
| Телефон | |
| Характеристики | |
| 1 | Диагональ экрана |
| 2 | Яркость экрана |
| 3 | Чувствительность приемника (тюнера) |
| 4 | Возможность работы в нескольких стандартах (многостандартность) |
| 5 | Наличие дистанционного управления |
| 6 | Возможность работы в качестве монитора |
| 7 | Количество работающих людей |
Исполнитель _________________________________________________
Телефон ____________________________________________________
Дата ______________________
Форма 2. Технико-коммерческое предложение
Исх. № ____ “ ” _____200_ г.
Уважаемый
На ваш запрос от «______» ________ 20___ г. по подбору телевизионной (ых) установки(ок) для _______________________________
1. Исходные данные
Размеры телевизора |
|
| Вид продукции | |
| Количество продукции | |
| Количество запоминаемых программ в памяти | |
| Количество звуковых каналов (моно, стерео (NICAM), квадро) | |
| Наличие дополнительных цифровых функций (PIP, 100 Гц), так же прием телетекста | |
| Наличие блока для цифрового телевидения |
2. Для обеспечения требуемых исходных данных предлагается следующее телевизионное оборудование:
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
