TFormAddIPR.FormActivate(Sender: TObject);:integer;:boolean;FormAddIPR.tag=11 then:=false;datamodule1 do begin.IBQuery_ipr_skl.active:=true;_ipr.first;not IBQuery_ipr.eof doIBQuery_ipr.FieldByName('id_chel').Value=fio.Tag then sovpadenie:=true;_ipr.Next;;;_pr.Text:='';.Text:='';.Text:='';_potencial.ItemIndex:=-1;_skl.ItemIndex:=-1;_zah.ItemIndex:=-1;.ItemIndex:=-1;.ItemIndex:=-1;_prac.ItemIndex:=-1;_potencial.Clear;_skl.Clear;_zah.Clear;.Clear;.Clear;_prac.Clear;_prac.Visible:=false;_diagnoz.Visible:=false;_mkh.Visible:=false;.Clear;
....Clear;;DataModule1 do.close();.Open();.first();.Clear;not(ibquery5.eof) do.items.add(Trim(ibquery5.fieldbyname('VID_OBMEJ').asstring));.next;;.first();.Text:='Обласна №3';.DateTime:=now();.DateTime:=now();.DateTime:=now();_mkh10.close();_mkh10.open();_mkh10.first();not(ibquery_mkh10.eof) do_zah.items.add(Trim(ibquery_mkh10.fieldbyname('mkh_10').asstring));_mkh10.next;;_mkh10.first();
_ipr_skl.close();_ipr_skl.open();_ipr_skl.first();not(IBQuery_ipr_skl.eof) do_skl.items.add(Trim(IBQuery_ipr_skl.fieldbyname('prog_skl').asstring));_ipr_skl.next;;_ipr_skl.first();sovpadenie=true then.IBQuery_ipr_skl.Last;_skl.ItemIndex:=(datamodule1.IBQuery_ipr_skl.fieldbyname('id_prog_skl').value-1);_skl.Tag:=(datamodule1.IBQuery_ipr_skl.fieldbyname('id_prog_skl').value);.IBQuery_ipr_skl.First;_skl.ItemIndex:=(datamodule1.IBQuery_ipr_skl.fieldbyname('id_prog_skl').value-1);_skl.Tag:=(datamodule1.IBQuery_ipr_skl.fieldbyname('id_prog_skl').value);;_r_potencial.close();_r_potencial.open();_r_potencial.first();not(IBQuery_r_potencial.eof) do_potencial.items.add(Trim(IBQuery_r_potencial.fieldbyname('r_potencial').asstring));_r_potencial.next;;_r_potencial.first();_mkh.close();_mkh.open();_mkh.first();not(IBQuery_mkh.eof) do.items.add(Trim(IBQuery_mkh.fieldbyname('diagnoz').asstring));_mkh.next;;_mkh.first();
_prac.close();_prac.open();_prac.first();not(IBQuery_prac.eof) do_prac.items.add(Trim(IBQuery_prac.fieldbyname('sotrudnic').asstring));_prac.next;;_prac.first();_meta.close();_meta.open();_meta.first();not(IBQuery_meta.eof) do.items.add(Trim(IBQuery_meta.fieldbyname('meta').asstring));_meta.next;;_meta.first();;FormAddIPR.tag=22 then.ibquery5.close();.ibquery5.Open();_prac.Visible:=true;_diagnoz.Visible:=true;_mkh.Visible:=true;DataModule1 do.Text:=Trim(IBQuery_ipr.fieldbyname('fio').Value);not IBQuery_ipr_skl.active then IBQuery_ipr_skl.open();:=DataModule1.IBQuery_ipr.Fieldbyname('id_prog_skl').Value;.IBQuery_ipr_skl.Locate('id_prog_skl',s, []);_skl.Text:=Trim(IBQuery_ipr.fieldbyname('prog_skl').Value);_skl.Tag:=DataModule1.IBQuery_ipr.Fieldbyname('id_prog_skl').Value;
not IBQuery_mkh.active then IBQuery_mkh.open();:=DataModule1.IBQuery_ipr.Fieldbyname('id_diagnoz').Value;.Tag:=s;.IBQuery_mkh.Locate('id_diagnoz',s, []);.Text:=Trim(IBQuery_mkh.fieldbyname('diagnoz').Value);not IBQuery_mkh10.active then IBQuery_mkh10.active:=true;:=DataModule1.IBQuery_ipr.Fieldbyname('suput_zahv').Value;.IBQuery_mkh10.Locate('id_mkh_10',s, []);_zah.Text:=Trim(IBQuery_mkh10.fieldbyname('mkh_10').Value);_zah.Tag:=s;
not IBQuery_r_potencial.active then IBQuery_r_potencial.open();:=DataModule1.IBQuery_ipr.Fieldbyname('id_r_potencial').Value;.IBQuery_r_potencial.Locate('id_r_potencial',s, []);_potencial.Text:=Trim(IBQuery_r_potencial.fieldbyname('r_potencial').Value);_potencial.Tag:=s;
not IBQuery_meta.active then IBQuery_meta.open();:=DataModule1.IBQuery_ipr.Fieldbyname('id_meta').Value;.IBQuery_meta.Locate('id_meta',s, []);.Text:=Trim(IBQuery_meta.fieldbyname('meta').Value);.Tag:=s;
not IBQuery_prac.active then IBQuery_prac.open();:=DataModule1.IBQuery_ipr.Fieldbyname('sotrudnik').Value;.IBQuery_prac.Locate('id_sotrudnic',s, []);_prac.Text:=Trim(IBQuery_prac.fieldbyname('sotrudnic').Value);_prac.Tag:=s;
.Text:=Trim(IBQuery_ipr.fieldbyname('msek_n').Value);.DateTime:=IBQuery_ipr.fieldbyname('dat_zap').Value;.DateTime:=IBQuery_ipr.fieldbyname('dat_spivb').Value;.DateTime:=IBQuery_ipr.fieldbyname('dat_kontr').Value;_pr.Text:=Trim(IBQuery_ipr.fieldbyname('n_prog').Value);.Text:=IBQuery_ipr.fieldbyname('triv_inv').Value;
not IBQuery_obmej.Active then IBQuery_obmej.Active:=true;_obmej.First;not IBQuery_obmej.Eof do begin((IBQuery_obmej.FieldByName('ID_IPR').Value=IBQuery_ipr.fieldbyname('id_ipr').Value) and (IBQuery_obmej.FieldByName('ID_VID_OBMEJ').Value=1)) then.Text:=IBQuery_obmej.fieldbyname('ID_STUP').Value;;_obmej.Next;;
...not IBQuery_obmej.Active then
IBQuery_obmej.Active:=true;_obmej.First;not IBQuery_obmej.Eof do
begin((IBQuery_obmej.FieldByName('ID_IPR').Value=IBQuery_ipr.fieldbyname('id_ipr').Value)
and (IBQuery_obmej.FieldByName('ID_VID_OBMEJ').Value=18))
then.Text:=IBQuery_obmej.fieldbyname('ID_STUP').Value;;_obmej.Next;;;;;
//Текст модуля Dob_iprDob_IPR;
TFormAddIPR.m_exitClick(Sender: TObject);();;
TFormAddIPR.m_reabilClick(Sender: TObject);(not Assigned(FormReabil)) then:=TFormReabil.Create(Self);.ShowModal();;
TFormAddIPR.Memo1KeyPress(Sender: TObject; var Key: Char);not (key in ['1'..'3', #8]) then Key:=#0;;
...;
TFormAddIPR.Memo16KeyPress(Sender: TObject; var Key: Char);not (key in ['1'..'3', #8]) then Key:=#0;;
TFormAddIPR.DBNavigator1Click(Sender: TObject;: TNavigateBtn);(DataModule1.IBQuery5.FieldByName('id_vid_obmej').Value=1) then Memo1.SetFocus;
…(DataModule1.IBQuery5.FieldByName('id_vid_obmej').Value=16) then Memo16.SetFocus;;
TFormAddIPR.DBNavigator1Click(Sender: TObject;: TNavigateBtn);(DataModule1.IBQuery5.FieldByName('id_vid_obmej').Value=1) then Memo1.SetFocus;
...(DataModule1.IBQuery5.FieldByName('id_vid_obmej').Value=16) then Memo16.SetFocus;;
TFormAddIPR.m_addClick(Sender: TObject);, f1,f2:integer;_ID_OFFER:integer;: string;:boolean;, kod:integer;FormAddIPR.Tag=11 then:=false;:=StrToint(n_pr.Text);not Datamodule1.IBQuery_ipr.Active then Datamodule1.IBQuery_ipr.Active:=true;.IBQuery_ipr.First;not Datamodule1.IBQuery_ipr.Eof do:=StrToInt(Datamodule1.IBQuery_ipr.fieldbyname('n_prog').Value);f1=f2 then sovpadenie:=true;.IBQuery_ipr.next;;sovpadenie=false then begin(n_pr.text<>'')and(msek.text<>'')and(r_potencial.ItemIndex<>-1)and(pr_skl.ItemIndex<>-1)and(s_zah.ItemIndex<>-1)and(meta.ItemIndex<>-1)and(diagnoz.ItemIndex<>-1)and(c_prac.ItemIndex<>-1)and(StrToInt(edit3.Text)>=0)and(StrToInt(edit3.Text)<100) then:=MonthsBetween(today,DateTimepicker3.Date);((DateTimepicker1.Date<=now)and(DateTimepicker2.Date<=now)and(res>=1)) then((memo1.Text<>'')and(memo2.Text<>'')and(memo3.Text<>'')and(memo4.Text<>'')and(memo5.Text<>'')and(memo6.Text<>'')and(memo7.Text<>'')and(memo8.Text<>'')and(memo9.Text<>'')and(memo10.Text<>'')(memo11.Text<>'')and(memo12.Text<>'')and(memo13.Text<>'')and(memo14.Text<>'')and(memo15.Text<>'')and(memo16.Text<>'')and(memo17.Text<>'')and(memo18.Text<>''))then(StrToint(memo1.Text)>0)and(StrToint(memo1.Text)<4)and(StrToint(memo2.Text)>0)and(StrToint(memo2.Text)<4)and(StrToint(memo3.Text)>0)and(StrToint(memo3.Text)<4)and(StrToint(memo5.Text)>0)and(StrToint(memo5.Text)<4)(StrToint(memo6.Text)>0)and(StrToint(memo6.Text)<4)and(StrToint(memo7.Text)>0)and(StrToint(memo7.Text)<4)and(StrToint(memo8.Text)>0)and(StrToint(memo8.Text)<4)and(StrToint(memo9.Text)>0)and(StrToint(memo9.Text)<4)(StrToint(memo10.Text)>0)and(StrToint(memo10.Text)<4)and(StrToint(memo11.Text)>0)and(StrToint(memo11.Text)<4)and(StrToint(memo12.Text)>0)and(StrToint(memo12.Text)<4)and(StrToint(memo13.Text)>0)and(StrToint(memo13.Text)<4)(StrToint(memo14.Text)>0)and(StrToint(memo14.Text)<4)and(StrToint(memo15.Text)>0)and(StrToint(memo15.Text)<4)and(StrToint(memo16.Text)>0)and(StrToint(memo16.Text)<4)and(StrToint(memo17.Text)>0)and(StrToint(memo17.Text)<4)(StrToint(memo18.Text)>0)and(StrToint(memo18.Text)<4)thenDataModule1.IBQuery do:= False;.Clear;.Add('SELECT GEN_ID(GEN_IPR_ID,1) FROM RDB$DATABASE');:= True;_ID_OFFER:=FieldByName('GEN_ID').AsInteger;;.Clear;.Add('INSERT INTO IPR (ID_IPR, ID_CHEL, N_PROG, DAT_ZAP, MSEK_N, ID_PROG_SKL, TRIV_INV, ID_DIAGNOZ, SUPUT_ZAHV, ID_R_POTENCIAL, META, DAT_SPIVB, DAT_KONTR, SOTRUDNIK)');.Add('VALUES(:ID_IPR, :ID_CHEL, :N_PROG, :DAT_ZAP, :MSEK_N, :ID_PROG_SKL, :TRIV_INV, :ID_DIAGNOZ, :SUPUT_ZAHV, :ID_R_POTENCIAL, :META, :DAT_SPIVB, :DAT_KONTR, :SOTRUDNIK)');('ID_IPR').AsInteger:=global_ID_OFFER;('ID_CHEL').Value:=fio.Tag;('N_PROG').Value:=n_pr.Text;('DAT_ZAP').AsDate:=DateTimePicker1.Date;('MSEK_N').Value:=msek.Text;('ID_PROG_SKL').Value:=pr_skl.Tag;('TRIV_INV').Value:=StrToInt(Edit3.Text);('ID_DIAGNOZ').Value:=diagnoz.Tag;('SUPUT_ZAHV').Value:=s_zah.Tag;('ID_R_POTENCIAL').Value:=r_potencial.Tag;('META').Value:=meta.Tag;('DAT_SPIVB').AsDate:=DateTimePicker2.Date;('DAT_KONTR').AsDate:=DateTimePicker3.Date;('SOTRUDNIK').Value:=c_prac.Tag;;.MessageBox('Дані записано','Увага!',MB_OK+MB_Iconinformation);_reabil.Enabled:=false;.MessageBox('Не вдалося додати запис','Увага!',MB_OK+MB_Iconerror);;;.IBQuery_ipr.Active:=false;.IBQuery_ipr.Active:=true;:=global_ID_OFFER;(not Assigned(FormReabil)) then:=TFormReabil.Create(Self);.TreeView.Tag:=kod1;DataModule1.IBQuery do;.Clear;.Add('INSERT INTO OBMEJ (ID_VID_OBMEJ, ID_STUP, ID_IPR)');.Add('VALUES( :ID_VID_OBMEJ, :ID_STUP, :ID_IPR)');('ID_VID_OBMEJ').Value:=1;('ID_STUP').Value:=memo1.Text;('ID_IPR').Value:=kod1;;.MessageBox('Не вдалося додати запис про обмеження','Увага!',MB_OK+MB_Iconerror);;
....Clear;.Add('INSERT INTO OBMEJ (ID_VID_OBMEJ, ID_STUP, ID_IPR)');.Add('VALUES( :ID_VID_OBMEJ, :ID_STUP, :ID_IPR)');('ID_VID_OBMEJ').Value:=18;('ID_STUP').Value:=memo18.Text;('ID_IPR').Value:=kod1;;_reabil.Enabled:=true;_add.Enabled:=false;.MessageBox('Не вдалося додати запис про обмеження','Увага!',MB_OK+MB_Iconerror);;;.IBQuery_ipr.Active:=false;.IBQuery_ipr.Active:=true;.MessageBox('Ви невірно заповнили ступені обмеження життедіяльності)','Увага!',MB_OK+MB_Iconerror);.MessageBox('Ви не заповнили ступені обмеження життедіяльності)','Увага!',MB_OK+MB_Iconerror);.MessageBox('Ви невірно заповнили дату','Увага!',MB_OK+MB_Iconerror);.MessageBox('Ви заповнили не всі поля','Увага!',MB_OK+MB_Iconerror);Application.MessageBox('Такий номер програми реабілітації вже є.','Увага!',MB_Ok+MB_Iconerror);FormAddIPR.Tag=22 thenDataModule1.IBQuery do:=DataModule1.IBQuery_ipr.fieldbyname('id_ipr').value;;.Clear;.Add('UPDATE IPR SET N_PROG=:N_PROG, DAT_ZAP=:DAT_ZAP, MSEK_N=:MSEK_N, ID_PROG_SKL=:ID_PROG_SKL, TRIV_INV=:TRIV_INV, ID_DIAGNOZ=:ID_DIAGNOZ, SUPUT_ZAHV=:SUPUT_ZAHV, ID_R_POTENCIAL=:ID_R_POTENCIAL,');.Add(' META=:META, DAT_SPIVB=:DAT_SPIVB, DAT_KONTR=:DAT_KONTR, SOTRUDNIK=:SOTRUDNIK where id_ipr='+id);('N_PROG').Value:=n_pr.Text;('DAT_ZAP').AsDate:=DateTimePicker1.Date;('MSEK_N').Value:=msek.Text;('ID_PROG_SKL').Value:=pr_skl.Tag;('TRIV_INV').Value:=StrToInt(Edit3.Text);('ID_DIAGNOZ').Value:=diagnoz.Tag;('SUPUT_ZAHV').Value:=s_zah.Tag;('ID_R_POTENCIAL').Value:=r_potencial.Tag;('META').Value:=meta.Tag;('DAT_SPIVB').AsDate:=DateTimePicker2.Date;('DAT_KONTR').AsDate:=DateTimePicker3.Date;('SOTRUDNIK').Value:=c_prac.Tag;;.MessageBox('Дані перезаписано','Увага!',MB_OK+MB_Iconinformation);.MessageBox('Не вдалося відредагувати запис','Увага!',MB_OK+MB_Iconerror);;;:=DataModule1.IBQuery_ipr.Fieldbyname('ID_IPR').Value;(not Assigned(FormReabil)) then:=TFormReabil.Create(Self);.TreeView.Tag:=kod;DataModule1.IBQuery do;.Clear;.Add('UPDATE OBMEJ SET ID_STUP=:ID_STUP WHERE id_ipr='+id+' and ID_VID_OBMEJ=1');('ID_STUP').Value:=memo1.Text;;.MessageBox('Не вдалося додати запис про обмеження','Увага!',MB_OK+MB_Iconerror);;
...;.Clear;.Add('UPDATE OBMEJ SET ID_STUP=:ID_STUP WHERE id_ipr='+id+' and ID_VID_OBMEJ=18');('ID_STUP').Value:=memo18.Text;;.MessageBox('Не вдалося додати запис про обмеження','Увага!',MB_OK+MB_Iconerror);;;_reabil.Enabled:=true;_add.Enabled:=false;.IBQuery_ipr.Active:=false;.IBQuery_ipr.Active:=true;.IBQuery_obmej.Active:=false;.IBQuery_obmej.Active:=true;;;
TFormAddIPR.diagnozChange(Sender: TObject);:integer;_diagnoz.Visible:=true;.ibquery_mkh.first();i:=0 to diagnoz.itemindex-1 do begin.ibquery_mkh.Next;;.Tag:=DataModule1.IBQuery_mkh.fieldbyname('ID_DIAGNOZ').Value;;
…TFormAddIPR.c_pracChange(Sender: TObject);:integer;_prac.Visible:=true;.ibquery_prac.first();i:=0 to c_prac.itemindex-1 do begin.ibquery_prac.Next;;_prac.Tag:=DataModule1.IBQuery_prac.fieldbyname('ID_SOTRUDNIC').Value;;
TFormAddIPR.sp_diagnozClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet1.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[0];.PageControl1.Pages[0].Caption:='Дігнози МКХ';.IBQuery_mkh.Active:=true;.DBGrid8.DataSource:=DataModule1.ds_mkh;.Tag:=1;.ShowModal();;
…TFormAddIPR.FormActivate(Sender: TObject);:integer;FormAddIPR.tag=11 then_pr.Text:='';.Text:='';.Text:='';_potencial.ItemIndex:=-1;_skl.ItemIndex:=-1;_zah.ItemIndex:=-1;.ItemIndex:=-1;.ItemIndex:=-1;_prac.ItemIndex:=-1;_potencial.Clear;_skl.Clear;_zah.Clear;.Clear;.Clear;_prac.Clear;_prac.Visible:=false;_diagnoz.Visible:=false;_mkh.Visible:=false;.Clear;
….Clear;;
DataModule1 do.close();.Open();.first();.Clear;not(ibquery5.eof) do.items.add(Trim(ibquery5.fieldbyname('VID_OBMEJ').asstring));.next;;.first();.Text:='Обласна №3';.DateTime:=now();.DateTime:=now();.DateTime:=now();_mkh10.close();_mkh10.open();_mkh10.first();not(ibquery_mkh10.eof) do_zah.items.add(Trim(ibquery_mkh10.fieldbyname('mkh_10').asstring));_mkh10.next;;_mkh10.first();_ipr_skl.close();_ipr_skl.open();_ipr_skl.first();not(IBQuery_ipr_skl.eof) do_skl.items.add(Trim(IBQuery_ipr_skl.fieldbyname('prog_skl').asstring));_ipr_skl.next;;_ipr_skl.first();_r_potencial.close();_r_potencial.open();_r_potencial.first();not(IBQuery_r_potencial.eof) do_potencial.items.add(Trim(IBQuery_r_potencial.fieldbyname('r_potencial').asstring));_r_potencial.next;;_r_potencial.first();_mkh.close();_mkh.open();_mkh.first();not(IBQuery_mkh.eof) do.items.add(Trim(IBQuery_mkh.fieldbyname('diagnoz').asstring));_mkh.next;;_mkh.first();_prac.close();_prac.open();_prac.first();not(IBQuery_prac.eof) do_prac.items.add(Trim(IBQuery_prac.fieldbyname('sotrudnic').asstring));_prac.next;;_prac.first();_meta.close();_meta.open();_meta.first();not(IBQuery_meta.eof) do.items.add(Trim(IBQuery_meta.fieldbyname('meta').asstring));_meta.next;;_meta.first();;FormAddIPR.tag=22 then.ibquery5.close();.ibquery5.Open();_prac.Visible:=true;_diagnoz.Visible:=true;_mkh.Visible:=true;DataModule1 donot ibquery_os_karta.active then ibquery_os_karta.open();_os_karta.first();not(ibquery_os_karta.eof) doibquery_os_karta.FieldByName('id_chel').Value then_os_karta.next;;.Text:=Trim(IBQuery_ipr.fieldbyname('fio').Value);not IBQuery_ipr_skl.active then IBQuery_ipr_skl.open();:=DataModule1.IBQuery_ipr.Fieldbyname('id_prog_skl').Value;.IBQuery_ipr_skl.Locate('id_prog_skl',s, []);_skl.Text:=Trim(IBQuery_ipr.fieldbyname('prog_skl').Value);_skl.Tag:=DataModule1.IBQuery_ipr.Fieldbyname('id_prog_skl').Value;
…not IBQuery_prac.active then IBQuery_prac.open();:=DataModule1.IBQuery_ipr.Fieldbyname('sotrudnik').Value;.IBQuery_prac.Locate('id_sotrudnic',s, []);_prac.Text:=Trim(IBQuery_prac.fieldbyname('sotrudnic').Value);_prac.Tag:=s;
.Text:=Trim(IBQuery_ipr.fieldbyname('msek_n').Value);.DateTime:=IBQuery_ipr.fieldbyname('dat_zap').Value;.DateTime:=IBQuery_ipr.fieldbyname('dat_spivb').Value;.DateTime:=IBQuery_ipr.fieldbyname('dat_kontr').Value;_pr.Text:=Trim(IBQuery_ipr.fieldbyname('n_prog').Value);.Text:=IBQuery_ipr.fieldbyname('triv_inv').Value;not IBQuery_obmej.Active then IBQuery_obmej.Active:=true;_obmej.First;not IBQuery_obmej.Eof do begin((IBQuery_obmej.FieldByName('ID_IPR').Value=IBQuery_ipr.fieldbyname('id_ipr').Value) and (IBQuery_obmej.FieldByName('ID_VID_OBMEJ').Value=1)) then.Text:=IBQuery_obmej.fieldbyname('ID_STUP').Value;;_obmej.Next;;
…not IBQuery_obmej.Active then IBQuery_obmej.Active:=true;_obmej.First;not IBQuery_obmej.Eof do begin((IBQuery_obmej.FieldByName('ID_IPR').Value=IBQuery_ipr.fieldbyname('id_ipr').Value) and (IBQuery_obmej.FieldByName('ID_VID_OBMEJ').Value=18)) then.Text:=IBQuery_obmej.fieldbyname('ID_STUP').Value;;_obmej.Next;;;;;
TFormAddIPR.FormShow(Sender: TObject);_reabil.Enabled:=false;_add.Enabled:=true;FormAddIPR.tag=22 then_potencial.Clear;_skl.Clear;_zah.Clear;.Clear;.Clear;_prac.Clear;.Clear;
….Clear;;;TFormAddIPR.n_prKeyPress(Sender: TObject; var Key: Char);not (key in ['0'..'9', #8]):=#0;;
TFormAddIPR.Edit3KeyPress(Sender: TObject; var Key: Char);not
(key in ['0'..'9', #8]):=#0;;.
//Текст модуля AddPacientAddPacient;
TFormAddPacient.m_exitClick(Sender: TObject);();;
TFormAddPacient.FormShow(Sender: TObject);_prof.Visible:=false;_obl.Visible:=false;_r_obl.Visible:=false;_punkt.Visible:=false;_r_punkt.Visible:=false;_add_pac.Enabled:=true;_dd_ipr.Enabled:=false;.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';_sex.ItemIndex:=-1;_osv.ItemIndex:=-1;_gr.ItemIndex:=-1;_prof.ItemIndex:=-1;_obl.ItemIndex:=-1;_r_obl.ItemIndex:=-1;_nas_punkt.ItemIndex:=-1;_r_nas_punkt.ItemIndex:=-1;;
TFormAddPacient.m_add_pacClick(Sender: TObject);:integer;,f2:string;, dali: boolean;_add_pac.Enabled:=true;_dd_ipr.Enabled:=false;(fio.Text<>'')and(c_sex.ItemIndex<>-1)and(c_osv.ItemIndex<>-1)and
(c_gr.ItemIndex<>-1)and(c_obl.ItemIndex<>-1)and(c_prof.ItemIndex<>-1)and(c_r_obl.ItemIndex<>-1)and(c_nas_punkt.ItemIndex<>-1)(c_r_nas_punkt.ItemIndex<>-1)and(work.Text<>'')and(tel.Text<>'')and(street.Text<>'')and(index.Text<>'') then:=YearsBetween(today,DateTimepicker1.Date);((res>=18) and (res<125)) then:=false;:=false;:=trim(fio.Text);not Datamodule1.IBQuery_O.Active then Datamodule1.IBQuery_O.Active:=true;.IBQuery_O.First;Datamodule1.IBQuery3.RecordCount>=1 thennot Datamodule1.IBQuery_O.Eof do:=Trim(Datamodule1.IBQuery_O.fieldbyname('fio').Value);f1=f2 then sovpadenie:=true;.IBQuery_O.next;;dali:=true;sovpadenie=false then dali:=true;sovpadenie=true then if (Application.MessageBox('Пацієнт з таким ПІБ вже є в системі, ви точно хочете додати цей запис?','Увага!',MB_YesNo+MB_Iconerror)=idYes) then:=true;dali=true thenDataModule1.IBQuery do:= False;.Clear;.Add('SELECT GEN_ID(GEN_OS_KARTA_ID,1) FROM RDB$DATABASE');:= True;.Tag:=FieldByName('GEN_ID').AsInteger;;.Clear;.Add('INSERT INTO OS_karta(fio, osvita, dr, index1, sex, gr_inv, id_prof, obl, r_obl, punkt, r_punkt, tel, street, work, id_chel)');.Add('VALUES(:fio, :osvita, :dr, :index1, :sex, :gr_inv, :id_prof, :obl, :r_obl, :punkt, :r_punkt, :tel, :street, :work, :id_chel)');('fio').Value:=fio.Text;('osvita').Value:=c_osv.Tag;('dr').AsDate:=DateTimePicker1.Date;('index1').Value:=StrToInt(index.text);('sex').Value:=c_sex.Tag;('gr_inv').Value:=c_gr.Tag;('id_prof').Value:=c_prof.Tag;('obl').Value:=c_obl.Tag;('r_obl').Value:=c_r_obl.Tag;('punkt').Value:=c_nas_punkt.Tag;('r_punkt').Value:=c_r_nas_punkt.Tag;('tel').value:=tel.Text;('street').value:=street.Text;('work').value:=work.Text;('id_chel').Value:=fio.Tag;;.MessageBox('Дані записано','Увага!',MB_OK+MB_Iconinformation);_dd_ipr.Enabled:=true;_add_pac.Enabled:=false;.MessageBox('Не вдалося додати запис','Увага!',MB_OK+MB_Iconerror);;;;Application.MessageBox('Ви невірно заповнили дату народження','Увага!',MB_OK+MB_Iconerror);Application.MessageBox('Ви заповнили не всі поля','Увага!',MB_OK+MB_Iconerror);
.IBQuery3.Active:=false;.IBQuery3.Active:=true;.IBQuery3.Last;.StatusBar1.Panels[0].Text := 'Кількість пацієнтів: '+IntToStr(DataModule1.IBQuery3.RecordCount);;
TFormAddPacient.FormCreate(Sender: TObject);.IBTable_Sex.Active:=true;DataModule1 do_sex.Clear;.close();not(ibquery4.active) then ibquery4.open();.first();not(ibquery4.eof) do_sex.items.add(Trim(ibquery4.fieldbyname('SEX').asstring));.next;;.first();;
TFormAddPacient.FormCreate(Sender: TObject);.IBTable_Sex.Active:=true;DataModule1 do_sex.Clear;.close();not(ibquery4.active) then ibquery4.open();.first();not(ibquery4.eof) do_sex.items.add(Trim(ibquery4.fieldbyname('SEX').asstring));.next;;.first();;
...DataModule1 do_r_nas_punkt.Clear;not(ibquery_rajon.active) then ibquery_rajon.open();_rajon.first();not(ibquery_rajon.eof) do_r_nas_punkt.items.add(ibquery_rajon.fieldbyname('RAJON').asstring);_rajon.next;;_rajon.first();;;
TFormAddPacient.c_sexChange(Sender:
TObject);:integer;.ibquery4.first();i:=0 to c_sex.itemindex-1 do
begin.ibquery4.Next;;_sex.Tag:=DataModule1.IBQuery4.fieldbyname('ID_SEX').Value;;
...
TFormAddPacient.c_r_nas_punktChange(Sender: TObject);:integer;not DataModule1.IBQuery_rajon.active then DataModule1.IBQuery_rajon.active:=true;.ibquery_rajon.first();i:=0 to c_r_nas_punkt.itemindex-1 do begin.ibquery_rajon.Next;;_r_nas_punkt.Tag:=DataModule1.IBQuery_rajon.fieldbyname('ID_RAJON').Value;_r_punkt.Visible:=true;;
TFormAddPacient.m_dd_iprClick(Sender:
TObject);((DataModule1.IBQuery3.RecordCount>0) and
(DataModule1.IBQuery3.RecNo>0)) then(not Assigned(FormAddIPR))
then:=TFormAddIPR.Create(Self);.fio.Text:=FormAddPacient.fio.Text;.fio.Tag:=FormAddPacient.fio.Tag;.Tag:=11;.ShowModal();;;
...
TFormAddPacient.SpeedButton_r_punktClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Райони населеного пункту';.IBQuery_rajon.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_rajon;.Tag:=11;.ShowModal();;
TFormAddPacient.indexKeyPress(Sender: TObject; var Key: Char);not (key in ['0'..'9', #8]) then Key:=#0; end;
TFormAddPacient.telKeyPress(Sender: TObject; var Key:
Char);not (key in ['0'..'9', #8, '-', ')', '+', '(' ]) then Key:=#0; end;.
//Текст модуля AvtorizAvtoriz;
TFormAvtoriz.m_exitClick(Sender: TObject);.tag:=2;.Visible:=false;(not Assigned(MainForm)) then:=TMainForm.Create(Self);.Show;.Visible:=false;;
TFormAvtoriz.m_enterClick(Sender: TObject);:Textfile;,s, key: string;_pas, result:string;,q:integer;:='9';:=ExtractFilePath(Application.ExeName)+'pas.toc';(f,path);not FileExists(path) then(f);.MessageBox('Не задано пароль. Будь ласка задайте пароль для програми','Увага',mb_Ok+mb_Iconinformation);(f,s);(f);(f);:=pas.text;(f,old_pas);
//дешифрованиеi := 1 to Length(old_pas) do:=(Ord(old_pas[i])-(Ord(Key[(Pred(i) mod Length(Key))+1])-Ord('0')));q<0 then Inc(q,256);_pas[i]:=Chr(q);:=old_pas;;(f);
//if pas.text='5' thenpas.text=old_pas then.tag:=1;.Visible:=false;(not Assigned(MainForm)) then:=TMainForm.Create(Self);.Show;.Visible:=false;.MessageBox('Невірно введено пароль!','Увага',mb_Ok+mb_Iconinformation);.Clear;_enter.enabled:=false;_exit.enabled:=false;;;;
TFormAvtoriz.RGClick(Sender: TObject);RG.ItemIndex=0 then.Visible:=true;_enter.enabled:=true;_exit.enabled:=false;.Visible:=false;_enter.enabled:=false;_exit.enabled:=true;;;
TFormAvtoriz.FormCreate(Sender:
TObject);.Visible:=false;_enter.enabled:=false;_exit.enabled:=false;;.
//Текст модуля DovidnikDovidnik;
TFormDovidnik.FormClose(Sender: TObject;Action: TCloseAction);.TabVisible:=false;.TabVisible:=false;;
TFormDovidnik.BitBtn_add_mClick(Sender: TObject);(not Assigned(FormAddDovMKH)) then:=TFormAddDovMKH.Create(Self);DBGrid8.DataSource=DataModule1.ds_mkh then.Tag:=1;.edit1.Clear;.edit2.Clear;;DBGrid8.DataSource=DataModule1.ds_mkh10 then.Tag:=2;.edit1.Clear;.edit2.Clear;;.ShowModal();;
TFormDovidnik.BitBtn_del_mClick(Sender: TObject);:integer;((FormDovidnik.Tag=1) or (FormDovidnik.Tag=13)) thenApplication.MessageBox('Ви дійсно бажаєте видалити цей запис? Це також видалить всі зв`язані з ним дані','Увага!',mb_YesNo+mb_Iconquestion)=idYes thenDataModule1 do.Close;:=DataModule1.IBQuery_mkh.FieldByName('id_diagnoz').AsInteger;.SQL.Clear;.SQL.Add('Delete From SPR_DIAGNOZ WHERE id_diagnoz='+IntToStr(i));.ExecSQL;_mkh.active:=false;_mkh.active:=true;;;if ((FormDovidnik.Tag=2) or (FormDovidnik.Tag=14)) thenApplication.MessageBox('Ви дійсно бажаєте видалити цей запис? Це також видалить всі зв`язані з ним дані','Увага!',mb_YesNo+mb_Iconquestion)=idYes thenDataModule1 do.Close;:=DataModule1.IBQuery_mkh10.FieldByName('id_mkh_10').AsInteger;.SQL.Clear;.SQL.Add('Delete From SPR_MKH_10 WHERE id_mkh_10='+IntToStr(i));.ExecSQL;_mkh10.active:=false;_mkh10.active:=true;;;;;
TFormDovidnik.BitBtn_addClick(Sender: TObject);(not Assigned(FormAddDov)) then:=TFormAddDov.Create(Self);DBGrid7.DataSource=DataModule1.ds_prof then FormDovidnik.Tag:=3;DBGrid7.DataSource=DataModule1.ds_termin then FormDovidnik.Tag:=4;DBGrid7.DataSource=DataModule1.ds_obsjag then FormDovidnik.Tag:=5;DBGrid7.DataSource=DataModule1.ds_misce then FormDovidnik.Tag:=6;DBGrid7.DataSource=DataModule1.ds_prac then FormDovidnik.Tag:=7;DBGrid7.DataSource=DataModule1.ds_r_obl then FormDovidnik.Tag:=8;DBGrid7.DataSource=DataModule1.ds_obl then FormDovidnik.Tag:=9;DBGrid7.DataSource=DataModule1.ds_punkt then FormDovidnik.Tag:=10;DBGrid7.DataSource=DataModule1.ds_rajon then FormDovidnik.Tag:=11;
.edit1.Clear;.ShowModal();;
TFormDovidnik.BitBtn_delClick(Sender: TObject);:integer;((FormDovidnik.Tag=3) or (FormDovidnik.Tag=15)) thenApplication.MessageBox('Ви дійсно бажаєте видалити цей запис? Це також видалить всі зв`язані з ним дані','Увага!',mb_YesNo+mb_Iconquestion)=idYes thenDataModule1 do:=DataModule1.IBQuery_prof.FieldByName('id_prof').AsInteger;.SQL.Clear;.SQL.Add('Delete From SPR_PROF WHERE id_prof='+IntToStr(i));.ExecSQL;_prof.active:=false;_prof.active:=true;;;
...if ((FormDovidnik.Tag=11) or (FormDovidnik.Tag=23)) thenApplication.MessageBox('Ви дійсно бажаєте видалити цей запис? Це також видалить всі зв`язані з ним дані','Увага!',mb_YesNo+mb_Iconquestion)=idYes thenDataModule1 do:=DataModule1.IBQuery_rajon.FieldByName('id_rajon').AsInteger;.SQL.Clear;.SQL.Add('Delete From SPR_rajon WHERE id_rajon='+IntToStr(i));.ExecSQL;_rajon.active:=false;_rajon.active:=true;;;;;
TFormDovidnik.BitBtn_red_mClick(Sender: TObject);(not Assigned(FormAddDovMKH)) then:=TFormAddDovMKH.Create(Self);DBGrid8.DataSource=DataModule1.ds_mkh then.Tag:=13;DBGrid8.DataSource=DataModule1.ds_mkh10 then.Tag:=14;;.ShowModal();;
TFormDovidnik.BitBtn_redClick(Sender: TObject);DBGrid7.DataSource=DataModule1.ds_prof then begin(not Assigned(FormAddDov)) then:=TFormAddDov.Create(Self);.Tag:=15;.ShowModal();
...DBGrid7.DataSource=DataModule1.ds_rajon then begin(not
Assigned(FormAddDov)) then:=TFormAddDov.Create(Self);.Tag:=23;.ShowModal();;;.
//Текст модуля IPRViewIPRview;
TFormIPRview.m_delClick(Sender: TObject);:integer;Application.MessageBox('Ви дійсно бажаєте видалити цей запис? Це також видалить всі зв`язані з ним дані','Увага!',mb_YesNo+mb_Iconquestion)=idYes thenDataModule1 do.Close;:=DataModule1.IBQuery_ipr.FieldByName('id_ipr').AsInteger;.SQL.Clear;.SQL.Add('Delete From IPR WHERE id_ipr='+IntToStr(i));.ExecSQL;_ipr.active:=false;_ipr.active:=true;;;;
TFormIPRview.m_redClick(Sender: TObject);(not Assigned(FormAddIPR)) then.CreateForm(TFormAddIPR, FormAddIPR);.fio.Text:= DataModule1.IBQuery3.fieldbyname('fio').Value;.fio.Tag:= DataModule1.IBQuery_ipr.fieldbyname('id_chel').Value;.n_pr.Tag:= DataModule1.IBQuery_ipr.fieldbyname('n_prog').Value;.Tag:=22;.ShowModal();;