Список использованой литературы

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

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

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

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

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

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

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

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

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

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

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

 

 

Приложение 1

 

 

Приложение 2

 

 

Приложение 3

 

 

Приложение 4

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

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

 

Приложение 5

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

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

 

 

Приложение 6

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

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

 

Приложение 7

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

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

 

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

 

Приложение 8

 

 

Приложение 9

Содержание модуля 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.

 

 

 

Приложение 10

 

 

Содержание модуля 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.