Этап
разработки
|
Содержание
работ
|
Трудоёмкость
ч.
|
Постановка
задачи
|
Пред
проектное обследование. Разработка, согласование и утверждение
технико-экономического обоснования.
|
16
|
|
|
|
Технический
проект
|
Уточнение
структуры и формы представления входных и выходных данных. Разработка
алгоритма решения задачи. Разработка структуры программы. Разработка плана
мероприятий по внедрению ПП. Разработка пояснительной записки. Согласование и
утверждение технического проекта.
|
40
|
|
|
|
Рабочий
проект
|
Написание
программы на языке программирования. Первичная отладка, тестирование.
Разработка, согласование и утверждение порядка и методики испытаний,
корректировка программы.
|
80
|
|
|
|
Документация
и внедрение.
|
Разработка
программной документации Подготовка к сдаче программы и программной
документации
|
28
|
|
|
|
ИТОГО:
|
|
164
часа
|
Подсчет затрат, которое понесло предприятие.
Коэффициент сложности задачи С характеризует
относительную сложность программы по отношению к так называемой типовой задаче,
реализующей стандартные методы решения, сложность которой принята равной
единице
(величина с лежит в пределах от 0,5 до 1,5). Для
программного продукта, включающего в себя автоматический поиск и подсчет
необходимой информации , сложность задачи берем 0,7.= 0,7- коэффициент
сложности программы.
Коэффициент коррекции программы p - увеличение
объема работ за счет внесения изменений в алгоритм или программу по результатам
уточнения постановок(меняется от 0,1 до 0,5). С учетом того, что при проектировании
программы я достаточно хорошо представляла себе конечный результат ПП, возьмем
коэффициент = 0,2= 0,2 - коэффициент коррекции программы в ходе разработки.
Коэффициент увеличения затрат труда - b,
вследствие недостаточного описания задачи, в зависимости от сложности задачи
принимается от 1 до 1,5, в связи с тем, что данная задача, не потребовала
уточнения и больших доработок, примем b = 1,2.
Коэффициент квалификации разработчика k
определяется в зависимости от стажа работы и составляет: для работающих до двух
лет - 0,8; от двух до трех лет - 1,0; от трех до пяти лет - 1,1 ; от пяти до
семи - 1,3 ; более семи лет -1,6. Поскольку стажа работы по специальности у
меня нет, возьмем k = 0,8
В связи с коэффициентами заработной платы
основная заработная плата разработчика программного продукта составит:
Зпосн=Зп * c * (p+1) * b * k
Зпосн=8000*0,7*(0,2+1)*1,2*0,8=6451.2 руб.\ в
месяц
Расчет страховых взносов = Зпосн * (34%)= 6451.2
*0.34 = 2193
Общая заработная плата за весь перид разработки
программного продукта составит:
Зобщ=(6451.2 руб. +
2193руб.)*164ч./(22дн.*8ч.)=8054 руб.
Подсчет стоимости эксплуатации вычислительной
техники.
Содержание и эксплуатация вычислительного
комплекса считается следующим образом:
Свт = См-ч *Tотл ,
где См-ч - стоимость машино-часа.отл - это число
часов отладки, и оно равно = 148 часов.
Стоимость машино-часа рассчитывается, как сумма
составляющих:
См-ч=(Сэл_эн_в_год+А +З)/Фввт
где Сэл_эн_в_год - стоимость электроэнергии в
год,
А - стоимость амортизации за год,
З - затраты на ремонт за год,
Фввт - действительный фонд времени работы
вычислительного комплекса.
Стоимость 1 кВт/час электроэнергии составляет: 4
руб.
Один компьютер потребляет 300 Вт в час.
За год отчисления за электроэнергию,
потребляемую одной ЭВМ, составляет:
ч. * 22 дня * 12 мес. * 0,3 кВт/ч. *4 руб. =
2534 руб.
Программный продукт писался на компьютере,
который является собственностью налоговой инспекции. Т.к. до этого он уже
использовался по назначению в течение 3-х лет, то необходимо учесть затраты на
амортизацию так как срок полезного использования компьютера составляет 4 года.
Фввт=Фн -Фп,
Где Фн - номинальный фонд времени работы ПК в
год,
Фп -время профилактики =5%.
Фввт=Фн -Фп= (8ч. * 22 дн. * 12 мес.) - (8ч. *
22 дн. * 12 мес. * 0,05)=2112-106=2006 ч.
Стоимость ремонта равна: 24000 * 5% = 1200 руб.
Подсчитаем все затраты за год:
2534+6000+1200=9734 руб.
Стоимость одного машинного часа равна:
Затраты за год/Фввт= См-ч = 2 534,4
+8000+1 200 = 5.8 руб. 2006
Содержание и эксплуатация вычислительного
комплекса составляет:
,8руб/ч * 172 ч = 997,6 руб.
Для эксплуатации данный программный продукт не
требует покупки нового ПК и привлечения дополнительных сотрудников.
№ Наименование статьи расходов Затраты,
руб.
Общая заработная плата 8054
Страховые взносы 2193
Содержание и эксплуатация
вычислительного комплекса. 997,6
ИТОГО: 11244,6 рублей
Экономический эффект от внедрения программного
продукта
Экономический эффект - это прежде всего снижение
затрат типографии за счет:
• снижения времени, затрачиваемого
сотрудниками отдела на поиск информации в базе данных;
• высвобождения времени на выполнение
других заданий, следовательно, достигая этим повышения эффективности работы
отдела.
Для того чтобы применение и разработка данного
программного продукта имело смысл, необходимо доказать его экономическую
целесообразность.
Экономический эффект моего дипломного проекта
заключается в экономии рабочего времени, затрачиваемого сотрудниками отдела на
поиск информации в базе данных.
Для ведения расчетов введем следующие
обозначения:
Т1- время, затрачиваемое сотрудниками швейного
предприятия на поиск информации;
Т2- время, затрачиваемое на поиск после
внедрения программного продукта.
До внедрения программы на то чтобы найти нужную
информацию о заказе, рассчитать сумму за заказ, в день сотрудник отдела в
среднем тратил около 5 мин. на 1 заказчика:
Т1 = 5мин. или 0,08часа.
После внедрения программы время сократится, и
будет составлять 3 мин., за счет уменьшения времени выполнения операций и
простоты использования программы:
Т2 = 3мин. или 0,05ч.
Сокращение времени достигается при помощи
программного продукта за счет автоматизации ввода необходимой информации,
автоматического поиска и подсчета данных.
В среднем за 1 день сотрудник салона сотовой
связи выполняет 20 операций или 440 операций в месяц (20 операций в день * 22
рабочих дней).
Количество операций за год равно:
операций * 22 дней * 12 мес. = 5280 операций за
год.
Теперь подсчитаем, сколько времени тратилось в
год до внедрения программы:
операций * 0,08 ч. = 422,4 ч. в год
операций * 0,05 ч. = 264 ч. в год затрачивается
на внесение информации после внедрения программного продукта.
∆Т = Т1 - Т2 = 422,4ч. - 264ч. = 158,4ч. -
экономия времени
• Сокращение трудоемкости 264 * 100% /
422,4 = 62,5%
• Заработная плата сотрудника отдела
составляет 6000 рублей в месяц.
• Стоимость одного часа работы
составляет:
/(8ч*22 дня)=34,1 руб./час
Расчет страховых взносов
(6000*0,34)/ (8ч*22 дня)=11,6 руб./час
• Общая стоимость одного часа работы,
включая сумму на страховые взносы - Рсумм:
,1+11,6=45,7 руб./час
Рассчитаем экономическую эффективность от
внедрения программного продукта за год:
Эк.Эф.год.= ∆ Тгод * Рсумм =158,4*45,7
руб./ч=7238.88 руб./год
Итак, общая экономическая эффективность при
внедрении программного продукта в салон красоты составит 7238.88 рублей в год.
Период окупаемости проекта - Т:
Т = суммарные затраты на написание программного
продукта / Эк.Эффективности
Т=11244,6/7238,88 руб. = 1,5года.
Следовательно, если салон красоты захочет
установить у себя данную программу, он окупится приблизительно за 1,5 года.
III.
Заключение.
Разработанное программное приложение
«Автоматизация рабочего места менеджера в салоне красоты» которое позволяет
эффективно производить учет наличия средств, осуществлять контроль за
расписанием работ парикмахеров, быстро находить необходимую информацию по
любому виду услуг и его прейскуранту.
Так же программа позволяет осуществлять ввод и
хранение данных по клиентам, услугам и средствам, производить поиск по заданным
критериям, формировать и выводить на печать отчеты и формы.
Была произведена экономическая оценка
эффективности внедрения программного продукта, которая показала,
Срок окупаемости: 1,5 года.
Разработанное программное обеспечение
соответствует п.1. «Постановка задачи»
Литература
1. Понамарев
В. Базы данных в Delphi 7 - СПб.: Питер, 207.
. Жуков
А. Изучаем Delphi. - СПб.: Питер, 2009.
3. Электронный
учебник : <http://shiva16.narod.ru/>
. Попов
В.Б. Delphi для школьников - Издательство финансы и статистика-2010г.
Приложение
Приложение 1
Главная форма
procedure
TForm1.N1112Click(Sender:
TObject);
begin.show;;TForm1.N1Click(Sender:
TObject);.show;;TForm1.N2Click(Sender: TObject);.show;;TForm1.N3Click(Sender:
TObject);.show;;TForm1.N4Click(Sender: TObject);.show;;TForm1.N5Click(Sender:
TObject);.show;TForm1.N8Click(Sender: TObject);;;TForm1.N10Click(Sender:
TObject);.show;;TForm1.N7Click(Sender: TObject);('hh.exe Справка.chm',SW_SHOW);
end;.
Форма Клиенты. Приложение 2
{$R
*.dfm}TForm2.Button1Click(Sender: TObject);.Insert;;TForm2.Button2Click(Sender:
TObject);.Refresh;;TForm2.Button3Click(Sender: TObject);MessageDlg('Вы уверены
что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) =
mrOkADOTable1.Delete;;TForm2.Button4Click(Sender:
TObject);book,sheet,Excel:Variant;:integer;:string;:=CreateOleObject('Excel.Application');:=Excel.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:='Клиенты';:=book.Worksheets[1];.First;.Range['D1']:='Клиенты';.Range['B6']:='IDКлиента';.Range['C6']:='Фамилия';.Range['d6']:='Имя';.Range['e6']:='Отчество';.Range['f6']:='Телефон';
//sheet.Range['g6']:='СерияПаспорта';
//sheet.Range['h6']:='НомерПаспорта';
//sheet.Range['A1:E1'].Select;.Range['b6:h6'].Borders[8].LineStyle:=1;.Range['B6:h6'].Borders[8].Weight:=-4138;.Range['B6:h6'].Borders[8].ColorIndex:=-4105;.Range['B6:h6'].Borders[9].LineStyle:=1;.Range['B6:h6'].Borders[9].Weight:=-4138;.Range['B6:h6'].Borders[9].ColorIndex:=-4105;.Range['B6:h6'].Borders[10].LineStyle:=1;.Range['B6:h6'].Borders[10].Weight:=-4138;.Range['B6:h6'].Borders[10].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Range['B6:h6'].Borders[11].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Columns['B:B'].columnWidth:=10;.Columns['C:C'].columnWidth:=30;.Columns['D:D'].columnWidth:=20;.Columns['E:E'].columnWidth:=20;.Columns['F:F'].columnWidth:=15;.Columns['g:g'].columnWidth:=20;.Columns['h:h'].columnWidth:=20;i:=1
to ADOTable1.RecordCount
do.Cells[i+5,1].Borders[10].LineStyle:=1;.Cells[i+5,1].Borders[10].Weight:=-4138;.Cells[i+5,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,1].Borders[10].LineStyle:=1;.Cells[i+6,1].Borders[10].Weight:=-4138;.Cells[i+6,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[10].LineStyle:=1;.Cells[i+6,2].Borders[10].Weight:=-4138;.Cells[i+6,2].Borders[10].ColorIndex:=-4105;.Cells[i+6,3].Borders[10].LineStyle:=1;.Cells[i+6,3].Borders[10].Weight:=-4138;.Cells[i+6,3].Borders[10].ColorIndex:=-4105;.Cells[i+6,4].Borders[10].LineStyle:=1;.Cells[i+6,4].Borders[10].Weight:=-4138;.Cells[i+6,4].Borders[10].ColorIndex:=-4105;.Cells[i+6,5].Borders[10].LineStyle:=1;.Cells[i+6,5].Borders[10].Weight:=-4138;.Cells[i+6,5].Borders[10].ColorIndex:=-4105;.Cells[i+6,6].Borders[10].LineStyle:=1;.Cells[i+6,6].Borders[10].Weight:=-4138;.Cells[i+6,6].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[8].LineStyle:=1;.Cells[i+6,2].Borders[8].Weight:=-4138;.Cells[i+6,2].Borders[8].ColorIndex:=-4105;.Cells[i+6,3].Borders[8].LineStyle:=1;.Cells[i+6,3].Borders[8].Weight:=-4138;.Cells[i+6,3].Borders[8].ColorIndex:=-4105;.Cells[i+6,4].Borders[8].LineStyle:=1;.Cells[i+6,4].Borders[8].Weight:=-4138;.Cells[i+6,4].Borders[8].ColorIndex:=-4105;.Cells[i+6,5].Borders[8].LineStyle:=1;.Cells[i+6,5].Borders[8].Weight:=-4138;.Cells[i+6,5].Borders[8].ColorIndex:=-4105;.Cells[i+6,6].Borders[8].LineStyle:=1;.Cells[i+6,6].Borders[8].Weight:=-4138;.Cells[i+6,6].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[8].LineStyle:=1;.Cells[i+6,7].Borders[8].Weight:=-4138;.Cells[i+6,7].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[10].LineStyle:=1;.Cells[i+6,7].Borders[10].Weight:=-4138;.Cells[i+6,7].Borders[10].ColorIndex:=-4105;.Cells[i+6,8].Borders[8].LineStyle:=1;.Cells[i+6,8].Borders[8].Weight:=-4138;.Cells[i+6,8].Borders[8].ColorIndex:=-4105;.Cells[i+6,8].Borders[10].LineStyle:=1;.Cells[i+6,8].Borders[10].Weight:=-4138;.Cells[i+6,8].Borders[10].ColorIndex:=-4105;.Cells[i+6,2]:=ADOTable1.FieldByName('ID_Klienti').AsString;.Cells[i+6,3]:=ADOTable1.FieldByName('Familiya').AsString;.Cells[i+6,4]:=ADOTable1.FieldByName('Imya').AsString;.Cells[i+6,5]:=ADOTable1.FieldByName('Otchestvo').AsString;.Cells[i+6,6]:=ADOTable1.FieldByName('Telefon').AsString;
//sheet.Cells[i+6,7]:=ADOTable1.FieldByName('СерияПаспорта').AsString;
//sheet.Cells[i+6,8]:=ADOTable1.FieldByName('НомерПаспорта').AsString;.Next;;i:=2
to 8do.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=-4138;.Cells[ADOTable1.RecordCount+6,i].Borders[9].ColorIndex:=-4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+'Клиенты.xls');.Visible:=true;;TForm2.Button5Click(Sender:
TObject);;:= CreateOleObject('Excel.Application');.Visible :=
True;.Workbooks.Open('C:\Клиент.xls');.ActiveSheet.Range['A7'].Value:=
DBEdit1.Text;.ActiveSheet.Range['b7'].Value:=
DBEdit2.Text;.ActiveSheet.Range['c7'].Value:= DBEdit3.Text;.ActiveSheet.Range['d7'].Value:=
DBEdit4.Text;.ActiveSheet.Range['e7'].Value:= dbEdit5.Text;;
end.
Форма Парикмахеры. Приложение 3.
procedure
TForm3.Button1Click(Sender: TObject);.Insert;;TForm3.Button2Click(Sender:
TObject);.Refresh;;TForm3.Button3Click(Sender: TObject);MessageDlg('Вы
уверены
что
хотите
удалить
эту
запись?',
mtConfirmation, mbOKCancel, 0) = mrOkADOTable1.Delete;;.
Форма Расписание
Приложение
4.TForm4.Button1Click(Sender: TObject);.Insert;;TForm4.Button2Click(Sender:
TObject);.Refresh;;TForm4.Button3Click(Sender: TObject);MessageDlg('Вы уверены
что хотите удалить эту запись?', mtConfirmation, mbOKCancel, 0) =
mrOkADOTable1.Delete;;.
Форма Средства.
Приложение
5.TForm5.Button4Click(Sender:
TObject);book,sheet,Excel:Variant;:integer;:string;:=CreateOleObject('Excel.Application');:=Excel.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:='Средств';:=book.Worksheets[1];.First;.Range['D1']:='Средства';.Range['B6']:='IDСредства';.Range['C6']:='Название';.Range['d6']:='Цена';.Range['e6']:='Количество';.Range['f6']:='Наличие';
//sheet.Range['g6']:='СерияПаспорта';
//sheet.Range['h6']:='НомерПаспорта';
//sheet.Range['A1:E1'].Select;.Range['b6:h6'].Borders[8].LineStyle:=1;.Range['B6:h6'].Borders[8].Weight:=-4138;.Range['B6:h6'].Borders[8].ColorIndex:=-4105;.Range['B6:h6'].Borders[9].LineStyle:=1;.Range['B6:h6'].Borders[9].Weight:=-4138;.Range['B6:h6'].Borders[9].ColorIndex:=-4105;.Range['B6:h6'].Borders[10].LineStyle:=1;.Range['B6:h6'].Borders[10].Weight:=-4138;.Range['B6:h6'].Borders[10].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Range['B6:h6'].Borders[11].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Columns['B:B'].columnWidth:=10;.Columns['C:C'].columnWidth:=30;.Columns['D:D'].columnWidth:=20;.Columns['E:E'].columnWidth:=20;.Columns['F:F'].columnWidth:=15;.Columns['g:g'].columnWidth:=20;.Columns['h:h'].columnWidth:=20;i:=1
to ADOTable1.RecordCount do.Cells[i+5,1].Borders[10].LineStyle:=1;.Cells[i+5,1].Borders[10].Weight:=-4138;.Cells[i+5,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,1].Borders[10].LineStyle:=1;.Cells[i+6,1].Borders[10].Weight:=-4138;.Cells[i+6,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[10].LineStyle:=1;.Cells[i+6,2].Borders[10].Weight:=-4138;.Cells[i+6,2].Borders[10].ColorIndex:=-4105;.Cells[i+6,3].Borders[10].LineStyle:=1;.Cells[i+6,3].Borders[10].Weight:=-4138;.Cells[i+6,3].Borders[10].ColorIndex:=-4105;.Cells[i+6,4].Borders[10].LineStyle:=1;.Cells[i+6,4].Borders[10].Weight:=-4138;.Cells[i+6,4].Borders[10].ColorIndex:=-4105;.Cells[i+6,5].Borders[10].LineStyle:=1;.Cells[i+6,5].Borders[10].Weight:=-4138;.Cells[i+6,5].Borders[10].ColorIndex:=-4105;.Cells[i+6,6].Borders[10].LineStyle:=1;.Cells[i+6,6].Borders[10].Weight:=-4138;.Cells[i+6,6].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[8].LineStyle:=1;.Cells[i+6,2].Borders[8].Weight:=-4138;.Cells[i+6,2].Borders[8].ColorIndex:=-4105;.Cells[i+6,3].Borders[8].LineStyle:=1;.Cells[i+6,3].Borders[8].Weight:=-4138;.Cells[i+6,3].Borders[8].ColorIndex:=-4105;.Cells[i+6,4].Borders[8].LineStyle:=1;.Cells[i+6,4].Borders[8].Weight:=-4138;.Cells[i+6,4].Borders[8].ColorIndex:=-4105;.Cells[i+6,5].Borders[8].LineStyle:=1;.Cells[i+6,5].Borders[8].Weight:=-4138;.Cells[i+6,5].Borders[8].ColorIndex:=-4105;.Cells[i+6,6].Borders[8].LineStyle:=1;.Cells[i+6,6].Borders[8].Weight:=-4138;.Cells[i+6,6].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[8].LineStyle:=1;.Cells[i+6,7].Borders[8].Weight:=-4138;.Cells[i+6,7].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[10].LineStyle:=1;.Cells[i+6,7].Borders[10].Weight:=-4138;.Cells[i+6,7].Borders[10].ColorIndex:=-4105;.Cells[i+6,8].Borders[8].LineStyle:=1;.Cells[i+6,8].Borders[8].Weight:=-4138;.Cells[i+6,8].Borders[8].ColorIndex:=-4105;.Cells[i+6,8].Borders[10].LineStyle:=1;.Cells[i+6,8].Borders[10].Weight:=-4138;.Cells[i+6,8].Borders[10].ColorIndex:=-4105;.Cells[i+6,2]:=ADOTable1.FieldByName('ID_Sredstva').AsString;.Cells[i+6,3]:=ADOTable1.FieldByName('Nazvanie').AsString;.Cells[i+6,4]:=ADOTable1.FieldByName('Cena').AsString;.Cells[i+6,5]:=ADOTable1.FieldByName('Kolichestvo').AsString;.Cells[i+6,6]:=ADOTable1.FieldByName('Nalichie').AsString;
//sheet.Cells[i+6,7]:=ADOTable1.FieldByName('СерияПаспорта').AsString;
//sheet.Cells[i+6,8]:=ADOTable1.FieldByName('НомерПаспорта').AsString;.Next;;i:=2
to
8do.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=-4138;.Cells[ADOTable1.RecordCount+6,i].Borders[9].ColorIndex:=-4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+'Средств.xls');.Visible:=true;;TForm5.Button5Click(Sender:
TObject);:= CreateOleObject('Excel.Application');.Visible :=
True;.Workbooks.Open('C:\Средства.xls');.ActiveSheet.Range['A7'].Value:=
DBEdit1.Text;.ActiveSheet.Range['b7'].Value:=
DBEdit2.Text;.ActiveSheet.Range['c7'].Value:=
DBEdit3.Text;.ActiveSheet.Range['d7'].Value:=
DBEdit4.Text;.ActiveSheet.Range['e7'].Value:= dbEdit5.Text;
end;.
Форма Услуги. Приложение 6.
procedure TForm6.Button1Click(Sender:
TObject);.Insert;;TForm6.Button2Click(Sender:
TObject);.Refresh;;TForm6.Button3Click(Sender: TObject);MessageDlg('Вы
уверены
что
хотите
удалить
эту
запись?',
mtConfirmation, mbOKCancel, 0) = mrOkADOTable1.Delete;;.
Форма Заявки. Приложение 7.
var
Form7: TForm7;
WordApp, Doc, app, book, sheet,
Excel: variant;ComObj;
{$R
*.dfm}TForm7.Button1Click(Sender: TObject);.Insert;;TForm7.Button2Click(Sender:
TObject);.Refresh;;TForm7.Button3Click(Sender: TObject);MessageDlg('Вы
уверены
что
хотите
удалить
эту
запись?',
mtConfirmation, mbOKCancel, 0) =
mrOkADOTable1.Delete;;TForm7.Button4Click(Sender:
TObject);book,sheet,Excel:Variant;:integer;:string;:=CreateOleObject('Excel.Application');:=Excel.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:='Заявка';:=book.Worksheets[1];.First;.Range['D1']:='Заявки';.Range['B6']:='ID
Заявки';.Range['C6']:='ID
Клиента';.Range['d6']:='ID
Парикмахера';
sheet.Range['e6']:='ID Услуги';.Range['f6']:='Дата
Записи';.Range['g6']:='Время';.Range['h6']:='Дата
выполнения';
//sheet.Range['A1:E1'].Select;.Range['b6:h6'].Borders[8].LineStyle:=1;.Range['B6:h6'].Borders[8].Weight:=-4138;.Range['B6:h6'].Borders[8].ColorIndex:=-4105;.Range['B6:h6'].Borders[9].LineStyle:=1;.Range['B6:h6'].Borders[9].Weight:=-4138;.Range['B6:h6'].Borders[9].ColorIndex:=-4105;.Range['B6:h6'].Borders[10].LineStyle:=1;.Range['B6:h6'].Borders[10].Weight:=-4138;.Range['B6:h6'].Borders[10].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Range['B6:h6'].Borders[11].ColorIndex:=-4105;.Range['B6:h6'].Borders[11].LineStyle:=1;.Range['B6:h6'].Borders[11].Weight:=-4138;.Columns['B:B'].columnWidth:=10;.Columns['C:C'].columnWidth:=30;.Columns['D:D'].columnWidth:=20;.Columns['E:E'].columnWidth:=20;.Columns['F:F'].columnWidth:=15;.Columns['g:g'].columnWidth:=20;.Columns['h:h'].columnWidth:=20;i:=1
to ADOTable1.RecordCount
do.Cells[i+5,1].Borders[10].LineStyle:=1;.Cells[i+5,1].Borders[10].Weight:=-4138;.Cells[i+5,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,1].Borders[10].LineStyle:=1;.Cells[i+6,1].Borders[10].Weight:=-4138;.Cells[i+6,1].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[10].LineStyle:=1;.Cells[i+6,2].Borders[10].Weight:=-4138;.Cells[i+6,2].Borders[10].ColorIndex:=-4105;.Cells[i+6,3].Borders[10].LineStyle:=1;.Cells[i+6,3].Borders[10].Weight:=-4138;.Cells[i+6,3].Borders[10].ColorIndex:=-4105;.Cells[i+6,4].Borders[10].LineStyle:=1;.Cells[i+6,4].Borders[10].Weight:=-4138;.Cells[i+6,4].Borders[10].ColorIndex:=-4105;.Cells[i+6,5].Borders[10].LineStyle:=1;.Cells[i+6,5].Borders[10].Weight:=-4138;.Cells[i+6,5].Borders[10].ColorIndex:=-4105;.Cells[i+6,6].Borders[10].LineStyle:=1;.Cells[i+6,6].Borders[10].Weight:=-4138;.Cells[i+6,6].Borders[10].ColorIndex:=-4105;.Cells[i+6,2].Borders[8].LineStyle:=1;.Cells[i+6,2].Borders[8].Weight:=-4138;.Cells[i+6,2].Borders[8].ColorIndex:=-4105;.Cells[i+6,3].Borders[8].LineStyle:=1;.Cells[i+6,3].Borders[8].Weight:=-4138;.Cells[i+6,3].Borders[8].ColorIndex:=-4105;.Cells[i+6,4].Borders[8].LineStyle:=1;.Cells[i+6,4].Borders[8].Weight:=-4138;.Cells[i+6,4].Borders[8].ColorIndex:=-4105;.Cells[i+6,5].Borders[8].LineStyle:=1;.Cells[i+6,5].Borders[8].Weight:=-4138;.Cells[i+6,5].Borders[8].ColorIndex:=-4105;.Cells[i+6,6].Borders[8].LineStyle:=1;.Cells[i+6,6].Borders[8].Weight:=-4138;.Cells[i+6,6].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[8].LineStyle:=1;.Cells[i+6,7].Borders[8].Weight:=-4138;.Cells[i+6,7].Borders[8].ColorIndex:=-4105;.Cells[i+6,7].Borders[10].LineStyle:=1;.Cells[i+6,7].Borders[10].Weight:=-4138;.Cells[i+6,7].Borders[10].ColorIndex:=-4105;.Cells[i+6,8].Borders[8].LineStyle:=1;.Cells[i+6,8].Borders[8].Weight:=-4138;.Cells[i+6,8].Borders[8].ColorIndex:=-4105;.Cells[i+6,8].Borders[10].LineStyle:=1;.Cells[i+6,8].Borders[10].Weight:=-4138;.Cells[i+6,8].Borders[10].ColorIndex:=-4105;.Cells[i+6,2]:=ADOTable1.FieldByName('ID_Zayavki').AsString;.Cells[i+6,3]:=ADOTable1.FieldByName('ID_Klienta').AsString;.Cells[i+6,4]:=ADOTable1.FieldByName('ID_Parikmahera').AsString;.Cells[i+6,5]:=ADOTable1.FieldByName('ID_Uslugi').AsString;.Cells[i+6,6]:=ADOTable1.FieldByName('Data_Zapisi').AsString;.Cells[i+6,7]:=ADOTable1.FieldByName('Vremya').AsString;.Cells[i+6,8]:=ADOTable1.FieldByName('Data_Vipolneniya').AsString;.Next;;i:=2
to 8do.Cells[ADOTable1.RecordCount+6,i].Borders[9].LineStyle:=1;.Cells[ADOTable1.RecordCount+6,i].Borders[9].Weight:=-4138;.Cells[ADOTable1.RecordCount+6,i].Borders[9].ColorIndex:=-4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+'Заявка.xls');.Visible:=true;;TForm7.Button5Click(Sender:
TObject);:= CreateOleObject('Excel.Application');.Visible :=
True;.Workbooks.Open('C:\Заявки.xls');.ActiveSheet.Range['A7'].Value:=
DBEdit1.Text;.ActiveSheet.Range['b7'].Value:=
DBEdit2.Text;.ActiveSheet.Range['c7'].Value:= DBEdit3.Text;.ActiveSheet.Range['d7'].Value:=
DBEdit4.Text;.ActiveSheet.Range['e7'].Value:=
dbEdit5.Text;.ActiveSheet.Range['f7'].Value:=
dbEdit6.Text;.ActiveSheet.Range['g7'].Value:= dbEdit7.Text;
end;.
Форма О программе. Приложение
8.TForm8.Button1Click(Sender: TObject);
begin;;.
·