Автоматизация учета оплаты штрафов по административным делам

Размещено на http://www.allbest.ru/

Автоматизация учета оплаты штрафов по административным делам



СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1. ПОСТАНОВКА ЗАДАЧИ

2. ОБЗОР И АНАЛИЗ СУЩЕСТВУЮЩЕГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ДЛЯ РЕШЕНИЯ ЗАДАЧИ

3. ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧ

3.1 Характеристика входной информации

3.2 Характеристика выходной информации

4. ПРОГРАММНАЯ РЕАЛИЗАЦИЯ ЗАДАЧИ

5. СХЕМА ВЗАИМОСВЯЗИ ПРОГРАММНЫХ МОДУЛЕЙ И ФАЙЛОВ И ЕЕ ОПИСАНИЕ

6. ТЕХНОЛОГИЧЕСКИЙ ПРОЦЕСС РЕШЕНИЯ ЗАДАЧИ И ЕГО ОПИСАНИЕ

ЗАКЛЮЧЕНИЕ

СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ

ПРИЛОЖЕНИЯ



ВВЕДЕНИЕ

Штраф (от нем. Strafe - наказание) - вид наказания; денежное взыскание, как правило, в пользу государства, назначаемое за совершение проступка. В законодательстве разных государств наряду с термином «штраф» используется также термин «денежное взыскание». Штраф как вид наказания присущ нескольким отраслям права.

Административное наказание - это форма государственного реагирования на правонарушение. Выражается в определенном наказании виновного лица. Основанием назначения административного наказания является административный проступок.

Административный штраф как мера административного наказания представляет собой денежное наказание, налагаемое полномочным органом на лицо, совершившее административное правонарушение. Его особенностью является воздействие на материальные интересы нарушителя посредством получения (наказания) с него в доход государства определенной суммы денежных средств.

Штраф налагается за большинство административных правонарушений. Он может устанавливаться актами высших органов государственной власти и государственного управления России, а также актами местных представительных органов субъектов федерации.

Штраф есть денежное наказание, налагаемое за административные правонарушения в случаях и пределах, предусмотренных Кодексом, выражающееся в величине, кратной минимальному размеру месячной оплаты труда (без учета районных коэффициентов), установленному законодательством Российской Федерации на момент окончания или пресечения правонарушения, а также в величине, кратной стоимости похищенного, утраченного, поврежденного имущества либо размеру незаконного дохода, полученного в результате административного правонарушения.

Штраф устанавливается в пределах от одной десятой до ста минимальных размеров оплаты труда, равно до десятикратной величины стоимости похищенного, утраченного, поврежденного имущества либо размера незаконного дохода, полученного в результате административного правонарушения.

Следует иметь в виду, что кодекс об административных правонарушениях предусматривает ответственность индивидуальных субъектов. Размер штрафа в отношении юридических лиц устанавливается в значительно больших размерах. В соответствии с законодательством такой штраф устанавливается в пределах до 1000 минимальных размеров оплаты труда.

В исключительных случаях в связи с выполнением обязательств, вытекающих из международных договоров, и особой необходимостью усиления административной ответственности законами Российской Федерации может быть установлен штраф в большем размере, чем предусматривается в части второй настоящей статьи.

Размеры штрафов и способы их установления особенно в последние годы, достаточно подвижны. Прежде размеры штрафов определялись законодательством путем указания на конкретный размер, минимальный и максимальный размеры, на максимальный размер при том, что минимальный размер определяется ко всем такого рода случаям.

Таким образом, штраф может быть выражен:

а) в пределах кратных размеров по отношению к минимальному размеру оплаты труда;

б) в величине, кратной стоимости похищенного, утраченного поврежденного имущества либо размеру незаконного дохода, полученного в результате административного правонарушения;

в) по отношению к определенным суммам стоимости предметов, ставших объектом правонарушения. Так, сокрытие (занижение) фактически полученных доходов налогообложения влечет полное изъятие сокрытых (заниженных) доходов и назначение штрафа в размере сокрытой (заниженной) суммы дохода).

В законодательных актах об административных правонарушениях, как правило, содержатся относительно определенные размеры налагаемых штрафов, и полномочным органам предоставляется право определять размеры штрафа в установленных пределах с учетом конкретных обстоятельств рассматриваемого дела об административном правонарушении. Штраф является основным, наиболее распространенным видом административного наказания. Он может также применяться в качестве замены других наказаний.

Размер административного штрафа, исчисляемого исходя из оснований, предусмотренных пунктами 1-7, не может превышать трёхкратный размер стоимости предмета административного правонарушения либо соответствующей суммы или стоимости. Размер административного штрафа, исчисляемого исходя из основания, предусмотренного пунктом 9, не может превышать одну двадцать пятую совокупного размера суммы выручки от реализации всех товаров (работ, услуг) за календарный год, предшествующий году, в котором было выявлено административное правонарушение, либо за предшествующую дате выявления административного правонарушения часть календарного года, в котором было выявлено административное правонарушение, если правонарушитель не осуществлял деятельность по реализации товаров (работ, услуг) в предшествующем календарном году.

Административный штраф не может применяться к сержантам, старшинам, солдатам и матросам, проходящим военную службу по призыву, а также к курсантам военных образовательных учреждений профессионального образования до заключения с ними контракта о прохождении военной службы

Актуальность данной темы заключается в том что она разрабатывается для персонала предприятия. И должна иметь доступный классический вид. Для пользователей на ее обучение не должно уходить много средств и времени, она должна быть стойкой и надежной.

Цель данной работы заключается в автоматизации учета оплаты штрафов по административным делам.

Задачи исследования:

· изучить предметную область, а именно учет оплаты штрафов по административным делам;

· разработать программный продукт «Автоматизация учета оплаты штрафов по административным делам» на основе данных представленным предприятием.

Объектом исследования является процесс учета оплаты штрафов по административным делам в Республиканской Службе Государственного Строительного Надзора (РСГСН).

Предметом исследования является «Автоматизация учета оплаты штрафов по административным делам на базе Республиканской Службы Государственного Строительного Надзора (РСГСН)».

В качестве методов исследования были использованы следующие методы:

· наблюдение;

· сравнение;

· анализ.

Практическая значимость курсового проекта состоит в том, что автоматизированное решение данной задачи:

· повысит эффективность работы данного предприятия;

· ускорит процесс обработки, передачи информации;

· качественно составлять отчеты;

· уменьшит работу с бумажными носителями информации.

Данный курсовой проект состоит из введения, основной части, заключения, списка использованной литературы, приложений.



1. ПОСТАНОВКА ЗАДАЧИ

Задача «Автоматизация учета оплаты штрафов по административным делам на базе Республиканской Службы Государственного Строительного Надзора (РСГСН)» поставлена на учет оплаты штрафов по административным делам, получение необходимых документов содержащих информацию об учете оплаты штрафов. Для этого необходимо использовать следующие первичные документы:

· постановление _ о назначении административного наказания;

· постановление о прекращении производства по делу об административном правонарушении;

· журнал административных дел по оплате штрафов

На основе этих документов разработаны следующие файлы:

Рабочие:

- Spr.bd - БД.

- Base1.bd - БД.

Потребителем результатной информации является директор

Программный продукт выполняется на языке Object Pascal в среде Delphi.

Для реализации программного продукта использовались следующие технические средства:

- процессор Pentium 4;

- ОЗУ 64 Мб и выше;

- объем жесткого диска 1 ГБ и выше;

- установленный MSSQL сервер;

- принтер;

- операционная система Windows 98/2000/Me/XP.

Данная задача решается ежемесячно, а так же ежегодно подводят итоги, если это запрашивает директор.



2. ОБЗОР И АНАЛИЗ СУЩЕСТВУЮЩЕГО ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ ДЛЯ РЕШЕНИЯ ЗАДАЧИ

Для решения рассматриваемой задачи также может подойти программный продукт 1С: Предприятие, которая является системой программ для автоматизации различных областей экономической деятельности. В конкретный программный продукт, входящий в систему программ 1С: Предприятие, включаются те функции и возможности, которые отвечают назначению этого продукта.

Все составляющие продукта 1С: Предприятие можно разделить на Технологическую платформу и Конфигурации. Технологическая платформа представляет собой набор различных механизмов, используемых для автоматизации экономической деятельности и не зависящих от конкретного законодательства и методологии учета. Конфигурации являются собственно прикладными решениями. Каждая конфигурация ориентирована на автоматизацию определенной сферы экономической деятельности и, разумеется, отвечает принятому законодательству.

Преимущества 1С:

· высокая эффективность ежедневной работы при подготовке рабочих документов и отчетов.

· развитые средства планирования, анализа и контроля деятельности.

· единое информационное пространство способствует организации четкого взаимодействия подразделений и сотрудников

Так же современный комплекс инструментальных средств и технологий для разработки, модификации, администрирования и сопровождения. Реальная открытость системы. Все прикладные решения поставляются с открытыми исходными кодами. Всегда можно посмотреть, как работает программа, почему она формирует те или иные операции и при необходимости изменить бизнес-логику системы.

Но предприятие выбрало среду Delphi для автоматизации данной задачи, так как для них эта программа подходит больше. Данная среда гибкая и при усложнении каких - нибуть структур на предприятии, ее можно будет переработать и улучшить. Доработка будет произведена быстрее, не нарушая основного тела программы и каких-либо частей данной программы, а так же не нарушая работоспособности предприятия.



3. ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧ

3.1 Характеристика входной информации

Носителями входной информации в задаче «Автоматизация учета оплаты штрафов по административным делам на базе Республиканской Службы Государственного Строительного Надзора (РСГСН)» являются следующие документы:

Таблица 1. Входная информация

Наименование первичного документа	Идентификатор	Периодичность
ПОСТАНОВЛЕНИЕ _ о назначении административного наказания	ОШАД0101	По мере поступления
ПОСТАНОВЛЕНИЕ _ о прекращении производства по делу об административном правонарушении	ОШАД0102	По мере поступления
Журнал административных дел по оплате штрафов	ОШАД0103	По мере поступления

Данные из первичных документов вводятся в файлы:

Таблица 2. Входные файлы

Имя входного файла	Идентификатор	Приложение (структура файла)	Приложение (содержание файла)
Spr.bd	ОШАД0301	4	5
Base1.bd	ОШАД0302	6	7

Описание входных файлов приведено в таблице 3

Таблица 3. Описание входных файлов

Назначение входного файла	Идентификатор	На основании каких документов заполняется
Содержит такие сведения, как: номер дела, статьи	ОШАД0301	ОШАД0101 ОШАД0102 ОШАД0103
Содержит такие сведения, как: номер дела, дата занесения, наименование обьекта, ответчик, статья, дата рассмотрения, штраф, дата оплаты, размер оплаты, примечание	ОШАД0302	ОШАД0101 ОШАД0102 ОШАД0103

3.2 Характеристика выходной информации

В результате решения задачи «Автоматизация учета оплаты штрафов по административным делам на базе Республиканской Службы Государственного Строительного Надзора (РСГСН)» является следующий выходной документ:

Таблица 4. Выходные документы

Наименование отчета	Иденти-фикатор	На основании каких файлов формируется	Периодичность получения	Получатель
Отчет по оплате штрафов по административным делам	ОШАД0401	ОШАД0301 ОШАД0302	Ежемесячно	Директор

Отчет по оплате штрафов по административным делам (ОШАД0401) содержит сведения об оплате штрафов.



4. ПРОГРАММНАЯ РЕАЛИЗАЦИЯ ЗАДАЧИ

Программная реализация решение задачи «Автоматизация учета оплаты штрафов по административным делам на базе Республиканской Службы Государственного Строительного Надзора (РСГСН)» представлена следующим образом:

Размещено на http://www.allbest.ru/

Таблица 5. Программные модули

Наименова-ние модуля	Назначение модуля
Unit1	Поиск, фильтрация, сортировка информации, корректировка, вывод отчета
Unit2	Заполнение рабочих таблиц, корректировка



5. СХЕМА ВЗАИМОСВЯЗИ ПРОГРАММНЫХ МОДУЛЕЙ И ФАЙЛОВ И ЕЕ ОПИСАНИЕ

Взаимодействие программных модулей учета штрафов административных дел проходит следующим образом: Зам. директора производится заполнение и корректировка «постановление о назначении административного наказания» (ОШАД0101) и «постановление о прекращении производства по делу об административном правонарушении» (ОШАД0102) так же бухгалтер заполняет и корректирует журнал административных дел по оплате штрафов (ОШАД0103) и формируются рабочие файлы (ОШАД0301) (ОШАД0302) и формируется контрольный документ отчета по оплате штрафов по административным делам(ОШАД0401) и отправляется на печать



6. ТЕХНОЛОГИЧЕСКИЙ ПРОЦЕСС РЕШЕНИЯ ЗАДАЧИ И ЕГО ОПИСАНИЕ

Заместитель директора заполняет документы «постановление о назначении административного наказания» (ОШАД0101) и «постановление о прекращении производства по делу об административном правонарушении» (ОШАД0102). Затем на основании выше перечисленных документов, заполняется журнал административных дел по оплате штрафов (ОШАД0103) и на основании этого документа производиться ввод данных в рабочие файлы (ОШАД0301, ОШАД0302). Затем производится обработка файлов, в результате формируется отчет по оплате штрафов по административным делам (ОШАД0401).



ЗАКЛЮЧЕНИЕ

Цель данного курсового проекта автоматизировать учет оплаты штрафов по административным делам. Автоматизация направлена на ускорение данного процесса , что позволяет легко и быстро выполнить свою работу, а так же получить все необходимые данные когда этого потребует директор предприятия. программный обеспечение модуль файл

В результате проделанной работы был разработан программный продукт на языке Object Pascal в среде Delphi 7, который выполняет следующие функции:

· заполнение рабочих файлов;

· поиск в таблицах БД;

· формирование отчета.

Внедрение этого программного продукта поможет учреждению уменьшить количество ошибок в расчетах, которые могут быть допущены при ручной обработке отчетов и ведомостей.

Данная программа должна помочь предприятию в данной сфере работы в которую будет внедрена данный программный продукт. Программа позволяет ускорить процесс по учету оплаты штрафов по административным делам.

Таблица 6. Сокращения

Аббревиатура	Полное название
ОШАД	Оплата штрафов административных дел
БД	База данных
РФ	Российская Федерация



СПИСОК ИСПОЛЬЗОВАНОЙ ЛИТЕРАТУРЫ

1. Алехин А.П., Кармолицкий А.А., Козлов Ю.М. «Административное право РФ». М., 2010.

2. Березин Б.И., Березин С.Б. Начальный курс работы с MSSQL. М.: ДИАЛОГ-МИФИ, 2008.

3. Бондарев В.М., Рублинецкий В.И., Качко Е.Г. Основы программирования. - Харьков: Фолио, Ростов н/Д: Феникс, 2012.

4. Грогоно П. Программирование в Delphi7. - М.: Феникс, 2006.

5. Заварыкин В.М., Житомирский В.Г. Курс обучающих работ в Delphi7 - М.: ДИАЛОГ-МИФИ, 2012.

6. Кодекс РСФСР об административных правонарушениях от 20 июня 2005.

7. Кравченко Г.Н. Теория Бухгалтерского учета. - Ростов-на-Дону:Наиболее полное руководство. - СПб.: БВХ-Петербург 2010.

8. Романов Е.Л. http://ermak.cs.nstu.ru/cprog - электронный учебник по Delphi7.

9. Федорова Г.С., Чубасова Г.С., Пономаренко Б.Ф. Проектирование и организация машинной обработки экономической информации. - М.: Финансы и статистика 2012.

10. Хомоненко А., Гофман В., Мещеряков Е., Никифоров В. Delphi7

11. Чиртик А., Борисок В., Корвель Ю. Трюки и эффекты Delphi. -СПб.:Питер Пресс 2010.



ПРИЛОЖЕНИЯ

Приложение 1

Структура таблицы БД. «Статьи»

Имя поля	Тип	Размер	Ключ
Номер Дела	Числовой	6	*
Статья	Строковый	20

Приложение 2

Содержание БД Spr.bd

Номер дела	Статья
1232	Ст. 19.5 Нарушение Административной ответственности
1243	Ст.9.5 Нарушение Строительных норм на строительном участке

Приложение 3

Структура БД. «Сведения об оплате штрафов»

Имя поля	Тип	Размер
Номер Дела	Числовой	6
Ответственный инспектор	Строковый	20
Дата занесения	Дата	6
Наименование объекта	Символьный	30
Ответчик	Символьный	20
Статья	Символьный	20
Дата рассмотрения	Дата	6
Штраф	Денежный	10
Дата оплаты	Дата	6
Размер оплаты	Денежный	10
Примечание	Символьный	20

Приложение 4

Содержание БД Base1.bd

Номер Дела	Ответственный инспектор	Дата занесения	Наименование объекта	Ответчик	Статья	Дата рассмот-рения
3245	Рыловский А.Д.	21.04.08	Частный Дом	Читов А. П.	Ст.21	21.04.09
4352	Рожков О.К.	21.03.09	Квартира	Шикин В.М.	Ст.9.5	03.07.10

Штраф	Дата оплаты	Размер оплаты	Примечание
1000	21.04.09	1000	Оплачено
2500	03.07.10	2500	Оплачено

Приложение 5



Содержание модуля Unit1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, XPMan, ExtCtrls, DBCtrls,

ComCtrls, OleServer, ExcelXP, ComObj, Buttons;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

DataSource1: TDataSource;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

XPManifest1: TXPManifest;

DateTimePicker1: TDateTimePicker;

DBNavigator1: TDBNavigator;

Button3: TButton;

Button4: TButton;

Button5: TButton;

ExcelApplication1: TExcelApplication;

Button6: TButton;

BitBtn1: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from Base1 where Otv_inspektor like '+chr(39)+'%'+edit1.Text+'%'+chr(39));

adoquery1.Open;

end;

procedure TForm1.Button2Click(Sender: TObject);

var d:integer;

begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select * from base1');

adoquery1.Open;

adoquery1.Last;

adoquery1.Append;

Form2.Show;

ADOQuery1['Nom']:=d;

ADOQuery1['Nom_dela']:=d;

begin

Form2.Edit1.clear;

Form2.Edit6.clear;

Form2.Edit2.clear;

Form2.ComboBox1.Text:='';

Form2.Edit3.clear;

Form2.ComboBox2.Text:='';

Form2.Edit4.clear;

Form2.Edit5.clear;

Form2.ComboBox3.Text:='';

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ADOQuery1.Edit;

Form2.Show;

Form2.Edit1.Text:=ADOQuery1['Nom_dela'];

Form2.Edit6.Text:=ADOQuery1['Otv_inspektor'];

Form2.Edit2.Text:=ADOQuery1['Data_zanesenia'];

Form2.ComboBox1.Text:=ADOQuery1['Naimen_obecta'];

Form2.Edit3.Text:=ADOQuery1['Otv'];

Form2.ComboBox2.Text:=ADOQuery1['Statie'];

Form2.DateTimePicker1.Date:=ADOQuery1['Data_rasmot'];

Form2.Edit4.Text:=ADOQuery1['Htraf'];

Form2.DateTimePicker2.Date:=ADOQuery1['data_oplati'];

Form2.Edit5.Text:=ADOQuery1['razmer_oplati'];

Form2.ComboBox3.Text:=ADOQuery1['Primehanie'];

Form2.adoquery1.SQL.Clear;

Form2.adoquery1.SQL.Add('select * from base1 where Nom_dela like '+chr(39)+Form2.Caption+chr(39));

Form2.adoquery1.Open;

Form2.Button1.Enabled:=True;

Form2.BitBtn1.Enabled:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ADOQuery1.Delete;

end;

procedure TForm1.Button5Click(Sender: TObject);

var

XL, XArr: Variant;

i: Integer;

j: Integer;

begin

XArr:=VarArrayCreate([1,ADOquery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application'); // Создание OLE объекта

XL.WorkBooks.add('D:\Проба.xlsx');

XL.visible:=true;

j := 2;

ADOquery1.First;

while not ADOquery1.Eof do

begin

i:=1;

while i<=ADOquery1.FieldCount do

begin

XArr[i] := ADOquery1.Fields[i-1].Value;

i := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

ADOquery1.Next;

j:=j+1;

end;

XL.Range['A30',CHR(64+ADOQuery1.FieldCount)+IntToStr(j-1)].select;

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

//XL.selection.Columns.AutoFit;

XL.selection.Borders[xlEdgeBottom].LineStyle:=xlContinuous;

XL.selection.Borders[xlEdgeTop].LineStyle:=xlContinuous;

XL.selection.Borders[xlEdgeLeft].LineStyle:=xlContinuous;

XL.selection.Borders[xlEdgeRight].LineStyle:=xlContinuous;

XL.selection.Borders[xlInsideHorizontal].LineStyle:=xlContinuous;

XL.selection.Borders[xlInsideVertical].LineStyle:=xlContinuous;

{XL.Range['A1','A1'].select;}

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

ADOQuery1.Post;

end;

procedure TForm1.Button7Click(Sender: TObject);

var

XL, XArr,Sheet: OleVariant;

i: Integer;

j: Integer;

const

xlWBatworksheet=-4167;

begin

XArr:=VarArrayCreate([1,ADOquery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application'); // Создание OLE объекта

XL.WorkBooks.add(xlWBatWorkSheet);

Sheet:=XL.Workbooks[1].WorkSheets[1];

Sheet.Name:='Обращение';

XL.visible:=true;

//********************************

{L.ActiveSheet.PageSetup.LeftMargin:= XL.Application.InchesToPoints(0.44);

XL.ActiveSheet.PageSetup.RightMargin:= XL.Application.InchesToPoints(0.44);

XL.ActiveSheet.PageSetup.TopMargin:= XL.Application.InchesToPoints(0.44);

XL.ActiveSheet.PageSetup.BottomMargin:= XL.Application.InchesToPoints(0.44);}

//********************************

xl.Range['A1:G1'].Select;

xl.Selection.HorizontalAlignment :=3;

xl.Selection.VerticalAlignment :=1;

xl.Selection.Orientation := 0;

xl.Selection.Merge;

xl.Range['B15:G18'].Select;

xl.Selection.VerticalAlignment :=1;

xl.Selection.Merge;

xl.Selection.WrapText:= true;

xl.Range['A2:A15'].Select;

xl.Selection.VerticalAlignment :=1;

xl.Selection.WrapText:= true;

//***************

xl.Range['A2:G15'].Select;

xl.Selection.VerticalAlignment :=1;

xl.Selection.HorizontalAlignment :=2;

xl.Selection.WrapText:= true;

Sheet.Columns[1].ColumnWidth:='15';

Sheet.Columns[2].ColumnWidth:='22';

Sheet.Columns[3].ColumnWidth:='9';

Sheet.Columns[4].ColumnWidth:='12';

Sheet.Columns[5].ColumnWidth:='17';

Sheet.Columns[6].ColumnWidth:='12';

Sheet.Columns[7].ColumnWidth:='15';

//********************************

XL.Range['B2']:=Form2.Edit1.Text;

XL.Range['B3']:=Form2.Edit6.Text;

XL.Range['B4']:=Form2.Edit2.Text;

XL.Range['B5']:=Form2.ComboBox1.Text;

XL.Range['B6']:=Form2.Edit3.Text;

XL.Range['B7']:=Form2.ComboBox2.Text;

XL.Range['E3']:=Form2.DateTimePicker1.Date;

XL.Range['E4']:=Form2.Edit4.Text;

XL.Range['B10']:=Form2.DateTimePicker2.Date;

XL.Range['B11']:=Form2.Edit5.Text;

XL.Range['B12']:=Form2.ComboBox3.Text;

//***********************************

XL.Range['A1']:='Номер Дела';

XL.Range['A2']:='Ответственный инспектор:';

XL.Range['A2'].Font.Bold:=true;

XL.Range['A3']:='Дата расмотрения:';

XL.Range['A4']:='Ноименование объекта:';

XL.Range['A5']:='Ответчик:';

XL.Range['A6']:='Статья:';

XL.Range['A7']:='Дата расмотрения:';

XL.Range['A10']:='Штраф:';

XL.Range['A11']:='Дата оплаты:';

XL.Range['A12']:='Размер оплаты:';

XL.Range['A13']:='Примечание:';

//***********************************

j := 20;

ADOquery1.First;

while not ADOquery1.Eof do

begin

i:=1;

while i<=ADOquery1.FieldCount-1 do

begin

XArr[i] := ADOquery1.Fields[i-1].Value;

i := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

ADOquery1.Next;

j:=j+1;

end;

end;

end.



Приложение 6

Содержание модуля Unit2

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, ComCtrls, StdCtrls, Buttons, ExtCtrls, XPMan;

type

TForm2 = class(TForm)

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label2: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

BitBtn1: TBitBtn;

DateTimePicker2: TDateTimePicker;

DateTimePicker1: TDateTimePicker;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

ADOQuery1: TADOQuery;

XPManifest2: TXPManifest;

Edit2: TEdit;

Edit3: TEdit;

Edit5: TEdit;

Button1: TButton;

Edit4: TEdit;

DataSource1: TDataSource;

Edit6: TEdit;

Label13: TLabel;

procedure Button1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Form1.ADOQuery1['Nom_dela']:=Form2.Edit1.Text;

Form1.ADOQuery1['Otv_inspektor']:=Form2.Edit6.Text;

Form1.ADOQuery1['Data_zanesenia']:=Form2.Edit2.Text;

Form1.ADOQuery1['Naimen_obecta']:=Form2.ComboBox1.Text;

Form1.ADOQuery1['Otv']:=Form2.Edit3.Text;

Form1.ADOQuery1['Statie']:=Form2.ComboBox2.Text;

Form1.ADOQuery1['Data_rasmot']:=Form2.DateTimePicker1.Date;

Form1.ADOQuery1['Htraf']:=Form2.Edit4.Text;

Form1.ADOQuery1['razmer_oplati']:=Form2.Edit5.Text;

Form1.ADOQuery1['data_oplati']:=Form2.DateTimePicker2.Date;

Form1.ADOQuery1['Primehanie']:=Form2.ComboBox3.Text;

Form1.ADOQuery1.Post;

end;

procedure TForm2.FormCreate(Sender: TObject);

var i:Integer;

begin

ComboBox1.Clear;

ADOQuery1.First; // ставим указать на первую запись

For i:=0 to ADOQuery1.RecordCount-1 do

begin

ComboBox1.Items.Add(ADOQuery1.FieldValues['Naimen_obecta']);

ADOQuery1.Next;

end;

end;

end.

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

...