Разработка программного обеспечения "Телефонный справочник"

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

Таблица. Примеры элементов данных

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

Таблица.Ранг и Оценка сложности внешних вводов:

Ссылки на файлы	Элементы данных
	1-4	5-15	>15
0-1	Низкий=3	Низкий=3	Средний=4
2	Низкий=3	Средний=4	Высокий=6
>2	Средний=4	Высокий=6	Высокий=6

Таблица.Ранг и Оценка сложности внешних выводов:

Ссылки на файлы	Элементы данных
	1-4	5-19	>19
0-1	Низкий=4	Низкий=4	Средний=6
2-3	Низкий=4	Средний=5	Высокий=7
>3	Средний=5	Высокий=7	Высокий=7

Ранг и Оценка сложности внешних запросов:

Ссылки на файлы	Элементы данных
	1-4	5-19	>19
0-1	Низкий=3	Низкий=3	Средний=4
2-3	Низкий=3	Средний=4	Высокий=6
>3	Средний=4	Высокий=6	Высокий=6

Таблица.Ранг и Оценка сложности внутренних логических файлов:

Количество полей	Количество записей
	1-19	20-50	>50
1	Низкий=7	Низкий=7	Средний=10
2-5	Низкий=7	Средний=10	Высокий=15
>5	Средний=10	Высокий=15	Высокий=15

По данным таблицам анализируется созданная программа и каждый её элемент.

Таблица. Данные для расчета сводятся в таблицу:

Имя характеристики	Ранг, сложность, количество.
	Низкий	Средний	Высокий	Итого
Внешние вводы	i*3=___	i*4 =____	i*6 =____	= i
Внешние выводы	i*4=___	i*5 =____	i*7 =____	= i
Внешние запросы	i*3=___	i*4 =____	i*6 =____	= i
Внутренние логические файлы	i*7=___	i*10=____	i*15 =____	= i
Общее количество =i

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

где - Fi - коэффициенты регулировки сложности.

Fi - может иметь значения: 0-нет влияния; 1-случайное; 2-небольшое; 3-среднее; 4-важное; 5-основное.

F1 - сколько средств связи требуется для передачи или обмена информации с приложением.

F2 - как обрабатываются распределённые данные.

F3 - нуждается ли пользователь в фиксации времени ответа или производительности.

F4 - насколько распространена текущая аппаратная система на которой будет выполнятся приложение.

F5 - как часто выполняются транзакции.

F6 - какой % информации вводится в оперативном режиме.

F7 - приложение проектировалось для обеспечения эффективной работы конечного пользователя.

F8 - как много внутренних файлов обновляется в транзакции.

F9 - выполняет ли приложение интенсивную логическую или математическую обработку.

F10 - приложение разрабатывалась для удовлетворения требований одного или многих пользователей.

F11 - насколько трудны инсталляция и преобразование приложения.

F12 - насколько эффективно и/или автоматизированы процедуры запуска, резервирования и восстановления.

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

F14 - была ли спроектирована, разработана и поддержана в приложении простота изменений.

После вычисления FP на его основе формируются метрики трудоемкости, стоимости и т.д.:

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

Произведем расчет следующих характеристик:



4.2 Оценка размера программного продукта

Ранг и оценка сложности внешних вводов (таблица 4.2.1 - 4.2.19).

Таблица 4.2.1 - Форма:» F_dob_chastnie «

Ссылка на файлы	Элементы данных
		14
1		Низкий=3

Таблица 4.2.2 - Форма:» F_dob_tarif «

Ссылка на файлы	Элементы данных
		12
1		Низкий=3

Таблица 4.2.3 - Форма:» F_dob_organiz «

Ссылка на файлы	Элементы данных
		12
1		Низкий=3

Ранг и оценка сложности внешних выводов

Таблица 4.2.4 - Форма:»F_red_chastnie «

Ссылка на файлы	Элементы данных
		14
1		Низкий=4

Таблица 4.2.5 - Форма:»F_red_organiz»

Ссылка на файлы	Элементы данных
		12
1		Низкий=4

Таблица 4.2.6 - Форма:»F_red_tarif»

Ссылка на файлы	Элементы данных
		12
1		Низкий=4

Таблица 4.2.7 - Форма:»F_Glavn»

Ссылка на файлы	Элементы данных
		6
4		Высокий=7

Ранг и оценка сложности внешних запросов

Таблица 4.2.8 - Форма:»F_Razrab»

Ссылка на файлы	Элементы данных
		6
1		Низкий=3

Таблица 4.2.9 - Форма:»F_chastnie»

Ссылка на файлы	Элементы данных
		18
2		Средний=4

Таблица 4.2.10 Форма:»F_organiz»

Ссылка на файлы	Элементы данных
		18
2		Средний=4

Таблица 4.2.11 - Форма:»F_Tarif»

Ссылка на файлы	Элементы данных
		7
2		Средний=4

Таблица 4.2.12 - Форма:»F_Gurnal»

Ссылка на файлы	Элементы данных
		26
6		Высокий=6

Таблица 4.2.13 - Форма:»F_ochist_gurn»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Таблица 4.2.14 - Форма:»F_del_chastnie»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Таблица 4.2.15 - Форма:»F_del_organiz»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Таблица 4.2.16 - Форма:»F_del_tarif»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Таблица 4.2.17 - Форма:»F_baza»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Таблица 4.2.17 - Форма:»F_svedenia»

Ссылка на файлы	Элементы данных
		5
1		Низкий=3

Ранг и оценка сложности внутренних логических файлов

Таблица 4.2.18 - db1.mdb

Количество полей	Количество записей
		>50
>5		Высокий=15

Анализ программы

Таблица 4.2.19 - Расчет

Имя характеристики	Ранг, сложность, количество.
	Низкий	Средний	Высокий	Итого
Внешние вводы	3*3=9	0*4 =0	0*6 =0	= 9
Внешние выводы	3*4=12	0*5 =0	1*7 =7	=19
Внешние запросы	7*3=21	3*4 =12	1*6 =6	=39
Внутренние логические файлы	0*7=0	0*10 =0	1*15 =15	= 15
Общее количество:	82

Расчет FP

Таблица 4.2.20

F1	F2	F3	F4	F5	F6	F7	F8	F9	F10	F11	F12	F13	F14
2	4	5	3	3	4	5	3	5	5	4	4	5	5

FP = 82 * (0.65 + 0.01 * 57)=100.04

4.3 Оценка трудоемкости программного продукта

Трудоемкость = 100,04/25.5=3.93 (чел-мес)

4.4 Оценка стоимости

Стоимость = 3.93* 2000 = 7860 (руб)

Документированность = 58 / 100.04 = 5.81 (FP)

Заключение

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

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

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

Список литературы

1.«Delphi 7. Учебный курс» Бобровский С. И издательство «Питер» г. Санкт-Петербург 2004 год. Иллюстрированный самоучитель по Delphi для профессионалов

2.«Программирование баз данных в Delphi 7» Фаронов В.В. издательство «Питер» г. Санкт-Петербург 2005 год.

3.Справочное руководство по Delphi.

4.Электронный учебник «Delphi 7 для начинающих».

5.Автоматизированные информационные технологии в экономике: Учебник/ Под ред. проф Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 1999 г.

6.Ананьев П.И. Технология разработки программного обеспечения: Учебное пособие/ Алт. ГТУ им. Ползунова. - Барнаул: 2000 г.

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

8.Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный курс: Учебное пособие. - М.:Гелиос АРВ, 2002 г.

9.Информатика. Учеб.пособие для студентов пед.вузов/ Могилев А.В., Н.И. Пак, Е.К. Хённер; Под рд. Е.К. Хённера. - М., 1999 г.

10.Фаронов В. Программирование баз данных в Delphi7. Учебный курс. - Питер, 2003 г.

11.Лекции по дисциплине «РиЭАИС»

Приложение

Приложение А (документы)

Рисунок А-1

Рисунок А-2



Рисунок А-3

Рисунок А-4

Приложение Б (текст программы)

program Tel_Spravochnik;

uses

Forms,

U_Glavn in 'U_Glavn.pas' {F_Glavn},

U_Chastnie in 'U_Chastnie.pas' {F_Chastnie},

U_dob_chastnie in 'U_dob_Chastnie.pas' {F_dob_chastnie},

U_red_chastnie in 'U_red_chastnie.pas' {F_red_chastnie},

U_del_Chastnie in 'U_del_Chastnie.pas' {F_del_Chastnie},

U_Gurnal in 'U_Gurnal.pas' {F_Gurnal},

U_Ochist_Gurn in 'U_Ochist_Gurn.pas' {F_Ochist_Gurn},

U_Organiz in 'U_Organiz.pas' {F_Organiz},

U_dob_organiz in 'U_dob_organiz.pas' {F_dob_organiz},

U_red_organiz in 'U_red_organiz.pas' {F_red_organiz},

U_del_organiz in 'U_del_organiz.pas' {F_del_organiz},

U_Tarif in 'U_Tarif.pas' {F_Tarif},

U_dob_tarif in 'U_dob_tarif.pas' {F_dob_tarif},

U_red_tarif in 'U_red_tarif.pas' {F_red_tarif},

U_del_tarif in 'U_del_tarif.pas' {F_del_tarif},

U_Razrab in 'U_Razrab.pas' {F_Razrab},

U_baza in 'U_baza.pas' {F_baza},

U_svedenia in 'U_svedenia.pas' {F_svedenia};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TF_Glavn, F_Glavn);

Application.CreateForm(TF_Chastnie, F_Chastnie);

Application.CreateForm(TF_dob_chastnie, F_dob_chastnie);

Application.CreateForm(TF_red_chastnie, F_red_chastnie);

Application.CreateForm(TF_del_Chastnie, F_del_Chastnie);

Application.CreateForm(TF_Gurnal, F_Gurnal);

Application.CreateForm(TF_Ochist_Gurn, F_Ochist_Gurn);

Application.CreateForm(TF_Organiz, F_Organiz);

Application.CreateForm(TF_dob_organiz, F_dob_organiz);

Application.CreateForm(TF_red_organiz, F_red_organiz);

Application.CreateForm(TF_del_organiz, F_del_organiz);

Application.CreateForm(TF_Tarif, F_Tarif);

Application.CreateForm(TF_dob_tarif, F_dob_tarif);

Application.CreateForm(TF_red_tarif, F_red_tarif);

Application.CreateForm(TF_del_tarif, F_del_tarif);

Application.CreateForm(TF_Razrab, F_Razrab);

Application.CreateForm(TF_baza, F_baza);

Application.CreateForm(TF_svedenia, F_svedenia);

Application.Run;

end.

unit U_Glavn;

interface

uses

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

Dialogs, Menus, Buttons, StdCtrls, jpeg, ExtCtrls, DB, ADODB, ComObj;

type

TF_Glavn = class(TForm)

ADOConnection1: TADOConnection;

BitBtn1: TBitBtn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Button1: TButton;

Button2: TButton;

Image1: TImage;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

Button3: TButton;

Button4: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_Glavn: TF_Glavn;

MyDir:string;

WR: variant;

implementation

uses U_Chastnie, U_Gurnal, U_Organiz, U_Tarif, U_Razrab, U_baza, U_svedenia;

{$R *.dfm}

procedure TF_Glavn.BitBtn1Click(Sender: TObject);

begin

close

end;

procedure TF_Glavn.Button1Click(Sender: TObject);

begin

F_baza.Show

end;

procedure TF_Glavn.Button3Click(Sender: TObject);

begin

WR:=CreateOleObject('Word.Application');

WR.DisplayAlerts:=false;

WR.WordBasic.FileOpen(MyDir + '\Справка.doc');

WR.Visible:=true;

end;

procedure TF_Glavn.Button2Click(Sender: TObject);

begin

F_svedenia.Show

end;

procedure TF_Glavn.Button4Click(Sender: TObject);

begin

F_Razrab.Show

end;

procedure TF_Glavn.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_Glavn.N3Click(Sender: TObject);

begin

F_organiz.Show

end;

procedure TF_Glavn.N8Click(Sender: TObject);

begin

WR:=CreateOleObject('Word.Application');

WR.DisplayAlerts:=false;

WR.WordBasic.FileOpen(MyDir + '\Справка.doc');

WR.Visible:=true;

end;

procedure TF_Glavn.N9Click(Sender: TObject);

begin

F_Razrab.Show

end;

procedure TF_Glavn.N2Click(Sender: TObject);

begin

F_chastnie.Show

end;

procedure TF_Glavn.N5Click(Sender: TObject);

begin

F_tarif.Show

end;

procedure TF_Glavn.N6Click(Sender: TObject);

begin

F_gurnal.Show

end;

end.

unit U_baza;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TF_baza = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_baza: TF_baza;

implementation

uses U_Chastnie, U_Organiz;

{$R *.dfm}

procedure TF_baza.Button1Click(Sender: TObject);

begin

F_Chastnie.Show

end;

procedure TF_baza.Button2Click(Sender: TObject);

begin

F_Organiz.Show

end;

procedure TF_baza.Button3Click(Sender: TObject);

begin

close

end;

end.

unit U_Chastnie;

interface

uses

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

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

jpeg;

type

TF_Chastnie = class(TForm)

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

GroupBox2: TGroupBox;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Label2: TLabel;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_Chastnie: TF_Chastnie;

XL:variant;

MyDir:string;

implementation

uses U_Glavn, U_dob_Chastnie, U_red_Chastnie, U_del_Chastnie;

{$R *.dfm}

procedure filtr;

begin

F_Chastnie.ADOQuery1.Active:=false;

F_Chastnie.ADOQuery1.SQL.Clear;

F_Chastnie.ADOQuery1.SQL.Add('select * from sprav_f where (fio like '+#39+F_Chastnie.Edit1.Text+'%'+#39+')and('

+'nom like '+#39+F_Chastnie.Edit2.Text+'%'+#39+')and(nas_punkt like '+#39+

F_Chastnie.Edit3.Text+'%'+#39+')and(adres like '+#39+F_Chastnie.Edit4.Text+'%'+#39+') order by fio');

F_Chastnie.ADOQuery1.Active:=true;

end;

procedure TF_Chastnie.Button1Click(Sender: TObject);

begin

F_dob_chastnie.Show

end;

procedure TF_Chastnie.Button2Click(Sender: TObject);

begin

F_red_chastnie.Show

end;

procedure TF_Chastnie.Button3Click(Sender: TObject);

begin

F_del_Chastnie.Show

end;

procedure TF_Chastnie.Button4Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from [sprav_f] where [sal_nach] like '+#39+'-%'+#39);

ADOQuery1.Active:=true;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TF_Chastnie.FormShow(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TF_Chastnie.Edit1Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Chastnie.Edit2Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Chastnie.Edit3Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Chastnie.Edit4Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Chastnie.Button6Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from sprav_f');

ADOQuery1.Active:=true;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TF_Chastnie.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_Chastnie.Button5Click(Sender: TObject);

var i:integer;

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\частные лица лица.xls');

ADOQuery1.First;

i:=4;

while not ADOQuery1.Eof do

begin

XL.WorkBooks[1].WorkSheets[1].Cells[i,1]:=i-3;

XL.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName('fio').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName('nom').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName('nas_punkt').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName('adres').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,6]:=ADOQuery1.FieldByName('tarif').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,7]:=ADOQuery1.FieldByName('bonus').AsString;

i:=i+1;

ADOQuery1.Next;

end;

XL.Visible:=true;

end;

procedure TF_Chastnie.Button7Click(Sender: TObject);

begin

close

end;

end.

unit U_del_chastnie;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TF_del_chastnie= class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

Image1: TImage;

StaticText1: TStaticText;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_del_chastnie: tF_del_chastnie;

implementation

uses U_Glavn, U_chastnie;

{$R *.dfm}

procedure tF_del_chastnie.BitBtn2Click(Sender: TObject);

begin

close

end;

procedure tF_del_chastnie.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('delete from sprav_f where kod='+F_chastnie.ADOQuery1.FieldByName('kod').AsString);

ADOQuery1.ExecSQL;

F_chastnie.ADOQuery1.Active:=false;

F_chastnie.ADOQuery1.Active:=true;

F_chastnie.Edit1.Text:='';

F_chastnie.Edit2.Text:='';

F_chastnie.Edit3.Text:='';

F_chastnie.Edit4.Text:='';

close

end;

end.

unit U_Del_organiz;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;

type

TF_del_organiz = class(TForm)

ADOQuery1: TADOQuery;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image2: TImage;

Label1: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_del_organiz: TF_del_organiz;

implementation

uses U_Glavn, U_organiz;

{$R *.dfm}

procedure TF_del_organiz.BitBtn2Click(Sender: TObject);

begin

close

end;

procedure TF_del_organiz.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('delete from sprav_u where kod='+F_Organiz.ADOQuery1.FieldByName('kod').AsString);

ADOQuery1.ExecSQL;

F_Organiz.ADOQuery1.Active:=false;

F_Organiz.ADOQuery1.Active:=true;

close;

end;

end.

unit U_del_tarif;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TF_del_tarif = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

Image1: TImage;

Label1: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_del_tarif: TF_del_tarif;

implementation

uses U_Glavn, U_Tarif, U_dob_Chastnie, U_red_chastnie, U_dob_organiz, U_red_organiz;

{$R *.dfm}

procedure TF_del_tarif.BitBtn2Click(Sender: TObject);

begin

close

end;

procedure TF_del_tarif.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('delete from tarif where kod='+F_Tarif.ADOQuery1.FieldByName('kod').AsString);

ADOQuery1.ExecSQL;

F_Tarif.ADOQuery1.Active:=false;

F_Tarif.ADOQuery1.Active:=true;

F_red_organiz.ADOQuery2.Active:=false;

F_red_organiz.ADOQuery2.Active:=true;

F_red_chastnie.ADOQuery2.Active:=false;

F_red_chastnie.ADOQuery2.Active:=true;

F_dob_organiz.ADOQuery2.Active:=false;

F_dob_organiz.ADOQuery2.Active:=true;

F_dob_chastnie.ADOQuery2.Active:=false;

F_dob_chastnie.ADOQuery2.Active:=true;

close;

end;

end.

unit U_dob_Chastnie;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, DBCtrls, ComObj, jpeg, ExtCtrls;

type

TF_dob_chastnie = class(TForm)

Edit_fio: TEdit;

Edit_nom: TEdit;

Edit_adr: TEdit;

Edit_lg: TEdit;

DBLookupComboBox2: TDBLookupComboBox;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

ADOQuery3: TADOQuery;

ComboBox1: TComboBox;

Button3: TButton;

procedure FormShow(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit_fioChange(Sender: TObject);

procedure Edit_nomChange(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_dob_chastnie: TF_dob_chastnie;

XL:variant;

MyDir:string;

implementation

uses U_Glavn, U_chastnie;

{$R *.dfm}

procedure TF_dob_chastnie.FormShow(Sender: TObject);

begin

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

Edit_fio.Text:='';

Edit_nom.Text:='';

Edit_adr.Text:='';

Edit_lg.Text:='';

ComboBox1.Text:='';

end;

procedure TF_dob_chastnie.Button2Click(Sender: TObject);

begin

close

end;

procedure TF_dob_chastnie.Button1Click(Sender: TObject);

begin

if (Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(length(Edit_nom.Text)=5)and(Edit_adr.Text<>'')and(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\Заявление.xls');

XL.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into sprav_f (fio,nom,nas_punkt,adres,bonus,tarif) values ('

+#39+Edit_fio.Text+#39+','+#39+Edit_nom.Text[1]+Edit_nom.Text[2]

+'-'+Edit_nom.Text[3]+'-'+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+','

+#39+ComboBox1.Text+#39+','+#39+Edit_adr.Text+#39+','

+#39+Edit_lg.Text+#39+','+ADOQuery2.FieldByName('kod').AsString+')');

ADOQuery3.ExecSQL;

F_Chastnie.ADOQuery1.Active:=false;

F_Chastnie.ADOQuery1.Active:=true;

F_Chastnie.Edit1.Text:='';

F_Chastnie.Edit2.Text:='';

F_Chastnie.Edit3.Text:='';

F_Chastnie.Edit4.Text:='';

XL.Visible:=FALSE;

close;

end

else ShowMessage('Данные не соответствуют.');

end;

procedure TF_dob_chastnie.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_dob_chastnie.Edit_fioChange(Sender: TObject);

var n:string;

begin

if length(Edit_fio.Text)<>0 then

if (Edit_fio.Text[Length(Edit_fio.Text)]='1')or(Edit_fio.Text[Length(Edit_fio.Text)]='2')or

(Edit_fio.Text[Length(Edit_fio.Text)]='3')or(Edit_fio.Text[Length(Edit_fio.Text)]='4')or

(Edit_fio.Text[Length(Edit_fio.Text)]='5')or(Edit_fio.Text[Length(Edit_fio.Text)]='6')or

(Edit_fio.Text[Length(Edit_fio.Text)]='7')or(Edit_fio.Text[Length(Edit_fio.Text)]='8')or

(Edit_fio.Text[Length(Edit_fio.Text)]='9')or(Edit_fio.Text[Length(Edit_fio.Text)]='0')then

begin

ShowMessage('Вы не можете использовать цифры при вводе ФИО!');

n:=Edit_fio.Text;

delete(n,length(n),1);

Edit_fio.Text:=n;

end;

end;

procedure TF_dob_chastnie.Edit_nomChange(Sender: TObject);

var n:string;

begin

if Length(Edit_nom.Text)<>0 then

if (Edit_nom.Text[Length(Edit_nom.Text)]='1')or(Edit_nom.Text[Length(Edit_nom.Text)]='2')or

(Edit_nom.Text[Length(Edit_nom.Text)]='3')or(Edit_nom.Text[Length(Edit_nom.Text)]='4')or

(Edit_nom.Text[Length(Edit_nom.Text)]='5')or(Edit_nom.Text[Length(Edit_nom.Text)]='6')or

(Edit_nom.Text[Length(Edit_nom.Text)]='7')or(Edit_nom.Text[Length(Edit_nom.Text)]='8')or

(Edit_nom.Text[Length(Edit_nom.Text)]='9')or(Edit_nom.Text[Length(Edit_nom.Text)]='0')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе номера!');

n:=Edit_nom.Text;

delete(n,length(n),1);

Edit_nom.Text:=n;

end;

end;

procedure TF_dob_chastnie.Button3Click(Sender: TObject);

begin

if (Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(length(Edit_nom.Text)=5)and(Edit_adr.Text<>'')and(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\Заявление.xls');

XL.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into sprav_f (fio,nom,nas_punkt,adres,bonus,tarif) values ('

+#39+Edit_fio.Text+#39+','+#39+Edit_nom.Text[1]+Edit_nom.Text[2]

+'-'+Edit_nom.Text[3]+'-'+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+','

+#39+ComboBox1.Text+#39+','+#39+Edit_adr.Text+#39+','

+#39+Edit_lg.Text+#39+','+ADOQuery2.FieldByName('kod').AsString+')');

ADOQuery3.ExecSQL;

F_Chastnie.ADOQuery1.Active:=false;

F_Chastnie.ADOQuery1.Active:=true;

F_Chastnie.Edit1.Text:='';

F_Chastnie.Edit2.Text:='';

F_Chastnie.Edit3.Text:='';

F_Chastnie.Edit4.Text:='';

XL.Visible:=true;

close;

end

else ShowMessage('Данные не соответствуют.');

end;

end.

unit U_dob_organiz;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, DBCtrls, ComObj, jpeg, ExtCtrls;

type

TF_dob_organiz = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit_fio: TEdit;

Edit_nom: TEdit;

Edit_adr: TEdit;

DBLookupComboBox2: TDBLookupComboBox;

Button1: TButton;

Button2: TButton;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

ADOQuery3: TADOQuery;

ComboBox1: TComboBox;

Button3: TButton;

procedure Button2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit_nomChange(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

Public

{ Public declarations }

end;

var

F_dob_organiz: TF_dob_organiz;

XL:variant;

MyDir:string;

implementation

uses U_Glavn, U_chastnie, U_Organiz;

{$R *.dfm}

procedure TF_dob_organiz.Button2Click(Sender: TObject);

begin

close

end;

procedure TF_dob_organiz.FormShow(Sender: TObject);

begin

Edit_fio.Text:='';

Edit_nom.Text:='';

Edit_adr.Text:='';

ComboBox1.Text:='';

end;

procedure TF_dob_organiz.Button1Click(Sender: TObject);

begin

if (Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(Edit_adr.Text<>'')and

(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\Заявление2.xls');

XL.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into sprav_u (naimen,nom,adres,[nas_punkt],tarif) values ('

+#39+Edit_fio.Text+#39+','+#39+Edit_nom.Text[1]+Edit_nom.Text[2]+'-'

+Edit_nom.Text[3]+'-'+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+','+#39+Edit_adr.Text+#39

+','+#39+ComboBox1.Text+#39+','+ADOQuery2.FieldByName('kod').AsString+')');

ADOQuery3.ExecSQL;

F_Organiz.ADOQuery1.Active:=false;

F_Organiz.ADOQuery1.Active:=true;

XL.Visible:=false;

close;

end

else ShowMessage('Вы ввели не все данные!');

end;

procedure TF_dob_organiz.Edit_nomChange(Sender: TObject);

var n:string;

begin

if Length(Edit_nom.Text)<>0 then

if (Edit_nom.Text[Length(Edit_nom.Text)]='1')or(Edit_nom.Text[Length(Edit_nom.Text)]='2')or

(Edit_nom.Text[Length(Edit_nom.Text)]='3')or(Edit_nom.Text[Length(Edit_nom.Text)]='4')or

(Edit_nom.Text[Length(Edit_nom.Text)]='5')or(Edit_nom.Text[Length(Edit_nom.Text)]='6')or

(Edit_nom.Text[Length(Edit_nom.Text)]='7')or(Edit_nom.Text[Length(Edit_nom.Text)]='8')or

(Edit_nom.Text[Length(Edit_nom.Text)]='9')or(Edit_nom.Text[Length(Edit_nom.Text)]='0')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе номера!');

n:=Edit_nom.Text;

delete(n,length(n),1);

Edit_nom.Text:=n;

end;

end;

procedure TF_dob_organiz.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_dob_organiz.Button3Click(Sender: TObject);

begin

if (Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(Edit_adr.Text<>'')and

(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\Заявление2.xls');

XL.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into sprav_u (naimen,nom,adres,[nas_punkt],tarif) values ('

+#39+Edit_fio.Text+#39+','+#39+Edit_nom.Text[1]+Edit_nom.Text[2]+'-'

+Edit_nom.Text[3]+'-'+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+','+#39+Edit_adr.Text+#39

+','+#39+ComboBox1.Text+#39+','+ADOQuery2.FieldByName('kod').AsString+')');

ADOQuery3.ExecSQL;

F_Organiz.ADOQuery1.Active:=false;

F_Organiz.ADOQuery1.Active:=true;

XL.Visible:=true;

close;

end

else ShowMessage('Вы ввели не все данные!');

end;

end.

unit U_dob_tarif;

interface

uses

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

Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;

type

TF_dob_tarif = class(TForm)

Label1: TLabel;

Edit_tar: TEdit;

Label2: TLabel;

Edit_ab_f: TEdit;

Label3: TLabel;

Edit_ab_u: TEdit;

Label4: TLabel;

Edit_min_f: TEdit;

Label5: TLabel;

Edit_min_u: TEdit;

Button1: TButton;

Button2: TButton;

ADOQuery1: TADOQuery;

procedure FormShow(Sender: TObject);

procedure Edit_ab_fChange(Sender: TObject);

procedure Edit_ab_uChange(Sender: TObject);

procedure Edit_min_fChange(Sender: TObject);

procedure Edit_min_uChange(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_dob_tarif: TF_dob_tarif;

implementation

uses U_Glavn, U_Tarif, U_dob_chastnie, U_dob_organiz, U_red_chastnie, U_red_organiz;

{$R *.dfm}

procedure TF_dob_tarif.FormShow(Sender: TObject);

begin

Edit_tar.Text:='';

Edit_ab_f.Text:='0';

Edit_ab_u.Text:='0';

Edit_min_f.Text:='0';

Edit_min_u.Text:='0';

end;

procedure TF_dob_tarif.Edit_ab_fChange(Sender: TObject);

var n:string;

begin

if Length(Edit_ab_f.Text)<>0 then

if (Edit_ab_f.Text[Length(Edit_ab_f.Text)]='1')or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='2')or

(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='3')or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='4')or

(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='5')or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='6')or

(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='7')or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='8')or

(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='9')or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='0')or

(Edit_ab_f.Text[Length(Edit_ab_f.Text)]='.')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе!');

n:=Edit_ab_f.Text;

delete(n,length(n),1);

Edit_ab_f.Text:=n;

end;

if Edit_ab_f.Text='' then Edit_ab_f.Text:='0';

end;

procedure TF_dob_tarif.Edit_ab_uChange(Sender: TObject);

var n:string;

begin

if Length(Edit_ab_u.Text)<>0 then

if (Edit_ab_u.Text[Length(Edit_ab_u.Text)]='1')or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='2')or

(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='3')or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='4')or

(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='5')or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='6')or

(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='7')or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='8')or

(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='9')or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='0')or

(Edit_ab_u.Text[Length(Edit_ab_u.Text)]='.')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе!');

n:=Edit_ab_u.Text;

delete(n,length(n),1);

Edit_ab_u.Text:=n;

end;

if Edit_ab_u.Text='' then Edit_ab_u.Text:='0';

end;

procedure TF_dob_tarif.Edit_min_fChange(Sender: TObject);

var n:string;

begin

if Length(Edit_min_f.Text)<>0 then

if (Edit_min_f.Text[Length(Edit_min_f.Text)]='1')or(Edit_min_f.Text[Length(Edit_min_f.Text)]='2')or

(Edit_min_f.Text[Length(Edit_min_f.Text)]='3')or(Edit_min_f.Text[Length(Edit_min_f.Text)]='4')or

(Edit_min_f.Text[Length(Edit_min_f.Text)]='5')or(Edit_min_f.Text[Length(Edit_min_f.Text)]='6')or

(Edit_min_f.Text[Length(Edit_min_f.Text)]='7')or(Edit_min_f.Text[Length(Edit_min_f.Text)]='8')or

(Edit_min_f.Text[Length(Edit_min_f.Text)]='9')or(Edit_min_f.Text[Length(Edit_min_f.Text)]='0')or

(Edit_min_f.Text[Length(Edit_min_f.Text)]='.')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе!');

n:=Edit_min_f.Text;

delete(n,length(n),1);

Edit_min_f.Text:=n;

end;

if Edit_min_f.Text='' then Edit_min_f.Text:='0';

end;

procedure TF_dob_tarif.Edit_min_uChange(Sender: TObject);

var n:string;

begin

if Length(Edit_min_u.Text)<>0 then

if (Edit_min_u.Text[Length(Edit_min_u.Text)]='1')or(Edit_min_u.Text[Length(Edit_min_u.Text)]='2')or

(Edit_min_u.Text[Length(Edit_min_u.Text)]='3')or(Edit_min_u.Text[Length(Edit_min_u.Text)]='4')or

(Edit_min_u.Text[Length(Edit_min_u.Text)]='5')or(Edit_min_u.Text[Length(Edit_min_u.Text)]='6')or

(Edit_min_u.Text[Length(Edit_min_u.Text)]='7')or(Edit_min_u.Text[Length(Edit_min_u.Text)]='8')or

(Edit_min_u.Text[Length(Edit_min_u.Text)]='9')or(Edit_min_u.Text[Length(Edit_min_u.Text)]='0')or

(Edit_min_u.Text[Length(Edit_min_u.Text)]='.')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе!');

n:=Edit_min_u.Text;

delete(n,length(n),1);

Edit_min_u.Text:=n;

end;

if Edit_min_u.Text='' then Edit_min_u.Text:='0';

end;

procedure TF_dob_tarif.Button2Click(Sender: TObject);

begin

close

end;

procedure TF_dob_tarif.Button1Click(Sender: TObject);

begin

if Edit_tar.Text<>'' then

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('insert into tarif (naimen,[ab_f],[ab_u],[min_f],[min_u]) values ('

+#39+Edit_tar.Text+#39+','+#39+Edit_ab_f.Text+#39+','+#39+Edit_ab_u.Text+#39

+','+#39+Edit_min_f.Text+#39+','+#39+Edit_min_u.Text+#39+')');

ADOQuery1.ExecSQL;

F_Tarif.ADOQuery1.Active:=false;

F_Tarif.ADOQuery1.Active:=true;

F_red_organiz.ADOQuery2.Active:=false;

F_red_organiz.ADOQuery2.Active:=true;

F_red_chastnie.ADOQuery2.Active:=false;

F_red_chastnie.ADOQuery2.Active:=true;

F_dob_organiz.ADOQuery2.Active:=false;

F_dob_organiz.ADOQuery2.Active:=true;

F_dob_chastnie.ADOQuery2.Active:=false;

F_dob_chastnie.ADOQuery2.Active:=true;

close;

end

else ShowMessage('Введите наименование тарифа!');

end;

end.

unit U_Gurnal;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, ADODB, StdCtrls, Menus, ComObj,

jpeg;

type

TF_Gurnal = class(TForm)

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

RadioGroup1: TRadioGroup;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label5: TLabel;

Label_Nachisl: TLabel;

Edit2: TEdit;

Label4: TLabel;

Button1: TButton;

GroupBox2: TGroupBox;

Label6: TLabel;

Edit3: TEdit;

Label7: TLabel;

Edit4: TEdit;

RadioGroup2: TRadioGroup;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

ComboBox1: TComboBox;

ADOQuery3: TADOQuery;

ADOTable1: TADOTable;

L_tarif: TLabel;

Label3: TLabel;

Button2: TButton;

Image1: TImage;

Button3: TButton;

procedure FormShow(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure RadioGroup2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_Gurnal: TF_Gurnal;

sort:string;

XL:variant;

MyDir:string;

implementation

uses U_Glavn, U_chastnie, U_Ochist_gurn, U_organiz;

{$R *.dfm}

procedure filtr;

begin

if F_Gurnal.RadioGroup1.ItemIndex=0 then

begin

if F_Gurnal.RadioGroup2.ItemIndex=0 then sort:=' order by fio'

else sort:=' order by data_opl';

end

else

begin

if F_Gurnal.RadioGroup2.ItemIndex=0 then sort:=' order by naimen'

else sort:=' order by data_opl';

end;

F_Gurnal.ADOQuery1.Active:=false;

F_Gurnal.ADOQuery1.SQL.Clear;

if F_Gurnal.RadioGroup1.ItemIndex=0 then

F_Gurnal.ADOQuery1.SQL.Add('select g.kod,fio,data_opl,sum from gurnal as g,sprav_f as s where (g.kod_ab=s.kod)and(fio like '

+#39+F_Gurnal.Edit3.Text+'%'+#39+')and(data_opl like '+#39+F_Gurnal.Edit4.Text+'%'+#39+')'+sort)

else

F_Gurnal.ADOQuery1.SQL.Add('select g.kod,naimen,data_opl,sum from gurnal as g,sprav_u as s where (g.kod_ab=s.kod)and(naimen like '

+#39+F_Gurnal.Edit3.Text+'%'+#39+')and(data_opl like '+#39+F_Gurnal.Edit4.Text+'%'+#39+')'+sort);

F_Gurnal.ADOQuery1.Active:=true;

end;

procedure buton;

begin

if (F_Gurnal.ComboBox1.Text<>'')and(F_Gurnal.Edit1.Text<>'0')and(F_Gurnal.Edit2.Text<>'0')

then F_Gurnal.Button1.Enabled:=true

else F_Gurnal.Button1.Enabled:=false;

end;

procedure TF_Gurnal.FormShow(Sender: TObject);

begin

Edit3.Text:='';

Edit4.Text:='';

ComboBox1.Items.Clear;

ADOQuery2.First;

while not ADOQuery2.Eof do

begin

if RadioGroup1.ItemIndex=0 then

ComboBox1.Items.Add(ADOQuery2.FieldByName('fio').AsString)

else

ComboBox1.Items.Add(ADOQuery2.FieldByName('sprav_u.naimen').AsString);

ADOQuery2.Next;

end;

end;

procedure TF_Gurnal.ComboBox1Change(Sender: TObject);

var n:string;

begin

if length(ComboBox1.Text)<>0 then

if (ComboBox1.Text[Length(ComboBox1.Text)]='1')or(ComboBox1.Text[Length(ComboBox1.Text)]='2')or

(ComboBox1.Text[Length(ComboBox1.Text)]='3')or(ComboBox1.Text[Length(ComboBox1.Text)]='4')or

(ComboBox1.Text[Length(ComboBox1.Text)]='5')or(ComboBox1.Text[Length(ComboBox1.Text)]='6')or

(ComboBox1.Text[Length(ComboBox1.Text)]='7')or(ComboBox1.Text[Length(ComboBox1.Text)]='8')or

(ComboBox1.Text[Length(ComboBox1.Text)]='9')or(ComboBox1.Text[Length(ComboBox1.Text)]='0')then

begin

ShowMessage('Вы не можете использовать цифры при вводе ФИО\Организации!');

n:=ComboBox1.Text;

delete(n,length(n),1);

ComboBox1.Text:=n;

end;

if RadioGroup1.ItemIndex=0 then

ADOQuery2.Locate('fio',ComboBox1.Text,[])

else

ADOQuery2.Locate('sprav_u.naimen',ComboBox1.Text,[]);

ADOTable1.Locate('kod',ADOQuery2.FieldByName('tarif').AsString,[]);

l_tarif.Caption:=ADOQuery2.FieldByName('tarif').AsString;

if l_tarif.Caption='' then l_tarif.Caption:='0';

Edit1.Text:='0';

if ComboBox1.Text='' then

begin

l_tarif.Caption:='0';

Label_Nachisl.Caption:='0';

end;

buton;

end;

procedure TF_Gurnal.Edit1Change(Sender: TObject);

var n:string;

begin

if Length(Edit1.Text)<>0 then

if (Edit1.Text[Length(Edit1.Text)]='1')or(Edit1.Text[Length(Edit1.Text)]='2')or

(Edit1.Text[Length(Edit1.Text)]='3')or(Edit1.Text[Length(Edit1.Text)]='4')or

(Edit1.Text[Length(Edit1.Text)]='5')or(Edit1.Text[Length(Edit1.Text)]='6')or

(Edit1.Text[Length(Edit1.Text)]='7')or(Edit1.Text[Length(Edit1.Text)]='8')or

(Edit1.Text[Length(Edit1.Text)]='9')or(Edit1.Text[Length(Edit1.Text)]='0')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе кол-ва минут!');

n:=Edit1.Text;

delete(n,length(n),1);

Edit1.Text:=n;

end;

if Edit1.Text='' then

begin

Edit1.Text:='0';

Label_Nachisl.Caption:='0';

end;

Label_Nachisl.Caption:=floattostr(strtoint(Edit1.Text)*ADOQuery2.FieldByName('min_f').AsFloat+ADOQuery2.FieldByName('ab_f').AsFloat-strtofloat(l_tarif.Caption));

buton;

end;

procedure TF_Gurnal.Button1Click(Sender: TObject);

var dat,summa,kodik:string;

begin

if RadioGroup1.ItemIndex=0 then

begin

dat:=datetostr(date);

summa:=Edit2.Text;

kodik:=ADOQuery2.FieldByName('sprav_f.kod').AsString;

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into gurnal ([data_opl],[sum],[kod_ab]) values ('+#39+dat+#39+','+summa+','+kodik+')');

ADOQuery3.ExecSQL;

ADOQuery3.SQL.Clear;

summa:=floattostr(strtofloat(Edit2.Text)-strtofloat(Label_Nachisl.Caption));

ADOQuery3.SQL.Add('update [sprav_f] set [TARIF]='+#39+summa+#39+' where kod='+kodik);

ADOQuery3.ExecSQL;

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\Счет.xls');

XL.WorkBooks[1].WorkSheets[1].Cells[3,6]:=datetostr(date);

XL.WorkBooks[1].WorkSheets[1].Cells[4,5]:=ComboBox1.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[5,4]:=ADOQuery2.FieldByName('adres').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[13,8]:=Label_Nachisl.Caption;

XL.WorkBooks[1].WorkSheets[1].Cells[16,6]:=datetostr(date);

XL.WorkBooks[1].WorkSheets[1].Cells[17,5]:=ComboBox1.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[18,4]:=ADOQuery2.FieldByName('adres').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[22,9]:=ADOQuery2.FieldByName('ab_f').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[23,9]:=floattostr(strtoint(Edit1.Text)*ADOQuery2.FieldByName('min_f').AsFloat);

XL.WorkBooks[1].WorkSheets[1].Cells[31,4]:=l_tarif.Caption;

XL.WorkBooks[1].WorkSheets[1].Cells[31,6]:=Edit2.Text;

XL.Visible:=true;

f_chastnie.ADOQuery1.Active:=false;

f_chastnie.ADOQuery1.Active:=true;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

end

else

begin

dat:=datetostr(date);

summa:=Edit2.Text;

kodik:=ADOQuery2.FieldByName('sprav_u.kod').AsString;

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.Add('insert into gurnal ([data_opl],[sum],[kod_ab]) values ('+#39+dat+#39+','+summa+','+kodik+')');

ADOQuery3.ExecSQL;

ADOQuery3.SQL.Clear;

summa:=floattostr(strtofloat(Edit2.Text)-strtofloat(Label_Nachisl.Caption));

ADOQuery3.SQL.Add('update [sprav_u] set [TARIF]='+#39+summa+#39+' where kod='+kodik);

ADOQuery3.ExecSQL;

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\расчетный счет.xls');

randomize;

XL.WorkBooks[1].WorkSheets[1].Cells[6,3]:=inttostr(random(5000));

XL.WorkBooks[1].WorkSheets[1].Cells[20,2]:=ADOTable1.FieldByName('naimen').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[6,5]:=datetostr(date);

XL.WorkBooks[1].WorkSheets[1].Cells[29,4]:=Label_Nachisl.Caption;

XL.WorkBooks[1].WorkSheets[1].Cells[8,2]:=ComboBox1.Text;

XL.WorkBooks[1].WorkSheets[1].Cells[9,4]:=ADOQuery2.FieldByName('adres').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[29,2]:=l_tarif.Caption;

XL.WorkBooks[1].WorkSheets[1].Cells[29,6]:=Edit2.Text;

XL.Visible:=true;

F_organiz.ADOQuery1.Active:=false;

F_organiz.ADOQuery1.Active:=true;

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

end;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

Edit1.Text:='';

Edit2.Text:='';

ComboBox1.Text:='';

end;

procedure TF_Gurnal.Edit2Change(Sender: TObject);

var n:string;

begin

if Edit2.Text='' then Edit2.Text:='0';

if Length(Edit2.Text)<>0 then

if (Edit2.Text[Length(Edit2.Text)]='1')or(Edit2.Text[Length(Edit2.Text)]='2')or

(Edit2.Text[Length(Edit2.Text)]='3')or(Edit2.Text[Length(Edit2.Text)]='4')or

(Edit2.Text[Length(Edit2.Text)]='5')or(Edit2.Text[Length(Edit2.Text)]='6')or

(Edit2.Text[Length(Edit2.Text)]='7')or(Edit2.Text[Length(Edit2.Text)]='8')or

(Edit2.Text[Length(Edit2.Text)]='9')or(Edit2.Text[Length(Edit2.Text)]='0')or

(Edit2.Text[Length(Edit2.Text)]=',')then

else

begin

ShowMessage('Вы не можете использовать буквы при вводе кол-ва минут!');

n:=Edit2.Text;

delete(n,length(n),1);

Edit2.Text:=n;

end;

buton;

end;

procedure TF_Gurnal.Edit3Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Gurnal.Edit4Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Gurnal.RadioGroup2Click(Sender: TObject);

begin

filtr;

end;

procedure TF_Gurnal.N1Click(Sender: TObject);

begin

F_Ochist_gurn.Show

end;

procedure TF_Gurnal.RadioGroup1Click(Sender: TObject);

begin

ComboBox1.Text:='';

Edit1.Text:='';

Edit2.Text:='';

if RadioGroup1.ItemIndex=0 then

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select g.kod as Код,fio as ФИО,data_opl as [Дата оплаты],sum as Сумма from gurnal as g,sprav_f as s where (g.kod_ab=s.kod) order by fio');

ADOQuery1.Active:=true;

ADOQuery2.Active:=false;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('select * from sprav_f,tarif where (sprav_f.tarif=tarif.kod) order by fio');

ADOQuery2.Active:=true;

ADOQuery2.First;

ComboBox1.Items.Clear;

while not ADOQuery2.Eof do

begin

ComboBox1.Items.Add(ADOQuery2.FieldByName('fio').AsString);

ADOQuery2.Next;

end;

end

else

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select g.kod as Код,s.naimen as [Наименование организации],data_opl as [Дата оплаты],sum as Сумма from gurnal as g,sprav_u as s where (g.kod_ab=s.kod) order by s.naimen');

ADOQuery1.Active:=true;

ADOQuery2.Active:=false;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('select * from sprav_u,tarif where (sprav_u.tarif=tarif.kod) order by sprav_u.naimen');

ADOQuery2.Active:=true;

ADOQuery2.First;

ComboBox1.Items.Clear;

while not ADOQuery2.Eof do

begin

ComboBox1.Items.Add(ADOQuery2.FieldByName('sprav_u.naimen').AsString);

ADOQuery2.Next;

end;

end;

end;

procedure TF_Gurnal.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_Gurnal.Button2Click(Sender: TObject);

begin

close

end;

procedure TF_Gurnal.Button3Click(Sender: TObject);

begin

F_Ochist_gurn.Show

end;

end.

unit U_Ochist_gurn;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TF_Ochist_Gurn = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

Image1: TImage;

Label1: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_Ochist_Gurn: TF_Ochist_Gurn;

implementation

uses U_Glavn, U_Gurnal;

{$R *.dfm}

procedure TF_Ochist_Gurn.BitBtn2Click(Sender: TObject);

begin

close

end;

procedure TF_Ochist_Gurn.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('delete from gurnal');

ADOQuery1.ExecSQL;

F_Gurnal.ADOQuery1.Active:=false;

F_Gurnal.ADOQuery1.Active:=true;

close;

end;

end.

unit U_Organiz;

interface

uses

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

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

jpeg;

type

TF_Organiz = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

GroupBox2: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button5: TButton;

Button6: TButton;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

Button4: TButton;

Image1: TImage;

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit3Change(Sender: TObject);

procedure Edit4Change(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_Organiz: TF_Organiz;

XL:variant;

MyDir:string;

implementation

uses U_Glavn, U_dob_organiz, U_red_organiz, U_del_organiz;

{$R *.dfm}

procedure filtr;

begin

F_Organiz.ADOQuery1.Active:=false;

F_Organiz.ADOQuery1.SQL.Clear;

F_Organiz.ADOQuery1.SQL.Add('select * from sprav_u where (naimen like '+#39+F_Organiz.Edit1.Text+'%'+#39+')and(nom like '

+#39+F_Organiz.Edit2.Text+'%'+#39+')and(nas_punkt like '+#39+F_Organiz.Edit3.Text+'%'+#39+')'

+'and(adres like '+#39+F_Organiz.Edit4.Text+'%'+#39+')');

F_Organiz.ADOQuery1.Active:=true;

end;

procedure TF_Organiz.FormShow(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TF_Organiz.Button1Click(Sender: TObject);

begin

F_dob_organiz.Show

end;

procedure TF_Organiz.Button2Click(Sender: TObject);

begin

F_red_organiz.Show

end;

procedure TF_Organiz.Button3Click(Sender: TObject);

begin

F_Del_organiz.Show

end;

procedure TF_Organiz.Button6Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from sprav_u order by naimen');

ADOQuery1.Active:=true;

end;

procedure TF_Organiz.Button8Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from sprav_u where sal_nach<0 order by naimen');

ADOQuery1.Active:=true;

end;

procedure TF_Organiz.Button5Click(Sender: TObject);

var i:integer;

begin

XL:=CreateOleObject('Excel.Application');

XL.DisplayAlerts:=false;

XL.WorkBooks.Open(MyDir + '\организации.xls');

ADOQuery1.First;

i:=4;

while not ADOQuery1.Eof do

begin

XL.WorkBooks[1].WorkSheets[1].Cells[i,1]:=i-3;

XL.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName('naimen').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName('nom').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName('nas_punkt').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName('adres').AsString;

XL.WorkBooks[1].WorkSheets[1].Cells[i,6]:=ADOQuery1.FieldByName('tarif').AsString;

i:=i+1;

ADOQuery1.Next;

end;

XL.Visible:=true;

end;

procedure TF_Organiz.FormCreate(Sender: TObject);

begin

GetDir(0,MyDir);

end;

procedure TF_Organiz.Edit1Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Organiz.Edit2Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Organiz.Edit3Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Organiz.Edit4Change(Sender: TObject);

begin

filtr;

end;

procedure TF_Organiz.Button4Click(Sender: TObject);

begin

close

end;

end.

unit U_red_Chastnie;

interface

uses

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

Dialogs, DB, ADODB, StdCtrls, DBCtrls, jpeg, ExtCtrls;

type

TF_red_chastnie = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit_fio: TEdit;

Edit_nom: TEdit;

Edit_adr: TEdit;

Edit_lg: TEdit;

Button1: TButton;

Button2: TButton;

ADOQuery2: TADOQuery;

DataSource2: TDataSource;

ADOQuery3: TADOQuery;

ComboBox2: TComboBox;

ComboBox1: TComboBox;

procedure FormShow(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit_fioChange(Sender: TObject);

procedure Edit_nomChange(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

F_red_chastnie: TF_red_chastnie;

implementation

uses U_chastnie;

{$R *.dfm}

procedure TF_red_chastnie.FormShow(Sender: TObject);

begin

Edit_fio.Text:=F_Chastnie.ADOQuery1.fieldbyname('fio').AsString;

Edit_nom.Text:=F_Chastnie.ADOQuery1.fieldbyname('nom').AsString;

Edit_adr.Text:=F_Chastnie.ADOQuery1.fieldbyname('adres').AsString;

Edit_lg.Text:=F_Chastnie.ADOQuery1.fieldbyname('bonus').AsString;

ADOQuery2.First;

ComboBox2.Items.Clear;

while not ADOQuery2.Eof do

begin

ComboBox2.Items.Add(ADOQuery2.FieldByName('naimen').AsString);

ADOQuery2.Next;

end;

ComboBox1.Text:=F_Chastnie.ADOQuery1.FieldByName('nas_punkt').AsString;

ADOQuery2.Locate('kod',F_Chastnie.ADOQuery1.FieldByName('tarif').AsString,[]);

ComboBox2.Text:=ADOQuery2.FieldByName('naimen').AsString;

end;

procedure TF_red_chastnie.Button2Click(Sender: TObject);

begin

close

end;

procedure TF_red_chastnie.Edit_fioChange(Sender: TObject);