Интерактивный справочник по Сбербанку - Отчет по практике

бесплатно 0
4.5 71
Организационная структура ПАО "Сбербанк России". Обязанности инженерно-технических работников. Обеспечение автоматизированных систем предприятия, состав программного обеспечения. Разработка автоматизированной системы "Сбербанк онлайн", ее плюсы и минусы.

Скачать работу Скачать уникальную работу

Чтобы скачать работу, Вы должны пройти проверку:


Аннотация к работе
2)обсуждают отчеты руководителей подразделений центрального аппарата банка и руководителей территориальных банков об итогах деятельности за соответствующие периоды; Руководитель ВСП выполняет следующие обязанности: Организует работу с персоналом в ВСП: 1)Участвует в укомплектовании, подборе и расстановке штата ВСП; Организует эффективные продажи банковских продуктов и услуг, качественное обслуживание клиентов: 1)Осуществляет мероприятия по привлечению потенциальных клиентов на обслуживание в ВСП: - проведение мероприятий рекламно-презентационного характера; 2)Организует работу, в том числе с обращениями клиентов, и осуществляет контроль за своевременным и качественным обслуживанием клиентов ВСП; Организует работу ВСП в соответствии с требованиями Банка России и внутренними требованиями Банка: 1)Организует/осуществляет контроль за соблюдением сотрудниками ВСП установленного порядка совершения банковских операций;.

Список литературы
- Form 3: Memo1

- Form 4: Image1

- Form 5: Image1

- Код программы: структура программы, комментарии:

- Form 1: procedure TFORM1.SPEEDBUTTON1Click(Sender: TOBJECT);

begin

Form2.Visible:=True;//При нажатие на кнопку включается видимость Form2

Form1.Hide; //Скрыть Form 1 end;

procedure TFORM1.Edit1Change(Sender: TOBJECT);

begin if Edit1.Text="6789" then//Если пароль верный, то begin

SPEEDBUTTON1.Enabled:=True;//выведет изображение кнопки end;

end;

procedure TFORM1.FORMCREATE(Sender: TOBJECT);

begin

Form1.Close; //Закрытие Form 1

SPEEDBUTTON1.Enabled:=False;//изображение кнопки исчезает end;

procedure TFORM1.Image2Click(Sender: TOBJECT);

begin

Close;//выход из программы end;

end.

- Form 2: procedure TFORM2.N3Click(Sender: TOBJECT);

begin

Messagedlg ("Чусова Кристина Павловна, 2016 год",mtinformation, [mbok],0);//будет выводится окно с данной информацией, [mbok]-кнопка «ОК» будет отображаться в данном окне end;

procedure TFORM2.Image5Click(Sender: TOBJECT);

begin

Close;//выход из программы end;

procedure TFORM2.Image2Click(Sender: TOBJECT);

begin

Form2.Hide;//Скрыть Form 2

Form3.Show;//Открыть Form3

Form3.Memo1.Lines.LOADFROMFILE("About the company.txt");//выполняет загрузку файла из данного документа end;

procedure TFORM2.Image3Click(Sender: TOBJECT);

begin

Form2.Hide; //Скрыть Form 2

Form3.Show; //Открыть Form3

Form3.Memo1.Lines.LOADFROMFILE("Compute on the enterprise.txt");//выполняет загрузку файла из данного документа end;

procedure TFORM2.Image4Click(Sender: TOBJECT);

begin

Form2.Hide; //Скрыть Form 2

Form3.Show; //Открыть Form3

Form3.Memo1.Lines.LOADFROMFILE("Types of software AS.txt"); //выполняет загрузку файла из данного документа end;

procedure TFORM2.Image7Click(Sender: TOBJECT);

begin

Form2.Hide; //Скрыть Form 2

Form4.Show; //Открыть Form4 end;

procedure TFORM2.N2Click(Sender: TOBJECT);

begin

SHELLEXECUTE(application.MAINFORM.Handle,PCHAR("open"),PCHAR("Report.docx"),Nil,PCHAR("Source"),SW_SHOWNORMAL);//функция открывает документ, с учетом записанного типа, а так же открывает указанную папку проводником end;

procedure TFORM2.Image6Click(Sender: TOBJECT);

begin

Form2.Hide; //Скрыть Form 2

Form5.Show; //Открыть Form5 end;

end.

- Form 3: procedure TFORM3.SPEEDBUTTON1Click(Sender: TOBJECT);

begin

Form2.Show; //Открыть Form2

Form3.Hide; //Скрыть Form 3 end;

procedure TFORM3.Image2Click(Sender: TOBJECT);

begin

Form3.Hide; //Скрыть Form 3

Form2.Show; //Открыть Form2 end;

end.

- Form 4: var

Form4: TFORM4;

jpg: array[1..16]of tjpegimage;//массив для перелистывания изображений от 1 до 16 var i:integer=1;

implementation uses Unit2;

{$R *.dfm} procedure TFORM4.SPEEDBUTTON1Click(Sender: TOBJECT);

begin

Form2.Show; //Открыть Form2

Form4.Hide; //Скрыть Form 4 end;

procedure TFORM4.Image3Click(Sender: TOBJECT);

begin

Image1.Canvas.Draw(0,0,jpg[1]);//происходит обновление Canvas, изменение изображений image2.Visible:=true;//кнопка для смены картинок image4.Visible:=true;//кнопка для смены картинок image1.Visible:=true;//выводятся изображения в данный компонент end;

procedure TFORM4.Image2Click(Sender: TOBJECT);

begin if i=1 then i:=16//позволяет определить выполняется ли следующие условие else i:=i-1;//иначе изображение перелистывается на одно изображение назад

Image1.Canvas.Draw(0,0,jpg[i]); ]);//происходит обновление Canvas, изменение изображений end;

procedure TFORM4.Image4Click(Sender: TOBJECT);

begin if i=16 then i:=1 else i:=i 1; //иначе изображение перелистывается на одно изображение вперед

Image1.Canvas.Draw(0,0,jpg[i]);

end;

procedure TFORM4.FORMCREATE(Sender: TOBJECT);

var i,a: integer;

begin for i:=1 to 16 do//цикл от 1 до 16 begin jpg[i]:=tjpegimage.Create;//экземпляр объекта присваиваем ему изображение jpg[i].LOADFROMFILE("CREDITCARD/" inttostr(i) ".jpg");//загружает изображение с папки CREDITCARD с расширением .jpg end;

end;

procedure TFORM4.Image6Click(Sender: TOBJECT);

begin form4.Hide; //Скрыть Form 4 form2.Show; //Открыть Form2 image1.Visible := false;//становится не видимым image4.Visible := false;//становится не видимым image2.Visible := false;//становится не видимым end;

end.

- Form 5: procedure TFORM5.Image3Click(Sender: TOBJECT);

begin form5.Hide; //Скрыть Form 5 form2.Show; //Открыть Form2 image2.Visible := false;//становится не видимым end;

end.

- Тестирование программы

Тестирование применяется для определения соответствия предмета испытания заданным спецификациям. В задачи тестирования не входит определение причин несоответствия заданным требованиям.

При запуске программы выводится главная форма, на котором находится 1 кнопка: После ввода правильного пароля в пустое окно-Edit1, появится 2 кнопка: «Вход», которая была скрыта.

При нажатие на кнопку «Вход», откроется главное меню с 6 кнопками и меню в углу состоящие из 3 пунктов: Кнопки: «О предприятии», «Вычислительная техника предприятия», «Виды обеспечения АС предприятия», «Виды пластиковых карт», «Фотоотчет», «Выход из системы».

Меню: «Справка»>«Отчет по практике» - откроется документ через Word 2010 с отчетом по практике;

«Создатель» - откроется окно с информацией о создателе Ф.И.О и год.

При нажатие на любую из 3 кнопок: «О предприятии», «Вычислительная техника предприятия», «Виды обеспечения АС предприятия».

Откроется форма с 1 компонентом-Memo1 для вывода информации и с 1 кнопкой-«Вернуться назад» для того, чтобы вернуться в главное меню.

При нажатие на кнопку «Виды пластиковых карт», откроется форма с 4 кнопками: «Кредитные карты», «Следующая карта», «Предыдущая карта», «Вернуться назад».

При нажатии на кнопку «Фотоотчет», откроется форма с 1 компонентом-Image2 для вывода изображения и с 1 кнопкой-«Вернуться назад» для того, чтобы вернуться в главное меню.

Размещено на .ru

Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность
своей работы


Новые загруженные работы

Дисциплины научных работ





Хотите, перезвоним вам?