Персонала при работе с компьютером

63 

 

Қорытынды 

 

Дипломдық  жобалаудың  нәтижесінде  автоматтандырудың  нысанына 

толықтай  зерттеу  жүргізілді,  бағдарламалық  өнімді  құру  үшін  қажетті 

мәліметтер жиналды. Құрамында әзірленген мәліметтер базасы бар «тапсырыс 

беру 

бөлімінің 

басқарудың 

автоматтандырылған 

жүйесі» 

құрылды. 

Бағдарламалық өнім, сертификаттау бөлімінің операторларының жұмыс сапасы 

мен  көлемін  жоғарлатты,  филиалдың  тапсырған  есептеріндегі  қателіктердің 

саны дереу азайды. 

Ұйымдарстыру-экономикалық  бөлімде  бағдарламалық  өнімнің  әзірленуі 

жоспарланды  және  техникалық-экономикалық  көрсеткіштердің  есебі  мен 

жобаның  тиімділігі  жасалды.  Нәтижесінде  экономикалық  тиімділіктің  көлемі 

жылына 144112 теңгені, ал оның өтелу мерзімі 2 жыл 6 айды құрады. 

Дипломдық жобаға қойылған міндет толығымен шешілді. 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

64 

 

Әдебиеттер тізімі 

 

1  Советов  Б.Я.  Моделирование  систем:  лаборатория  практикум:  учебное 

пособие для вузов по спец. «Автом. Сист.обраб. инф. и управл» / Б.Я. Советов, 

С.А. Яковлев.-М.: Высшая школа, 1989.-80с.:ил. 

2 Бойко В.В. Проектирование баз данных информационных систем / В.В. 

Бойко, В.М.  Савинков.-М.: 1999 г.-550с.:ил 

3  Фаронов  В.В.  Delphi  7.  Учебный  курс  /  В.В.  Фаронов.-М.:  Издатель 

Молгачева С.В., 2003.-672с.: ил 

4  Архангельский  А.Я.  Программирование  в  Delphi  4  /  А.Я. 

Архангельский.-М.: ЗАО “Издательство БИНОМ”, 1999.-768 с.: ил. 

5  Delphi 6 .-СПб.: БХВ-Петербург, 2002.-1152 с.: ил. 

6    Орлов  С.  А.  Технологии  разработки  программного  обеспечения  /  С.А 

Орлов. СП.: Питер, 2005.-166 с.: ил. 

7 Охрана труда: учебник для студентов вузов / под ред. Князевского Б.А.- 

М.: Высшая школа, 2006.-311 с.: ил. 

8  Хотунцев  Ю.Л.  Экология  и  экологическая  безорасность:  учебное 

пособие / Ю.Л. Хотунцев.-М.: 2007.-480с. 

9  Сетевые  ОС  в  гетерогенной  среде.  К.Пьянзин.  LANMagazine/русское 

издание #7/96 

10 Microsoft SQL Server. А. Шуленин. СУБД #1/97. 

11 Семейство реляционных баз данных DB2. И.Игнатович. СУБД #2/97. 

12  Р.Ахаян,  А.Горев,  С.Макашарипов.  Эффективная  работа  с  СУБД. 

Санк-Петербург, “Питер”, 2007. 

13  Вейскас  Д.  Эффективная  работа  с  MicrosoftAccess-2.  Перевод  с  англ. 

Санк-Петербург, “Питер”, 2005. 

14 Анохин А.В. Применение теории систем массового обслуживания для 

анализа  информационных  систем  //  Актуальные  направления  исследований 

научно-технической информации. “Межвуз”, Москва,  2000. 

15  Саати  Т.Л.  Элементы  теории  массового  обслуживания.  Москва; 

“Советское радио”, 1989. 

16  Гнеденко  Б.В.,  Коваленко  И.Н.  Введение  в  теорию  массового 

обслуживания, 2-е изд. Москва; Наука, 2008.  

17 Учимся моделировать. Том Стренс. Сети #05/98. 

18  Оценка  производительности  вычислительных  систем.  Дмитрий 

Французов. Открытые системы #2(16)/96. 

19  Управление  информационными  сетями.  Сергей  Ларюшкин.  Сети 

#5/97.WindowsNT  5.0:  что  на  горизонте?  С.  Орлов.  LAN,  Спец.  Выпуск  к 

#05/97. 

20  Проблема  измерения  экономической  эффективности  информации.  Р. 

Нижегородцев. Росийский экономический журнал #2/95. 

21 К вопросу о цене информации. Максим Бронников. Проблемы теории 

и практики управления #1/99. 

22 К. Дейта. Введение в системы баз данных. Москва, “Наука”, 2005. 

65 

 

              

23 

http://www.torry.ru

 

24 Kol.mastak.ru 

25 http://oftf.b2b.ivest.kz. 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

66 

 

А қосысшасы 

 

Берілген  бағдарламада    интерфейсті  бағдарламаның  басты  терезесі   

құрайды, 1 суретте берілген 

 

 

                                   А.1 сурет- Прайс парағы  

Мәзірдегі “Прайс” бірінші элементін таңдағанда, ішкі мәзір ашылады: 

- Открыть; 

- Закрыть. 

Ішкі  мәзірде  іздеу  Excel бағдарламасында ізделеді.Тапсырыс  ережелерге 

сәйкес  жұмыс  ішкі  мәзірді  жүзеге  асырылады.  Ішкі  мәзірде  нормативтік 

құжаттарды  басып  шығару,  ақпаратпен  жұмыс  есептері  бар  жұмыс  туралы 

есептеме.  Ішкі  мәзірде  анықтама  өз  деректемелері,  сатушылары  мен 

тұтынушыларының  деректемелері  орналасқан.  Ішкі  мәзірде  қызмет  көрсету 

мәліметтерді мұрағаттау арқылы жүзеге асады. 

Егер  сіз  «Открыть»  элементін  бассаңыз  MS  Excel  ашыладыда,  қажетті 

кітапты  таңдау  үшін  арналған  диалогтық  терезе  пайда  болады.  Таңдалған 

кітапта  провайдерде  болатын,  прайс  тауарлар  орналасқан.  Таңдалған 

кітапта(файл), қажетті тауарды табуға болады. 

e:=createoleobject(`excel.application`); 

e.visible:=true; 

if not opendialog1.Execute then exit; 

e.workbooks.add(opendialog1.FileName); 

MS Excel бағдарламасының ашылуы. 

 

67 

 

 

А.2 сурет- Ашық жұмыс кітабімен жұмыс 

 

Барлық ашылған кітаптар орналасқан форма 2 суретінде көрсетілген. Бұл 

форма  арқылы  кез  келген  ашылған  кітаптармен  жұмыс  жасауға  болады.Жаңа 

терезелерді қосу, белсенді парақ, жұмыс кітабы бір жұмыс кітабындағы тек екі 

терезелерін көрсетіледі.Онда бірінші терезедегі кез келген өзгеріс дереу  басқа 

терезеде, және керісінше көрсетіледі.Біреуден артық жұмыс кітабы терезесінде 

болсаңыз,  осы  терезелер  біркелкі  тігінен  көлденең  немесе  тігінен 

бағдарламасының  негізгі  терезесінде  орналасқан  салтын  мозаика,  каскадты, 

пайдалана  отырып,  белгілі  бір  тәртіппен  орналастырылуы  мүмкін.Сонымен 

қатар,  қозғалысы  көлденең  немесе  тігінен  және  екі  бағытта,  терезелерінде 

синхрондалған  болады.  Бұл  үшін  Windows  коллекциясынан    Arrange  деген 

қолайлы әдіс бар. Программасы былай беріледі: 

SetArrange Windows; 

Case ArrangeStyle.ItemIndex of 

0:Workbook.Windows.Arrange(ArrangeStyle:=1,ActiveWorkbook:=true,Sync 

Horizontal:=SyncHorizontal.Checked,SyncVertical:=SyncVertical.Checked); 

1:Workbook.Windows.Arrange(ArrangeStyle:=7,ActiveWorkbook:=true,Sync 

Horizontal:=SyncHorizontal.Checked,SyncVertical:=Sync Vertical.Checked); 

2:Workbook.Windows.Arrange(ArrangeStyle:=-

4128,ActiveWorkbook:=true,SyncHorizontal:=SyncHorizontal.Checked,Sync 

Vertical:=SyncVertical.Checked); 

3:Workbook.Windows.Arrange(ArrangeStyle:=-

4166,ActiveWorkbook:=true,SyncHorizontal:=SyncHorizontal.Checked,Sync 

68 

 

«Vertical:=SyncVertical.Checked); 

Ашық  кітаптармен  жұмыс  жасауға  арналған.  Жаңа  терезе  қосу  үшін 

арналған процедура: 

WorkBook.NewWindow; 

Жұмыс кітаптары және таңдалған жұмыс кітабына сілтемелер тізімін алу. 

Осы процедураларға, біз барлық жұмыс кітаптарын тізуге болады және нысан 

Listboks олардың атаулары көрсетіледі. Содан кейін, тізімді қарастыра отырып, 

ашық болған кез келген кітпаты активизациялаймыз , ал кейінірек осы кітапқа   

қол жеткізу үшін оның сілтемесін аламыз. 

WorkBooks:=Form1.E.WorkBooks; 

for a_:=1 to WorkBooks.count do begin  

ListBox1.Items.Add(WorkBooks.Item[a_].name+`; 

`+WorkBooks.Item[a_].FullName); 

WorkBooks.Item[ListBox1.ItemIndex+1].Activate; 

WorkBook:=WorkBooks.item[ListBox1.ItemIndex+1]; 

Ең соңғы  терезені жабу үшін келесі процедура орындалады: 

Workbook.Windows.Item(Workbook.Windows.count).Close 

Сақтау мынандай ретпен орындалады: 

WorkBook.Save; 

If not SaveDialog1.Execute then exit; 

WorkBook.SaveAs(FileName:=SaveDialog1.FileName); 

 

мынадай операция кітап жазбаларды тексеру үшін пайдаланылады: 

 

if  WorkBook.Saved  then  messagebox(handle,’Документ  сохранен!’, 

‘Внимание!’,0) 

elsemessagebox(handle, ‘Документ не сохранен!’, ‘Внимание!’, 0); 

Белсенді  жұмыс  кітабының    ашық  жұмыс  беттерінің  тізімінің  формасы  

көрсетілген. Осы нысан бойынша жұмыс істегенде,  парақтарын қосу, жасыру, 

жұмыс  парақтарын  атауын  өзгертуге  болады.  Түпнұсқаға    дейін  және  кейін 

парақтары жұмыс кітабын көшіруге болады. Сондай-ақ жұмыс беттерін өшіруге 

болады.  Ашық  жұмыс  беттерімен  жұмыс  жасағанда,  беттерді  көрсету  немесе 

жасыру операцияларын қолдануға болады: 

Sheet.Visible:=CheckBox1.Checked; 

Sheets.item[ListBox1>ItemIndex+1].Activate; 

Sheet:=Sheets.item[ListBox1.ItemIndex+1]; 

CheckBox1.Checked:=Sheet.Visible; 

Жаңа бет қосу үшін келесі процедура орындалады: 

Sheets.Add(Sheet); 

ListBox1.items.Clear; 

Sheets:=Form1.E.ActiveWorkBook.Sheets; 

For a_:=1 to Sheets.count do ListBox1.Items.Add(Sheets.Item[a_].name,); 

Түпнұсқаға дейін немесе кейін көшірме жасау үшін: 

eee_:=ListBox1.Items.Strings(ListBox1.ItemIndex); 

69 

 

Sheet.Copy(after:=Sheet); 

ListBox1.Clear; 

for a_:=1 to Sheets.count do ListBox1.Items.Add(Sheets.Item[a_].name); 

Түпнұсқадан кейін: 

eee_:=ListBox1.Items.String(ListBox1.Item.Index); 

Sheet.Copy(before:=Sheet); 

ListBox1.Clear; 

for a_:=1 to Sheets count do ListBox1.Items.Add(Sheets.Item[a_].name)  

ListBox1.ItemIndex:=ListBox1.Items.Indexof(eee_); 

 

 

А.3 сурет-Төлем тапсырысы 

 

3  суретінде  төлем  тапсырысын  толтыру  формасы  көрсетілген.  Сатып 

алынатын  өнімнің  реквизитін  толтыруға  арналған  арнайы  жолдар  бар.  ТОО  

“Энергопромкомплект-ПВ” өнеркәсібінің барлық реквизиттері төлем тапсырыс 

программасында 

толтырылған 

(FindAndInsert(‘###Поставщик&’, 

‘TOO 

«Энергопромкомплект-ПВ»’);  басқа  да  фирманың  реквизиттері  осылай 

толтырылады.  Барлық  формада  шығу  кнопкасы  бар.Төлем  тапсырысын 

толтыру  үшін,  ең  алдымен  төлем  тапсырысының  шаблонын  шақыруымыз 

керек, программысы: 

W:=createoleobject(‘word.application’); 

W.visible:=true; 

//Создаем новый документ по шаблону 

W.documents.Add(ExtractFileDir(Application.ExeName)+’\коммерческое 

предложение.dot’); 

Ең алдымен біз Delphi-ден Word программасын іске қосамыз, кейін төлем 

тапсырысының  шаблонын  ашамыз.  Осындай  қарқынмен  есеп  фактурасын, 

70 

 

сенімхат,  шығындардың  есеп    фактурасы,  қолма-қол  ақша  ордері,  қолма-қол 

ақша тәртібі, коммерциялық ұсыныстар. 

Құжаттар  үлгісін  ашқаннан  кейін,  құжаттағы  бізге  керек  барлық 

жолдарды толтыру керек. Толтырғаннан кейін “заполнить” кнопкасын басамыз,  

толтырылған  құжаттың  үлгісі  және  журнал  автоматты  түрде  толтырылады. 

Сонымен қатар ұйымның барлық реквизиттері толтырылады. Программасы: 

FindAndInsert(‘###f&’,’OAO “Энегорпромкомплект-ПВ”’); 

FindAndInsert(‘###a&’,’Республика Казахстан г.Павлодар ул.Елгина,60’); 

………………………………………………………………………….. 

FindAndInsert(‘###D&’,d.text); 

FindAndInsert(‘###o&’,o.text); 

FindAndInsert(‘###k&’,k.text); 

Fori:=0 to 0 do 

   //        Если  нашли  текстовую  константу,  то  переходим  к  формированию 

табличной части 

If FindRowColumnInTable(‘###s&’,table_,Row_,Column_) 

Thenbegin 

//  Перед  началом  формирования  курсор  находится  в  таблице  table_    в 

ячейке Cell(Row_,Column_) 

//    Добавляем  в  таблицу  необходимое  количество  строк  +1,  так  как  одна 

строка в шаблоне уже есть 

W.Seletion.InsertRows(1+i); 

//  Формируем первую строку табличной части документа 

table_.Cell(Row_,Column_+0).Range.Text:=nt.Text; 

table_.Cell(Row_,Column_+1).Range.Text:=na.Text; 

table_.Cell(Row_,Column_+2).Range.Text:=ko.Text; 

table_.Cell(Row_,Column_+3).Range.Text:=z.Text; 

table_.Cell(Row_,Column_+4).Range.Text:=sp.Text; 

table_.Cell(Row_,Column_+5).Range.Text:=v.Text; 

table_.Cell(Row_,Column_+6).Range.Text:=s.Text; 

table_.Cell(Row_,Column_+7).Range.Text:=b.Text;  

form23.Table1.Open; 

form23.Table1.Insert; 

form23.Table1.fieldbyname(‘Nd’).asstring:=n.text; 

form23.Table1.fieldbyname(‘D’).AsString:=edit1.text; 

………………………………………………………………………….. 

form23.Table1.Post; 

form23.Table1.Close; 

Form23.Table1.Open; 

Төлемдік  тапсырмаларды  және  басқа  құжаттарды  толтырғаннан  кейін, 

алдын ала қарауға және басып шығаруға болады: 

Form4.w.activdocument.printpreview; 

Form4.w.activdocument.printout; 

71 

 

“Журнал отчетов” кнопкасын басу арқылы біз төлем тапсырысын және де 

басқа құжаттар журналымен жұмыс жасай аламыз (есеп фактурасын, сенімхат, 

шығындардың есеп  фактурасы, қолма-қол ақша ордері, қолма-қол ақша тәртібі, 

коммерциялық ұсыныстар). 

4 

суретте  төлем  тапсырмасының  журналы  көрсетілген.  Төлем 

тапсырысының журналында және тағыда басқа құжаттарды енгізетін ақпаратты 

іздеу салуға, ұйым бойынша сұрыптау, толтыру уақытын, керек емес жазбаны 

өшіру, есептерді қарау және шығару операцияларын орындай аламыз. 

 

 

А.4 сурет- Төлем тапсырысының журналы 

 

       Төлем  тапсырыс  беру  журналында  және  басқа  да  құжаттарды  іздеу 

үшін келесі процедура орындалады: 

sf:=trim(edit1.Text); 

ifsf:=” thenshowmessage(‘Введите текст для поиска!’) 

else begin 

table.SetKey; 

table1.FieldByName(‘opg’).AsString:=sf; 

if not (table1.GotoKey) 

thenShowmessage (‘Запись не найдена!’); 

Уақытбойыншаұйымдардысұрыптауүшінкелесіпроцедураорындалады: 

With table1 do begin 

Table1.IndexName:=’oo’; 

setrangestart; 

fieldByName(‘opg’).AsString:=edit2.Text; 

setrangeend; 

fieldByName(‘opg’).AsString:=edit2.Text; 

applyrange; 

72 

 

  Есептерді  қарау  және  шығару.  Ең  алдымен  Word  программасын  іске 

қосамыз. Әрбір беттің параметрін белгілейміз, құжаттың тақырыбын жазамыз, 

шрифтін  қосамыз,  жазбаның  түсін  кейін  таблицаның  санын  белгілейміз,  және 

де толтыруға керекті ақпаратты қайдан алу керектігін көрсетеміз. 

// активизация Word 

wza:=CreateOleObject(‘word.Application’); 

///w.ScreenUpdating:=false;{появление после постраения таблицы} 

wza.Visible:=true; 

wza.Activate; 

Table1.Active:=true; 

wza.Documents.Add(); 

//  Установить параметры страницы 

{Selection.PageSetup.PageWidth:=CentimetersToPoints(29.7);{ширина 

листа} 

{Selection.PageSetup.PageHeight:=CentimetersToPoints(42);{длина листа} 

wza.Selection.PageSetup.TogglePortrait;{альбомный} 

wza.Selection.PageSetup.TopMargin:=32; //32 k 1 

wza.Selection.PageSetup.BottomMargin:=32; 

wza.Selection.PageSetup.LeftMargin:=32; 

wza.Selection.PageSetup.RightMargin:=32; 

// Заголовок 

wza.Selection.ParagraphFormat.Alignment:=$000000001; 

wza.Selection.Font.Bold:=$00000001; 

wza.Selection.Font.Size:=16; 

wza.Selection.TypeText(‘Журнал 

приходных-кассовых 

ордеров’.+#13+#10+#13+#10); 

wza.Selection.Font.Size:=11; 

//  Записать дату создания отчета  

{Selection.ParagraphFormat.Set_Alignment($00000000); 

Selection.Font.Set_Bold($00000000); 

Selection.Font.Set_Size(14); 

Selection.TypeText(‘               ‘); 

Selection.TypeText(‘               ‘); 

Selection.TypeText(‘Дата создания очтета: 

‘+DateToStr(data)+#13+#10+13+#10); 

Selection.TypeText(#13+#10);} 

//  Печать заголовка  

wza.Selection.Font.Bold:=$000000000; {выделение жирным} 

wza.ActiveDocument.Table.Add(Range:=  wza.Selection.Range,  NumRows:= 

Table1.RecordCount+1, NumColumns:= 9); 

wTable := wza.Selection.Tables.Item(1); 

wTable.Borders.OutsideLineStyle:=$00000001; 

wza.Selection.Tables.Item(1).Borders.InsideLineStyle:=$00000001; 

wza.Selection.Font.Bold:=$00000001; 

73 

 

wza.Selection.Font.Size:=11; 

wza.Selection.TypeText(‘№ док-та’); 

wTable.Columns.Item(1).Width :=30; 

wza.Selection.MoveRight(EmptyParam, EmptyParam, EmptyParam); 

{переход на след.клетку} 

...............................................................................................................................

.......... 

//wza.Selection.ParagraphFormat.Alignment:= wdAlignParagraphLeft; 

wza.Selection.MoveRight(EmptyParam,EmptyParam,EmptyParam); 

wza.Selection.Font.Bold:=$00000001; 

wza.Selection.Font.Size:=11; 

wza.Selection.TypeText(‘Код назначения’); 

wTable.Columns.Item(9).Width := 39; 

//wza.Selection.ParagraphFormat.Alignment:= wdAlignParagraphLeft; 

// Занесение данных в таблицу 

Table1.First; 

recNum := 2;// переменная количества запесей для строки в таблици  

While not(Table1.Eof) do 

begin 

wTable.Cell(recNum, 1).Select; 

wza.Selection.TypeText(Table1.FieldByName(‘Nd’).Asstring); 

wTable.Cell(recNum, 2).Select; 

…………………………………………………………………………………

………. 

wza.Selection.TypeText(Table1.FieldByName(‘Sum’).AsString); 

wTable.Cell(recNum, 9).Select; 

wza.Selection.TypeText(Table1.FieldByName(‘Kzn’).AsString); 

recNum := recNum +1; 

Table1.Next; 

end; 

wza.Selection.HomeKey; 

wza:= Unassigned; 

end; 

74 

 

 

А.5 сурет - Жеке реквизиттер 

5  суретте  жеке  реквизиттер  формасы  көрсетілген.  Осы  жерде  ұйымның 

барлық реквизиттері көрсетілген. 

 

 

А.6 сурет- Провайдерлер 

 

6 суретте провайдердің реквизиттерінің формасы көрсетілген.  

with table 1 do begin’ 

          table1.IndexName:=’iop’; 

         setrangestart; 

         fieldByName(‘opg’).AsString:=edit1.Text; 

         setrangeend; 

         fieldByName(‘opg’).AsString:=edit1.Text; 

         applyrange; 

75 

 

 

Добавить кнопкасын басқан жағдайда, 7 суреттегі форма ашылады: 

 

 

А.7 сурет - Провайдерді қосу 

Бұл  формамен  жұмыс  жасағанда  провайдерді  қосуға  немесе  өшіруге 

болады. Қосудың программасы: 

form14.Table1.Open; 

form14.Table1.Insert; 

form14.Table1.fieldbyname(‘Opg’).asstring:=o.text; 

form14.Table1.fieldbyname(‘Adr’).AsString:=a.text; 

form14.Table1.fieldbyname(‘Tel’).AsString:=t.text; 

form14.Table1.fieldbyname(‘Poh’).AsString:=p.text; 

form14.Table1.fieldbyname(‘E-mail’).AsString:=e.text; 

form14.Table1.fieldbyname(‘Sait’).AsString:=s.text; 

form14.Table1.Post; 

form14.Table1.Open; 

Ақпаратты жолдарға толтырғанда, жұмыс жасауға болатын провайдердің 

қорына толтырылады. 

 

76 

 

 

А.8 сурет-Клиенттердің реквизиттері 

 

8  суреттегі  формада  клиенттердің  реквизиті  көрсетілген.  Бұл  формада 

қажетті  ұйымды  іздеуге  болады,  сатып  алушыларды  қосуға  немесе  өшіруге 

болады. Іздеу үшін келесі процедура орындалады: 

with table1 do begin 

 table1.IndexName:=’iop’; 

setrangestart; 

fieldByName(‘opg’).AsString:=edit1.Text; 

setrangeend; 

fieldByName(‘opg’).AsString:=edit1.Text; 

applyrange; 

 

Іздеуді тоқтату үшін келесі процедура орындалады: 

Table1.CancelRange; 

Добавить  кнопкасын  басқан  жағдайда,  клиентті  қосу  формасы  пайда 

болады. 

 

77 

 

 

А.9 сурет –Клиентті қосу 

 

 Бұл формада қажетті ұйымды іздеуге болады, клиенттерді қосуға немесе 

өшіруге болады. Іздеу салу үшін келесі процедура: 

with table do begin 

table1.IndexName:=’iop’; 

setrangestart; 

fieldByName(‘opg’).AsString:=edit1.Text; 

setrangeend; 

fieldByName(‘opg’).AsString:=edit1.Text; 

applyrange; 

 

Іздеуді тоқтату үшін келесі процедура орындалады: 

table1.CancelRange; 

 

 

 

 

 

 

 

 

 

 

 

 

 

78