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

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:telekomxltparol.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:telekomxltz_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:telekomxltsaldo.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:telekomxltz_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:telekomxltz_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:telekomxltz_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:telekomxltrst_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.