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
|
= 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 и закрепил их
практически. В общей сложности программа получилась удачной: удобный и логичный
интерфейс, программа не требует много ресурсов ПК и любой пользователь без
труда сможет быстро освоить работу с программой.
Анализируя данный программный продукт, нужно
заметить, что он очень облегчает работу оператора телефонной связи, удобен и
довольно интуитивен в обращении, что, в свою очередь, позволяет работать даже
не опытным пользователям. А также данный программный продукт обеспечивает
компактное хранение информации в базе данных.
Благодаря автоматическим расчетам, заполнению
полей, поиску и фильтрации данных, экономия времени для поиска стала довольно
значительная и работа сотрудников с базой данных стала намного проще. При
написании данной программы были достигнуты поставленные цели.
Список литературы
.«Delphi
7. Учебный курс» Бобровский С. И издательство «Питер» г. Санкт-Петербург 2004
год. Иллюстрированный самоучитель по Delphi для профессионалов
.«Программирование
баз данных в Delphi 7» Фаронов В.В. издательство «Питер» г. Санкт-Петербург
2005 год.
.Справочное
руководство по Delphi.
.Электронный
учебник «Delphi 7 для начинающих».
.Автоматизированные
информационные технологии в экономике: Учебник/ Под ред. проф Г.А. Титоренко. -
М.: Компьютер, ЮНИТИ, 1999 г.
.Ананьев
П.И. Технология разработки программного обеспечения: Учебное пособие/ Алт. ГТУ
им. Ползунова. - Барнаул: 2000 г.
.Бондарев
В.М., Рублинецкий В.И., Качко Е.Г. Основы программирования. - Харьков: Фолио;
Ростов н/Д: Феникс, 1997г.
.Гайдамакин
Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный
курс: Учебное пособие. - М.:Гелиос АРВ, 2002 г.
.Информатика.
Учеб.пособие для студентов пед.вузов/ Могилев А.В., Н.И. Пак, Е.К. Хённер; Под
рд. Е.К. Хённера. - М., 1999 г.
.Фаронов
В. Программирование баз данных в Delphi7. Учебный курс. - Питер, 2003 г.
.Лекции
по дисциплине «РиЭАИС»
Приложение
Приложение А (документы)
Рисунок А-1
Рисунок А-2
Рисунок А-3
Рисунок А-4
Приложение Б (текст программы)
program Tel_Spravochnik;,_Glavn in
'U_Glavn.pas' {F_Glavn},_Chastnie in 'U_Chastnie.pas'
{F_Chastnie},_dob_chastnie in 'U_dob_Chastnie.pas' {F_dob_chastnie},_red_chastnie
in 'U_red_chastnie.pas' {F_red_chastnie},_del_Chastnie in 'U_del_Chastnie.pas'
{F_del_Chastnie},_Gurnal in 'U_Gurnal.pas' {F_Gurnal},_Ochist_Gurn in
'U_Ochist_Gurn.pas' {F_Ochist_Gurn},_Organiz in 'U_Organiz.pas'
{F_Organiz},_dob_organiz in 'U_dob_organiz.pas' {F_dob_organiz},_red_organiz in
'U_red_organiz.pas' {F_red_organiz},_del_organiz in 'U_del_organiz.pas'
{F_del_organiz},_Tarif in 'U_Tarif.pas' {F_Tarif},_dob_tarif in
'U_dob_tarif.pas' {F_dob_tarif},_red_tarif in 'U_red_tarif.pas' {F_red_tarif},_del_tarif
in 'U_del_tarif.pas' {F_del_tarif},_Razrab in 'U_Razrab.pas' {F_Razrab},_baza
in 'U_baza.pas' {F_baza},_svedenia in 'U_svedenia.pas' {F_svedenia};
{$R
*.res}.Initialize;.CreateForm(TF_Glavn, F_Glavn);.CreateForm(TF_Chastnie,
F_Chastnie);.CreateForm(TF_dob_chastnie,
F_dob_chastnie);.CreateForm(TF_red_chastnie,
F_red_chastnie);.CreateForm(TF_del_Chastnie,
F_del_Chastnie);.CreateForm(TF_Gurnal, F_Gurnal);.CreateForm(TF_Ochist_Gurn,
F_Ochist_Gurn);.CreateForm(TF_Organiz, F_Organiz);.CreateForm(TF_dob_organiz,
F_dob_organiz);.CreateForm(TF_red_organiz,
F_red_organiz);.CreateForm(TF_del_organiz, F_del_organiz);.CreateForm(TF_Tarif,
F_Tarif);.CreateForm(TF_dob_tarif, F_dob_tarif);.CreateForm(TF_red_tarif,
F_red_tarif);.CreateForm(TF_del_tarif, F_del_tarif);.CreateForm(TF_Razrab,
F_Razrab);.CreateForm(TF_baza, F_baza);.CreateForm(TF_svedenia,
F_svedenia);.Run;.U_Glavn;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, Menus, Buttons, StdCtrls, jpeg, ExtCtrls, DB, ADODB,
ComObj;_Glavn = class(TForm): TADOConnection;: TBitBtn;: TMainMenu;:
TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TButton;: TImage;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;:
TButton;BitBtn1Click(Sender: TObject);Button1Click(Sender:
TObject);Button3Click(Sender: TObject);Button2Click(Sender:
TObject);Button4Click(Sender: TObject);FormCreate(Sender:
TObject);N3Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender:
TObject);N2Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender:
TObject);
{ Private declarations }
{ Public declarations };_Glavn:
TF_Glavn;:string;: variant;U_Chastnie, U_Gurnal, U_Organiz, U_Tarif, U_Razrab,
U_baza, U_svedenia;
U_baza;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;_baza =
class(TForm): TButton;: TButton;: TButton;: TImage;Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_baza:
TF_baza;U_Chastnie, U_Organiz;
{$R
*.dfm}TF_baza.Button1Click(Sender:
TObject);_Chastnie.Show;TF_baza.Button2Click(Sender:
TObject);_Organiz.Show;TF_baza.Button3Click(Sender: TObject);;.U_Chastnie;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, ComObj,;_Chastnie = class(TForm):
TADOQuery;: TDataSource;: TDBGrid;: TDBNavigator;: TGroupBox;: TButton;:
TButton;: TButton;: TGroupBox;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;:
TEdit;: TLabel;: TEdit;: TButton;: TButton;: TButton;:
TImage;Button1Click(Sender: TObject);Button2Click(Sender:
TObject);Button3Click(Sender: TObject);Button4Click(Sender:
TObject);FormShow(Sender: TObject);Edit1Change(Sender:
TObject);Edit2Change(Sender: TObject);Edit3Change(Sender:
TObject);Edit4Change(Sender: TObject);Button6Click(Sender:
TObject);FormCreate(Sender: TObject);Button5Click(Sender:
TObject);Button7Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Chastnie:
TF_Chastnie;:variant;:string;U_Glavn, U_dob_Chastnie, U_red_Chastnie,
U_del_Chastnie;
{$R
*.dfm}filtr;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.SQL.Clear;_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+_Chastnie.Edit3.Text+'%'+#39+')and(adres like
'+#39+F_Chastnie.Edit4.Text+'%'+#39+') order by
fio');_Chastnie.ADOQuery1.Active:=true;;
TF_Chastnie.Button1Click(Sender:
TObject);_dob_chastnie.Show;TF_Chastnie.Button2Click(Sender:
TObject);_red_chastnie.Show;TF_Chastnie.Button3Click(Sender:
TObject);_del_Chastnie.Show;TF_Chastnie.Button4Click(Sender:
TObject);.Active:=false;.SQL.Clear;.SQL.Add('select * from [sprav_f] where
[sal_nach] like
'+#39+'-%'+#39);.Active:=true;.Text:='';.Text:='';.Text:='';.Text:='';;TF_Chastnie.FormShow(Sender:
TObject);.Text:='';.Text:='';.Text:='';.Text:='';;TF_Chastnie.Edit1Change(Sender:
TObject);;;TF_Chastnie.Edit2Change(Sender:
TObject);;;TF_Chastnie.Edit3Change(Sender:
TObject);;;TF_Chastnie.Edit4Change(Sender:
TObject);;;TF_Chastnie.Button6Click(Sender:
TObject);.Active:=false;.SQL.Clear;.SQL.Add('select * from
sprav_f');.Active:=true;.Text:='';.Text:='';.Text:='';.Text:='';;TF_Chastnie.FormCreate(Sender:
TObject);(0,MyDir);;TF_Chastnie.Button5Click(Sender:
TObject);i:integer;:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\частные
лица
лица.xls');.First;:=4;not
ADOQuery1.Eof
do.WorkBooks[1].WorkSheets[1].Cells[i,1]:=i-3;.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName('fio').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName('nom').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName('nas_punkt').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName('adres').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,6]:=ADOQuery1.FieldByName('tarif').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,7]:=ADOQuery1.FieldByName('bonus').AsString;:=i+1;.Next;;.Visible:=true;;TF_Chastnie.Button7Click(Sender:
TObject);;.U_del_chastnie;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;_del_chastnie=
class(TForm): TBitBtn;: TBitBtn;: TADOQuery;: TImage;:
TStaticText;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_del_chastnie: tF_del_chastnie;U_Glavn, U_chastnie;
{$R
*.dfm}tF_del_chastnie.BitBtn2Click(Sender: TObject);;tF_del_chastnie.BitBtn1Click(Sender:
TObject);.SQL.Clear;.SQL.Add('delete from sprav_f where
kod='+F_chastnie.ADOQuery1.FieldByName('kod').AsString);.ExecSQL;_chastnie.ADOQuery1.Active:=false;_chastnie.ADOQuery1.Active:=true;_chastnie.Edit1.Text:='';_chastnie.Edit2.Text:='';_chastnie.Edit3.Text:='';_chastnie.Edit4.Text:='';;.U_Del_organiz;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
Buttons, DB, ADODB, jpeg, ExtCtrls;_del_organiz = class(TForm): TADOQuery;:
TBitBtn;: TBitBtn;: TImage;: TLabel;BitBtn2Click(Sender:
TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_del_organiz: TF_del_organiz;U_Glavn, U_organiz;
{$R
*.dfm}TF_del_organiz.BitBtn2Click(Sender: TObject);;TF_del_organiz.BitBtn1Click(Sender:
TObject);.SQL.Clear;.SQL.Add('delete from sprav_u where
kod='+F_Organiz.ADOQuery1.FieldByName('kod').AsString);.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;;;.U_del_tarif;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, Buttons, jpeg, ExtCtrls;_del_tarif = class(TForm): TBitBtn;:
TBitBtn;: TADOQuery;: TImage;: TLabel;BitBtn2Click(Sender:
TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_del_tarif:
TF_del_tarif;U_Glavn, U_Tarif, U_dob_Chastnie, U_red_chastnie, U_dob_organiz,
U_red_organiz;
{$R
*.dfm}TF_del_tarif.BitBtn2Click(Sender:
TObject);;TF_del_tarif.BitBtn1Click(Sender:
TObject);.SQL.Clear;.SQL.Add('delete from tarif where kod='+F_Tarif.ADOQuery1.FieldByName('kod').AsString);.ExecSQL;_Tarif.ADOQuery1.Active:=false;_Tarif.ADOQuery1.Active:=true;_red_organiz.ADOQuery2.Active:=false;_red_organiz.ADOQuery2.Active:=true;_red_chastnie.ADOQuery2.Active:=false;_red_chastnie.ADOQuery2.Active:=true;_dob_organiz.ADOQuery2.Active:=false;_dob_organiz.ADOQuery2.Active:=true;_dob_chastnie.ADOQuery2.Active:=false;_dob_chastnie.ADOQuery2.Active:=true;;;.U_dob_Chastnie;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
DB, ADODB, DBCtrls, ComObj, jpeg, ExtCtrls;_dob_chastnie = class(TForm)_fio:
TEdit;_nom: TEdit;_adr: TEdit;_lg: TEdit;: TDBLookupComboBox;: TADOQuery;:
TDataSource;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;:
TButton;: TADOQuery;: TComboBox;: TButton;FormShow(Sender:
TObject);Button2Click(Sender: TObject);Button1Click(Sender:
TObject);FormCreate(Sender: TObject);Edit_fioChange(Sender:
TObject);Edit_nomChange(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_dob_chastnie: TF_dob_chastnie;:variant;:string;U_Glavn, U_chastnie;
{$R
*.dfm}TF_dob_chastnie.FormShow(Sender:
TObject);.Active:=false;.Active:=true;_fio.Text:='';_nom.Text:='';_adr.Text:='';_lg.Text:='';.Text:='';;TF_dob_chastnie.Button2Click(Sender:
TObject);;TF_dob_chastnie.Button1Click(Sender:
TObject);(Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(length(Edit_nom.Text)=5)and(Edit_adr.Text<>'')and(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Заявление.xls');.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.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+')');.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:='';_Chastnie.Edit2.Text:='';_Chastnie.Edit3.Text:='';_Chastnie.Edit4.Text:='';.Visible:=FALSE;;ShowMessage('Данные
не
соответствуют.');;TF_dob_chastnie.FormCreate(Sender:
TObject);(0,MyDir);;TF_dob_chastnie.Edit_fioChange(Sender:
TObject);n:string;length(Edit_fio.Text)<>0 then(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('Вы не можете использовать цифры при вводе
ФИО!');
n:=Edit_fio.Text;(n,length(n),1);_fio.Text:=n;;;TF_dob_chastnie.Edit_nomChange(Sender:
TObject);n:string;Length(Edit_nom.Text)<>0
then(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('Вы не можете использовать буквы при вводе
номера!');
n:=Edit_nom.Text;(n,length(n),1);_nom.Text:=n;;;TF_dob_chastnie.Button3Click(Sender:
TObject);(Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(length(Edit_nom.Text)=5)and(Edit_adr.Text<>'')and(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Заявление.xls');.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.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+')');.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:='';_Chastnie.Edit2.Text:='';_Chastnie.Edit3.Text:='';_Chastnie.Edit4.Text:='';.Visible:=true;;ShowMessage('Данные
не
соответствуют.');;.U_dob_organiz;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, DBCtrls, ComObj, jpeg, ExtCtrls;_dob_organiz = class(TForm): TLabel;:
TLabel;: TLabel;: TLabel;: TLabel;_fio: TEdit;_nom: TEdit;_adr: TEdit;:
TDBLookupComboBox;: TButton;: TButton;: TADOQuery;: TDataSource;: TADOQuery;:
TComboBox;: TButton;Button2Click(Sender: TObject);FormShow(Sender:
TObject);Button1Click(Sender: TObject);Edit_nomChange(Sender:
TObject);FormCreate(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_dob_organiz: TF_dob_organiz;:variant;:string;U_Glavn, U_chastnie, U_Organiz;
{$R
*.dfm}TF_dob_organiz.Button2Click(Sender:
TObject);;TF_dob_organiz.FormShow(Sender:
TObject);_fio.Text:='';_nom.Text:='';_adr.Text:='';.Text:='';;TF_dob_organiz.Button1Click(Sender:
TObject);(Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(Edit_adr.Text<>'')and
(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Заявление2.xls');.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.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+')');.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;.Visible:=false;;ShowMessage('Вы
ввели
не
все
данные!');;TF_dob_organiz.Edit_nomChange(Sender:
TObject);n:string;Length(Edit_nom.Text)<>0
then(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('Вы не можете использовать буквы при вводе
номера!');
n:=Edit_nom.Text;(n,length(n),1);_nom.Text:=n;;;TF_dob_organiz.FormCreate(Sender:
TObject);(0,MyDir);;TF_dob_organiz.Button3Click(Sender:
TObject);(Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(Edit_adr.Text<>'')and
(ComboBox1.Text<>'')and(DBLookupComboBox2.Text<>'')then:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Заявление2.xls');.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.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+')');.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;.Visible:=true;;ShowMessage('Вы
ввели
не
все
данные!');;.U_dob_tarif;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
DB, ADODB, jpeg, ExtCtrls;_dob_tarif = class(TForm): TLabel;_tar: TEdit;:
TLabel;_ab_f: TEdit;: TLabel;_ab_u: TEdit;: TLabel;_min_f: TEdit;:
TLabel;_min_u: TEdit;: TButton;: TButton;: TADOQuery;FormShow(Sender:
TObject);Edit_ab_fChange(Sender: TObject);Edit_ab_uChange(Sender:
TObject);Edit_min_fChange(Sender: TObject);Edit_min_uChange(Sender:
TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_dob_tarif:
TF_dob_tarif;U_Glavn, U_Tarif, U_dob_chastnie, U_dob_organiz, U_red_chastnie,
U_red_organiz;
{$R
*.dfm}TF_dob_tarif.FormShow(Sender:
TObject);_tar.Text:='';_ab_f.Text:='0';_ab_u.Text:='0';_min_f.Text:='0';_min_u.Text:='0';;TF_dob_tarif.Edit_ab_fChange(Sender:
TObject);n:string;Length(Edit_ab_f.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_ab_f.Text;(n,length(n),1);_ab_f.Text:=n;;Edit_ab_f.Text=''
then Edit_ab_f.Text:='0';;TF_dob_tarif.Edit_ab_uChange(Sender:
TObject);n:string;Length(Edit_ab_u.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_ab_u.Text;(n,length(n),1);_ab_u.Text:=n;;Edit_ab_u.Text=''
then Edit_ab_u.Text:='0';;TF_dob_tarif.Edit_min_fChange(Sender: TObject);n:string;Length(Edit_min_f.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_min_f.Text;(n,length(n),1);_min_f.Text:=n;;Edit_min_f.Text=''
then Edit_min_f.Text:='0';;TF_dob_tarif.Edit_min_uChange(Sender: TObject);n:string;Length(Edit_min_u.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_min_u.Text;(n,length(n),1);_min_u.Text:=n;;Edit_min_u.Text=''
then Edit_min_u.Text:='0';;TF_dob_tarif.Button2Click(Sender: TObject);;TF_dob_tarif.Button1Click(Sender:
TObject);Edit_tar.Text<>'' then.SQL.Clear;.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+')');.ExecSQL;_Tarif.ADOQuery1.Active:=false;_Tarif.ADOQuery1.Active:=true;_red_organiz.ADOQuery2.Active:=false;_red_organiz.ADOQuery2.Active:=true;_red_chastnie.ADOQuery2.Active:=false;_red_chastnie.ADOQuery2.Active:=true;_dob_organiz.ADOQuery2.Active:=false;_dob_organiz.ADOQuery2.Active:=true;_dob_chastnie.ADOQuery2.Active:=false;_dob_chastnie.ADOQuery2.Active:=true;;ShowMessage('Введите
наименование
тарифа!');;.U_Gurnal;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls,
DBCtrls, DB, Grids, DBGrids, ADODB, StdCtrls, Menus, ComObj,;_Gurnal =
class(TForm): TADOQuery;: TDBGrid;: TDataSource;: TDBNavigator;: TGroupBox;:
TRadioGroup;: TLabel;: TEdit;: TLabel;: TLabel;_Nachisl: TLabel;: TEdit;:
TLabel;: TButton;: TGroupBox;: TLabel;: TEdit;: TLabel;: TEdit;: TRadioGroup;:
TADOQuery;: TDataSource;: TComboBox;: TADOQuery;: TADOTable;_tarif: TLabel;:
TLabel;: TButton;: TImage;: TButton;FormShow(Sender:
TObject);ComboBox1Change(Sender: TObject);Edit1Change(Sender:
TObject);Button1Click(Sender: TObject);Edit2Change(Sender:
TObject);Edit3Change(Sender: TObject);Edit4Change(Sender:
TObject);RadioGroup2Click(Sender: TObject);N1Click(Sender:
TObject);RadioGroup1Click(Sender: TObject);FormCreate(Sender: TObject);Button2Click(Sender:
TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Gurnal:
TF_Gurnal;:string;:variant;:string;U_Glavn, U_chastnie, U_Ochist_gurn,
U_organiz;
{$R
*.dfm}filtr;F_Gurnal.RadioGroup1.ItemIndex=0 thenF_Gurnal.RadioGroup2.ItemIndex=0
then sort:=' order by fio'sort:=' order by
data_opl';F_Gurnal.RadioGroup2.ItemIndex=0 then sort:=' order by naimen'sort:='
order by
data_opl';;_Gurnal.ADOQuery1.Active:=false;_Gurnal.ADOQuery1.SQL.Clear;F_Gurnal.RadioGroup1.ItemIndex=0
then_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)_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);_Gurnal.ADOQuery1.Active:=true;;buton;(F_Gurnal.ComboBox1.Text<>'')and(F_Gurnal.Edit1.Text<>'0')and(F_Gurnal.Edit2.Text<>'0')F_Gurnal.Button1.Enabled:=trueF_Gurnal.Button1.Enabled:=false;;TF_Gurnal.FormShow(Sender:
TObject);.Text:='';.Text:='';.Items.Clear;.First;not ADOQuery2.Eof doRadioGroup1.ItemIndex=0
then.Items.Add(ADOQuery2.FieldByName('fio').AsString).Items.Add(ADOQuery2.FieldByName('sprav_u.naimen').AsString);.Next;;;TF_Gurnal.ComboBox1Change(Sender:
TObject);n:string;length(ComboBox1.Text)<>0
then(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('Вы не можете использовать цифры при вводе
ФИО\Организации!');
n:=ComboBox1.Text;(n,length(n),1);.Text:=n;;RadioGroup1.ItemIndex=0
then.Locate('fio',ComboBox1.Text,[]).Locate('sprav_u.naimen',ComboBox1.Text,[]);.Locate('kod',ADOQuery2.FieldByName('tarif').AsString,[]);_tarif.Caption:=ADOQuery2.FieldByName('tarif').AsString;l_tarif.Caption=''
then l_tarif.Caption:='0';.Text:='0';ComboBox1.Text=''
then_tarif.Caption:='0';_Nachisl.Caption:='0';;;;TF_Gurnal.Edit1Change(Sender:
TObject);n:string;Length(Edit1.Text)<>0
then(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('Вы не можете использовать буквы при вводе
кол-ва минут!');
n:=Edit1.Text;(n,length(n),1);.Text:=n;;Edit1.Text=''
then.Text:='0';_Nachisl.Caption:='0';;_Nachisl.Caption:=floattostr(strtoint(Edit1.Text)*ADOQuery2.FieldByName('min_f').AsFloat+ADOQuery2.FieldByName('ab_f').AsFloat-strtofloat(l_tarif.Caption));;;TF_Gurnal.Button1Click(Sender:
TObject);dat,summa,kodik:string;RadioGroup1.ItemIndex=0 then:=datetostr(date);:=Edit2.Text;:=ADOQuery2.FieldByName('sprav_f.kod').AsString;.SQL.Clear;.SQL.Add('insert
into gurnal ([data_opl],[sum],[kod_ab]) values
('+#39+dat+#39+','+summa+','+kodik+')');.ExecSQL;.SQL.Clear;:=floattostr(strtofloat(Edit2.Text)-strtofloat(Label_Nachisl.Caption));.SQL.Add('update
[sprav_f] set [TARIF]='+#39+summa+#39+' where
kod='+kodik);.ExecSQL;:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Счет.xls');.WorkBooks[1].WorkSheets[1].Cells[3,6]:=datetostr(date);.WorkBooks[1].WorkSheets[1].Cells[4,5]:=ComboBox1.Text;.WorkBooks[1].WorkSheets[1].Cells[5,4]:=ADOQuery2.FieldByName('adres').AsString;.WorkBooks[1].WorkSheets[1].Cells[13,8]:=Label_Nachisl.Caption;.WorkBooks[1].WorkSheets[1].Cells[16,6]:=datetostr(date);.WorkBooks[1].WorkSheets[1].Cells[17,5]:=ComboBox1.Text;.WorkBooks[1].WorkSheets[1].Cells[18,4]:=ADOQuery2.FieldByName('adres').AsString;.WorkBooks[1].WorkSheets[1].Cells[22,9]:=ADOQuery2.FieldByName('ab_f').AsString;.WorkBooks[1].WorkSheets[1].Cells[23,9]:=floattostr(strtoint(Edit1.Text)*ADOQuery2.FieldByName('min_f').AsFloat);.WorkBooks[1].WorkSheets[1].Cells[31,4]:=l_tarif.Caption;.WorkBooks[1].WorkSheets[1].Cells[31,6]:=Edit2.Text;.Visible:=true;_chastnie.ADOQuery1.Active:=false;_chastnie.ADOQuery1.Active:=true;.Active:=false;.Active:=true;.Active:=false;.Active:=true;:=datetostr(date);:=Edit2.Text;:=ADOQuery2.FieldByName('sprav_u.kod').AsString;.SQL.Clear;.SQL.Add('insert
into gurnal ([data_opl],[sum],[kod_ab]) values ('+#39+dat+#39+','+summa+','+kodik+')');.ExecSQL;.SQL.Clear;:=floattostr(strtofloat(Edit2.Text)-strtofloat(Label_Nachisl.Caption));.SQL.Add('update
[sprav_u] set [TARIF]='+#39+summa+#39+' where
kod='+kodik);.ExecSQL;:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\расчетный
счет.xls');;.WorkBooks[1].WorkSheets[1].Cells[6,3]:=inttostr(random(5000));.WorkBooks[1].WorkSheets[1].Cells[20,2]:=ADOTable1.FieldByName('naimen').AsString;.WorkBooks[1].WorkSheets[1].Cells[6,5]:=datetostr(date);.WorkBooks[1].WorkSheets[1].Cells[29,4]:=Label_Nachisl.Caption;.WorkBooks[1].WorkSheets[1].Cells[8,2]:=ComboBox1.Text;.WorkBooks[1].WorkSheets[1].Cells[9,4]:=ADOQuery2.FieldByName('adres').AsString;.WorkBooks[1].WorkSheets[1].Cells[29,2]:=l_tarif.Caption;.WorkBooks[1].WorkSheets[1].Cells[29,6]:=Edit2.Text;.Visible:=true;_organiz.ADOQuery1.Active:=false;_organiz.ADOQuery1.Active:=true;.Active:=false;.Active:=true;;.Active:=false;.Active:=true;.Text:='';.Text:='';.Text:='';;TF_Gurnal.Edit2Change(Sender:
TObject);n:string;Edit2.Text='' then
Edit2.Text:='0';Length(Edit2.Text)<>0
then(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('Вы не можете использовать буквы при вводе
кол-ва минут!');
n:=Edit2.Text;(n,length(n),1);.Text:=n;;;;TF_Gurnal.Edit3Change(Sender:
TObject);;;TF_Gurnal.Edit4Change(Sender:
TObject);;;TF_Gurnal.RadioGroup2Click(Sender:
TObject);;;TF_Gurnal.N1Click(Sender: TObject);_Ochist_gurn.Show;TF_Gurnal.RadioGroup1Click(Sender:
TObject);.Text:='';.Text:='';.Text:='';RadioGroup1.ItemIndex=0
then.Active:=false;.SQL.Clear;.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');.Active:=true;.Active:=false;.SQL.Clear;.SQL.Add('select * from
sprav_f,tarif where (sprav_f.tarif=tarif.kod) order by
fio');.Active:=true;.First;.Items.Clear;not ADOQuery2.Eof
do.Items.Add(ADOQuery2.FieldByName('fio').AsString);.Next;;.Active:=false;.SQL.Clear;.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');.Active:=true;.Active:=false;.SQL.Clear;.SQL.Add('select * from
sprav_u,tarif where (sprav_u.tarif=tarif.kod) order by
sprav_u.naimen');.Active:=true;.First;.Items.Clear;not ADOQuery2.Eof
do.Items.Add(ADOQuery2.FieldByName('sprav_u.naimen').AsString);.Next;;;;TF_Gurnal.FormCreate(Sender:
TObject);(0,MyDir);;TF_Gurnal.Button2Click(Sender:
TObject);;TF_Gurnal.Button3Click(Sender:
TObject);_Ochist_gurn.Show;.U_Ochist_gurn;, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, Buttons, jpeg,
ExtCtrls;_Ochist_Gurn = class(TForm): TBitBtn;: TBitBtn;: TADOQuery;: TImage;:
TLabel;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_Ochist_Gurn: TF_Ochist_Gurn;U_Glavn, U_Gurnal;
{$R
*.dfm}TF_Ochist_Gurn.BitBtn2Click(Sender:
TObject);;TF_Ochist_Gurn.BitBtn1Click(Sender:
TObject);.SQL.Clear;.SQL.Add('delete from
gurnal');.ExecSQL;_Gurnal.ADOQuery1.Active:=false;_Gurnal.ADOQuery1.Active:=true;;;.U_Organiz;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj,;_Organiz = class(TForm):
TDBGrid;: TDBNavigator;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;:
TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;:
TButton;: TADOQuery;: TDataSource;: TButton;: TImage;FormShow(Sender:
TObject);Button1Click(Sender: TObject);Button2Click(Sender:
TObject);Button3Click(Sender: TObject);Button6Click(Sender:
TObject);Button8Click(Sender: TObject);Button5Click(Sender: TObject);FormCreate(Sender:
TObject);Edit1Change(Sender: TObject);Edit2Change(Sender:
TObject);Edit3Change(Sender: TObject);Edit4Change(Sender:
TObject);Button4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Organiz:
TF_Organiz;:variant;:string;U_Glavn, U_dob_organiz, U_red_organiz,
U_del_organiz;
{$R
*.dfm}filtr;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.SQL.Clear;_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+')');_Organiz.ADOQuery1.Active:=true;;TF_Organiz.FormShow(Sender:
TObject);.Text:='';.Text:='';.Text:='';.Text:='';;TF_Organiz.Button1Click(Sender:
TObject);_dob_organiz.Show;TF_Organiz.Button2Click(Sender:
TObject);_red_organiz.Show;TF_Organiz.Button3Click(Sender:
TObject);_Del_organiz.Show;TF_Organiz.Button6Click(Sender:
TObject);.Active:=false;.SQL.Clear;.SQL.Add('select * from sprav_u order by
naimen');.Active:=true;;TF_Organiz.Button8Click(Sender:
TObject);.Active:=false;.SQL.Clear;.SQL.Add('select * from sprav_u where
sal_nach<0 order by naimen');.Active:=true;;TF_Organiz.Button5Click(Sender:
TObject);i:integer;:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\организации.xls');.First;:=4;not
ADOQuery1.Eof
do.WorkBooks[1].WorkSheets[1].Cells[i,1]:=i-3;.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName('naimen').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName('nom').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName('nas_punkt').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName('adres').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,6]:=ADOQuery1.FieldByName('tarif').AsString;:=i+1;.Next;;.Visible:=true;;TF_Organiz.FormCreate(Sender:
TObject);(0,MyDir);;TF_Organiz.Edit1Change(Sender:
TObject);;;TF_Organiz.Edit2Change(Sender: TObject);;;TF_Organiz.Edit3Change(Sender:
TObject);;;TF_Organiz.Edit4Change(Sender:
TObject);;;TF_Organiz.Button4Click(Sender: TObject);;.U_red_Chastnie;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, DBCtrls, jpeg, ExtCtrls;_red_chastnie = class(TForm): TLabel;:
TLabel;: TLabel;: TLabel;: TLabel;: TLabel;_fio: TEdit;_nom: TEdit;_adr:
TEdit;_lg: TEdit;: TButton;: TButton;: TADOQuery;: TDataSource;: TADOQuery;:
TComboBox;: TComboBox;FormShow(Sender: TObject);Button2Click(Sender:
TObject);Edit_fioChange(Sender: TObject);Edit_nomChange(Sender:
TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_red_chastnie: TF_red_chastnie;U_chastnie;
{$R
*.dfm}TF_red_chastnie.FormShow(Sender: TObject);_fio.Text:=F_Chastnie.ADOQuery1.fieldbyname('fio').AsString;_nom.Text:=F_Chastnie.ADOQuery1.fieldbyname('nom').AsString;_adr.Text:=F_Chastnie.ADOQuery1.fieldbyname('adres').AsString;_lg.Text:=F_Chastnie.ADOQuery1.fieldbyname('bonus').AsString;.First;.Items.Clear;not
ADOQuery2.Eof do.Items.Add(ADOQuery2.FieldByName('naimen').AsString);.Next;;.Text:=F_Chastnie.ADOQuery1.FieldByName('nas_punkt').AsString;.Locate('kod',F_Chastnie.ADOQuery1.FieldByName('tarif').AsString,[]);.Text:=ADOQuery2.FieldByName('naimen').AsString;;TF_red_chastnie.Button2Click(Sender:
TObject);;TF_red_chastnie.Edit_fioChange(Sender:
TObject);n:string;length(Edit_fio.Text)<>0
then(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('Вы не можете использовать цифры при вводе
ФИО!');
n:=Edit_fio.Text;(n,length(n),1);_fio.Text:=n;;;TF_red_chastnie.Edit_nomChange(Sender:
TObject);n:string;Length(Edit_nom.Text)<>0 then(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')or
(Edit_nom.Text[Length(Edit_nom.Text)]='-')then
else('Вы не можете использовать буквы при вводе
номера!');
n:=Edit_nom.Text;(n,length(n),1);_nom.Text:=n;;;TF_red_chastnie.Button1Click(Sender:
TObject);n:string;(Edit_fio.Text<>'')and(Edit_nom.Text<>'')and(length(Edit_nom.Text)=7)and(Edit_nom.Text[3]='-')and(Edit_nom.Text[5]='-')and(Edit_adr.Text<>'')and(ComboBox1.Text<>'')and(ComboBox2.Text<>'')then.Locate('naimen',ComboBox2.Text,[]);:=ADOQuery2.FieldByName('kod').AsString;.SQL.Clear;.SQL.Add('update
sprav_f set fio='+#39+Edit_fio.Text+#39+',nom='+#39+Edit_nom.Text+#39+',adres='+
#39+Edit_adr.Text+#39+',bonus='+#39+Edit_lg.Text+#39+',nas_punkt='+#39+ComboBox1.Text+#39
+',tarif='+n+' where
kod='+F_Chastnie.ADOQuery1.FieldByName('kod').AsString);.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:='';_Chastnie.Edit2.Text:='';_Chastnie.Edit3.Text:='';_Chastnie.Edit4.Text:='';;ShowMessage('Вы
ввели
некоректные
данные.');;.U_red_organiz;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB,
StdCtrls, DBCtrls, jpeg, ExtCtrls;_red_organiz = class(TForm): TLabel;:
TLabel;: TLabel;: TLabel;: TLabel;_fio: TEdit;_nom: TEdit;_adr: TEdit;:
TButton;: TButton;: TADOQuery;: TDataSource;: TADOQuery;: TComboBox;:
TComboBox;Edit_nomChange(Sender: TObject);Button1Click(Sender: TObject);FormShow(Sender:
TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations
};_red_organiz: TF_red_organiz;U_Glavn, U_organiz;
{$R
*.dfm}TF_red_organiz.Edit_nomChange(Sender:
TObject);n:string;Length(Edit_nom.Text)<>0 then(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')or
(Edit_nom.Text[Length(Edit_nom.Text)]='-')then
else('Вы не можете использовать буквы при вводе
номера!');
n:=Edit_nom.Text;(n,length(n),1);_nom.Text:=n;;;TF_red_organiz.Button1Click(Sender:
TObject);(Edit_fio.Text<>'')and(Edit_adr.Text<>'')and(Edit_nom.Text<>'')and
(ComboBox1.Text<>'')and(ComboBox2.Text<>'')then.SQL.Clear;.Locate('naimen',ComboBox2.Text,[]);.SQL.Add('update
sprav_u set
naimen='+#39+Edit_fio.Text+#39+',nom='+#39+Edit_nom.Text+#39+',adres='
+#39+Edit_adr.Text+#39+',nas_punkt='+#39+ComboBox1.Text+#39+',tarif='+.FieldByName('kod').AsString+'
where kod='+F_Organiz.ADOQuery1.FieldByName('kod').AsString);.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;;ShowMessage('Вы
ввели
не
все
данные!');;TF_red_organiz.FormShow(Sender:
TObject);_fio.Text:=F_Organiz.ADOQuery1.FieldByname('naimen').AsString;_nom.Text:=F_Organiz.ADOQuery1.FieldByname('nom').AsString;_adr.Text:=F_Organiz.ADOQuery1.FieldByname('adres').AsString;.Text:=F_Organiz.ADOQuery1.FieldByName('nas_punkt').AsString;.First;.Items.Clear;not
ADOQuery2.Eof do.Items.Add(ADOQuery2.FieldByName('naimen').AsString);.Next;;.Locate('kod',F_Organiz.ADOQuery1.FieldByName('tarif').AsString,[]);.Text:=ADOQuery2.FieldByName('naimen').AsString;;TF_red_organiz.Button2Click(Sender:
TObject);;.U_red_tarif;, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,, DB, ADODB, StdCtrls;_red_tarif = class(TForm): TLabel;: TLabel;:
TLabel;: TLabel;: TLabel;_tar: TEdit;_ab_f: TEdit;_ab_u: TEdit;_min_f:
TEdit;_min_u: TEdit;: TButton;: TButton;: TADOQuery;FormShow(Sender:
TObject);Edit_ab_fChange(Sender: TObject);Edit_ab_uChange(Sender:
TObject);Edit_min_fChange(Sender: TObject);Edit_min_uChange(Sender:
TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_red_tarif:
TF_red_tarif;U_Glavn, U_Tarif, U_red_organiz, U_red_chastnie, U_dob_organiz,
U_dob_chastnie;
{$R
*.dfm}TF_red_tarif.FormShow(Sender:
TObject);_tar.Text:=F_Tarif.ADOQuery1.FieldByName('naimen').AsString;_ab_f.Text:=F_Tarif.ADOQuery1.FieldByName('ab_f').AsString;_ab_u.Text:=F_Tarif.ADOQuery1.FieldByName('ab_u').AsString;_min_f.Text:=F_Tarif.ADOQuery1.FieldByName('min_f').AsString;_min_u.Text:=F_Tarif.ADOQuery1.FieldByName('min_u').AsString;;TF_red_tarif.Edit_ab_fChange(Sender:
TObject);n:string;Length(Edit_ab_f.Text)<>0 then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_ab_f.Text;(n,length(n),1);_ab_f.Text:=n;;Edit_ab_f.Text=''
then Edit_ab_f.Text:='0';;TF_red_tarif.Edit_ab_uChange(Sender:
TObject);n:string;Length(Edit_ab_u.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_ab_u.Text;(n,length(n),1);_ab_u.Text:=n;;Edit_ab_u.Text=''
then Edit_ab_u.Text:='0';;TF_red_tarif.Edit_min_fChange(Sender:
TObject);n:string;Length(Edit_min_f.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_min_f.Text;(n,length(n),1);_min_f.Text:=n;;Edit_min_f.Text=''
then Edit_min_f.Text:='0';;TF_red_tarif.Edit_min_uChange(Sender:
TObject);n:string;Length(Edit_min_u.Text)<>0
then(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('Вы не можете использовать буквы при
вводе!');
n:=Edit_min_u.Text;(n,length(n),1);_min_u.Text:=n;;Edit_min_u.Text=''
then Edit_min_u.Text:='0';;TF_red_tarif.Button2Click(Sender:
TObject);;TF_red_tarif.Button1Click(Sender: TObject);Edit_tar.Text<>''
then.SQL.Clear;.SQL.Add('update tarif set
naimen='+#39+Edit_tar.Text+#39+',[ab_f]='+#39+Edit_ab_f.Text+#39
+',[ab_u]='+#39+Edit_ab_u.Text+#39+',[min_f]='+#39+Edit_min_f.Text+#39+',[min_u]='+#39+Edit_min_u.Text+#39
+' where
kod='+F_Tarif.ADOQuery1.FieldByName('kod').AsString);(ADOQuery1.SQL.CommaText);.ExecSQL;_Tarif.ADOQuery1.Active:=false;_Tarif.ADOQuery1.Active:=true;_red_organiz.ADOQuery2.Active:=false;_red_organiz.ADOQuery2.Active:=true;_red_chastnie.ADOQuery2.Active:=false;_red_chastnie.ADOQuery2.Active:=true;_dob_organiz.ADOQuery2.Active:=false;_dob_organiz.ADOQuery2.Active:=true;_dob_chastnie.ADOQuery2.Active:=false;_dob_chastnie.ADOQuery2.Active:=true;;ShowMessage('Введите
наименование
тарифа!');;.
U_svedenia;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg,
ExtCtrls;_svedenia = class(TForm): TButton;: TButton;: TButton;:
TImage;Button1Click(Sender: TObject);Button2Click(Sender:
TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_svedenia:
TF_svedenia;U_Tarif, U_Gurnal;
{$R
*.dfm}TF_svedenia.Button1Click(Sender:
TObject);_Tarif.Show;TF_svedenia.Button2Click(Sender:
TObject);_gurnal.show;TF_svedenia.Button3Click(Sender: TObject);;.
U_Tarif;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, ExtCtrls,
DBCtrls, Grids, DBGrids, ComObj,;_Tarif = class(TForm): TADOQuery;:
TDataSource;: TDBGrid;: TDBNavigator;: TGroupBox;: TButton;: TButton;:
TButton;: TButton;: TButton;: TImage;Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender:
TObject);FormCreate(Sender: TObject);Button4Click(Sender:
TObject);Button5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Tarif:
TF_Tarif;:variant;:string;U_Glavn, U_dob_tarif, U_red_chastnie, U_del_chastnie,
U_red_tarif,_del_tarif;
{$R
*.dfm}TF_Tarif.Button1Click(Sender:
TObject);_dob_tarif.Show;TF_Tarif.Button2Click(Sender:
TObject);_red_tarif.Show;TF_Tarif.Button3Click(Sender:
TObject);_del_tarif.Show;TF_Tarif.FormCreate(Sender: TObject);(0,MyDir);;TF_Tarif.Button4Click(Sender:
TObject);i:integer;:=CreateOleObject('Excel.Application');.DisplayAlerts:=false;.WorkBooks.Open(MyDir
+ '\Тарифы.xls');.WorkBooks[1].WorkSheets[1].Cells[2,5]:=datetostr(date);.First;:=4;not
ADOQuery1.Eof do.WorkBooks[1].WorkSheets[1].Cells[i,1]:=ADOQuery1.FieldByName('naimen').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,2]:=ADOQuery1.FieldByName('ab_f').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,3]:=ADOQuery1.FieldByName('min_f').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,4]:=ADOQuery1.FieldByName('ab_u').AsString;.WorkBooks[1].WorkSheets[1].Cells[i,5]:=ADOQuery1.FieldByName('min_u').AsString;:=i+1;.Next;;.Visible:=true;;TF_Tarif.Button5Click(Sender:
TObject);;.U_Razrab;, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,, StdCtrls, Buttons, jpeg, ExtCtrls;_Razrab = class(TForm):
TBitBtn;: TLabel;: TLabel;: TLabel;: TLabel;BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_Razrab:
TF_Razrab;
{$R *.dfm}TF_Razrab.BitBtn1Click(Sender:
TObject);
close
end;
end.
Приложение В (связь программных
модулей)
Рисунок В-1
Приложение Г (сводные документы)
Рисунок Г-1
Рисунок Г-2
Рисунок Г-3
Рисунок Г-4
Рисунок Г-5
Рисунок Г-6
Рисунок Г-7