Программное обеспечение для бухгалтера по работе с абонентами кабельного телевидения

Дополнительная заработная плата составляет 20% от основной. Размер дополнительной платы = 51 300*20% = 10 260 руб. Учитывая размер заработной платы программиста высчитываем размер отчислений на социальное страхование, куда входятстраховые взносы в размере 26%. В итоге сумма на социальное страхование составляет 30,4% от основной заработной платы. Размер отчислений на социальное страхование =51 300*26%=13 338 руб. Итого: Заработная плата = 64 638 руб. Затраты

— размер ресурсов (для упрощения измеренный в денежной форме), использованных в процессе хозяйственной деятельности за определённый временной этап. Прямые затраты — это затраты, непосредственно связанные с изготовлением изделий и относимые на их отдельные виды или заказы. К ним относятся: материалы, топливо, энергия, зарплата и другое. Учитывая специфику выполняемых работ, данный вид затрат будет состоять из затрат на приобретении компьютера для разработки, оптический носитель, бумагу и прочий расходный материал (различные канцелярские товары, которые будем измерять единицей комплект), а также затрат на электроэнергию. По данным на ноябрь 2012 года стоимость 1 кВт/ч энергии в городе Ульяновске для населения составляет 2,51 руб. Считается, что компьютер работает и потребляет энергию в течение всего времени разработки. Норма потребления компьютера 0,3 кВт/ч. Общее потребление составляет 0,3*342 = 102,6 кВт/ч.Расчет затрат на материальные ресурсы производится по форме, приведенной в таблице 17. Таблица 17 — Затраты на материальные ресурсы.

Наименование материального ресурса.

ЕдиницаизмеренияНорма расхода на единицу измерения.

Цена за единицу измерения, руб. Сумма, руб.Компьютершт.

122 22 000Оптический носительшт.

Бумага.

Упаковка1 150 180.

Прочие расходные материалы.

Комплект1 150 150.

Электроэнергияк.

Вт/ч102,62,51 257,5ИТОГО затраты на материальные ресурсы22 607,5Общая сумма затрат на материальные ресурсы (ЗМ) определяется по формуле (5):(5)Pi-расход i-го вида материального ресурса, натуральные единицы;

Цi-цена за единицу i-го вида материального ресурса, руб. i-вид материального ресурса;n-количество видов материальных ресурсов. Амортизация (от лат. amortisatio — погашение) — исчисленный в денежном выражении износ основных средств в процессе их применения, производственного использования. Амортизация есть одновременно средство, способ, процесс перенесения стоимости изношенных средств труда на произведенный с их помощью продукт. Инструментом возмещения износа основных средств являются амортизационные отчисления в виде денег, направляемых на ремонт или строительство, изготовление новых основных средств. Сумма амортизационных отчислений включается в издержки производства (себестоимость) продукции и тем самым переходит в цену. Производитель обязан производить накопление амортизационных отчислений, откладывая их из выручки за проданную продукцию. Накопленные амортизационные отчисления образуют амортизационный фонд в виде денежных средств, предназначенных для воспроизводства, воссоздания изношенных основных средств.

Величина годовых амортизационных отчислений предприятия, организации определяется в виде доли первоначальной стоимости объектов, представляющих основные средства. Нормативное значение этой доли называют нормой амортизации. Амортизационные отчисления — разнообразные выплаты, которые производит предприятие, фирма. Примеры отчислений: амортизационные отчисления, отчисления из прибыли в резервный фонд, остающиеся в распоряжении предприятий; отчисления на социальное страхование, налоговые платежи во внебюджетные фонды и бюджет. Амортизационный фонд — запас, накопление денежных средств, денежный капитал; денежные и материальные средства, сосредоточенные в единую совокупность с целью использования их для определенных целей (например, пенсионный фонд); организация, учреждение, созданные для оказания содействия определенным видам деятельности, социальным группам людей. Норма амортизации — узаконенное правило, установление, признанный обязательным порядок организации дела, осуществления действий; установленная, документально подтвержденная величина, определяющая нормативный уровень расходования ресурсов, получения доходов, прибыли, затрат времени, выработки продукции. Основная функция амортизации — обеспечение воспроизводства, восстановление основных фондов. Вторая функция — учетная.

Кроме этого, амортизация в определенной степени выполняет и стимулирующую функцию, так как предусматривает наиболее полное использование основных фондов: чем дольше по времени функционирование, тем больше производится продукции и тем больше будет перенесена стоимость основных фондов. Это позволит уменьшить их недоамортизацию вследствие морального износа и снизить потери предприятия, что очень важно в условиях рынка. Возмещение стоимости техники рассчитываем по формуле (4):Ра=Куд*(На/100) ,(4)где Ра — расходы на амортизацию;

Куд — удельная стоимость использования оборудования;

На — норма амортизации (25%);Ра=22 000*25%=5500 руб. Рассчитаем стоимость использования оборудования. Допустим, что общий срок использования до списания составляет 3 года, то есть 8760 ч. Общее время использования при разработке составляет 342 часов. В итоге стоимость использования оборудования рассчитывается как отношение нормы амортизации и общего времени использования, умноженного на количество потраченного нами часов. С=5500/8760*342=214,7 руб. Калькуляция (от лат. calculatio — счёт, подсчёт) — определение затрат на производство и реализацию продукции (работ, услуг). Полная себестоимость представлена в таблице 18. Таблица 18 — Себестоимость проекта№ п/пКалькуляционные статьи расхода.

Сумма, руб.

1Расходы на заработную плату77 155,23Затраты на сырье и материалы22 607,55Амортизационные отчисления55 006.

Итого:

105 262,7Накладные расходы составляют 12% от основной заработной платы. Накладные расходы=51 300*12%=6156 руб. Примем норматив рентабельности в значение 20%.Прибыль = (полная себестоимость * норматив рентабельности)/100 = (105 262,7*20)/100=21 052,5 руб. Таким образом полная стоимость проекта будет определяться по формуле:

Спр=105 262,7+21 052,5=126 315,2 руб. Поскольку налог на прибыль составляет 24% от прибыли, в результате мы получим сумму:

21 052,5−21 052,5*24/100=16 000 руб. Экономическая эффективность (эффективность производства) — это соотношение полезного результата и затрат факторов производственного процесса. Для количественного определения экономической эффективности используется показатель эффективности, также это — результативность экономической системы, выражающаяся в отношении полезных конечных результатов её функционирования к затраченным ресурсам. Складывается как интегральный показатель эффективности на разных уровнях экономической системы и является итоговой характеристикой функционирования национальной экономики и получение максимума возможных благ от имеющихся ресурсов. Для этого нужно постоянно соотносить выгоды (блага) и затраты, или, говоря по-другому, вести себя рационально. Рациональное поведение заключается в том, что производитель и потребитель благ стремятся к наивысшей эффективности и для этого максимизируют выгоды и минимизируют затраты. Поскольку в данной работе оценивается программный продукт, то для оценки эффективности воспользуемся следующей формулой:

Э=ЧП/С;Э — эффективность выраженная в процентах;

ЧП — чистая прибыль;

С — стоимость проекта;

Таким образом, Э = 16 000 /105 262,7=15,2%.Таким образом показано, что внедрение разработанного программного обеспечения в технологию работы ТРК «ТРАК» является экономически эффективным.

Заключение

.

В современном миреавтоматизация сферыобслуживания населения играет очень важную роль. Расширяется сфера применения информационных технологий в различных областях работы с населением. Всё с большей плотностью графика жизни времени катастрофически не хватает. Уже сравнительно давно компьютеры стали необходимой частью многочисленных производственных и управленческих процессов. Однако никогда ранее они столь не проникали в деятельность конкретных работников. Применение компьютеров в большой степени изменило привычный образ многих профессий, в одних случаях устраняя утомляющий однообразный характер работы, в других оставляя больше времени для творческого труда. Практически все разнообразие применений компьютеров достигается за счет определенным образом проектированного программного обеспечения. В рамках данной работы проведено проектирование автоматизированной системы специалистов абонентского отдела ТРК «ТРАК». Анализ организационной структуры предприятия показал, что использование автоматизированных систем позволит оптимизировать следующие бизнес-процессы предприятия:

ведение картотеки абонентов предприятия связи;

— взаимодействие с клиентами по вопросам подключения или отключения услуг;

— ведение картотеки оказываемых услуг;

— учет поступающих платежей;

— формирование сводной отчетности в области работы с должниками;

— формирование сводной финансовой отчетности предприятия. Отсутствие единой информационной базы, позволяющей реализовать интегрированное решение перечисленных задач в настоящее время приводит к увеличению трудовых, финансовых и временных затрат на поиск информации, обслуживание клиентов, получение сводной информации, и, как следствие, снижению общей эффективности работы предприятия в целом. Анализ рынка существующего программного обеспечения показал, что в настоящее время существует большое количество программных продуктов, в которых реализована задача ведения абонентского учета, однако лишь немногие из них могут использоваться на исследуемом предприятии, так как в большинстве программных продуктов слабо реализован функционал абонентского учета на предприятиях связи. В связи с этим руководством ТРК «ТРАК» было принято решение о самостоятельной разработке программного обеспечения в области абонентского учета. В рамках данного проекта было получено техническое задание на разработку автоматизированного рабочего места специалиста абонентского отдела. Далее было проведено построение логической модели базы данных, определены ключевые сущности, установлены связи между ними. Разработка приложения согласно техническому заданию была проведена с использованием языка программирования BorlandDelphi7, для формирования печатных форм использован бесплатный табличный процессорCalcиз пакета OpenOffice.org, что позволит изучить вопрос экономии средств предприятия на приобретение лицензий на MSOffice. Оценка экономической эффективности проекта показала уровень рентабельности проекта в 15,2% годовых, что позволяет сделать вывод о целесообразности внедрения разработанного программного обеспечения в технологию абонентского учета кабельной сети ТРК «ТРАК».

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

Нормативно-правовые источники.

Гражданский кодекс Российской Федерации [Электронный ресурс] // Консультант плюс: справ.

правовая система, 2013.

Устав предприятия (организации);Положение о предприятии (организации) или о его структурном подразделении;

Программы, планы предприятия (организации)Основная литература5. Автоматизированные информационные технологии в экономике: Учебник /Под ред. проф. Г. А. Титоренко.

М.: Компьютер, ЮНИТП, 2007 — 400 с. Братищенко В. В. Проектирование информационных систем. Иркутск: Изд-во БГУЭП, 2004. 84 с. В. Дубянский Руководство пользователя «1С — Торгавля и Склад». СПб.: Питер, 2007.

Вендров А.М. CASE-технологии. Современные методы и средства проектирования информационных систем. М.: Финансы и статистика 2004 г. 202с. Гаврилова Т. А., Хорошевский В. Ф. Базы знаний интеллектуальных систем.

СПб: Питер, 2000.

Гайдамакин Н. А. Автоматизированные информационные системы, базы и банки данных. М: Гелиос АРВ, 2009.

Гладкий А. А. Бухучет и финансы для руководителей и менеджеров М.: 2007.

Днепров.

А.Г. Microsoft SQL Server 2008. Cамоучитель. М.: 2009.

Евдокимов В.В. и др. Экономическая информатика. /Учебник для вузов./ Под ред.

д.э.н., профессора В. В. Евдокимова.

СПб.: Санкт-Петербург, 2007,-592 с.: ил. Ильина О. В. Информационные технологии бухгалтерского учета. Учебное пособие. СПб.: Питер, 2008.

Информатика для юристов и экономистов / Симонович С. В. и др. СПб.: Питер, 2007.

Информационные системы в экономике. Базы данных: Учебное пособие. Чебоксары, 2009.

Карпова Т. С. Базы данных: модели, разработка, реализация.

СПб.: Питер, 2007.

Когаловский, М. Р. Базы данных. Проектирование, реализация и сопровождение. — СПб: Вильямс, 2009.

Коуров, Л. В. Информационные технологии в работе предприятий. — Минск: Амалфея, 2005.

Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.

Малыхина, М. П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.

Мишенин А. И. Теория экономических информационных систем. — М.: Финансы и статистика, 2000. 240 сПетров В. Н. Информационные системы. СПб.: Питер, 2008.

Проектирование экономических систем: Учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов — М.: Финансы и статистика, 2003.

Романов А. Г. Автоматизация служб предприятия. — Курск: КПО, 2001.

Стражева Н.С., Стражев А. В. Бухгалтерский учет. М.: 2008.

Уткин В.Б., Балдин К. В. Информационные системы и технологии в экономике. Учебник. М.: ЮНИТИ, 2008.

Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2008.

Федоров. В. А. Проектирование информационных систем. М.: Финансы и статистика, 2003.

Экономическая информатика / Конюховский П. В. и др. СПб.: Питер, 2009.

Экономическая информатика: Учебник / Под ред. В. П. Косарева и Л. В. Еремина. М.: Финансы и статистика, 2008.

Электронное учебное пособие по информационным технологиям в экономике [Электронный ресурс]. — Режим доступа:

http://abc.vvsu.ru/Books/up_inform_tehnol_v_ekon/default.asp/, свободный. Марселлус Д. Программирование экспертных систем на Турбо Прологе / Пер. с англ. — М.: Финансы и статистика, 1994. — 256 с. Афонин В. Л. Интеллектуальные робототехнические системы [Электронный ресурс]. — Режим доступа:

http://www.intuit.ru/department/human/isrob/1/, свободный. Электронный учебник по экспертным системам [Электронный ресурс]. — Режим доступа:

http://experts.lite-programming.ru/, свободный.Приложение.

Фрагменты программного кодаvar Form1: TForm1;implementationuses Unit2, Unit5, Unit8, Unit9, Unit10, Unit11, Unit14, Unit18, Unit19, Unit20, Unit21, Unit23, Unit26, Unit27, Unit28, Unit29, Unit30, Unit12, Unit31, UOOcalc;{$R *.dfm}procedure TForm1. N5Click (Sender: TObject);begin form1. close;end;procedure TForm1. N6Click (Sender: TObject);begin with form1. adoquery1 do begin close; sql. Clear; sql. Add ('select * from abonent'); active:=true; end; form2. RzDBGrid1.Columns[0]. T itle. caption:='Код абонента'; form2. RzDBGrid1.Columns[1]. T itle. caption:='ФИО'; form2. RzDBGrid1.Columns[2]. T.

itle.caption:='Адрес'; form2. RzDBGrid1.Columns[3]. T itle. caption:='Серия паспорта'; form2. RzDBGrid1.Columns[4]. T itle. caption:='Номер паспорта'; form2. RzDBGrid1.Columns[5]. T itle. caption:='Паспорт выдан'; form2. Show;end;procedure TForm1. N7Click (Sender: TObject);begin with form1. adoquery3 do begin close; sql. Clear; sql. Add ('select * from tarplan'); active:=true; end; form5. RzDBGrid1.Columns[0].

T itle. caption:='Код'; form5. RzDBGrid1.Columns[1]. T itle. caption:='Наименование'; form5. RzDBGrid1.Columns[2]. Title. caption:='Фикс.

тариф&# 39;; form5. RzDBGrid1.Columns[3]. T itle. caption:='Тариф за 1 мин.'; form5. RzDBGrid1.Columns[4]. T itle. caption:='Лимит'; form5. Show;end;procedure TForm1. N8Click (Sender: TObject);begin with form1. adoquery6 do begin close; sql. Clear; sql. Add ('SELECT abonent. fio, tarplan. nam, telnum. num, abonent. adr FROM tarplan INNER JOIN (abonent INNER JOIN telnum ON abonent. code = telnum. abon) ON tarplan. code = telnum. tarpl'); active:=true; end; form8. RzDBGrid1.Columns[0]. T.

itle.caption:='ФИО'; form8. RzDBGrid1.Columns[1]. T itle. caption:='Тариф'; form8. RzDBGrid1.Columns[2]. T itle. caption:='Номер телефона'; form8. RzDBGrid1.Columns[3]. T.

itle.caption:='Адрес'; form8. Show;end;procedure TForm1. N9Click (Sender: TObject);var i: integer;begin with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from abonent'); open; end; form9. ComboBox1.clear; for i:=1 to form1. adoquery1.RecordCount do begin form9. ComboBox1.Items.Add (trim (form1.ADOQuery1fio.AsString)); form1. ADOQuery1. Next; end; with form1. ADOQuery3 do begin close; sql. Clear; sql. Add ('select * from TARPLAN'); open; end; form9. ComboBox2.clear; for i:=1 to form1. adoquery3.RecordCount do begin form9. ComboBox2.Items.Add (trim (form1.ADOQuery3nam.AsString)); form1. ADOQuery3. Next; end; form9. Edit1.Text:=''; form9. Show;end;procedure TForm1. N10Click (Sender: TObject);var i: integer;begin form10. DateTimePicker1. Date:=now; form10. ProgressBar1.Position:=0; form10. ComboBox1.Clear; with form1. adoquery12 do begin close; sql. clear; sql. add ('SELECT telnum. num, tarplan. tar_min FROM tarplan INNER JOIN telnum ON tarplan. code = telnum. tarpl where tarplan. tar_min>0'); open; end; for i:=1 to form1. adoquery12.RecordCount do begin form10. ComboBox1.Items.Add (trim (form1.ADOQuery12num.AsString)); form1. ADOQuery12. Next; end; form10. Label5.Caption:=''; form10. show;end;procedure TForm1. N11Click (Sender: TObject);begin with form1. ADOQuery13 do begin close; sql. Clear; sql. Add ('select * from banks'); active:=true; end; form11. RzDBGrid1.Columns[0]. T itle. caption:='БИК'; form11. RzDBGrid1.Columns[1]. T itle. caption:='Наименование'; form11. RzDBGrid1.Columns[2].

T itle. caption:='Коррсчет'; form11. Show;end;procedure TForm1. N12Click (Sender: TObject);begin with form1. ADOQuery14 do begin close; sql. Clear; sql. Add ('select * from users'); active:=true; end; form14. RzDBGrid1.Columns[0]. T itle. caption:='Код'; form14. RzDBGrid1.Columns[1]. T.

itle.caption:='ФИО'; form14. RzDBGrid1.Columns[2]. T itle. caption:='Роль'; form14. RzDBGrid1.Columns[3]. T itle. caption:='Логин в системе'; form14. RzDBGrid1.Columns[4]. T.

itle.caption:='Дата установки пароля'; form14. show;end;procedure TForm1. N1Click (Sender: TObject);begin form18. Show;end;procedure TForm1. N13Click (Sender: TObject);var i: integer;begin with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum where actual=1'); open; end; form19. ComboBox1.clear; for i:=1 to form1. ADOQuery5.RecordCount do begin form19. ComboBox1.Items.Add (trim (form1.ADOQuery5num.AsString)); form1. adoquery5. Next; end; form19. DateTimePicker1. Date:=now; form19. Show;end;procedure TForm1. N14Click (Sender: TObject);begin with form1. adoquery16 do begin close; sql. Clear; sql. Add ('select * from cnst'); open; end; form20. Edit1.Text:=form1.ADOQuery16nam.AsString; form20. Edit2.Text:=form1.ADOQuery16adr.AsString; form20. Edit3.Text:=form1.ADOQuery16dir.AsString; form20. Edit4.Text:=form1.ADOQuery16inn.AsString; form20. Edit5.Text:=form1.ADOQuery16nam.AsString; form20. Edit6.Text:=form1.ADOQuery16bik.AsString; form20. Edit7.Text:=form1.ADOQuery16kch.AsString; form20. Edit8.Text:=form1.ADOQuery16rch.AsString; form20. Edit9.Text:=form1.ADOQuery16tel.AsString; form20. Show;end;procedure TForm1. N15Click (Sender: TObject);var i: integer;begin form21. ComboBox1.Clear; with form1. adoquery13 do begin close; sql. Clear; sql. Add ('select * from banks '); open; end; for i:=1 to form1. ADOQuery13.RecordCount do begin form21. ComboBox1.Items.Add (trim (form1.ADOQuery13nam.AsString)); form1. adoquery13. Next; end; form21. Edit2.clear; with form1. ADOQuery11 do begin close; sql. Clear; sql. Add ('select max (code_oper) from paydoc'); open; end; form21. Edit1.Text:=inttostr (1+form1.ADOQuery11Expr1000.AsInteger); form21. DateTimePicker1. Date:=now; form21. ComboBox2.Clear; with form1. ADOQuery5 do begin close; sql. Clear; sql. Add ('select * from telnum'); open; end; for i:=1 to form1. ADOQuery5.RecordCount do begin form21. ComboBox2.Items.add (trim (form1.ADOQuery5num.AsString)); form1. ADOQuery5. Next; end; form21. Show;end;procedure TForm1. N16Click (Sender: TObject);begin with form1. ADOQuery18 do begin close; sql. clear; sql. Add ('select * from uslugi'); active:=true; end; form23. DBGrid1.Columns[0]. T itle. caption:='Код'; form23. DBGrid1.Columns[1]. T itle. caption:='Наименование услуги'; form23. DBGrid1.Columns[2]. T.

itle.caption:='Тариф'; form23. Show;end;procedure TForm1. N17Click (Sender: TObject);var i: integer;begin with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum'); open; end; form26. ComboBox1.clear; for i:=1 to form1. ADOQuery5.RecordCount do begin form26. ComboBox1.Items.Add (trim (form1.ADOQuery5num.AsString)); form1. adoquery5. Next; end; with form1. ADOQuery18 do begin close; sql. Clear; sql. Add ('select * from uslugi'); open; end; form26. ComboBox2.clear; for i:=1 to form1. ADOQuery18.RecordCount do begin form26. ComboBox2.Items.Add (trim (form1.ADOQuery18nam.AsString)); form1. adoquery18. Next; end; form26. Show;end;procedure TForm1. N18Click (Sender: TObject);var i: integer;begin with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum'); open; end; form27. ComboBox1.clear; for i:=1 to form1. ADOQuery5.RecordCount do begin form27. ComboBox1.Items.Add (trim (form1.ADOQuery5num.AsString)); form1. adoquery5. Next; end; form27. Show;end;procedure TForm1. N19Click (Sender: TObject);var i: integer;begin with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum'); open; end; form28. ComboBox1.clear; form28. ComboBox2.Clear; for i:=1 to form1. ADOQuery5.RecordCount do begin form28. ComboBox1.Items.Add (trim (form1.ADOQuery5num.AsString)); form28. ComboBox2.Items.Add (trim (form1.ADOQuery5num.AsString)); form1. adoquery5. Next; end; form28. Edit2.Clear; form28. Edit1.clear; form28. Show;end;procedure TForm1. N20Click (Sender: TObject);begin form29. DateTimePicker1. Date:=now; form29. DateTimePicker2. Date:=now; form29. Show;end;procedure TForm1. N22Click (Sender: TObject);begin form30. DateTimePicker1. Date:=now; form30. DateTimePicker2. Date:=now; form30. Show;end;procedure TForm1. N21Click (Sender: TObject);begin form31. Show;end;procedure TForm1. N23Click (Sender: TObject);var calc: toocalc; i: integer;begin calc:=toocalc.Create ('c:telekomxltprosr.xlt'); with form1. ADOQuery14 do begin close; sql. Clear; sql. Add ('select * from users '); open; end; for i:=1 to form1. ADOQuery14.RecordCount do begin if form1. ADOQuery14day_passw.AsDateTime<now-365 then begin calc. Cell[4,1]: =trim (form1.ADOQuery14login.AsString); calc. Cell[4,2]: =trim (form1.ADOQuery14fio.AsString); calc. Cell[4,3]: =form1.ADOQuery14day_passw.AsString; calc. InsertRow (4,true); end; form1. adoquery14. Next; end; calc. Visible:=true;end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzTabs, RzPrgres, RzButton, ComCtrls, StdCtrls;type TForm10 = class (TForm) RzPageControl1: TRzPageControl; TabSheet1: TRzTabSheet; TabSheet2: TRzTabSheet; TabSheet3: TRzTabSheet; Label1: TLabel; DateTimePicker1: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; ProgressBar1: TProgressBar; DateTimePicker2: TDateTimePicker; Label2: TLabel; Label3: TLabel; ComboBox1: TComboBox; Label4: TLabel; Edit1: TEdit; Label5: TLabel; RzBitBtn3: TRzBitBtn; Label6: TLabel; Edit2: TEdit; RzBitBtn4: TRzBitBtn; RzBitBtn5: TRzBitBtn; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); procedure RzBitBtn5Click (Sender: TObject); procedure ComboBox1Select (Sender: TObject); procedure RzBitBtn3Click (Sender: TObject); procedure RzBitBtn4Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form10: TForm10;implementationuses Unit1;{$R *.dfm}procedure TForm10. RzBitBtn2Click (Sender: TObject);begin form10. close;end;procedure TForm10. RzBitBtn1Click (Sender: TObject);var i, code, j: integer;begin with form1. adoquery10 do begin close; sql. clear; sql. add ('SELECT telnum. num, tarplan. tar_fix FROM tarplan INNER JOIN telnum ON tarplan. code = telnum. tarpl where tarplan. tar_fix>0'); open; end; form1. adoquery9. Open; form10. ProgressBar1.Position:=0; progressbar1. Max:=form1.ADOQuery10.RecordCount; for i:=1 to form1. ADOQuery10.RecordCount do begin with form1. ADOQuery11 do begin close; sql. Clear; sql. add ('select max (code_oper) from paydoc'); open; end; if form1. ADOQuery11.RecordCount=0 then code:=1 else code:=form1.ADOQuery11Expr1000.AsInteger+1; form1. ADOQuery9.AppendRecord ([code, form1. ADOQuery10num.AsString, datetimepicker1. Date, form1. ADOQuery10tar_fix.AsCurrency, 0,0,'Начисление безлимит '+datetostr (datetimepicker1.date)]); with form1. ADOQuery21 do begin close; sql. Clear; sql. Add ('SELECT uslugi. tar, gur_usl.telnum, uslugi. nam FROM uslugi INNER JOIN gur_usl ON uslugi. code = gur_usl.code_usl where gur_usl.telnum='+form1.Label1.Caption+trim (form1.ADOQuery10num.AsString)+form1.Label1.Caption); open; end; if form1. ADOQuery21.RecordCount>0 then begin for j:=1 to form1. ADOQuery21.RecordCount do begin form1. ADOQuery9.AppendRecord ([code+j, form1. ADOQuery10num.AsString, datetimepicker1. Date, form1. ADOQuery21tar.AsCurrency, 0,0,'Начисление услуги '+trim (form1.ADOQuery21nam.AsString)+' '+datetostr (datetimepicker1.date)]); form1. ADOQuery21. Next; end; end; form1. ADOQuery10. Next; progressbar1. StepBy (1); application. ProcessMessages; end; showmessage ('Начисление выполнено');end;procedure TForm10. RzBitBtn5Click (Sender: TObject);begin form10. Close;end;procedure TForm10. ComboBox1Select (Sender: TObject);begin with form1. adoquery12 do begin close; sql. clear; sql. add ('SELECT telnum. num, tarplan. tar_min FROM tarplan INNER JOIN telnum ON tarplan. code = telnum. tarpl where telnum. num='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open; end; label5. Caption:=form1.ADOQuery12tar_min.AsString;end;procedure TForm10. RzBitBtn3Click (Sender: TObject);begin edit2. Text:=currtostr (strtoint (edit1.Text)*strtocurr (label5.Caption));end;procedure TForm10. RzBitBtn4Click (Sender: TObject);var code: integer;begin with form1. ADOQuery11 do begin close; sql. Clear; sql. add ('select max (code_oper) from paydoc'); open; end; with form1. adoquery12 do begin close; sql. clear; sql. add ('SELECT telnum. num, tarplan. tar_min FROM tarplan INNER JOIN telnum ON tarplan. code = telnum. tarpl where telnum. num='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open; end; if form1. ADOQuery11.RecordCount=0 then code:=1 else code:=form1.ADOQuery11Expr1000.AsInteger+1; form1. ADOQuery9. open; form1. ADOQuery9.AppendRecord ([code, form1. ADOQuery12num.AsString, datetimepicker1. Date, edit2. Text, 0,0,'Начисление за минуты разговора '+datetostr (datetimepicker1.date)]); showmessage ('Готово');procedure TForm11. RzBitBtn3Click (Sender: TObject);begin form11. Close;end;procedure TForm11. RzBitBtn1Click (Sender: TObject);begin with form12 do begin rzedit1. clear; rzedit2. clear; rzedit3. clear; show; end;end;procedure TForm11. RzBitBtn4Click (Sender: TObject);begin with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('select * from paydoc where komment='+form1.Label1.Caption+trim (dbtext2.Caption)+form1.Label1.Caption); open; end; if form1. adoquery9.RecordCount>0 then showmessage ('На этом банке есть введенные операции. Удаление невозможно') else begin form1. ADOQuery13.Delete; showmessage ('Удалено'); end;end;procedure TForm11. RzBitBtn2Click (Sender: TObject);begin form13. RzEdit1. Text:=dbtext2.Caption; form13. RzEdit2. Text:=dbtext1.Caption; form13. RzEdit3. Text:=dbtext3.Caption; form13. show;end;end.unit Unit12;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, Mask, RzEdit;type TForm12 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; RzEdit1: TRzEdit; RzEdit2: TRzEdit; RzEdit3: TRzEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form12: TForm12;implementationuses Unit1;{$R *.dfm}procedure TForm12. RzBitBtn2Click (Sender: TObject);begin form12. close;end;procedure TForm12. RzBitBtn1Click (Sender: TObject);begin form1. ADOQuery13.AppendRecord ([rzedit2.Text, rzedit1. Text, rzedit3. Text]); showmessage ('Записано'); rzedit1. clear; rzedit2. Clear; rzedit3. Clear;end;end.unit Unit13;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, Mask, RzEdit;type TForm13 = class (TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; RzEdit1: TRzEdit; RzEdit2: TRzEdit; RzEdit3: TRzEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click (Sender: TObject); procedure RzBitBtn1Click (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form13: TForm13;implementationuses Unit1;{$R *.dfm}procedure TForm13. RzBitBtn2Click (Sender: TObject);begin form13. close;end;procedure TForm13. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery13 do begin close; sql. Clear; sql. add ('update banks set nam='+form1.Label1.Caption+trim (rzedit1.Text)+form1.Label1.Caption+' where bik='+form1.Label1.Caption+trim (rzedit2.Text)+form1.Label1.Caption); execsql; close; sql. Clear; sql. add ('update banks set kch='+form1.Label1.Caption+trim (rzedit3.Text)+form1.Label1.Caption+' where bik='+form1.Label1.Caption+trim (rzedit2.Text)+form1.Label1.Caption); execsql; close; sql. Clear; sql. Add ('select * from banks'); active:=true; end; form1. ADOQuery13.Locate ('bik', rzedit2. Text,[]); showmessage ('Записано');end;end.unit Unit14;procedure TForm14. RzBitBtn4Click (Sender: TObject);beginform14.close;end;procedure TForm14. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery15 do begin close; sql. Clear; sql. Add ('select max (code) from users'); open; end; if form1. adoquery15.RecordCount=0 then form15. RzEdit1. Text:='1' else form15. RzEdit1. Text:=inttostr (1+form1.ADOQuery15Expr1000.AsInteger); form15. RzEdit2.Clear; form15. RzEdit3.Clear; form15. Show;end;procedure TForm14. RzBitBtn2Click (Sender: TObject);begin form16. Label1.Caption:=form1.ADOQuery14login.AsString; form16. Edit1.clear; form16. Edit2.clear; form16. Show;end;procedure TForm14. RzBitBtn5Click (Sender: TObject);begin form1. adoquery14.Delete;end;procedure TForm14. RzBitBtn3Click (Sender: TObject);begin form17. RzEdit1. Text:=form1.ADOQuery14code.asstring; form17. RzEdit2. Text:=form1.ADOQuery14fio.asstring; form17. RzEdit3. Text:=form1.ADOQuery14login.asstring; if dbtext3. Caption='Администратор' then form17. RadioButton1.Checked:=true; if dbtext3. Caption='Специалист' then form17. RadioButton2.Checked:=true; if dbtext3. Caption='Руководитель' then form17. RadioButton3.Checked:=true; form17. Show;end;end.procedure TForm15. RzBitBtn1Click (Sender: TObject);var rol: string;beginif radiobutton1. Checked=true then rol:=radiobutton1.Caption;if radiobutton2. Checked=true then rol:=radiobutton2.Caption;if radiobutton3. Checked=true then rol:=radiobutton3.Caption;with form1. ADOQuery14 dobegin close; sql. Clear; sql. Add ('select * from users where login='+form1.Label1.Caption+trim (rzedit3.Text)+form1.Label1.Caption); open;end;if form1. ADOQuery14.RecordCount>0 then showmessage ('Такой логин в системе уже используется') elsebeginform1. ADOQuery14.AppendRecord ([rzedit1.Text, rzedit2. text, rol, rzedit3. Text]);rzedit1.Text:=inttostr (1+strtoint (rzedit1.Text));rzedit2.Clear;rzedit3.clear;showmessage ('Записано');end;with form1. ADOQuery14 do begin close; sql. Clear; sql. Add ('select * from users'); active:=true; end;end;end.procedure TForm17. RzBitBtn1Click (Sender: TObject);var rol: string;beginif radiobutton1. Checked=true then rol:=radiobutton1.Caption;if radiobutton2. Checked=true then rol:=radiobutton2.Caption;if radiobutton3. Checked=true then rol:=radiobutton3.Caption;with form1. adoquery14 dobegin close; sql. Clear; sql. Add ('update users set rol='+form1.Label1.Caption+rol+form1.Label1.Caption+' where code='+rzedit1.Text); execsql; close; sql. Clear; sql. Add ('update users set fio='+form1.Label1.Caption+trim (rzedit2.Text)+form1.Label1.Caption+' where code='+rzedit1.Text); execsql; close; sql. Clear; sql. Add ('update users set login='+form1.Label1.Caption+trim (rzedit3.Text)+form1.Label1.Caption+' where code='+rzedit1.Text); execsql; close; sql. Clear; sql. Add ('select * from users'); active:=true;end; form1. ADOQuery14.Locate ('code', rzedit1. Text,[]); showmessage ('Записано');end;end.procedure TForm19. BitBtn1Click (Sender: TObject);begin form1. ADOQuery7. Open; with form1. ADOQuery8 do begin close; sql. Clear; sql. Add ('select max (code_oper) from gur_doc'); open; end; with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum where num='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open; end; if form1. adoquery5.RecordCount=0 then showmessage ('Проверьте выбор номера телефона') else begin form1. ADOQuery7.AppendRecord ([form1.ADOQuery8Expr1000.AsInteger+1,combobox1.Text,'отключение', form1. ADOQuery5abon.AsInteger, datetimepicker1. Date]); with form1. ADOQuery5 do begin close; sql. Clear; sql. Add ('update telnum set actual=0 where num='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); execsql; end; showmessage ('Записано'); end;end;procedure TForm19. RzBitBtn1Click (Sender: TObject);var calc: toocalc;begin calc:=toocalc.Create ('c:telekomxltz_otkl.xlt'); form1. ADOQuery16. Open; calc. Cell[2,4]: =form1.ADOQuery16nam.AsString; calc. Cell[13,1]: =datetostr (datetimepicker1.Date); with form1. ADOQuery5 do begin close; sql. Clear; sql. Add ('select * from telnum where num='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open; end; with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from abonent where code='+form1.ADOQuery5abon.AsString); open; end; if form1. adoquery1.RecordCount>0 then begin calc. Cell[3,5]: =form1.ADOQuery1fio.AsString; calc. Cell[5,4]: =form1.ADOQuery1adr.AsString; end; calc. Cell[8,4]: =combobox1.Text; calc. Cell[8,6]: =datetostr (datetimepicker1.Date); calc. Visible:=true;end;end.procedure TForm2. RzBitBtn1Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from abonent'); active:=true; end; if form1. ADOQuery1.RecordCount=0 then form3. RzEdit1. Text:='1' else begin with form1. ADOQuery2 do begin close; sql. Clear; sql. Add ('select max (code) from abonent'); open; end; form3. RzEdit1. Text:=inttostr (1+form1.ADOQuery2Expr1000.AsInteger); end; form3. RzEdit2.Clear; form3. RzEdit3.Clear; form3. RzEdit4.Clear; form3. RzEdit5.Clear; form3. RzEdit6.Clear; form3. Show;end;procedure TForm2. RzBitBtn2Click (Sender: TObject);begin form4. RzEdit1. Text:=dbtext1.Caption; form4. RzEdit2. Text:=dbtext2.Caption; form4. RzEdit3. Text:=dbtext3.Caption; form4. RzEdit4. Text:=dbtext4.Caption; form4. RzEdit5. Text:=dbtext5.Caption; form4. RzEdit6. Text:=dbtext6.Caption; form4. Show;end;procedure TForm2. RzBitBtn3Click (Sender: TObject);begin form2. close;end;procedure TForm2. RzBitBtn4Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from abonent where fio like '+form1.Label1.Caption+'%'+trim (rzedit5.text)+'%'+form1.Label1.Caption); active:=true; end;end;procedure TForm2. RzBitBtn5Click (Sender: TObject);begin with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from abonent where adr like '+form1.Label1.Caption+'%'+trim (rzedit1.text)+'%'+form1.Label1.Caption); active:=true; end;end;procedure TForm2. RzBitBtn6Click (Sender: TObject);begin with form1. adoquery5 do begin close; sql. Clear; sql. Add ('select * from telnum where abon='+dbtext1.Caption); open; end; if form1. ADOQuery5.RecordCount>0 then showmessage ('Удаление невозможно — на данном пользователе зарегистрирован телефонный номер') else begin with form1. adoquery7 do begin close; sql. Clear; sql. Add ('select * from gur_doc where abon='+dbtext1.Caption); open; end; if (form1.ADOQuery7.RecordCount>0) then showmessage ('Удаление невозможно, т.к. по данному абоненту есть проведенные операции') else begin form1. adoquery1.Delete; showmessage ('Удалено'); end; end;end;end.procedure TForm21. BitBtn1Click (Sender: TObject);var komment: string;begin form1. adoquery9. Open; if radiobutton1. Checked=true then komment:='Поступление касса' else komment:='Поступление банк '+trim (combobox1.Text); form1. ADOQuery9.AppendRecord ([edit1.Text, combobox2. Text, datetimepicker1. Date, 0, strtocurr (edit2.Text), 0, komment]); edit2. clear; combobox1. Text:=''; edit1. Text:=inttostr (1+strtoint (edit1.Text)); showmessage ('Записано');end;end.