Вход

Иследование и разработка информаионной системы биллинговых процессов на примере ООО Эдма

Рекомендуемая категория для самостоятельной подготовки:
Дипломная работа*
Код 190513
Дата создания 2015
Страниц 141
Мы сможем обработать ваш заказ (!) 29 марта в 18:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
5 950руб.
КУПИТЬ

Содержание

Содержание
Введение 4
1.Аналитическая часть 7
1.1.Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности «КАК ЕСТЬ» 7
1.1.1.Характеристика предприятия и его деятельности 7
1.1.2. Организационная структура управления предприятием 10
1.1.3. Программно-техническая архитектура ИС предприятия 13
1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации 17
1.2.1 Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов 17
1.2.2. Определение места проектируемой задачи в комплексе задач и ее описание 24
1.2.3.Обоснование необходимости использования вычислительной техники для решения задачи 26
1.2.4. Анализ системы обеспечения информационной безопасности и защиты информации 29
1.3. Анализ существующих разработок и выбор стратегии автоматизации «Как должно быть» 33
1.3.1. Анализ существующих разработок для автоматизации задачи 33
1.3.2. Выбор и обоснование стратегии автоматизации задачи 38
1.3.3. Выбор и обоснование способа приобретения ИС для автоматизации задачи 40
1.4.Обоснование проектных решений 41
1.4.1. Обоснование проектных решений по информационному обеспечению 41
1.4.2. Обоснование проектных решений по программному обеспечению 42
1.4.3 Обоснование проектных решений по техническому обеспечению 44
2. Проектная часть 46
2.1. Разработка проекта автоматизации 46
2.1.1. Этапы жизненного цикла проекта автоматизации 46
2.1.2 Ожидаемые риски на этапах жизненного цикла и их описание 54
2.1.3.Организационно-правовые и программно-аппаратные средства обеспечения информационной безопасности и защиты информации 57
2.2. Информационное обеспечение задачи 58
2.2.1. Информационная модель и ее описание 58
2.2.2. Характеристика нормативно-справочной, входной и оперативной информации 60
2.2.4. Характеристика результатной информации 66
2.3. Программное обеспечение задачи 67
2.3.1. Общие положения (дерево функций и сценарий диалога) 67
2.3.2. Характеристика базы данных 69
2.3.3. Структурная схема пакета (дерево вызова программных модулей) 70
2.4. Контрольный пример реализации проекта 74
3.Обоснование экономической эффективности проекта 90
3.1. Выбор и обоснование методики расчета экономической эффективности проекта 90
3.2 Расчёт показателей экономической эффективности проекта 94
Заключение 99
Список источников и литературы 101
Приложение 105

Фрагмент работы для ознакомления

unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, ExtCtrls, RzPanel, RzDBNav, DB, Grids, DBGrids, RzDBGrid, RzButton, DBCtrls, StdCtrls;type TFrmm11 = class(TFrmm) RzDBGrid1: TRzDBGrid; DataSource1: TDataSource; RzDBNavigator1: TRzDBNavigator;Labbl1: TLabbl; DBTxxt1: TDBTxxt;Labbl2: TLabbl; DBTxxt2: TDBTxxt;Labbl3: TLabbl; DBTxxt3: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn4Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm11: TFrmm11;implementationuses Unit1, Unit12, Unit13;{$R *.dfm}procedure TFrmm11.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm11.Close;end;procedure TFrmm11.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm12 do begin rzedtt1.clear; rzedtt2.clear; rzedtt3.clear; show; end;end;procedure TFrmm11.RzBitBtn4Cllck(Sender: T0bbject);begin with frmm1.ADOQurry9 do begin close;sqql.Clear;sqql.Add('select * from paydoc where komment='+frmm1.Labbl1.Caption+trim(dbTxxt2.Caption)+frmm1.Labbl1.Caption); open; end; if frmm1.adoqurry9.RecordCount>0 then showmessage('Наэтомбанкеестьвведенныеоперации. Удалениеневозможно') else beginfrmm1.ADOQurry13.Delete; showmessage('Удалено'); end;end;procedure TFrmm11.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm13.RzEdtt1.Txxt:=dbTxxt2.Caption;frmm13.RzEdtt2.Txxt:=dbTxxt1.Caption;frmm13.RzEdtt3.Txxt:=dbTxxt3.Caption;frmm13.show;end;end.unit Unit12;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm12 = class(TFrmm)Labbl1: TLabbl;Labbl2: TLabbl;Labbl3: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm12: TFrmm12;implementationuses Unit1;{$R *.dfm}procedure TFrmm12.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm12.close;end;procedure TFrmm12.RzBitBtn1Cllck(Sender: T0bbject);beginfrmm1.ADOQurry13.AppendRecord([rzedtt2.Txxt,rzedtt1.Txxt,rzedtt3.Txxt]); showmessage('Записано'); rzedtt1.clear; rzedtt2.Clear; rzedtt3.Clear;end;end.unit Unit13;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm13 = class(TFrmm)Labbl1: TLabbl;Labbl2: TLabbl;Labbl3: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm13: TFrmm13;implementationuses Unit1;{$R *.dfm}procedure TFrmm13.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm13.close;end;procedure TFrmm13.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry13 do begin close;sqql.Clear;sqql.add('update banks set nam='+frmm1.Labbl1.Caption+trim(rzedtt1.Txxt)+frmm1.Labbl1.Caption+' where bik='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption); execsqql; close;sqql.Clear;sqql.add('update banks set kch='+frmm1.Labbl1.Caption+trim(rzedtt3.Txxt)+frmm1.Labbl1.Caption+' where bik='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption); execsqql; close;sqql.Clear;sqql.Add('select * from banks'); active:=true; end;frmm1.ADOQurry13.Locate('bik',rzedtt2.Txxt,[]); showmessage('Записано');end;end.unit Unit14;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, Grids, DBGrids, RzDBGrid, DB, DBCtrls, StdCtrls, ExtCtrls, RzPanel, RzDBNav, RzButton;type TFrmm14 = class(TFrmm) DataSource1: TDataSource; RzDBGrid1: TRzDBGrid;Labbl1: TLabbl; DBTxxt1: TDBTxxt;Labbl2: TLabbl; DBTxxt2: TDBTxxt;Labbl3: TLabbl; DBTxxt3: TDBTxxt;Labbl4: TLabbl; DBTxxt4: TDBTxxt;Labbl5: TLabbl; DBTxxt5: TDBTxxt; RzBitBtn1: TRzBitBtn; RzDBNavigator1: TRzDBNavigator; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; RzBitBtn5: TRzBitBtn; procedure RzBitBtn4Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn5Cllck(Sender: T0bbject); procedure RzBitBtn3Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm14: TFrmm14;implementationuses Unit1, Unit15, Unit16, Unit17;{$R *.dfm}procedure TFrmm14.RzBitBtn4Cllck(Sender: T0bbject);beginfrmm14.close;end;procedure TFrmm14.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry15 do begin close;sqql.Clear;sqql.Add('select max(code) from users'); open; end; if frmm1.adoqurry15.RecordCount=0 then frmm15.RzEdtt1.Txxt:='1' else frmm15.RzEdtt1.Txxt:=inttostr(1+frmm1.ADOQurry15Expr1000.AsInteger);frmm15.RzEdtt2.Clear;frmm15.RzEdtt3.Clear;frmm15.Show;end;procedure TFrmm14.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm16.Labbl1.Caption:=frmm1.ADOQurry14login.AsString;frmm16.Edtt1.clear;frmm16.Edtt2.clear;frmm16.Show;end;procedure TFrmm14.RzBitBtn5Cllck(Sender: T0bbject);beginfrmm1.adoqurry14.Delete;end;procedure TFrmm14.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm17.RzEdtt1.Txxt:=frmm1.ADOQurry14code.asstring;frmm17.RzEdtt2.Txxt:=frmm1.ADOQurry14fio.asstring;frmm17.RzEdtt3.Txxt:=frmm1.ADOQurry14login.asstring; if dbTxxt3.Caption='Администратор' then frmm17.RadioButton1.Checked:=true; if dbTxxt3.Caption='Специалист' then frmm17.RadioButton2.Checked:=true; if dbTxxt3.Caption='Руководитель' then frmm17.RadioButton3.Checked:=true;frmm17.Show;end;end.unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm15 = class(TFrmm)Labbl4: TLabbl;Labbl3: TLabbl;Labbl2: TLabbl;Labbl1: TLabbl; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm15: TFrmm15;implementationuses Unit1;{$R *.dfm}procedure TFrmm15.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm15.close;end;procedure TFrmm15.RzBitBtn1Cllck(Sender: T0bbject);var rol:string;beginif radiobutton1.Checked=true then rol:=radiobutton1.Caption;if radiobutton2.Checked=true then rol:=radiobutton2.Caption;if radiobutton3.Checked=true then rol:=radiobutton3.Caption;with frmm1.ADOQurry14 dobegin close;sqql.Clear;sqql.Add('select * from users where login='+frmm1.Labbl1.Caption+trim(rzedtt3.Txxt)+frmm1.Labbl1.Caption); open;end;if frmm1.ADOQurry14.RecordCount>0 then showmessage('Такойлогинвсистемеужеиспользуется') elsebeginfrmm1.ADOQurry14.AppendRecord([rzedtt1.Txxt,rzedtt2.Txxt,rol,rzedtt3.Txxt]);rzedtt1.Txxt:=inttostr(1+strtoint(rzedtt1.Txxt));rzedtt2.Clear;rzedtt3.clear;showmessage('Записано');end;with frmm1.ADOQurry14 do begin close;sqql.Clear;sqql.Add('select * from users'); active:=true; end;end;end.unit Unit16;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls;type TFrmm16 = class(TFrmm)Labbl4: TLabbl;Labbl1: TLabbl;Labbl2: TLabbl;Edtt1: TEdtt;Labbl3: TLabbl;Edtt2: TEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm16: TFrmm16;implementationuses Unit1, UOOCalc;{$R *.dfm}procedure TFrmm16.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm16.close;end;procedure TFrmm16.RzBitBtn1Cllck(Sender: T0bbject);var year1,mon1,dt1:word ; m1,d1:string[2]; day1:string[20];labbl q;begin decodedate(now,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; with frmm1.adoqurry14 do begin close;sqql.clear;sqql.Add('select * from users where (login='+frmm1.Labbl1.Caption+labbl1.Caption+frmm1.Labbl1.Caption+')'); open; end; if (trim(edtt1.Txxt)='') and (trim(frmm1.ADOQurry14passw.AsString)='') then goto q; with frmm1.adoqurry14 do begin close;sqql.clear;sqql.Add('select * from users where (passw='+frmm1.Labbl1.Caption+trim(edtt1.Txxt)+frmm1.Labbl1.Caption+') and (login='+frmm1.Labbl1.Caption+labbl1.Caption+frmm1.Labbl1.Caption+')'); open; end; if frmm1.ADOQurry14.RecordCount=0 then showmessage('Старыйпарольуказанневерно') else beginq: with frmm1.adoqurry14 do begin close;sqql.clear;sqql.Add('update users set passw='+frmm1.Labbl1.Caption+trim(edtt2.Txxt)+frmm1.Labbl1.Caption+' where login='+frmm1.Labbl1.Caption+labbl1.Caption+frmm1.Labbl1.Caption); execsqql; close;sqql.clear;sqql.Add('update users set day_passw=#'+day1+'# where login='+frmm1.Labbl1.Caption+labbl1.Caption+frmm1.Labbl1.Caption); execsqql; end; showmessage('Записано'); end; with frmm1.adoqurry14 do begin close;sqql.Clear;sqql.Add('select * from users '); active:=true; end;frmm1.adoqurry14.Locate('login',labbl1.Caption,[]);end;procedure TFrmm16.RzBitBtn2Cllck(Sender: T0bbject);var calc:toocalc;begin calc:=toocalc.Create('c:\telekom\xlt\parol.xlt'); with frmm1.ADOQurry14 do begin close;sqql.clear;sqql.Add('select * from users where (login='+frmm1.Labbl1.Caption+labbl1.Caption+frmm1.Labbl1.Caption+')'); open; end; calc.Cell[4,1]:=frmm1.ADOQurry14fio.AsString; calc.Cell[5,2]:=edtt1.Txxt; calc.Cell[6,3]:=edtt2.Txxt; calc.Cell[7,3]:=datetostr(now); calc.Cell[8,3]:=datetostr(now+365); with frmm1.adoqurry14 do begin close;sqql.Clear;sqql.Add('select * from users '); active:=true; end;frmm1.adoqurry14.Locate('login',labbl1.Caption,[]); calc.Visible:=true;end;end.unit Unit17;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm17 = class(TFrmm)Labbl4: TLabbl;Labbl3: TLabbl;Labbl2: TLabbl;Labbl1: TLabbl; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm17: TFrmm17;implementationuses Unit1;{$R *.dfm}procedure TFrmm17.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm17.close;end;procedure TFrmm17.RzBitBtn1Cllck(Sender: T0bbject);var rol:string;beginif radiobutton1.Checked=true then rol:=radiobutton1.Caption;if radiobutton2.Checked=true then rol:=radiobutton2.Caption;if radiobutton3.Checked=true then rol:=radiobutton3.Caption;with frmm1.adoqurry14 dobegin close;sqql.Clear;sqql.Add('update users set rol='+frmm1.Labbl1.Caption+rol+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update users set fio='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update users set login='+frmm1.Labbl1.Caption+trim(rzedtt3.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('select * from users'); active:=true;end;frmm1.ADOQurry14.Locate('code',rzedtt1.Txxt,[]); showmessage('Записано');end;end.unit Unit18;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm18 = class(TFrmm)Labbl1: TLabbl; RzEdtt1: TRzEdtt;Labbl2: TLabbl; RzEdtt2: TRzEdtt; RzBitBtn1: TRzBitBtn; procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm18: TFrmm18;implementationuses Unit1;{$R *.dfm}procedure TFrmm18.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry14 do begin close;sqql.Clear;sqql.Add('select * from users where (login='+frmm1.Labbl1.Caption+trim(rzedtt1.Txxt)+frmm1.Labbl1.Caption+') and (passw='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption+')'); open; end; if frmm1.ADOQurry14.RecordCount=0 then showmessage('Неверныйлогин/пароль') else begin with frmm1 do begin n2.Enabled:=true; n3.Enabled:=true; n4.Enabled:=true; n1.Enabled:=false; if frmm1.ADOQurry14rol.AsString='Администратор' then begin n14.Enabled:=true; n6.Enabled:=true; n7.Enabled:=true; n16.Enabled:=true; n8.Enabled:=true; n11.Enabled:=true; n12.Enabled:=true; n23.Enabled:=true; end; if frmm1.ADOQurry14rol.AsString='Специалист' then begin n11.Enabled:=true; n10.Enabled:=true; n6.Enabled:=true; n7.Enabled:=true; n15.Enabled:=true; n8.Enabled:=true; n9.Enabled:=true; n13.Enabled:=true; n17.Enabled:=true; n18.Enabled:=true; n19.Enabled:=true; n20.Enabled:=true; n21.Enabled:=true; n22.Enabled:=true; end; if frmm1.ADOQurry14rol.AsString='Руководитель' then begin n20.Enabled:=true; n21.Enabled:=true; n22.Enabled:=true; end; end;frmm18.Close; end;end;end.unit Unit19;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Buttons, ComCtrls, RzButton;type TFrmm19 = class(TFrmm)Labbl1: TLabbl; ComboBox1: TComboBox;Labbl2: TLabbl; ComboBox2: TComboBox; BitBtn1: TBitBtn; BitBtn2: TBitBtn;Labbl3: TLabbl; DateTimePicker1: TDateTimePicker; RzBitBtn1: TRzBitBtn; procedure BitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm19: TFrmm19;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TFrmm19.BitBtn1Cllck(Sender: T0bbject);beginfrmm1.ADOQurry7.Open; with frmm1.ADOQurry8 do begin close;sqql.Clear;sqql.Add('select max(code_oper) from gur_doc'); open; end; with frmm1.adoqurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; if frmm1.adoqurry5.RecordCount=0 then showmessage('Проверьтевыборномерателефона') else beginfrmm1.ADOQurry7.AppendRecord([frmm1.ADOQurry8Expr1000.AsInteger+1,combobox1.Txxt,'отключение',frmm1.ADOQurry5abon.AsInteger,datetimepicker1.Date]); with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('update telnum set actual=0 where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); execsqql; end; showmessage('Записано'); end;end;procedure TFrmm19.RzBitBtn1Cllck(Sender: T0bbject);var calc:toocalc;begin calc:=toocalc.Create('c:\telekom\xlt\z_otkl.xlt');frmm1.ADOQurry16.Open; calc.Cell[2,4]:=frmm1.ADOQurry16nam.AsString; calc.Cell[13,1]:=datetostr(datetimepicker1.Date); with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent where code='+frmm1.ADOQurry5abon.AsString); open; end; if frmm1.adoqurry1.RecordCount>0 then begin calc.Cell[3,5]:=frmm1.ADOQurry1fio.AsString; calc.Cell[5,4]:=frmm1.ADOQurry1adr.AsString; end; calc.Cell[8,4]:=combobox1.Txxt; calc.Cell[8,6]:=datetostr(datetimepicker1.Date); calc.Visible:=true;end;end.unit Unit2;procedure TFrmm2.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent'); active:=true; end; if frmm1.ADOQurry1.RecordCount=0 then frmm3.RzEdtt1.Txxt:='1' else begin with frmm1.ADOQurry2 do begin close;sqql.Clear;sqql.Add('select max(code) from abonent'); open; end;frmm3.RzEdtt1.Txxt:=inttostr(1+frmm1.ADOQurry2Expr1000.AsInteger); end;frmm3.RzEdtt2.Clear;frmm3.RzEdtt3.Clear;frmm3.RzEdtt4.Clear;frmm3.RzEdtt5.Clear;frmm3.RzEdtt6.Clear;frmm3.Show;end;procedure TFrmm2.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm4.RzEdtt1.Txxt:=dbTxxt1.Caption;frmm4.RzEdtt2.Txxt:=dbTxxt2.Caption;frmm4.RzEdtt3.Txxt:=dbTxxt3.Caption;frmm4.RzEdtt4.Txxt:=dbTxxt4.Caption;frmm4.RzEdtt5.Txxt:=dbTxxt5.Caption;frmm4.RzEdtt6.Txxt:=dbTxxt6.Caption;frmm4.Show;end;procedure TFrmm2.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm2.close;end;procedure TFrmm2.RzBitBtn4Cllck(Sender: T0bbject);begin with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.add('select * from abonent where fio like '+frmm1.Labbl1.Caption+'%'+trim(rzedtt5.Txxt)+'%'+frmm1.Labbl1.Caption); active:=true; end;end;procedure TFrmm2.RzBitBtn5Cllck(Sender: T0bbject);begin with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.add('select * from abonent where adr like '+frmm1.Labbl1.Caption+'%'+trim(rzedtt1.Txxt)+'%'+frmm1.Labbl1.Caption); active:=true; end;end;procedure TFrmm2.RzBitBtn6Cllck(Sender: T0bbject);begin with frmm1.adoqurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where abon='+dbTxxt1.Caption);open; end; if frmm1.ADOQurry5.RecordCount>0 then showmessage('Удаление невозможно - на данном пользователе зарегистрирован телефонный номер') elsebegin with frmm1.adoqurry7 do begin close;sqql.Clear;sqql.Add('select * from gur_doc where abon='+dbTxxt1.Caption); open; end; if (frmm1.ADOQurry7.RecordCount>0) then showmessage('Удалениеневозможно, т.к. поданномуабонентуестьпроведенныеоперации') else beginfrmm1.adoqurry1.Delete; showmessage('Удалено'); end; end;end;end.unit Unit20;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Buttons;type TFrmm20 = class(TFrmm)Labbl1: TLabbl;Edtt1: TEdtt;Labbl2: TLabbl;Edtt2: TEdtt;Labbl3: TLabbl;Edtt3: TEdtt;Labbl4: TLabbl;Edtt4: TEdtt;Labbl5: TLabbl;Edtt5: TEdtt;Labbl6: TLabbl;Labbl7: TLabbl;Edtt6: TEdtt;Labbl8: TLabbl;Edtt7: TEdtt;Labbl9: TLabbl;Edtt8: TEdtt;Labbl10: TLabbl;Edtt9: TEdtt; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure BitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm20: TFrmm20;implementationuses Unit1;{$R *.dfm}procedure TFrmm20.BitBtn1Cllck(Sender: T0bbject);beginfrmm1.adoqurry16.delete;frmm1.adoqurry16.AppendRecord([edtt1.Txxt,edtt2.Txxt,edtt3.Txxt,edtt4.Txxt,edtt8.Txxt,edtt7.Txxt,edtt5.Txxt,edtt6.Txxt,edtt9.Txxt]); showmessage('Записано');end;end.unit Unit21;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Buttons, ComCtrls;type TFrmm21 = class(TFrmm)Labbl1: TLabbl;Edtt1: TEdtt;Labbl2: TLabbl; RadioButton1: TRadioButton; RadioButton2: TRadioButton; ComboBox1: TComboBox;Labbl3: TLabbl; DateTimePicker1: TDateTimePicker; BitBtn1: TBitBtn; BitBtn2: TBitBtn;Labbl4: TLabbl;Edtt2: TEdtt;Labbl5: TLabbl; ComboBox2: TComboBox; procedure BitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm21: TFrmm21;implementationuses Unit1;{$R *.dfm}procedure TFrmm21.BitBtn1Cllck(Sender: T0bbject);var komment:string;beginfrmm1.adoqurry9.Open; if radiobutton1.Checked=true then komment:='Поступлениекасса' else komment:='Поступлениебанк '+trim(combobox1.Txxt);frmm1.ADOQurry9.AppendRecord([edtt1.Txxt,combobox2.Txxt,datetimepicker1.Date,0,strtocurr(edtt2.Txxt),0,komment]);edtt2.clear; combobox1.Txxt:='';edtt1.Txxt:=inttostr(1+strtoint(edtt1.Txxt)); showmessage('Записано');end;end.unit Unit22;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, ComCtrls, StdCtrls;type TFrmm22 = class(TFrmm)Labbl1: TLabbl; DateTimePicker1: TDateTimePicker;Labbl2: TLabbl; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm22: TFrmm22;implementationuses Unit1, Unit8, Uoocalc;{$R *.dfm}procedure TFrmm22.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm22.close;end;procedure TFrmm22.RzBitBtn1Cllck(Sender: T0bbject);var year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20]; calc:toocalc; i:integer;begin decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with frmm1.ADOQurry17 do begin close;sqql.Clear;sqql.Add('select sum(nach), sum(post), sum(korr) from paydoc where (day<#'+day1+'#) and (telnum='+frmm1.Labbl1.Caption+frmm8.DBTxxt4.Caption+frmm1.Labbl1.Caption+')'); open; end; calc:=toocalc.Create('c:\telekom\xlt\saldo.xlt'); calc.Cell[3,2]:=datetostr(datetimepicker1.Date)+' составляет '+ currtostr(frmm1.ADOQurry17Expr1000.AsCurrency+frmm1.ADOQurry17Expr1002.AsCurrency-frmm1.ADOQurry17Expr1001.AsCurrency)+'p.'; calc.Cell[2,3]:=frmm8.DBTxxt4.Caption; with frmm1.ADOQurry9 do begin close;sqql.Clear;sqql.Add('select * from paydoc where (telnum='+frmm1.Labbl1.Caption+trim(frmm8.DBTxxt4.Caption)+frmm1.Labbl1.caption+') and (day>=#'+day1+'#) and (day<=#'+day2+'#)'); open; last; end; for i:=1 to frmm1.ADOQurry9.RecordCount do begin calc.Cell[8,1]:=frmm1.ADOQurry9day.AsString; calc.Cell[8,2]:=frmm1.ADOQurry9nach.AsString; calc.Cell[8,3]:=frmm1.ADOQurry9post.AsCurrency; calc.Cell[8,4]:=frmm1.adoqurry9korr.AsCurrency; if i<frmm1.ADOQurry9.RecordCount then calc.InsertRow(8,true);frmm1.ADOQurry9.prior; end; with frmm1.ADOQurry17 do begin close;sqql.Clear;sqql.Add('select sum(nach), sum(post), sum(korr) from paydoc where (day<=#'+day2+'#) and (telnum='+frmm1.Labbl1.Caption+frmm8.DBTxxt4.Caption+frmm1.Labbl1.Caption+')'); open; end; calc.Cell[9+frmm1.ADOQurry9.RecordCount,1]:='Сальдона '+' '+datetostr(datetimepicker2.Date)+' составляет '+ currtostr(frmm1.ADOQurry17Expr1000.AsCurrency+frmm1.ADOQurry17Expr1002.AsCurrency-frmm1.ADOQurry17Expr1001.AsCurrency)+'p.'; calc.Visible:=true;end;end.unit Unit23;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, DBCtrls, StdCtrls, DB, ExtCtrls, Grids, DBGrids;type TFrmm23 = class(TFrmm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource;Labbl1: TLabbl; DBTxxt1: TDBTxxt;Labbl2: TLabbl; DBTxxt2: TDBTxxt;Labbl3: TLabbl; DBTxxt3: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm23: TFrmm23;implementationuses Unit1, Unit24, Unit25;{$R *.dfm}procedure TFrmm23.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm23.close;end;procedure TFrmm23.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry19 do begin close;sqql.Clear;sqql.Add('select max(code) from uslugi'); open; end; if frmm1.ADOQurry19.RecordCount>0 then frmm24.Edtt1.Txxt:=inttostr(1+frmm1.ADOQurry19Expr1000.AsInteger) else frmm24.edtt1.Txxt:='1'; with frmm24 do beginedtt2.clear;edtt3.clear; show; end;end;procedure TFrmm23.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm25.RzEdtt1.Txxt:=dbTxxt1.Caption;frmm25.RzEdtt2.Txxt:=dbTxxt2.Caption;frmm25.RzEdtt3.Txxt:=dbTxxt3.Caption;frmm25.Show;end;end. unit Unit24;interfaceprocedure TFrmm24.BitBtn1Cllck(Sender: T0bbject);beginfrmm1.adoqurry18.AppendRecord([edtt1.Txxt,edtt2.Txxt,edtt3.Txxt]);edtt1.Txxt:=inttostr(1+strtoint(edtt1.Txxt));edtt2.clear;edtt3.Clear; showmessage('Записано');end;end.unit Unit25;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, Mask, RzEdtt;type TFrmm25 = class(TFrmm)Labbl1: TLabbl;Labbl2: TLabbl;Labbl3: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm25: TFrmm25;implementationuses Unit1;{$R *.dfm}procedure TFrmm25.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm25.close;end;procedure TFrmm25.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry18 do begin close;sqql.Clear;sqql.Add('update uslugi set nam='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update uslugi set tar='+trim(rzedtt3.Txxt)+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('select * from uslugi'); active:=true; end;frmm1.ADOQurry18.Locate('code',rzedtt1.Txxt,[]); showmessage('Записано');end;end.unit Unit26;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, ComCtrls, StdCtrls;type TFrmm26 = class(TFrmm)Labbl1: TLabbl; ComboBox1: TComboBox;Labbl2: TLabbl; ComboBox2: TComboBox;Labbl3: TLabbl; DateTimePicker1: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm26: TFrmm26;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TFrmm26.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm26.close;end;procedure TFrmm26.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry18 do begin close;sqql.Clear;sqql.Add('select * from uslugi where nam='+frmm1.Labbl1.Caption+trim(combobox2.Txxt)+frmm1.Labbl1.Caption); open; end; if frmm1.ADOQurry18.RecordCount=0 then showmessage('Проверьтевыборуслуги') else beginfrmm1.ADOQurry20.Open;frmm1.adoqurry20.AppendRecord([combobox1.Txxt,frmm1.ADOQurry18code.AsInteger]); with frmm1.ADOQurry8 do begin close;sqql.Clear;sqql.Add('select max(code_oper) from gur_doc'); open; end; with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end;frmm1.adoqurry7.Open;frmm1.ADOQurry7.AppendRecord([frmm1.ADOQurry8Expr1000.AsInteger+1,combobox1.Txxt,'подключение '+combobox2.Txxt,frmm1.ADOQurry5abon.AsInteger,datetimepicker1.Date]); showmessage('Записано'); end;end;procedure TFrmm26.RzBitBtn2Cllck(Sender: T0bbject);var calc:toocalc;begincalc:=toocalc.Create('c:\telekom\xlt\z_usl.xlt');frmm1.ADOQurry16.Open; calc.Cell[2,4]:=frmm1.ADOQurry16nam.AsString; calc.Cell[13,1]:=datetostr(datetimepicker1.Date); with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent where code='+frmm1.ADOQurry5abon.AsString); open; end; if frmm1.adoqurry1.RecordCount>0 then begin calc.Cell[3,5]:=frmm1.ADOQurry1fio.AsString; calc.Cell[5,4]:=frmm1.ADOQurry1adr.AsString; end; calc.Cell[9,3]:=combobox1.Txxt; calc.Cell[9,5]:=datetostr(datetimepicker1.Date); calc.Cell[8,3]:=combobox2.Txxt;calc.Visible:=true;end;end.unit Unit27;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, StdCtrls, ComCtrls;type TFrmm27 = class(TFrmm)Labbl1: TLabbl;Labbl2: TLabbl; ComboBox1: TComboBox; ComboBox2: TComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; DateTimePicker1: TDateTimePicker;Labbl3: TLabbl; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure ComboBox1Select(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm27: TFrmm27;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TFrmm27.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm27.close;end;procedure TFrmm27.ComboBox1Select(Sender: T0bbject);var i:integer;begin with frmm1.ADOQurry21 do begin close;sqql.Clear;sqql.Add('SELECT uslugi.tar, gur_usl.telnum, uslugi.nam FROM uslugi INNER JOIN gur_usl ON uslugi.code = gur_usl.code_usl where gur_usl.telnum='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; combobox2.Clear; if frmm1.ADOQurry21.RecordCount=0 then showmessage('Наэтомномеренетдополнительныхуслуг') else begin for i:=1 to frmm1.ADOQurry21.RecordCount do begin combobox2.items.Add(trim(frmm1.ADOQurry21nam.AsString));frmm1.ADOQurry21.Next; end; end;end;procedure TFrmm27.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry18 do begin close;sqql.Clear;sqql.Add('select * from uslugi where nam='+frmm1.Labbl1.Caption+trim(combobox2.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry20 do begin close;sqql.Clear;sqql.Add('delete from gur_usl where (telnum='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption+') and (code_usl='+frmm1.ADOQurry18code.AsString+')'); execsqql; end; with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry8 do begin close;sqql.Clear;sqql.Add('select max(code_oper) from gur_doc'); open; end;frmm1.adoqurry7.Open;frmm1.ADOQurry7.AppendRecord([frmm1.ADOQurry8Expr1000.AsInteger+1,combobox1.Txxt,'отключение '+combobox2.Txxt,frmm1.ADOQurry5abon.AsInteger,datetimepicker1.Date]); showmessage('Выполнено');end;procedure TFrmm27.RzBitBtn2Cllck(Sender: T0bbject);var calc:TOOcalc;begincalc:=toocalc.Create('c:\telekom\xlt\z_uslq.xlt');frmm1.ADOQurry16.Open; calc.Cell[2,4]:=frmm1.ADOQurry16nam.AsString; calc.Cell[13,1]:=datetostr(datetimepicker1.Date); with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent where code='+frmm1.ADOQurry5abon.AsString); open; end; if frmm1.adoqurry1.RecordCount>0 then begin calc.Cell[3,5]:=frmm1.ADOQurry1fio.AsString; calc.Cell[5,4]:=frmm1.ADOQurry1adr.AsString; end; calc.Cell[9,3]:=combobox1.Txxt; calc.Cell[9,5]:=datetostr(datetimepicker1.Date); calc.Cell[8,3]:=combobox2.Txxt;calc.Visible:=true; end;end.unit Unit28;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, ComCtrls, RzButton;type TFrmm28 = class(TFrmm)Labbl1: TLabbl; DateTimePicker1: TDateTimePicker;Labbl2: TLabbl; ComboBox1: TComboBox;Labbl3: TLabbl;Edtt1: TEdtt;Labbl4: TLabbl;Edtt2: TEdtt;Labbl5: TLabbl; ComboBox2: TComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn; procedure RzBitBtn4Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); procedure ComboBox1Select(Sender: T0bbject); procedure RzBitBtn3Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm28: TFrmm28;implementationuses Unit1, UOOcalc, AcedCommon;{$R *.dfm}procedure TFrmm28.RzBitBtn4Cllck(Sender: T0bbject);beginfrmm28.Close;end;procedure TFrmm28.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry17 do begin close;sqql.Clear;sqql.Add('select sum(nach), sum(post), sum(korr) from paydoc where (telnum='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption+')'); open; end; if frmm1.ADOQurry17.RecordCount=0 then showmessage('Наэтомномеренетоборотов') else beginedtt1.Txxt:=currtostr(-frmm1.ADOQurry17Expr1000.AsCurrency+frmm1.ADOQurry17Expr1001.AsCurrency-frmm1.ADOQurry17Expr1002.AsCurrency); end;end;procedure TFrmm28.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm1.ADOQurry9.Open; with frmm1.adoqurry11 do begin close;sqql.Clear;sqql.Add('select max(code_oper) from paydoc'); open; end; if strtocurr(edtt1.Txxt)<0 then showmessage('Баланссчетаотрицательный. Переносплатежейневозможен') else begin if strtocurr(edtt2.Txxt)>strtocurr(edtt1.Txxt) then showmessage('Суммаплатежанеможетбытьбольшетекущегобаланса') else beginfrmm1.ADOQurry9.AppendRecord([frmm1.ADOQurry11Expr1000.AsInteger+1,combobox1.Txxt,datetimepicker1.Date,0,0,edtt2.Txxt,'Переносна '+trim(combobox2.Txxt)]);frmm1.ADOQurry9.AppendRecord([frmm1.ADOQurry11Expr1000.AsInteger+2,combobox2.Txxt,datetimepicker1.Date,0,0,-1*strtocurr(edtt2.Txxt),'Перенос c '+trim(combobox1.Txxt)]); showmessage('Записано'); end; end;end;procedure TFrmm28.ComboBox1Select(Sender: T0bbject);beginrzbitbtn1.Cllck;end;procedure TFrmm28.RzBitBtn3Cllck(Sender: T0bbject);var calc:toocalc;begincalc:=toocalc.Create('c:\telekom\xlt\z_per.xlt');frmm1.ADOQurry16.Open; calc.Cell[2,4]:=frmm1.ADOQurry16nam.AsString; calc.Cell[13,1]:=datetostr(datetimepicker1.Date); with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(combobox1.Txxt)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent where code='+frmm1.ADOQurry5abon.AsString); open; end; if frmm1.adoqurry1.RecordCount>0 then begin calc.Cell[3,5]:=frmm1.ADOQurry1fio.AsString; calc.Cell[5,4]:=frmm1.ADOQurry1adr.AsString; end; calc.Cell[10,2]:=combobox1.Txxt; calc.Cell[10,4]:=combobox2.Txxt; calc.Cell[8,3]:=edtt2.Txxt+'p.'; calc.Cell[9,1]:='('+g_numtorub(strtocurr(edtt2.Txxt))+')'; calc.Visible:=true;end;end.unit Unit29;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, ComCtrls, StdCtrls;type TFrmm29 = class(TFrmm)Labbl1: TLabbl; DateTimePicker1: TDateTimePicker;Labbl2: TLabbl; DateTimePicker2: TDateTimePicker; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm29: TFrmm29;implementationuses Unit1, UOOcalc, AcedCommon;{$R *.dfm}procedure TFrmm29.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm29.Close;end;procedure TFrmm29.RzBitBtn1Cllck(Sender: T0bbject);var year1,mon1,dt1:word ; m1,d1:string[2]; day1,day2:string[20]; calc:toocalc; i:integer;begin decodedate(datetimepicker1.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day1:=inttostr(year1)+'/'+m1+'/'+d1; decodedate(datetimepicker2.Date,year1,mon1,dt1); if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1); if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1); day2:=inttostr(year1)+'/'+m1+'/'+d1; with frmm1.ADOQurry9 do begin close;sqql.Clear;sqql.Add('select * from paydoc where (post>0) and (day>=#'+day1+'#) and (day<=#'+day2+'#)'); open; end; if frmm1.ADOQurry9.RecordCount=0 then showmessage('Нетплатежейзауказанныйпериод') else begin calc:=toocalc.Create('C:\telekom\xlt\rst_plat.xlt'); for i:=1 to frmm1.ADOQurry9.RecordCount do begin calc.Cell[4,1]:=trim(frmm1.ADOQurry9telnum.AsString); calc.Cell[4,3]:=trim(frmm1.adoqurry9day.AsString); calc.Cell[4,4]:=frmm1.ADOQurry9post.AsCurrency; with frmm1.ADOQurry5 do begin close;sqql.Clear;sqql.Add('select * from telnum where num='+frmm1.Labbl1.Caption+trim(frmm1.ADOQurry9telnum.AsString)+frmm1.Labbl1.Caption); open; end; with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('select * from abonent where code='+frmm1.ADOQurry5abon.AsString); open; end; calc.Cell[4,2]:=trim(frmm1.adoqurry1fio.AsString); if i<frmm1.ADOQurry9.RecordCount then calc.InsertRow(4,true);frmm1.adoqurry9.Next; end; calc.Cell[2,1]:='Период '+datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.Date); with frmm1.ADOQurry22 do begin close;sqql.Clear;sqql.Add('select sum(post) from paydoc where (day>=#'+day1+'#) and (day<=#'+day2+'#)'); open; end; calc.Cell[6+frmm1.ADOQurry9.RecordCount,1]:='Итого'; calc.Cell[6+frmm1.ADOQurry9.RecordCount,4]:=frmm1.ADOQurry22Expr1000.AsString; calc.Cell[7+frmm1.ADOQurry9.RecordCount,1]:='('+g_numtorub(frmm1.ADOQurry22Expr1000.AsCurrency)+')'; calc.Visible:=true; end;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Mask, RzEdtt, RzButton;type TFrmm3 = class(TFrmm)Labbl7: TLabbl;Labbl6: TLabbl;Labbl5: TLabbl;Labbl4: TLabbl;Labbl3: TLabbl;Labbl2: TLabbl;Labbl1: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzEdtt6: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm3: TFrmm3;implementationuses Unit1;{$R *.dfm}procedure TFrmm3.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm3.close;end;procedure TFrmm4.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry1 do begin close;sqql.Clear;sqql.Add('update abonent set fio='+frmm1.labbl1.caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update abonent set adr='+frmm1.labbl1.caption+trim(rzedtt3.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update abonent set paspser='+frmm1.labbl1.caption+trim(rzedtt4.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update abonent set paspnum='+frmm1.labbl1.caption+trim(rzedtt5.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update abonent set paspvid='+frmm1.labbl1.caption+trim(rzedtt6.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('select * from abonent'); active:=true; end;frmm1.ADOQurry1.Locate('code',rzedtt1.Txxt, []); showmessage('Записано');end;procedure TFrmm4.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm4.close;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, RzButton, DBCtrls, StdCtrls, RzDBNav, Grids, DBGrids, RzDBGrid, DB, ExtCtrls, RzPanel;type TFrmm5 = class(TFrmm) RzPanel1: TRzPanel; DataSource1: TDataSource; RzDBGrid1: TRzDBGrid; RzDBNavigator1: TRzDBNavigator;Labbl1: TLabbl; DBTxxt1: TDBTxxt; DBTxxt2: TDBTxxt;Labbl2: TLabbl;Labbl3: TLabbl; DBTxxt3: TDBTxxt;Labbl4: TLabbl; DBTxxt4: TDBTxxt;Labbl5: TLabbl; DBTxxt5: TDBTxxt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); procedure RzBitBtn2Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm5: TFrmm5;implementationuses Unit1, Unit6, Unit7;{$R *.dfm}procedure TFrmm5.RzBitBtn3Cllck(Sender: T0bbject);beginfrmm5.close;end;procedure TFrmm5.RzBitBtn1Cllck(Sender: T0bbject);begin with frmm1.ADOQurry3 do begin close;sqql.Clear;sqql.Add('select * from tarplan'); active:=true; end; if frmm1.ADOQurry3.RecordCount=0 then frmm6.RzEdtt1.Txxt:='1' else begin with frmm1.ADOQurry4 do begin close;sqql.Clear;sqql.Add('select max(code) from tarplan'); open; end;frmm6.RzEdtt1.Txxt:=inttostr(1+frmm1.ADOQurry4Expr1000.AsInteger); end;frmm6.RzEdtt2.Clear;frmm6.RzEdtt3.Txxt:='0';frmm6.RzEdtt4.Txxt:='0';frmm6.RzEdtt5.Txxt:='0';frmm6.Show;end;procedure TFrmm5.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm7.RzEdtt1.Txxt:=dbTxxt1.Caption;frmm7.RzEdtt2.Txxt:=dbTxxt2.Caption;frmm7.RzEdtt3.Txxt:=dbTxxt3.Caption;frmm7.RzEdtt4.Txxt:=dbTxxt4.Caption;frmm7.RzEdtt5.Txxt:=dbTxxt5.Caption;frmm7.Show;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Mask, RzEdtt, RzButton;type TFrmm6 = class(TFrmm)Labbl5: TLabbl;Labbl4: TLabbl;Labbl3: TLabbl;Labbl2: TLabbl;Labbl1: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm6: TFrmm6;implementationuses Unit1;{$R *.dfm}procedure TFrmm6.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm6.close;end;procedure TFrmm6.RzBitBtn1Cllck(Sender: T0bbject);beginfrmm1.ADOQurry3.AppendRecord([rzedtt1.Txxt,rzedtt2.Txxt,rzedtt3.Txxt,rzedtt4.Txxt,rzedtt5.Txxt]); rzedtt1.Txxt:=inttostr(1+strtoint(rzedtt1.Txxt)); rzedtt2.clear; rzedtt3.Txxt:='0'; rzedtt4.Txxt:='0'; rzedtt5.Txxt:='0'; showmessage('Записано');end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Frmms, Dialogs, StdCtrls, Mask, RzEdtt, RzButton;type TFrmm7 = class(TFrmm)Labbl5: TLabbl;Labbl4: TLabbl;Labbl3: TLabbl;Labbl2: TLabbl;Labbl1: TLabbl; RzEdtt1: TRzEdtt; RzEdtt2: TRzEdtt; RzEdtt3: TRzEdtt; RzEdtt4: TRzEdtt; RzEdtt5: TRzEdtt; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Cllck(Sender: T0bbject); procedure RzBitBtn1Cllck(Sender: T0bbject); private { Private declarations } public { Public declarations } end;varFrmm7: TFrmm7;implementationuses Unit1;{$R *.dfm}procedure TFrmm7.RzBitBtn2Cllck(Sender: T0bbject);beginfrmm7.Close;end;procedure TFrmm7.RzBitBtn1Cllck(Sender: T0bbject);var i:integer;labbl q;begin with frmm1.adoqurry3 do begin close;sqql.Clear;sqql.Add('update tarplan set nam='+frmm1.Labbl1.Caption+trim(rzedtt2.Txxt)+frmm1.Labbl1.Caption+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update tarplan set tar_fix='+trim(rzedtt3.Txxt)+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update tarplan set tar_min='+trim(rzedtt4.Txxt)+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('update tarplan set limit='+trim(rzedtt5.Txxt)+' where code='+rzedtt1.Txxt); execsqql; close;sqql.Clear;sqql.Add('select * from tarplan'); active:=true; end; for i:=1 to frmm1.adoqurry3.RecordCount do begin if frmm1.ADOQurry3code.AsInteger=strtoint(rzedtt1.Txxt) then goto q else frmm1.ADOQurry3.Next; end;q: showmessage('Записано');end;end.

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

Список источников и литературы
1. Биллинговая система ABACS. [Электронный ресурс]. Режим доступа: http://www.abacs.ru/
2. Гладкий А. А. Бухучет и финансы для руководителей и менеджеров М.: 2007
3. Горелик, О.М. Управленческий учет и анализ: [учеб. пособие для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.-М.: КноРус, 2007.-252 с.
4. Граничин, О.Н. Информационные технологии в управлении: учеб. пособие для студентов вузов, обучающихся по специальностям "Прикладная информатика (по областям) и "Менеджмент организации (по специализации "Информационный менеджмент")" /О. Н. Граничин, В. И. Кияев.-М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с.
5. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135
6. Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
7. Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
8. Днепров А. Г. Microsoft Access 2007. Cамоучитель. - М.: Финансы и статистика, 2009. – 361с.
9. Емельянова Н.З., Партыка Т.Л., Попов И.И. Защита информации в персональном компьютере. – М.: Форум, 2009. – 368 с.
10. Завгородний В.И. Комплексная защита в компьютерных системах: Учебное пособие. – М.: Логос; ПБОЮЛ Н.А.Егоров, 2011. - 264 с.
11. Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
12. Ивасенко, А.Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям "Прикладная информатика (по областям)", "Менеджмент орг.", "Гос. и муницип. упр." /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2009.-153 с.
13. Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.
14. Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
15. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
16. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
17. Карпова Т. С. Базы данных: модели, разработка, реализация.- СПб.: Питер, 2007. – 302с.
18. Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с.
19. Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
20. Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
21. Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
22. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009.
23. Максимов, Н.В. Технические средства информатизации: [учебник по специальностям "Информатика и вычисл. техника", "Прикладная информатика (по областям)"] /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2008.-591 с.
24. Максимов, Н.В. Технические средства информатизации: учеб. для студентов учреждений сред. проф. образования, обучающихся по группе специальностей "Информатика и вычисл. техника" и для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика (по областям)" /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2010.-606 с.
25. Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009.
26. Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
27. Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
28. Проектирование экономических систем: Учебник / Г.Н.Смирнова, А.А.Сорокин, Ю.Ф.Тельнов – М. : Финансы и статистика, 2010.
29. Романов А.Г. Автоматизация служб предприятия. – Курск: КПО, 2010.
30. Симонович С. В. Общая информатика – СПб: Питер, 2008. – 431 с.
31. Симонович С.В. Информатика для юристов и экономистов. - СПб.: Питер, 2007. – 633с.
32. Степанов А.Н. Информатика: учебное пособие. – СПб: Питер Пресс, 2012. – 764 с.
33. Стражева Н. С., Стражев А. В. Бухгалтерский учет. - М.: Диалог, 2008. – 252с.
34. Уткин В.Б., Балдин К.В. Информационные системы и технологии в экономике. - М.: ЮНИТИ, 2008. – 453с.
35. Фаронов В. Delphi. Программирование на языке высокого уровня. СПб.:Питер, 2008. – 453с.
36. Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010

Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00538
© Рефератбанк, 2002 - 2024