TFormIPRview.FormActivate(Sender: TObject);, id_s:string;.IBQuery_ipr.Active:=false;.IBQuery_ipr.Active:=true;DataModule1.IBQuery_ipr.RecordCount>=1 then_red.Enabled:=true;_del.Enabled:=true;_obmej.Enabled:=true;_reabil.Enabled:=true;_excel.Enabled:=true;not DataModule1.IBQuery_vid_obmej.Active then DataModule1.IBQuery_vid_obmej.Active:=true;.IBQuery_vid_obmej.First;_obmej.Clear;not DataModule1.IBQuery_vid_obmej.Eof do_obmej.Lines.Add(DataModule1.IBQuery_vid_obmej.FieldByName('VID_OBMEJ').Value);.IBQuery_vid_obmej.Next;;_stup.Clear;(DataModule1.IBQuery_ipr.Fieldbyname('ID_IPR').Value<>null) then.IBQuery_stup.active:=true;:=DataModule1.IBQuery_ipr.Fieldbyname('ID_IPR').Value;not DataModule1.IBQuery_obmej.Active then DataModule1.IBQuery_obmej.Active:=true;.IBQuery_obmej.First;not DataModule1.IBQuery_obmej.Eof do(DataModule1.IBQuery_obmej.FieldByName('ID_IPR').Value=kod) thenDataModule1.IBQuery_obmej.fieldbyname('ID_STUP').Value then_s:=DataModule1.IBQuery_obmej.fieldbyname('ID_STUP').Value;.IBQuery_stup.Locate('id_stup',id_s,[]);_stup.Lines.Add(Trim(DataModule1.IBQuery_stup.fieldbyname('STUP').Value));;.IBQuery_obmej.Next;;;_red.Enabled:=false;_del.Enabled:=false;_obmej.Enabled:=false;_reabil.Enabled:=false;_excel.Enabled:=false;;FormAvtoriz.tag=2 then_red.Enabled:=false;_del.Enabled:=false;_reabil.Enabled:=false;;;
TFormIPRview.DBGrid_iprCellClick(Column: TColumn);, id_s:string;_stup.Clear;.IBQuery_ipr.active:=true;.IBQuery_stup.Active:=true;DataModule1.IBQuery_ipr.RecordCount>0 then:=DataModule1.IBQuery_ipr.Fieldbyname('ID_IPR').Value;not DataModule1.IBQuery_obmej.Active then DataModule1.IBQuery_obmej.Active:=true;.IBQuery_obmej.First;not DataModule1.IBQuery_obmej.Eof do begin(DataModule1.IBQuery_obmej.FieldByName('ID_IPR').Value=kod) thenDataModule1.IBQuery_obmej.fieldbyname('ID_STUP').Value then_s:=DataModule1.IBQuery_obmej.fieldbyname('ID_STUP').Value;.IBQuery_stup.Locate('id_stup',id_s,[]);_stup.Lines.Add(Trim(DataModule1.IBQuery_stup.fieldbyname('STUP').Value));;.IBQuery_obmej.Next;;;;
TFormIPRview.m_obmejClick(Sender: TObject);obm.Visible=true then obm.Visible:=falseif obm.Visible=false then obm.Visible:=true;;
TFormIPRview.m_reabilClick(Sender: TObject);:integer;(not Assigned(FormReabil)) then:=TFormReabil.Create(Self);:=DataModule1.IBQuery_ipr.Fieldbyname('ID_IPR').Value;.TreeView.Tag:=kod;.ShowModal();;
TFormIPRview.m_excelClick(Sender: TObject);: variant;: Tinifile;:integer;, kod, row: integer;_ch:integer;:boolean;, obl, r, robl, ind, st, punkt, propiska, path, ex :string;:= CreateOleObject('Excel.Application');.Visible := false;.DisplayAlerts:= false;.Application.EnableEvents:=False;.Workbooks.Open('E:\Diplom\1.xlsx', UpdateLinks:=0);.ActiveWorkBook.Sheets.Item[1].Activate;_ch:=DataModule1.IBQuery_ipr.FieldByName('id_chel').value;.IBQuery3.Locate('id_chel',id_ch, []);:= TIniFile.Create(extractfilepath(paramstr(0))+'Path.ini');:=MyIni.ReadString('Open','Properties','default value');:=MyIni.ReadBool('View', 'CheckboxVal',false);:=Trim(DataModule1.IBQuery3.FieldByName('fio').AsString);:=0;i:=0 to length(ex) doex[i]='\' then slesh:=slesh+1;;slesh>1 then path:=ex+'\'+s+'_'+datetostr(now())+'.xls'path:=ex+s+'_'+datetostr(now())+'.xls';.ActiveWorkbook.SaveAs(path, FileFormat:=-4143, Password:='', WriteResPassword:='', ReadOnlyRecommended:=false, CreateBackup:=false);.Workbooks.Close;.Workbooks.Open(path, UpdateLinks:=0);DataModule1 do begin.ActiveWorkbook.WorkSheets[1].Cells[20,2]:=DataModule1.IBQuery3.FieldByName('fio').AsString;.ActiveWorkbook.WorkSheets[1].Cells[22,5]:=DataModule1.IBQuery3.FieldByName('dr').AsString;.ActiveWorkbook.WorkSheets[1].Cells[26,3]:=DataModule1.IBQuery3.FieldByName('tel').AsString;.ActiveWorkbook.WorkSheets[1].Cells[30,6]:=DataModule1.IBQuery3.FieldByName('work').AsString;:=Trim(ibquery3.Fieldbyname('sex1').Value);.ActiveWorkbook.WorkSheets[1].Cells[23,3]:=s;:=Trim(ibquery3.Fieldbyname('id_prof1').Value);.ActiveWorkbook.WorkSheets[1].Cells[29,4]:=s;:=Trim(ibquery3.Fieldbyname('osvita1').Value);.ActiveWorkbook.WorkSheets[1].Cells[28,4]:=s;:=Trim(ibquery3.Fieldbyname('gr_inv1').Value);.ActiveWorkbook.WorkSheets[1].Cells[32,5]:=s;:=Trim(ibquery3.Fieldbyname('punkt1').Value);:=DataModule1.IBQuery3.FieldByName('street').AsString;:=Trim(DataModule1.IBQuery3.FieldByName('index1').AsString);:=Trim(IBQuery3.FieldByName('r_obl1').AsString);:=Trim(IBQuery3.FieldByName('r_punkt1').AsString);:=Trim(IBQuery3.FieldByName('obl1').AsString);:=ind+', '+obl+' обл., '+robl+'р.обл., '+punkt+', р-н '+r+', '+st;.ActiveWorkbook.WorkSheets[1].Cells[24,5]:=propiska;.ActiveWorkbook.WorkSheets[1].Cells[13,12]:=DataModule1.IBQuery_ipr.FieldByName('n_prog').AsString;.ActiveWorkbook.WorkSheets[1].Cells[17,4]:=DataModule1.IBQuery_ipr.FieldByName('dat_zap').AsString;.ActiveWorkbook.WorkSheets[1].Cells[17,9]:=DataModule1.IBQuery_ipr.FieldByName('msek_n').AsString;.ActiveWorkbook.WorkSheets[1].Cells[33,9]:=DataModule1.IBQuery_ipr.FieldByName('triv_inv').AsString;.ActiveWorkbook.WorkSheets[1].Cells[113,3]:=DataModule1.IBQuery_ipr.FieldByName('dat_spivb').AsString;.ActiveWorkbook.WorkSheets[1].Cells[116,7]:=DataModule1.IBQuery_ipr.FieldByName('dat_kontr').AsString;
not DataModule1.IBQuery_ipr_skl.Active then DataModule1.IBQuery_ipr_skl.Active:=true;:=DataModule1.IBQuery_ipr.FieldByName('id_prog_skl').AsInteger;.IBQuery_ipr_skl.Locate('id_prog_skl',i,[]);:=DataModule1.IBQuery_ipr_skl.Fields[1].Value;.ActiveWorkbook.WorkSheets[1].Cells[34,7]:=s;
....IBQuery_prac.Open;:=DataModule1.IBQuery_ipr.FieldByName('sotrudnik').AsInteger;.IBQuery_prac.Locate('id_sotrudnic',i,[]);:=DataModule1.IBQuery_prac.Fields[1].Value;.ActiveWorkbook.WorkSheets[1].Cells[135,7]:=s;.IBQuery_obmej.Active:=true;.IBQuery_obmej.First;not DataModule1.IBQuery_obmej.Eof doDataModule1.IBQuery_obmej.FieldByName('id_ipr').Value=DataModule1.IBQuery_ipr.FieldByName('id_ipr').Value then:=DataModule1.IBQuery_obmej.FieldByName('id_vid_obmej').AsInteger;i=1 thenif DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=1 then.ActiveWorkbook.WorkSheets[1].Cells[44,9]:='X'DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=2 then.ActiveWorkbook.WorkSheets[1].Cells[44,10]:='X'DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=3 then.ActiveWorkbook.WorkSheets[1].Cells[44,11]:='X';;;;
...i=18 thenif DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=1 then.ActiveWorkbook.WorkSheets[1].Cells[52,12]:='X'DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=2 then.ActiveWorkbook.WorkSheets[1].Cells[52,13]:='X'DataModule1.IBQuery_obmej.FieldByName('id_stup').AsInteger=3 then.ActiveWorkbook.WorkSheets[1].Cells[52,14]:='X';;;;;.IBQuery_obmej.next;;.IBQuery_reabil.Active:=true;not DataModule1.IBQuery_obsjag.Active then DataModule1.IBQuery_obsjag.Active:=true;not DataModule1.IBQuery_termin.Active then DataModule1.IBQuery_termin.Active:=true;not DataModule1.IBQuery_misce.Active then DataModule1.IBQuery_misce.Active:=true;.IBQuery_reabil.First;.IBQuery_termin.First;.IBQuery_misce.First;.IBQuery_obsjag.First;not DataModule1.IBQuery_reabil.Eof doDataModule1.IBQuery_reabil.FieldByName('id_ipr').Value=DataModule1.IBQuery_ipr.FieldByName('id_ipr').Value then:=56;i:=1 to 51 doDataModule1.IBQuery_reabil.FieldByName('id_zah').Value=i theni=51 then row:=row+1;:=row+i;:=DataModule1.IBQuery_reabil.FieldByName('id_obsyag').Value;.IBQuery_obsjag.Locate('id_obsyag',kod,[]);:=Trim(DataModule1.IBQuery_obsjag.Fieldbyname('obsyag').Value);.ActiveWorkbook.WorkSheets[1].Cells[row,4]:=s;
:=DataModule1.IBQuery_reabil.FieldByName('id_termin').Value;.IBQuery_termin.Locate('id_termin',kod,[]);:=Trim(DataModule1.IBQuery_termin.Fieldbyname('termin').Value);.ActiveWorkbook.WorkSheets[1].Cells[row,7]:=s;
:=DataModule1.IBQuery_reabil.FieldByName('id_misce').Value;.IBQuery_misce.Locate('id_misc',kod,[]);:=Trim(DataModule1.IBQuery_misce.Fieldbyname('misc').Value);.ActiveWorkbook.WorkSheets[1].Cells[row,9]:=s;;;;.IBQuery_reabil.next;;;(ExcelApp.ActiveWorkbook.Save) then Application.MessageBox('Документ сформовано','Увага!',mb_OK+mb_Iconinformation);.Workbooks.Close;.Free;check then.Workbooks.Open(path, UpdateLinks:=0);.Visible:=True;:= Unassigned;;;
TFormIPRview.FormShow(Sender:
TObject);.IBQuery_ipr.Active:=false;.IBQuery_ipr.Active:=false;;.
//Текст модуля NastrNastr;
TFormNastr.B_obzorClick(Sender:
TObject);TFormNastr.B_obzorClick(Sender: TObject);not OpenDialog1.Execute then
exit;.Text:=Opendialog1.FileName;;
//Текст модуля PathExPathEx;
PathEx;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, Buttons, StdCtrls, inifiles, Filectrl,ShlObj;
= class(TForm): TEdit;: TButton;: TLabel;: TCheckBox;: TBitBtn;: TImage;FormShow(Sender: TObject);zberejClick(Sender: TObject);obzorClick(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TFormPath;
{$R *.dfm}BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData: LPARAM): Integer; stdcall;(uMsg = BFFM_INITIALIZED) then(hwnd, BFFM_SETSELECTION, 1, lpData);:= 0;;
GetFolderDialog(Handle: Integer; Caption: string; var strFolder: string): Boolean;_STATUSTEXT = $0004;_NEWDIALOGSTYLE = $0040;_RETURNONLYFSDIRS = $0080;_SHAREABLE = $0100;_USENEWUI = BIF_EDITBOX or BIF_NEWDIALOGSTYLE;
: TBrowseInfo;: PItemIDList;: PItemIDList;: PAnsiChar;:= False;:= StrAlloc(MAX_PATH);(Handle, CSIDL_DRIVES, JtemIDList);BrowseInfo do:= GetActiveWindow;:= JtemIDList;(hwndOwner, CSIDL_DRIVES, JtemIDList);
{ Возврат названия выбранного элемента }:=
StrAlloc(MAX_PATH);
{ Установка названия диалога выбора папки }:= PChar(Caption); //
{ Флаги, контролирующие возврат }:= @BrowseCallbackProc;
{ Дополнительная информация, которая отдаётся обратно в обратный вызов (callback) }:= LongInt(PChar(strFolder));;
:= SHBrowseForFolder(BrowseInfo);
(ItemIDList <> nil) thenSHGetPathFromIDList(ItemIDList, Path) then:= Path;:= True;;;
TFormPath.FormShow(Sender: TObject);: Tinifile;:= TIniFile.Create(extractfilepath(paramstr(0))+'Path.ini');.Text:=MyIni.ReadString('Open','Properties','default value');.Checked:=MyIni.ReadBool('View', 'CheckboxVal', false);.Free;;TFormPath.zberejClick(Sender: TObject);: Tinifile;:= TIniFile.Create(extractfilepath(paramstr(0))+'Path.ini');.WriteBool('View', 'CheckboxVal', CheckBox1.Checked);.Free;;;
TFormPath.obzorClick(Sender: TObject);: String;:
Tinifile;:='E:\Diplom';GetFolderDialog(Application.Handle, 'Оберіть папку для
збереження довідок', sFolder) then Path.Text:= sFolder; MyIni:=
TIniFile.Create(extractfilepath(paramstr(0))+'Path.ini');
MyIni.WriteString('Open','Properties',Path.Text ); MyIni.WriteBool('View',
'CheckboxVal', CheckBox1.Checked); MyIni.Free;;.
//Текст модуля DataModuleDataModule;
TDataModule1.DataModuleCreate(Sender: TObject);:
Tinifile;:string;.IBDatabase1.Connected:=false;.IBQuery_ipr.Active:=false;.IBQuery2.Active:=false;.IBQuery3.Active:=false;:=
TIniFile.Create(extractfilepath(paramstr(0))+'PathDB.ini');FileExists(MyIni.ReadString('Open','Properties','default
value'))
then.Tag:=1;.DatabaseName:=MyIni.ReadString('Open','Properties','default value');.IBDatabase1.Connected:=true;.Tag:=2;('Файл
бази даних не знайдено, вкажіть файл бази даних', mtWarning,[mbOK],0);(not
Assigned(FormNastr))
then:=TFormNastr.Create(Self);.ShowModal();:=FormNastr.path.Text;.WriteString('Open','Properties',
PathToDb);.DatabaseName:=MyIni.ReadString('Open','Properties','default
value');.IBDatabase1.Connected:=true;.Tag:=1;.Tag:=2;;;.IBQuery_ipr.Active:=true;.IBQuery2.Active:=true;.IBQuery3.Active:=true;.IBTable_Sex.Active:=true;.Free;(not
Assigned(FormAvtoriz)) then:=TFormAvtoriz.Create(Self);.ShowModal();;.
//Текст модуля ReabilReabil;
TFormReabil.m_exitClick(Sender: TObject);();;TFormReabil.SetTree(par_level: integer; parent_node:TTreeNode);qryTemp:TIBQuery;_node : TTreeNode;:integer;:=TIBQuery.Create(Self);.Database:=datamodule1.IBDatabase1;.SQL.Text:='select id_zah, zah, vetka from spr_zah where vetka='+inttostr(par_level)+' order by id_zah';.Open();
(* with datamodule1 do_ZAH. Close();_ZAH.ParamByName('PAR_VETKA').Value:=par_level;_ZAH. Open(); *)
not(qryTemp.Eof) do_node:=TreeView.Items.AddChild(parent_node, Trim(qryTemp.FieldByName('ZAH').AsString));:=qryTemp.FieldByName('ID_ZAH').AsInteger;_node.Data:=@i;(i, curr_node);.Next();;.Close();;
TFormReabil.FormCreate(Sender: TObject);.Items.Clear;(0, nil);DataModule1 do_ob.Visible:=false;_m.Visible:=false;_t.Visible:=false;_z.Active:=true;_obsjag.Active:=true;not(IBQuery_obsjag.eof) do_obm.items.add(Trim(IBQuery_obsjag.fieldbyname('OBSYAG').asstring));_obsjag.next;;_termin.Active:=true;not(IBQuery_termin.eof) do_termin.items.add(Trim(IBQuery_termin.fieldbyname('TERMIN').asstring));_termin.next;;_misce.Active:=true;not(IBQuery_misce.eof) do_misc.items.add(Trim(IBQuery_misce.fieldbyname('MISC').asstring));_misce.next;;;;TFormReabil.m_addClick(Sender: TObject);DataModule1.IBQuery do begin;.Clear;.Add('INSERT INTO Reabil (ID_IPR, ID_OBSYAG, ID_ZAH, ID_TERMIN, ID_MISCE)');.Add('VALUES(:ID_IPR, :ID_OBSYAG, :ID_ZAH, :ID_TERMIN, :ID_MISCE)');('ID_IPR').Value:=TreeView.Tag;('ID_OBSYAG').Value:=c_obm.Tag;('ID_ZAH').Value:=BitBtnAdd.Tag;('ID_Termin').Value:=c_termin.Tag;('ID_MISCE').Value:=c_misc.Tag;;.Caption:='Дані записано';.Caption:='Не вдалося додати запис';;;.IBQuery_Reabil.Close;.IBQuery_Reabil.Open;;
TFormReabil.BitBtnAddClick(Sender: TObject);, id2:string;:boolean;DataModule1.IBQuery do begin;:=IntToStr(TreeView.Tag);:=IntToStr(BitBtnAdd.Tag);:=false;not Datamodule1.IBQuery_reabil.Active then Datamodule1.IBQuery_reabil.Active:=true;.IBQuery_reabil.First;not Datamodule1.IBQuery_reabil.Eof do((Datamodule1.IBQuery_reabil.fieldbyname('id_zah').Value=id2) and (Datamodule1.IBQuery_reabil.fieldbyname('id_ipr').Value=id1)) then sovpadenie:=true;.IBQuery_reabil.next;;(sovpadenie=false) then.Clear;(BitBtnAdd.Tag<>1)and(BitBtnAdd.Tag<>2)and(BitBtnAdd.Tag<>11)and(BitBtnAdd.Tag<>17)and(BitBtnAdd.Tag<>23)and(BitBtnAdd.Tag<>29)and(BitBtnAdd.Tag<>33)and(BitBtnAdd.Tag<>38)and(BitBtnAdd.Tag<>43) then.Add('INSERT INTO Reabil (ID_IPR, ID_OBSYAG, ID_ZAH, ID_TERMIN, ID_MISCE)');.Add('VALUES(:ID_IPR, :ID_OBSYAG, :ID_ZAH, :ID_TERMIN, :ID_MISCE)');('ID_IPR').Value:=TreeView.Tag;('ID_OBSYAG').Value:=c_obm.Tag;('ID_ZAH').Value:=BitBtnAdd.Tag;('ID_Termin').Value:=c_termin.Tag;('ID_MISCE').Value:=c_misc.Tag;;.Caption:='Дані записано';.Caption:='Не вдалося додати запис';;Label4.Caption:='Не можна записати дані у заголовок';.Clear;.Add('UPDATE Reabil SET ID_OBSYAG=:ID_OBSYAG, ID_TERMIN=:ID_TERMIN, ID_MISCE=:ID_MISCE where ID_IPR='+id1+' AND ID_ZAH='+id2);('ID_OBSYAG').Value:=c_obm.Tag;('ID_Termin').Value:=c_termin.Tag;('ID_MISCE').Value:=c_misc.Tag;;.Caption:='Дані перезаписано';.Caption:='Не вдалося відредагувати запис';;;;.IBQuery_Reabil.Close;.IBQuery_Reabil.Open;;TFormReabil.c_obmChange(Sender: TObject);:integer;.IBQuery_obsjag.first();i:=0 to c_obm.itemindex-1 do begin.IBQuery_obsjag.Next;;_obm.Tag:=DataModule1.IBQuery_obsjag.fieldbyname('ID_OBSYAG').Value;;
TFormReabil.c_terminChange(Sender: TObject);:integer;.IBQuery_termin.first();i:=0 to c_termin.itemindex-1 do begin.IBQuery_termin.Next;;_termin.Tag:=DataModule1.IBQuery_termin.fieldbyname('ID_TERMIN').Value;_t.Visible:=true;;
TFormReabil.c_miscChange(Sender: TObject);:integer;.IBQuery_misce.first();i:=0 to c_misc.itemindex-1 do begin.IBQuery_misce.Next;;_misc.Tag:=DataModule1.IBQuery_misce.fieldbyname('ID_MISC').Value;_m.Visible:=true;;
TFormReabil.B_obClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Обсяги реабілітації';.IBQuery_obsjag.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_obsjag;.Tag:=5;.ShowModal();;
TFormReabil.B_tClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Терміни реабілітації';.IBQuery_termin.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_termin;.Tag:=4;.ShowModal();;
TFormReabil.B_mClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Місця реабілітації';.IBQuery_misce.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_misce;.Tag:=6;.ShowModal();;
TFormReabil.c_obmDropDown(Sender: TObject);_ob.Visible:=true;;
TFormReabil.TreeViewClick(Sender: TObject);, id:integer;:string;:boolean;:=Trim(TreeView.Selected.Text);.IBQuery_z.Locate('ZAH',s,[]);:=DataModule1.IBQuery_z.FieldByName('ID_ZAH').AsInteger;.Tag:=kod;((BitBtnAdd.Tag=1)or(BitBtnAdd.Tag=2)or(BitBtnAdd.Tag=11)or(BitBtnAdd.Tag=17)or(BitBtnAdd.Tag=23)or(BitBtnAdd.Tag=29)or(BitBtnAdd.Tag=33)or(BitBtnAdd.Tag=38)or(BitBtnAdd.Tag=43)) then_obm.enabled:=false;_termin.enabled:=false;_misc.enabled:=false;_obm.ItemIndex:=-1;_termin.ItemIndex:=-1;_misc.ItemIndex:=-1;_obm.enabled:=true;_termin.enabled:=true;_misc.enabled:=true;_obm.ItemIndex:=-1;_termin.ItemIndex:=-1;_misc.ItemIndex:=-1;.Caption:='';:=false;not Datamodule1.IBQuery_reabil.active then Datamodule1.IBQuery_reabil.active:=true;.IBQuery_reabil.First;not Datamodule1.IBQuery_reabil.Eof do((Datamodule1.IBQuery_reabil.fieldbyname('id_ipr').AsInteger=treeview.tag)and(Datamodule1.IBQuery_reabil.fieldbyname('id_zah').AsInteger=kod)) then:=true;_termin.tag:=Datamodule1.IBQuery_reabil.fieldbyname('id_termin').Asinteger;:=c_termin.tag;.IBQuery_termin.Locate('id_termin',id , []);_termin.text:=Trim(Datamodule1.IBQuery_termin.fieldbyname('termin').Value);_obm.tag:=Datamodule1.IBQuery_reabil.fieldbyname('id_obsyag').Asinteger;:=c_obm.tag;.IBQuery_obsjag.Locate('id_obsyag',id , []);_obm.text:=Trim(Datamodule1.IBQuery_obsjag.fieldbyname('obsyag').Value);_misc.tag:=Datamodule1.IBQuery_reabil.fieldbyname('id_misce').Asinteger;:=c_misc.tag;.IBQuery_misce.Locate('id_misc',id , []);_misc.text:=Trim(Datamodule1.IBQuery_misce.fieldbyname('misc').Value);;.IBQuery_reabil.Next;;sovpadenie=false then_obm.Text:='';_termin.Text:='';_misc.Text:='';;;;
TFormReabil.m_redClick(Sender: TObject);,
id2:integer;DataModule1.IBQuery do begin;:=TreeView.Tag;:= BitBtnAdd.Tag;.Clear;.Add('UPDATE
Reabil SET ID_IPR=:ID_IPR, ID_OBSYAG=:ID_OBSYAG, ID_ZAH=:ID_ZAH,
ID_TERMIN=:ID_TERMIN, ID_MISCE=:ID_MISCE WHERE id_ipr='+intToStr(id1)+' and
id_zah='+IntTostr(id2));('ID_OBSYAG').Value:=c_obm.Tag;('ID_Termin').Value:=c_termin.Tag;('ID_MISCE').Value:=c_misc.Tag;;.Caption:='Дані
перезаписано';.Caption:='Не вдалося відредагувати
запис';;;.IBQuery_Reabil.Close;.IBQuery_Reabil.Open;;.
//Текст модуля AddPasAddPas;
TFormredpas.m_exitClick(Sender: TObject);();;
TFormredpas.m_enterClick(Sender: TObject);:integer;: Integer;:Textfile;, Key, result:string;_pas, new_pas:string;:='9';:='pas.toc';
//чтение(f,path);(f);not FileExists(path) then(f);(f);(f,old_pas);(f);
//дешифрование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;;;pas.text=old_pas then_pas:=pas2.Text;
//шифрованиеi := 1 to Length(new_pas) do:=(Ord(new_pas[i])+(Ord(Key[(Pred(i) mod Length(Key))+1])-Ord('0')));q>=256 then Dec(q,256);_pas[i]:=Chr(q);:=new_pas;;
//запись(f,path);(f);(f, new_pas);(f);.MessageBox('Пароль
змінено','Увага',mb_Ok+mb_Iconinformation);();.MessageBox('Невірно введено
старий пароль','Увага',mb_Ok+mb_Iconinformation);;.Clear;.Clear;;.
//Текст модуля RedpacRedpac;
TFormRedpac.m_exitClick(Sender: TObject);();;
TFormRedpac.FormActivate(Sender: TObject);:integer;DataModule1 do_sex.Clear;_osv.Clear;_gr.Clear;_prof.Clear;_obl.Clear;_r_obl.Clear;_nas_punkt.Clear;_r_nas_punkt.Clear;.Text:=Trim(ibquery3.fieldbyname('fio').Value);.Text:=Trim(ibquery3.fieldbyname('street').Value);.Text:=Trim(ibquery3.fieldbyname('index1').Value);.Text:=Trim(ibquery3.fieldbyname('work').Value);.Text:=Trim(ibquery3.fieldbyname('tel').Value);.Date:=ibquery3.fieldbyname('dr').AsDateTime;not ibquery_O.active then ibquery_O.Active:=true;_O.Locate('id_chel',fio.Tag, []);not ibquery_sex.active then ibquery_sex.open();_sex.first();not(ibquery_sex.eof) do_sex.items.add(ibquery_sex.fieldbyname('SEX').asstring);_sex.next;;:=ibquery_O.fieldbyname('sex').value;.ibquery_sex.Locate('id_sex',kod, []);_sex.Text:=ibquery_sex.fieldbyname('sex').Value;_sex.Tag:=ibquery_sex.fieldbyname('id_sex').Value;_sex.first();_sex.Tag:=kod;
...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;;:=ibquery_O.fieldbyname('r_punkt').value;.ibquery_rajon.Locate('id_rajon',kod, []);_r_nas_punkt.Text:=ibquery_rajon.fieldbyname('rajon').Value;_r_nas_punkt.Tag:=ibquery_rajon.fieldbyname('id_rajon').Value;_rajon.first();_r_nas_punkt.Tag:=kod;;;
TFormRedpac.m_red_pacClick(Sender: TObject);:integer;:string;:=IntToStr(fio.tag);(fio.Text<>'')and(c_sex.Text<>'')and(c_osv.Text<>'')and(c_gr.Text<>'')and(c_obl.Text<>'')and(c_prof.Text<>'')and(c_r_obl.Text<>'')and(c_nas_punkt.Text<>'')(c_r_nas_punkt.Text<>'')and(work.Text<>'')and(tel.Text<>'')and(street.Text<>'')and(index.Text<>'') then:=YearsBetween(today,DateTimepicker1.Date);((res>=18) and (res<125)) thenDataModule1.IBQuery do begin;.Clear;.Add('UPDATE OS_karta SET fio=:fio, osvita=:osvita, dr=:dr, index1=:index1, sex=:sex, gr_inv=:gr_inv, id_prof=:id_prof, obl=:obl, r_obl=:r_obl, punkt=:punkt, r_punkt=:r_punkt, tel=:tel, street=:street, work=:work where id_chel='+id);('fio').Value:=Trim(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:=Trim(tel.Text);('street').value:=Trim(street.Text);('work').value:=Trim(work.Text);;.MessageBox('Дані перезаписано','Увага!',MB_OK+MB_Iconinformation);.MessageBox('Не вдалося відредагувати запис','Увага!',MB_OK+MB_Iconerror);;;Application.MessageBox('Ви невірно заповнили дату народження','Увага!',MB_OK+MB_Iconerror);Application.MessageBox('Ви заповнили не всі поля','Увага!',MB_OK+MB_Iconerror);.IBQuery3.Active:=false;.IBQuery3.Active:=true;.ibquery_O.Active:=false;.ibquery_O.Active:=true;.Close();;
TFormRedpac.SpeedButton_profClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Професії';.IBQuery_prof.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_prof;.Tag:=3;.ShowModal();;
TFormRedpac.SpeedButton_oblClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Oбласті';.IBQuery_obl.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_obl;.Tag:=9;.ShowModal();;TFormRedpac.SpeedButton_r_oblClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Райони області';.IBQuery_r_obl.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_r_obl;.Tag:=8;.ShowModal();;
TFormRedpac.SpeedButton_punktClick(Sender: TObject);(not Assigned(FormDovidnik)) then:=TFormDovidnik.Create(Self);.TabSheet2.TabVisible:=true;.PageControl1.ActivePage:=FormDovidnik.PageControl1.Pages[1];.PageControl1.Pages[1].Caption:='Населений пункт';.IBQuery_nas_punkt.Active:=true;.DBGrid7.DataSource:=DataModule1.ds_punkt;.Tag:=10;.ShowModal();;
TFormRedpac.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();;
TFormRedpac.telKeyPress(Sender: TObject; var Key: Char);not (key in ['0'..'9', #8, '-', ')', '+', '(' ]):=#0;;
TFormRedpac.indexKeyPress(Sender: TObject; var Key: Char);not (key in ['0'..'9', #8]) //,'a'..'z','A'..'Z',#8,#46]) or (key in ['а'..'я'])):=#0;;
TFormRedpac.c_osvChange(Sender: TObject);:integer;not DataModule1.ibquery_osvita.active then DataModule1.ibquery_osvita.active:=true;.ibquery_osvita.first();i:=0 to c_osv.itemindex-1 do begin.ibquery_osvita.Next;;_osv.Tag:=DataModule1.IBQuery_osvita.fieldbyname('ID_OSVITA').Value;;
TFormRedpac.c_grChange(Sender: TObject);:integer;not DataModule1.IBQuery_gr.active then DataModule1.IBQuery_gr.active:=true;.ibquery_gr.first();i:=0 to c_gr.itemindex-1 do begin.ibquery_gr.Next;;_gr.Tag:=DataModule1.IBQuery_gr.fieldbyname('ID_GR_INV').Value;;
TFormRedpac.c_profChange(Sender: TObject);:integer;not DataModule1.IBQuery_prof.active then DataModule1.IBQuery_prof.active:=true;.ibquery_prof.first();i:=0 to c_prof.itemindex-1 do begin.ibquery_prof.Next;;_prof.Tag:=DataModule1.IBQuery_prof.fieldbyname('ID_PROF').Value;_prof.Visible:=true;;
TFormRedpac.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;;
TFormRedpac.c_r_oblChange(Sender: TObject);:integer;not DataModule1.IBQuery_r_obl.active then DataModule1.IBQuery_r_obl.active:=true;.ibquery_r_obl.first();i:=0 to c_r_obl.itemindex-1 do begin.ibquery_r_obl.Next;;_r_obl.Tag:=DataModule1.IBQuery_r_obl.fieldbyname('ID_RAJON_OBL').Value;_r_obl.Visible:=true;;
TFormRedpac.c_nas_punktChange(Sender: TObject);:integer;not DataModule1.IBQuery_nas_punkt.active then DataModule1.IBQuery_nas_punkt.active:=true;.ibquery_nas_punkt.first();i:=0 to c_nas_punkt.itemindex-1 do begin.ibquery_nas_punkt.Next;;_nas_punkt.Tag:=DataModule1.IBQuery_nas_punkt.fieldbyname('ID_NAS_PUNKT').Value;_punkt.Visible:=true;;