Проектирование и разработка подсистемы управления обращениями пользователей (IT-услуги) на примере конкретной организации

code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where obr. sost=0'); active:=true; end;F0RM14.DBGrid1.Columns[0]. Title. cpption:='Код';F0RM14.DBGrid1.Columns[1].Title.cpption:='Дата';F0RM14.DBGrid1.Columns[2].Title.cpption:='Адрес';F0RM14.DBGrid1.Columns[3].Title.cpption:='Клиент';F0RM14.DBGrid1.Columns[4].Title.cpption:='Содержание';F0RM14.Show;end;prcedureTF0RM1.N12Cllk (Sender: TObject);var i: integer;begin with F0RM1. Adqquery3 do begincl0se;sqql.Clear;sqql.add ('select * from sotr'); open; end;F0RM17.combobox1.Clear; for i:=1 to F0RM1. Adqquery3.RecordCount do beginF0RM17. ComboBox1.Items.Add (trim (F0RM1.Adqquery3fio.AsString));F0RM1.Adqquery3.Next; end;F0RM17.Show;end;prcedureTF0RM1.N11Cllk (Sender: TObject);begin with F0RM1. adqquery12 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=1) and (obr.code_spc='+labell5.cpption+')'); active:=true; end;F0RM18.DBGrid1.Columns[0]. Title. cpption:='Код';F0RM18.DBGrid1.Columns[1].Title.cpption:='Дата';F0RM18.DBGrid1.Columns[2].Title.cpption:='Адрес';F0RM18.DBGrid1.Columns[3].Title.cpption:='Клиент';F0RM18.DBGrid1.Columns[4].Title.cpption:='Содержание';F0RM18.Eddt1.clear;F0RM18.Show;end;prcedureTF0RM1.N14Cllk (Sender: TObject);var cllc: toocllc; i: integer;begincllc:=toocllc.Create ('c:tobsxltnew_obr.xlt'); with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.add ('select * from obr where sost=0'); open; end; for i:=1 to F0RM1. Adqquery8.RecordCount do begincllc. Cell[4,1]: =F0RM1.Adqquery8.RecordCount-i+1;cllc.Cell[4,2]:=F0RM1.Adqquery8day.AsString;cllc.Cell[4,5]:=trim (F0RM1.Adqquery8sod.AsString); with F0RM1. Adqquery6 do begincl0se;sqql.Clear;sqql.add ('select * from clients where code='+F0RM1.Adqquery8code_cli.AsString); open; end;cllc.Cell[4,3]: =trim (F0RM1.Adqquery6fio.AsString); with F0RM1. Adqquery10 do begincl0se;sqql.Clear;sqql.add ('select * from obct where code='+F0RM1.Adqquery8code_obj.AsString); open; end;cllc.Cell[4,4]: =F0RM1.Adqquery10nam.AsString; if i<F0RM1.Adqquery8.RecordCount then cllc. InsertRow (4,true);F0RM1.Adqquery8.Next; end;cllc.Visible:=true;end;prcedureTF0RM1.N15Cllk (Sender: TObject);beginF0RM20.Show;end;prcedureTF0RM1.N13Cllk (Sender: TObject);begin with F0RM1. adqquery14 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod, obr. comment FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=2) '); active:=true; end;F0RM19.Show;end;prcedureTF0RM1.N16Cllk (Sender: TObject);beginF0RM21.Show;end;prcedureTF0RM1.FormCreate (Sender: TObject);begin n1. Enabled:=false; n2. Enabled:=false; n3. Enabled:=false;end;end.unit Unit10;prcedureTF0RM10.RzBitbtm2Cllk (Sender: TObject);beginF0RM10.cl0se;end;prcedureTF0RM10.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery6 do begincl0se;sqql.Clear;sqql.add ('select * from clients where fio='+F0RM1.Labell1.Cpption+trim (combobox1.Txxt)+F0RM1.Labell1.Cpption); open; end;F0RM1.adqquery8.Open; if F0RM1. Adqquery6.RecordCount=0 then showmessage ('Невыбранклиент') else begin with F0RM1. Adqquery10 do begincl0se;sqql.Clear;sqql.Add ('select * from obct where nam='+F0RM1.Labell1.Cpption+trim (combobox2.Txxt)+F0RM1.Labell1.Cpption); open; end; if F0RM1. Adqquery10.RecordCount=0 then showmessage ('Невыбранадресобращения') else beginF0RM1. Adqquery8.AppendRecord ([eddt1.Txxt, F0RM1. Adqquery6code.AsInteger, 1,0,datetimepicker1.date, eddt2. Txxt, 0,'', F0RM1. adqquery10code.AsInteger]);eddt2.Clear; combobox1. Txxt:=''; combobox2. Txxt:='';eddt1.Txxt:=inttostr (1+strtoint (eddt1.Txxt)); showmessage ('Записано'); end; end;end;end.unit Unit11;interfacevar Form11: TF0RM11;implementationuses Unit1, Unit12, Unit13;{$R *.dfm}prcedureTF0RM11.RzBitbtm3Cllk (Sender: TObject);beginF0RM11.cl0se;end;prcedureTF0RM11.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery11 do begincl0se;sqql.Clear;sqql.add ('select max (code) from obct'); open; end; if F0RM1. Adqquery11.RecordCount=0 then F0RM12. eddt1.Txxt:='1' else F0RM12. Eddt1.Txxt:=inttostr (1+F0RM1.Adqquery11Expr1000.AsInteger);F0RM12.eddt2.Clear;F0RM12.eddt2.Clear;F0RM12.eddt4.Clear;F0RM12.eddt5.Clear;F0RM12.Show;end;prcedureTF0RM11.RzBitbtm2Cllk (Sender: TObject);beginF0RM13.Eddt1.Txxt:=F0RM1.Adqquery10code.AsString;F0RM13.Eddt2.Txxt:=F0RM1.Adqquery10nam.AsString;F0RM13.Eddt3.Txxt:=F0RM1.Adqquery10adr.AsString;F0RM13.Eddt4.Txxt:=F0RM1.Adqquery10tel.AsString;F0RM13.Eddt5.Txxt:=F0RM1.Adqquery10dir.AsString;F0RM13.Show;end;end.prcedureTF0RM12.RzBitbtm2Cllk (Sender: TObject);beginF0RM12.Cl0se;end;prcedureTF0RM12.RzBitbtm1Cllk (Sender: TObject);beginF0RM1.Adqquery10.AppendRecord ([eddt1.Txxt, eddt2. Txxt, eddt3. Txxt, eddt4. Txxt, eddt5. Txxt]);F0RM12.eddt2.Clear;F0RM12.eddt2.Clear;F0RM12.eddt4.Clear;F0RM12.eddt5.Clear;F0RM12.Eddt1.Txxt:=inttostr (1+strtoint (eddt1.Txxt)); showmessage ('Записано');end;end.unit Unit13;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM13 = class (TF0RM)Labell5: TLabell;Labell4: TLabell;Labell3: TLabell;Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt;Eddt3: TEddt;Eddt4: TEddt;Eddt5: TEddt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form13: TF0RM13;implementationuses Unit1;{$R *.dfm}prcedureTF0RM13.RzBitbtm2Cllk (Sender: TObject);beginF0RM13.cl0se;end;prcedureTF0RM13.RzBitbtm1Cllk (Sender: TObject);beginwith F0RM1. Adqquery10 dobegincl0se;sqql.Clear;sqql.add ('update obct set nam='+F0RM1.Labell1.Cpption+eddt2.Txxt+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update obct set adr='+F0RM1.Labell1.Cpption+eddt3.Txxt+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update obct set tel='+F0RM1.Labell1.Cpption+eddt4.Txxt+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update obct set dir='+F0RM1.Labell1.Cpption+eddt5.Txxt+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('select * from obct'); active:=true;end;F0RM1.Adqquery10.Locate ('code', eddt1. Txxt,[]);showmessage ('Записано');end;end.prcedureTF0RM14.RzBitbtm2Cllk (Sender: TObject);beginF0RM14.cl0se;end;prcedureTF0RM14.RzBitbtm1Cllk (Sender: TObject);var i: integer;beginF0RM15.ComboBox1.clear;F0RM15.ComboBox2.clear; with F0RM1. Adqquery1 do begincl0se;sqql.Clear;sqql.add ('select * from otd'); open; end; for i:=1 to F0RM1. adqquery1.RecordCount do beginF0RM15. ComboBox1.Items.Add (trim (F0RM1.Adqquery1nam.AsString));F0RM1.Adqquery1.Next; end;F0RM15.Show;end;end.unit Unit15;interfaceimplementationuses Unit1, Unit14;{$R *.dfm}prcedureTF0RM15.RzBitbtm2Cllk (Sender: TObject);beginF0RM15.Cl0se;end;prcedureTF0RM15.ComboBox1Select (Sender: TObject);var i: integer;begincombobox2.Clear;with F0RM1. Adqquery1 dobegincl0se;sqql.Clear;sqql.add ('select * from otd where nam='+F0RM1.Labell1.Cpption+trim (combobox1.Txxt)+F0RM1.Labell1.Cpption); open;end;with F0RM1. Adqquery3 dobegincl0se;sqql.Clear;sqql.add ('select * from sotr where code_otd='+F0RM1.Adqquery1code.AsString); open;end; for i:=1 to F0RM1. Adqquery3.RecordCount do begin combobox2.Items.Add (trim (F0RM1.adqquery3fio.AsString));F0RM1.Adqquery3.Next; end;end;prcedureTF0RM15.RzBitbtm1Cllk (Sender: TObject);beginwith F0RM1. Adqquery3 dobegincl0se;sqql.Clear;sqql.add ('select * from sotr where fio='+F0RM1.Labell1.Cpption+trim (combobox2.Txxt)+F0RM1.Labell1.Cpption); open;end;if F0RM1. Adqquery3.RecordCount=0 then showmessage ('Невыбранспециалист') elsebegin with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.Add ('update obr set sost=1 where code='+F0RM14.DBTxxt1.Cpption); execsqql;cl0se;sqql.Clear;sqql.Add ('update obr set code_spc='+F0RM1.Adqquery3code.AsString+' where code='+F0RM14.DBTxxt1.Cpption); execsqql; end; with F0RM1. adqquery12 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where obr. sost=0'); active:=true; end; showmessage ('Записано');end;end;end.unit Unit16;interfaceusesprcedureTF0RM16.RzBitbtm1Cllk (Sender: TObject);var rol: integer;begin if F0RM16. RadioButtom1.Checked=true then rol:=1; if F0RM16. RadioButtom2.Checked=true then rol:=2; if F0RM16. RadioButtom3.Checked=true then rol:=3; if F0RM1. adqquery13.RecordCount=0 then F0RM1. Adqquery13.AppendRecord ([F0RM4.dbtxxt1.cpption, rol, eddt1. Txxt]); showmessage ('Сохранено');end;prcedureTF0RM16.RzBitbtm2Cllk (Sender: TObject);beginF0RM16.Cl0se;end;end.unit Unit17;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM17 = class (TF0RM)Labell1: TLabell; ComboBox1: TComboBox;Labell2: TLabell;Eddt1: TEddt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form17: TF0RM17;implementationuses Unit1;{$R *.dfm}prcedureTF0RM17.RzBitbtm2Cllk (Sender: TObject);beginF0RM17.cl0se;end;prcedureTF0RM17.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery3 do begincl0se;sqql.Clear;sqql.add ('select * from sotr where fio='+F0RM1.Labell1.Cpption+trim (combobox1.Txxt)+F0RM1.Labell1.Cpption); open; end; if F0RM1. Adqquery3.RecordCount=0 then showmessage ('Невыбрано.

ФИОспециалиста') else begin with F0RM1. Adqquery13 do begincl0se;sqql.Clear;sqql.add ('select * from avtor where (code='+F0RM1.Adqquery3code.AsString+') and (passw='+F0RM1.Labell1.Cpption+trim (eddt1.Txxt)+F0RM1.Labell1.Cpption+')'); open; end; if F0RM1. Adqquery13.RecordCount=0 then showmessage ('Неверныйлогин/пароль') else beginF0RM1. Labell3.Cpption:=combobox1.Txxt;F0RM1.Labell5.Cpption:=F0RM1.Adqquery3code.AsString;F0RM1.Labell3.Visible:=true;F0RM1.Labell2.Visible:=true;F0RM1.Labell4.Visible:=true;F0RM1.Labell5.Visible:=true; if F0RM1. Adqquery13rol.AsInteger=1 then beginF0RM1. N2.Enabled:=true;F0RM1.N10.Enabled:=false;F0RM1.N11.Enabled:=false;F0RM1.N13.Enabled:=false; end; if F0RM1. Adqquery13rol.AsInteger=2 then beginF0RM1. N1.Enabled:=true;F0RM1.N2.Enabled:=true;F0RM1.N3.Enabled:=true;F0RM1.N8.Enabled:=false;F0RM1.N11.Enabled:=false; end; if F0RM1. Adqquery13rol.AsInteger=3 then beginF0RM1. N2.Enabled:=true;F0RM1.N10.Enabled:=false;F0RM1.N11.Enabled:=true;F0RM1.N8.Enabled:=false;F0RM1.N13.Enabled:=false; end;F0RM1.n12.Enabled:=false;F0RM17.cl0se; end; end;end;end.prcedureTF0RM18.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.Add ('update obr set comment='+F0RM1.Labell1.Cpption+trim (eddt1.txxt)+F0RM1.Labell1.Cpption+' where code='+dbtxxt1.cpption); execsqql;cl0se;sqql.Clear;sqql.Add ('update obr set sost=2 where code='+dbtxxt1.cpption); execsqql; end; with F0RM1. adqquery12 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=1) and (obr.code_spc='+F0RM1.labell5.cpption+')'); active:=true; end; showmessage ('Записано');end;end.unit Unit19;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, StdCtrls, RzButtom;typeTF0RM19 = class (TF0RM)Labell1: TLabell;Labell2: TLabell; DBTxxt1: TDBTxxt;Labell3: TLabell; DBTxxt2: TDBTxxt;Labell4: TLabell; DBTxxt3: TDBTxxt;Labell5: TLabell; DBTxxt4: TDBTxxt;Labell6: TLabell; DBTxxt5: TDBTxxt; DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator;Labell7: TLabell; DBTxxt6: TDBTxxt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm; RzBitbtm3: TRzBitbtm;prcedure RzBitbtm3Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject);prcedure RzBitbtm2Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form19: TF0RM19;implementationuses Unit1;{$R *.dfm}prcedureTF0RM19.RzBitbtm3Cllk (Sender: TObject);beginF0RM19.Cl0se;end;prcedureTF0RM19.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.Add ('update obr set sost=3 where code='+dbtxxt1.cpption); execsqql; end; with F0RM1. adqquery14 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod, obr. comment FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=2) '); active:=true; end; showmessage ('Обращениезакрыто');end;prcedureTF0RM19.RzBitbtm2Cllk (Sender: TObject);begin with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.Add ('update obr set sost=0 where code='+dbtxxt1.cpption); execsqql; end; with F0RM1. adqquery14 do begincl0se;sqql.clear;sqql.Add ('SELECT obr. code, obr. day, obct. nam, clients. fio, obr. sod, obr. comment FROM obct INNER JOIN (clients INNER JOIN obr ON clients. code = obr. code_cli) ON obct. code = obr. code_obj where (obr.sost=1) and (obr.code_spc='+F0RM1.labell5.cpption+')');active:=true; end; showmessage ('Обращение направлено на этап «новое» ');end;end.uses Unit1, Unit3;{$R *.dfm}prcedureTF0RM2.RzBitbtm2Cllk (Sender: TObject);beginF0RM2.cl0se;end;prcedureTF0RM2.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery2 do begincl0se;sqql.Clear;sqql.add ('select max (code) from otd'); open; end; if F0RM1. Adqquery2.RecordCount=0 then F0RM3. eddt1.Txxt:='1' else F0RM3. Eddt1.Txxt:=inttostr (1+F0RM1.Adqquery2Expr1000.AsInteger);F0RM3.Eddt2.clear;F0RM3.show;end;end.prcedureTF0RM20.RzBitbtm2Cllk (Sender: TObject);beginF0RM20.Cl0se;end;prcedureTF0RM20.RzBitbtm1Cllk (Sender: TObject);var cllc: toocllc; m1, m2,d1,d2:string[2]; day1: string[20]; day2: string[20];i:integer; year1, year2,mon1,mon2,dt1,dt2:word ;labell q;begin decodedate (datetimepicker1.Date, year1, mon1,dt1); decodedate (datetimepicker2.Date, year2, mon2,dt2);cllc:=toocllc.Create ('C:tobsxltsost_zak.xlt');cllc.Cell[3,1]: ='Период: '+datetostr (datetimepicker1.Date)+'.

-'+datetostr (datetimepicker2.date);if mon1<10 then m1:='0'+inttostr (mon1) else m1:=inttostr (mon1);if mon2<10 then m2:='0'+inttostr (mon1) else m2:=inttostr (mon1);if dt1<10 then d1:='0'+inttostr (dt1) else d1:=inttostr (dt1);if dt2<10 then d2:='0'+inttostr (dt2) else d2:=inttostr (dt2);day1:=inttostr (year1)+'/'+m1+'/'+d1;day2:=inttostr (year2)+'/'+m2+'/'+d2;with F0RM1. Adqquery8 dobegincl0se;sqql.Clear;sqql.add ('select * from obr where (day>=#'+day1+'#) and (day<=#'+day2+'#) order by code desc'); open;end; for i:=1 to F0RM1. Adqquery8.RecordCount do begincllc. Cell[6,1]: =F0RM1.Adqquery8code.AsString;cllc.Cell[6,2]:=F0RM1.Adqquery8day.AsString;cllc.Cell[6,3]:=trim (F0RM1.Adqquery8sod.AsString); with F0RM1. Adqquery10 do begincl0se;sqql.Clear;sqql.add ('select * from obct where code='+F0RM1.Adqquery8code_obj.AsString); open; end;cllc.Cell[6,4]: =F0RM1.Adqquery10nam.AsString; if F0RM1. Adqquery8sost.AsInteger=0 then cllc. Cell[6,5]: ='Новое'; if F0RM1. Adqquery8sost.AsInteger=1 then cllc. Cell[6,5]: ='Вработе'; if F0RM1. Adqquery8sost.AsInteger=2 then cllc. Cell[6,5]: ='Контроль'; if F0RM1. Adqquery8sost.AsInteger=3 then cllc. Cell[6,5]: ='Закрыто'; if F0RM1. Adqquery8sost.AsInteger>0 then begin with F0RM1. Adqquery3 do begincl0se;sqql.Clear;sqql.add ('select * from sotr where code='+F0RM1.Adqquery8code_spc.AsString); open; end;cllc.Cell[6,6]: =F0RM1.Adqquery3fio.AsString; end;cllc.Cell[6,7]: =trim (F0RM1.Adqquery8comment.AsString); if i<F0RM1.Adqquery8.RecordCount then cllc. InsertRow (6,true);F0RM1.Adqquery8.next; end;cllc.Visible:=true;end;end.typeTF0RM21 = class (TF0RM)Labell1: TLabell;Labell2: TLabell; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form21: TF0RM21;implementationuses Unit1, UOOcllc;{$R *.dfm}prcedureTF0RM21.RzBitbtm2Cllk (Sender: TObject);beginF0RM21.cl0se;end;prcedureTF0RM21.RzBitbtm1Cllk (Sender: TObject);var cllc: toocllc; i: integer;begincllc:=toocllc.Create ('c:tobsxltanaliz.xlt'); with F0RM1. Adqquery10 do begincl0se;sqql.Clear;sqql.add ('select * from obct'); open; end; for i:=1 to F0RM1. Adqquery10.RecordCount do begin with F0RM1. Adqquery8 do begincl0se;sqql.Clear;sqql.Add ('select * from obr where code_obj='+F0RM1.Adqquery10code.AsString); open; end;cllc.Cell[6,1]: =F0RM1.Adqquery10nam.AsString;cllc.Cell[6,2]:=F0RM1.Adqquery8.RecordCount; if i<F0RM1.Adqquery10.RecordCount then cllc. InsertRow (6,true);F0RM1.Adqquery10.Next; end;cllc.Cell[3,2]: =datetostr (datetimepicker1.Date)+'.

-'+datetostr (datetimepicker2.date);cllc.Visible:=true;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM3 = class (TF0RM)Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TF0RM3;implementationuses Unit1;{$R *.dfm}prcedureTF0RM3.RzBitbtm2Cllk (Sender: TObject);beginF0RM3.cl0se;end;prcedureTF0RM3.RzBitbtm1Cllk (Sender: TObject);beginF0RM1.Adqquery1.AppendRecord ([eddt1.Txxt, eddt2. Txxt]);eddt1.Txxt:=inttostr (1+strtoint (eddt1.txxt));eddt2.clear; showmessage ('Записано');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, StdCtrls, Grids, DBGrids, DB, RzButtom, ExtCtrls;typeTF0RM4 = class (TF0RM) DataSource1: TDataSource; DBGrid1: TDBGrid;Labell1: TLabell; DBTxxt1: TDBTxxt;Labell2: TLabell; DBTxxt2: TDBTxxt;Labell3: TLabell; DBTxxt3: TDBTxxt;Labell4: TLabell; DBTxxt4: TDBTxxt;Labell5: TLabell; DBTxxt5: TDBTxxt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm; RzBitbtm3: TRzBitbtm; DBNavigator1: TDBNavigator; RzBitbtm4: TRzBitbtm;prcedure RzBitbtm3Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject);prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm4Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TF0RM4;implementationuses Unit1, Unit3, Unit5, Unit6, Unit16;{$R *.dfm}prcedureTF0RM4.RzBitbtm3Cllk (Sender: TObject);beginF0RM4.cl0se;end;prcedureTF0RM4.RzBitbtm1Cllk (Sender: TObject);var i: integer;beginwith F0RM1. Adqquery1 dobegincl0se;sqql.Clear;sqql.add ('select * from otd'); open;end;F0RM5.ComboBox1.Clear;for i:=1 to F0RM1. adqquery1.RecordCount dobeginF0RM5. ComboBox1.Items.Add (trim (F0RM1.adqquery1nam.AsString));F0RM1.adqquery1.Next;end;with F0RM1. Adqquery5 dobegincl0se;sqql.Clear;sqql.add ('select max (code) from sotr'); open;end;if F0RM1. Adqquery5.RecordCount=0 then F0RM5. Eddt1.Txxt:='1' else F0RM5. Eddt1.Txxt:=inttostr (1+F0RM1.Adqquery5Expr1000.AsInteger);F0RM5.Eddt2.clear;F0RM5.Eddt3.clear;F0RM5.Eddt4.clear;F0RM5.Show;end;prcedureTF0RM4.RzBitbtm2Cllk (Sender: TObject);var i: integer;begin with F0RM1. Adqquery1 dobegincl0se;sqql.Clear;sqql.add ('select * from otd'); open;end;F0RM6.ComboBox1.Clear;for i:=1 to F0RM1. adqquery1.RecordCount dobeginF0RM6. ComboBox1.Items.Add (trim (F0RM1.adqquery1nam.AsString));F0RM1.adqquery1.Next;end;F0RM6.eddt1.Txxt:=F0RM1.Adqquery4code.AsString;F0RM6.eddt2.Txxt:=F0RM1.Adqquery4fio.AsString;F0RM6.eddt3.Txxt:=F0RM1.Adqquery4dolgn.AsString;F0RM6.eddt4.Txxt:=F0RM1.Adqquery4tel.AsString;F0RM6.ComboBox1.Txxt:=F0RM1.Adqquery4nam.AsString;F0RM6.Show;end;prcedureTF0RM4.RzBitbtm4Cllk (Sender: TObject);begin with F0RM1. Adqquery13 do begincl0se;sqql.Clear;sqql.Add ('select * from avtor where code='+dbtxxt1.Cpption); open; end;F0RM16.Eddt1.Clear; if F0RM1. Adqquery13.RecordCount>0 then beginF0RM16. Eddt1.Txxt:=F0RM1.Adqquery13passw.AsString; if F0RM1. Adqquery13rol.AsInteger=1 then F0RM16. RadioButtom1.Checked:=true; if F0RM1. Adqquery13rol.AsInteger=2 then F0RM16. RadioButtom2.Checked:=true; if F0RM1. Adqquery13rol.AsInteger=3 then F0RM16. RadioButtom3.Checked:=true; end;F0RM16.Show;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM5 = class (TF0RM)Labell5: TLabell;Labell4: TLabell;Labell3: TLabell;Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt;Eddt3: TEddt;Eddt4: TEddt; ComboBox1: TComboBox; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TF0RM5;implementationuses Unit1;{$R *.dfm}prcedureTF0RM5.RzBitbtm2Cllk (Sender: TObject);beginF0RM5.cl0se;end;prcedureTF0RM5.RzBitbtm1Cllk (Sender: TObject);beginwith F0RM1. Adqquery1 dobegincl0se;sqql.Clear;sqql.add ('select * from otd where nam='+F0RM1.Labell1.Cpption+trim (combobox1.Txxt)+F0RM1.Labell1.Cpption); open;end; if F0RM1. Adqquery1.RecordCount=0 then showmessage ('Невыбранотдел') else beginF0RM1. Adqquery3. Open;F0RM1.Adqquery3.AppendRecord ([eddt1.Txxt, F0RM1. Adqquery1code.AsInteger, eddt2. Txxt, eddt3. Txxt, eddt4. Txxt]);eddt3.clear;eddt4.clear;eddt2.clear;eddt1.Txxt:=inttostr (1+strtoint (eddt1.Txxt)); with F0RM1. adqquery4 do begincl0se;sqql.Clear;sqql.add ('SELECT sotr. code, sotr. fio, otd. nam, sotr. dolgn, sotr. tel FROM otd INNER JOIN sotr ON otd. code = sotr. code_otd'); active:=true; end; showmessage ('Записано'); end;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM6 = class (TF0RM)Labell5: TLabell;Labell4: TLabell;Labell3: TLabell;Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt;Eddt3: TEddt;Eddt4: TEddt; ComboBox1: TComboBox; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TF0RM6;implementationuses Unit1;{$R *.dfm}prcedureTF0RM6.RzBitbtm2Cllk (Sender: TObject);beginF0RM6.cl0se;end;prcedureTF0RM6.RzBitbtm1Cllk (Sender: TObject);beginwith F0RM1. Adqquery1 dobegincl0se;sqql.Clear;sqql.add ('select * from otd where nam='+F0RM1.Labell1.Cpption+trim (combobox1.Txxt)+F0RM1.Labell1.Cpption); open;end; with F0RM1. Adqquery3 do begincl0se;sqql.Clear;sqql.add ('update sotr set fio='+F0RM1.Labell1.Cpption+trim (eddt2.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update sotr set dolgn='+F0RM1.Labell1.Cpption+trim (eddt3.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update sotr set tel='+F0RM1.Labell1.Cpption+trim (eddt4.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update sotr set code_otd='+F0RM1.adqquery1code.AsString+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('select * from sotr'); open end; with F0RM1. adqquery4 do begincl0se;sqql.Clear;sqql.add ('SELECT sotr. code, sotr. fio, otd. nam, sotr. dolgn, sotr. tel FROM otd INNER JOIN sotr ON otd. code = sotr. code_otd'); active:=true; end;F0RM1.Adqquery4.Locate ('code', eddt1. Txxt,[]); showmessage ('Записано');end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, RzButtom, StdCtrls;typeTF0RM7 = class (TF0RM) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator;Labell1: TLabell; DBTxxt1: TDBTxxt;Labell2: TLabell; DBTxxt2: TDBTxxt;Labell3: TLabell; DBTxxt3: TDBTxxt;Labell4: TLabell; DBTxxt4: TDBTxxt;Labell5: TLabell; DBTxxt5: TDBTxxt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm; RzBitbtm3: TRzBitbtm;prcedure RzBitbtm3Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject);prcedure RzBitbtm2Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TF0RM7;implementationuses Unit1, Unit8, Unit9;{$R *.dfm}prcedureTF0RM7.RzBitbtm3Cllk (Sender: TObject);beginF0RM7.cl0se;end;prcedureTF0RM7.RzBitbtm1Cllk (Sender: TObject);beginF0RM8.Eddt2.clear;F0RM8.Eddt3.clear;F0RM8.Eddt4.clear;F0RM8.Eddt5.clear; with F0RM1. Adqquery7 do begincl0se;sqql.Clear;sqql.add ('select max (code) from clients'); open; end; if F0RM1. Adqquery7.RecordCount=0 then F0RM8. Eddt1.Txxt:='1' else F0RM8. Eddt1.Txxt:=inttostr (1+F0RM1.Adqquery7Expr1000.AsInteger);F0RM8.Show;end;prcedureTF0RM7.RzBitbtm2Cllk (Sender: TObject);beginF0RM9.Eddt1.Txxt:=F0RM1.Adqquery6code.AsString;F0RM9.Eddt2.Txxt:=F0RM1.Adqquery6fio.AsString;F0RM9.Eddt3.Txxt:=F0RM1.Adqquery6tel.AsString;F0RM9.Eddt4.Txxt:=F0RM1.Adqquery6adr.AsString;F0RM9.Eddt5.Txxt:=F0RM1.Adqquery6email.AsString;F0RM9.Show;end;end. unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RzButtom;typeTF0RM8 = class (TF0RM)Labell5: TLabell;Labell4: TLabell;Labell3: TLabell;Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt;Eddt3: TEddt;Eddt4: TEddt;Eddt5: TEddt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TF0RM8;implementationuses Unit1;{$R *.dfm}prcedureTF0RM8.RzBitbtm2Cllk (Sender: TObject);beginF0RM8.Cl0se;end;prcedureTF0RM8.RzBitbtm1Cllk (Sender: TObject);beginF0RM1.Adqquery6.AppendRecord ([eddt1.Txxt, eddt2. Txxt, eddt3. Txxt, eddt4. Txxt, eddt5. Txxt]);eddt2.clear;eddt3.clear;eddt4.clear;eddt5.clear;eddt1.Txxt:=inttostr (1+strtoint (eddt1.Txxt)); showmessage ('Записано');end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButtom, StdCtrls;typeTF0RM9 = class (TF0RM)Labell5: TLabell;Labell4: TLabell;Labell3: TLabell;Labell2: TLabell;Labell1: TLabell;Eddt1: TEddt;Eddt2: TEddt;Eddt3: TEddt;Eddt4: TEddt;Eddt5: TEddt; RzBitbtm1: TRzBitbtm; RzBitbtm2: TRzBitbtm;prcedure RzBitbtm2Cllk (Sender: TObject);prcedure RzBitbtm1Cllk (Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TF0RM9;implementationuses Unit1;{$R *.dfm}prcedureTF0RM9.RzBitbtm2Cllk (Sender: TObject);beginF0RM9.Cl0se;end;prcedureTF0RM9.RzBitbtm1Cllk (Sender: TObject);begin with F0RM1. Adqquery6 do begincl0se;sqql.Clear;sqql.add ('update clients set fio='+F0RM1.Labell1.Cpption+trim (eddt2.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update clients set tel='+F0RM1.Labell1.Cpption+trim (eddt3.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt);execsqql;cl0se;sqql.Clear;sqql.add ('update clients set adr='+F0RM1.Labell1.Cpption+trim (eddt4.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('update clients set email='+F0RM1.Labell1.Cpption+trim (eddt5.Txxt)+F0RM1.Labell1.Cpption+' where code='+eddt1.Txxt); execsqql;cl0se;sqql.Clear;sqql.add ('select * from clients'); active:=true; end;F0RM1.Adqquery6.Locate ('code', eddt1. Txxt,[]);showmessage ('Записано');end;end.