Заключение. 
Проектирование баз данных

Разработанная в ходе выполнения курсового проекта база данных «Налоговая инспекция» является актуальной на сегодняшний день и имеет большую практическую значимость. Она помогает пользователю просмотреть данные об организациях, просмотреть виды деятельности, осуществляемые этой организацией, налоги.

В результате выполнения данного курсового проекта были решены задачи, поставленные в начале работы. Была разработана структура базы данных; в программу были включены функции поиска, выполнения различных запросов. При этом были учтены все требования, выдвинутые в начале выполнения данного проекта.

Разработанная программа устойчиво выполняет все свои функции. В ходе выполнения данного проекта были рассмотрены все основные этапы разработки и проектирования базы данных. Все поставленные задачи реализованы.

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

• 1. Карпова Т. С. Базы данных: модели, разработка. — СПб.: Питер, 2001.
• 2. Базы данных. Вводный курс. — Сергей Кузнецов.
• 3. Ульман Дж., Уидом Дж.

  Введение

  в системы баз данных. — М.: Лори, 2000.

• 4. Свободная электронная энциклопедия «Википедия», http://ru.wikipedia.org/

Приложение. Листинг программы.

unit Unit1;

interface.

uses.

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

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

type.

TForm1 = class (TForm).

con1: TADOConnection;

cbb1: TComboBox;

dbgrd1: TDBGrid;

tbl1: TADOTable;

qry1: TADOQuery;

ds1: TDataSource;

lbledt1: TLabeledEdit;

btn1: TButton;

lbledt2: TLabeledEdit;

btn2: TButton;

btn3: TButton;

btn4: TButton;

btn5: TButton;

btn6: TButton;

edt1: TEdit;

btn7: TButton;

lbl1: TLabel;

lbl2: TLabel;

edt2: TEdit;

lbl3: TLabel;

edt3: TEdit;

lbl4: TLabel;

edt4: TEdit;

lbl5: TLabel;

edt5: TEdit;

lbl6: TLabel;

edt6: TEdit;

edt7: TEdit;

edt8: TEdit;

lbl7: TLabel;

edt9: TEdit;

edt10: TEdit;

btn8: TButton;

lbl8: TLabel;

edt11: TEdit;

procedure cbb1Change (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn4Click (Sender: TObject);

procedure btn5Click (Sender: TObject);

procedure btn6Click (Sender: TObject);

procedure btn8Click (Sender: TObject);

procedure btn7Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

{$R *.dfm}.

procedure TForm1. cbb1Change (Sender: TObject);

begin.

if cbb1. ItemIndex = 0 then.

begin.

qry1.SQL.Text:='Select * from vse';

qry1.Open;

end;

if cbb1. ItemIndex = 1 then.

begin.

qry1.SQL.Text:='Select distinct `Nazvanie` from deyatelnost';

qry1.Open;

end;

if cbb1. ItemIndex = 2 then.

begin.

qry1.SQL.Text:='Select distinct `Vid` from Nalog';

qry1.Open;

end;

end;

procedure TForm1. btn1Click (Sender: TObject);

var.

l: string;

begin.

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select distinct `Название деятельности` from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1. btn2Click (Sender: TObject);

var.

l: string;

begin.

l:= lbledt2. Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Add ('select * from vse');

qry1.SQL.Add ('where ((`Имя организации` LIKE ''%'+l+'%'') or (`Название деятельности` LIKE ''%'+l+'%'')) ');

qry1.Open;

qry1.Active:=true;

ds1.DataSet:=qry1;

dbgrd1.DataSource:=ds1;

if qry1. RecordCount=0 then ShowMessage ('Ничего не найдено');

end;

procedure TForm1. btn3Click (Sender: TObject);

var.

l: string;

begin.

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select distinct `Налог`,`Вид` from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1. btn4Click (Sender: TObject);

var.

l: string;

begin.

l:=lbledt1.Text;

qry1.Close;

qry1.SQL.Clear;

qry1.SQL.Text:='Select Sum (`Налог`) as Сумма from `vse` where `Имя организации` LIKE ''%'+l+'%'';';

qry1.Open;

end;

procedure TForm1. btn5Click (Sender: TObject);

begin.

Form1.Close;

end;

procedure TForm1. btn6Click (Sender: TObject);

begin.

ShowMessage ('Данную программу разработала Уварова Анна Александровна, студент группы АП-121');

end;

procedure TForm1. btn8Click (Sender: TObject);

begin.

qry1.sql.clear;

qry1.sql.add ('INSERT INTO `organizacii` (`ID`,`Name`, `Address`, `Phone`,`Site`)');

qry1.SQL.Add ('values ('+''''+Edt11.Text+''''+','+''''+Edt1.Text+''''+','+''''+Edt2.Text+''''+','+''''+Edt3.Text+''''+', '+''''+Edt4.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from organizacii';

qry1.Open;

begin.

qry1.sql.clear;

qry1.sql.add ('INSERT INTO `deyatelnost` (`Nazvanie`,`ID`)');

qry1.SQL.Add ('values ('+''''+Edt9.Text+''''+', '+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from deyatelnost';

qry1.Open;

begin.

qry1.sql.clear;

qry1.sql.add ('INSERT INTO `deyatelnost` (`Nazvanie`,`ID`)');

qry1.SQL.Add ('values ('+''''+Edt10.Text+''''+', '+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from deyatelnost';

qry1.Open;

begin.

qry1.sql.clear;

qry1.sql.add ('INSERT INTO `nalog` (`Nalog`,`Vid`,`ID`)');

qry1.SQL.Add ('values ('+''''+Edt5.Text+''''+', '+''''+Edt6.Text+''''+','+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from nalog';

qry1.Open;

begin.

qry1.sql.clear;

qry1.sql.add ('INSERT INTO `nalog` (`Nalog`,`Vid`,`ID`)');

qry1.SQL.Add ('values ('+''''+Edt7.Text+''''+', '+''''+Edt8.Text+''''+','+''''+Edt11.Text+''''+')');

qry1.execsql;

qry1.SQL.Text:='Select * from nalog';

qry1.Open;

end;

end;

end;

end;

end;

procedure TForm1. btn7Click (Sender: TObject);

begin.

lbl8.Visible:=True;

lbl1.Visible:=True;

lbl2.Visible:=True;

lbl3.Visible:=True;

lbl4.Visible:=True;

lbl5.Visible:=True;

lbl6.Visible:=True;

lbl7.Visible:=True;

edt1.Visible:=True;

edt2.Visible:=True;

edt3.Visible:=True;

edt4.Visible:=True;

edt5.Visible:=True;

edt6.Visible:=True;

edt7.Visible:=True;

edt8.Visible:=True;

edt9.Visible:=True;

edt10.Visible:=True;

edt11.Visible:=True;

btn8.Visible:=True;

end;

end.