Програмирование на языке Delphi

IsMDIChildOpen (MainClientsForm,'addform');

end;

end.

Модуль ChildTemplate.

unit ChildTemplate;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, Buttons, RzButton, Grids, DBGrids, ExtCtrls, RzPanel, Menus;

type.

TChildTemplateForm = class (TForm).

RzToolbar1: TRzToolbar;

DBGrid1: TDBGrid;

RzToolbarButton1: TRzToolbarButton;

RzToolbarButton2: TRzToolbarButton;

RzToolbarButton3: TRzToolbarButton;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure RzToolbarButton2Click (Sender: TObject);

procedure RzToolbarButton1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

implementation.

{$R *.dfm}.

uses mainclients;

procedure TChildTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin.

Action:=caFree;

end;

procedure TChildTemplateForm. RzToolbarButton1Click (Sender: TObject);

begin.

dbgrid1.DataSource.DataSet.Insert;

end;

procedure TChildTemplateForm. RzToolbarButton2Click (Sender: TObject);

begin.

dbgrid1.DataSource.DataSet.Edit;

end;

end.

Модуль DBDirectoryTemplate.

unit DBDirectoryTemplate;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, RzPanel, ExtCtrls, Grids, DBGrids, ADODB, DB, Buttons, RzButton, EditDBDirectory,.

DBCtrls, StdCtrls, Mask, RzStatus, ComCtrls ;

type.

TDBDirectoryTemplateForm = class (TForm).

TableDBGrid: TDBGrid;

RzToolbar1: TRzToolbar;

delbutton: TRzToolbarButton;

AddButton: TRzToolbarButton;

editbutton: TRzToolbarButton;

StatusBar1: TStatusBar;

l: TLabel;

Edit: TDBEdit;

Lookup: TDBLookupComboBox;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure editbuttonClick (Sender: TObject);

procedure AddButtonClick (Sender: TObject);

procedure delbuttonClick (Sender: TObject);

procedure tbdOfficeFilterRecord (DataSet: TDataSet; var Accept: Boolean);

procedure TableDBGridKeyPress (Sender: TObject; var Key: Char);

procedure FormShow (Sender: TObject);

private.

{ Private declarations }.

filter:string;

public.

{ Public declarations }.

end;

var.

DBDirectoryTemplateForm: TDBDirectoryTemplateForm;

implementation.

uses mainclients;

{$R *.dfm}.

procedure TDBDirectoryTemplateForm. tbdOfficeFilterRecord (DataSet: TDataSet;

var Accept: Boolean);

var str: string;

begin.

if flagsort then begin.

if TableDBGrid. SelectedField=nil then exit;

if TableDBGrid.SelectedField.Value=NULL then exit;

str:=TableDBGrid.SelectedField.Value;

if AnsiUpperCase (Copy (str, 1, Length (filter)))=AnsiUpperCase (filter) then.

Accept:=true.

else Accept:=false;

end;

end;

procedure TDBDirectoryTemplateForm. AddButtonClick (Sender: TObject);

var gdnew: Tguid;

begin.

TableDBgrid.DataSource.DataSet.Insert;

CreateGuid (gdnew);

// TableDBgrid.DataSource.DataSet.Fields[0]. AsString:=GuidTostring (gdnew);

Editbuttonclick (nil);

end;

procedure TDBDirectoryTemplateForm. delbuttonClick (Sender: TObject);

begin.

if Application. MessageBox (PChar ('Удалить+" '.

+TableDBgrid.Columns[0]. Field. asstring+'" '),'Внимание!!!',.

MB_IconInformation+MB_OKCANCEL)<>ID_OK then exit;

TableDBgrid.DataSource.DataSet.Delete;

end;

procedure TDBDirectoryTemplateForm. editbuttonClick (Sender: TObject);

var i: integer;

EditDBDirectoryForm:TEditDBDirectoryForm;

begin.

//создание окна редактирования.

EditDBDirectoryForm:=TEditDBDirectoryForm.Create (Owner);

//прячем кнопку выбора цвета и обнуляем указатель на поле цвета.

EditDBDirectoryForm.SelectColorButton.Visible:=false;

{EditDBDirectoryForm.ColorB:=nil;}.

//В цикле обрабатываем все колонки справочника.

for i:= 0 to TableDBgrid.Columns.Count- 1 do.

begin.

//создаем запись Tlabel с названием поля.

l:=Tlabel.Create (EditDBDirectoryForm.Owner);

//задаем параметры подписи Tlabel с названием поля.

l.Parent:= EditDBDirectoryForm. mainPanel;

l.Left:=8;

l.Top:=(i+1)*8+i*21+2;

l.Transparent:=true;

//заголовок для подписи берется из свойства DisplayLabel поля.

l.Caption:=TableDBgrid.Columns[i]. Field. DisplayLabel;

edit:=TDBEdit.Create (EditDBDirectoryForm.Owner);

edit.Parent:=EditDBDirectoryForm.mainPanel;

edit.Left:=120;

edit.top:=(i+1)*8+i*21;

edit.CharCase:=ecUpperCase;

edit.DataSource:=TableDBgrid.DataSource;

edit.DataField:=TableDBgrid.Columns[i]. Field. FieldName;

//Для поля хранящего цвет заголовок поля должен быть равен.

// строке ЦВЕТ. В этом случае делаем доступным кнопку выбора цвета.

// и размещаем ее напротив.

end;

// отрражаем окно редактирования.

TableDBgrid.DataSource.DataSet.Edit;

// EditDBDirectoryForm. ModalResult:= mrOK;

//EditDBDirectoryForm.ShowModal;

// EditDBDirectoryForm. Show;

// если выполнен щелчок на кнопке ОК.

// сохраняем данные, иначе откатываем изменения.

if EditDBDirectoryForm. ModalResult=mrOK then.

begin.

TableDBgrid.DataSource.DataSet.Post;

end.

else.

begin.

TableDBgrid.DataSource.DataSet.Cancel;

end;

end;

procedure TDBDirectoryTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin.

Action:=caFree;

end;

procedure TDBDirectoryTemplateForm. FormShow (Sender: TObject);

var ds: TDataset;

begin.

ds:= TableDBGrid.DataSource.DataSet;

filter:='';

//Устанавливаем обработчик для OnfilterRecord.

TADOTable (ds).OnFilterRecord:=tbdOfficeFilterRecord;

TADOTable (ds).filtered:=true;

end;

procedure TDBDirectoryTemplateForm. TableDBGridKeyPress (Sender: TObject;

var Key: Char);

var ds: TDataset;

begin.

//для удобства сохраним в переменной таблицу, которая установлена в сетке.

ds:= TableDBGrid.DataSource.DataSet;

// если нажата кнопка backspase, то нужно.

// стереть последний символ строки фильтра.

if key=#8 then.

begin.

filter:=Copy (filter, 1, length (filter)-1);

if filter='' then.

TADOTable (ds).filtered:=false.

else.

TADOTable (ds).filter:=TableDBGrid.SelectedField.FieldName+'>''+Filter+''';

end;

//если нажата русская клавиша или цифра, то добавляем ее к строке фильтра.

if ((key>='а') or (key<='я') or.

(key>='А') or (key<='Я') or.

(key>='0') or (key<='9'))then.

begin.

TADOTable (ds).filtered:=true;

filter:=filter+key;

TADOTable (ds).filter:=TableDBGrid.SelectedField.FieldName+'>''+Filter+''';

// отображаем в строке состояния текущую строку фильтра.

if filter<>'' then.

statusbar1.SimpleText:='фильтр: '+TableDBGrid.SelectedField.DisplayName+'='+ Filter.

else.

statusbar1.SimpleText:='фильтр: пуст';

end;

end;

end.

Модуль EditDBDirectory;

unit EditDBDirectory;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, RzButton, ExtCtrls, RzPanel, RzDlgBtn, StdCtrls, Mask, DBCtrls;

type.

TEditDBDirectoryForm = class (TForm).

mainPanel: TRzPanel;

ColorDialog: TColorDialog;

SelectColorButton: TRzBitBtn;

RzButton1: TRzButton;

RzButton2: TRzButton;

procedure RzButton2Click (Sender: TObject);

procedure RzButton1Click (Sender: TObject);

procedure RzDialogButtons1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

EditDBDirectoryForm: TEditDBDirectoryForm;

implementation.

{$R *.dfm}.

uses DBDirectoryTemplate, mainclients;

procedure TEditDBDirectoryForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin.

Action:=caFree;

end;

procedure TEditDBDirectoryForm. RzButton1Click (Sender: TObject);

begin.

mainclientsform.DataSource1.DataSet.Edit;

DBDirectoryTemplateForm.TableDBGrid.DataSource.DataSet.Post;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'EditDBDirectoryForm');

end;

procedure TEditDBDirectoryForm. RzButton2Click (Sender: TObject);

begin.

MainClientsForm.IsMDIChildOpen (MainClientsForm,'EditDBDirectoryForm');

end;

procedure TEditDBDirectoryForm. RzDialogButtons1Click (Sender: TObject);

begin.

mainclientsform.DataSource1.DataSet.Edit;

DBDirectoryTemplateForm.TableDBGrid.DataSource.DataSet.Post;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'EditDBDirectoryForm');

end;

end.

Модуль parampoisk;

unit parampoisk;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, addsorce,.

StdCtrls, Mask, RzEdit, RzRadChk, RzRadGrp, RzButton, ExtCtrls, RzPanel, DateUtils ;

type.

Tparampoik = class (TForm).

RzGroupBox1: TRzGroupBox;

RzCheckBox2: TRzCheckBox;

RzCheckBox4: TRzCheckBox;

RzCheckBox6: TRzCheckBox;

RzCheckBox7: TRzCheckBox;

RzCheckBox9: TRzCheckBox;

RzCheckBox10: TRzCheckBox;

RzCheckBox13: TRzCheckBox;

RzCheckBox14: TRzCheckBox;

RzCheckBox15: TRzCheckBox;

RzCheckBox18: TRzCheckBox;

RzCheckBox19: TRzCheckBox;

RzBitBtn1: TRzBitBtn;

RzBitBtn2: TRzBitBtn;

RzBitBtn3: TRzBitBtn;

RzBitBtn4: TRzBitBtn;

RzCheckBox12: TRzCheckBox;

RzCheckBox1: TRzCheckBox;

RzCheckBox16: TRzCheckBox;

RzCheckBox17: TRzCheckBox;

RzGroupBox2: TRzGroupBox;

RzGroupBox3: TRzGroupBox;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

RzGroupBox4: TRzGroupBox;

RzRadioGroup1: TRzRadioGroup;

RzRadioButton2: TRzRadioButton;

RzRadioButton3: TRzRadioButton;

RzRadioButton4: TRzRadioButton;

RzRadioButton5: TRzRadioButton;

RzRadioButton1: TRzRadioButton;

RzEdit2: TRzEdit;

RzEdit3: TRzEdit;

RzEdit4: TRzEdit;

RzEdit5: TRzEdit;

RzEdit1: TRzEdit;

RzGroupBox5: TRzGroupBox;

Label3: TLabel;

Edit1: TEdit;

procedure RzBitBtn4Click (Sender: TObject);

procedure RzRadioButton5Click (Sender: TObject);

procedure RzRadioButton4Click (Sender: TObject);

procedure RzRadioButton3Click (Sender: TObject);

procedure RzRadioButton2Click (Sender: TObject);

procedure RzRadioButton1Click (Sender: TObject);

procedure RzBitBtn3Click (Sender: TObject);

procedure RzBitBtn2Click (Sender: TObject);

procedure RzBitBtn1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1:tparameter;

implementation.

uses mainclients;

{$R *.dfm}.

procedure Tparampoik. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn1Click (Sender: TObject);

begin.

RzCheckBox1.Checked:=true;

RzCheckBox2.Checked:=true;

RzCheckBox4.Checked:=true;

RzCheckBox6.Checked:=true;

RzCheckBox7.Checked:=true;

RzCheckBox9.Checked:=true;

RzCheckBox10.Checked:=true;

RzCheckBox12.Checked:=true;

RzCheckBox13.Checked:=true;

RzCheckBox14.Checked:=true;

RzCheckBox15.Checked:=true;

RzCheckBox16.Checked:=true;

RzCheckBox17.Checked:=true;

RzCheckBox18.Checked:=true;

RzCheckBox19.Checked:=true;

end;

procedure Tparampoik. RzBitBtn2Click (Sender: TObject);

begin.

RzCheckBox16.Checked:=false;

RzCheckBox17.Checked:=false;

RzCheckBox1.Checked:=false;

RzCheckBox2.Checked:=false;

RzCheckBox4.Checked:=false;

RzCheckBox6.Checked:=false;

RzCheckBox7.Checked:=false;

RzCheckBox9.Checked:=false;

RzCheckBox10.Checked:=false;

RzCheckBox12.Checked:=false;

RzCheckBox13.Checked:=false;

RzCheckBox14.Checked:=false;

RzCheckBox15.Checked:=false;

RzCheckBox18.Checked:=false;

RzCheckBox19.Checked:=false;

end;

procedure Tparampoik. RzBitBtn3Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

all:boolean;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

P1,P2, p3, p4:Tparameter;

timenach, timekon: tdatetime;

begin.

flagsort:=false;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;

mainclientsform.ADOQuery1.SQL.Clear;

if nomer_poisk=1 then begin.

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if rzedit1. Text<>'' then begin.

srtkl := rzedit1. Text;

name_poisk:= 'book.namebook'.

end;

if rzedit2. Text<>'' then begin.

srtkl := rzedit2. Text;

name_poisk:= 'izdat.nameizdat'.

end;

if rzedit3. Text<>'' then begin.

srtkl := rzedit3. Text;

name_poisk:= 'Avtor.FirstNameAvtor'.

end;

if rzedit4. Text<>'' then begin.

srtkl := rzedit4. Text;

name_poisk:= 'ucheb.kust_discipline'.

end;

if rzedit5. Text<>'' then begin.

srtkl := rzedit5. Text;

name_poisk:= 'ucheb.discipline';

end;

if srtkl<>'' then.

begin.

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

all:=true;

pole:='';

fl_book:=false;

fl_avtor:=false;

fl_izdat:=false;

fl_vid:=false;

fl_category:=false;

//****************.

if RzCheckBox1. Checked then begin.

pole:=pole+'book.namebook AS Название';

fl_book:=true;

end.

else all:=false;

if RzCheckBox2. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'avtor.FirstNameAvtor AS Фамилия';

fl_avtor:=true;

end.

else all:=false;

{ if RzCheckBox3. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'book.anotaciy AS Аннотация';

fl_book:=true;

end.

else all:=false; }.

if RzCheckBox4. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'book.god AS Год';

fl_book:=true;

end.

else all:=false;

if RzCheckBox6. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'Izdat.nameizdat AS Издательство';

fl_izdat:=true;

end.

else all:=false;

if RzCheckBox7. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'Izdat.gorod AS Город';

fl_izdat:=true;

end.

else all:=false;

if RzCheckBox9. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'book.kol_str AS Страницы';

fl_book:=true;

end.

else all:=false;

if RzCheckBox10. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'book.tirag AS Тираж';

fl_book:=true;

end.

else all:=false;

if RzCheckBox12. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'Category.location AS размещение ';

fl_category:=true;

end.

else all:=false;

if RzCheckBox15. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'razrabotchik.email AS Email';

fl_avtor:=true;

end.

else all:=false;

if RzCheckBox13. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'avtor.SecNameAvtor AS Фамилия';

fl_avtor:=true;

end.

else all:=false;

if RzCheckBox14. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'avtor.LastNameAvtor AS Фамилия';

fl_avtor:=true;

end.

else all:=false;

if RzCheckBox18. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'Category.razdel AS Направление';

fl_category:=false;

end.

else all:=false;

if RzCheckBox19. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'Category.discipline AS Дисциплина';

fl_category:=false;

end.

else all:=false;

if RzCheckBox16. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'vid.vid AS Вид';

fl_vid:=true;

end.

else all:=false;

if RzCheckBox17. Checked then.

begin.

if pole<>'' then pole:=pole+', ';

pole:=pole+'vid.typeizdan AS Вид';

fl_vid:=true;

end.

else all:=false;

if srtkl<>'' then sqlwhere:= ' where '+name_poisk+' like: P1'.

else sqlwhere:='';

if all=true then.

begin.

stroka_SQL:='select * from book, avtor, izdat, vid, category '+sqlwhere.

end.

else.

begin.

if pole<>'' then begin.

stroka_SQL:='select DISTINCT '+pole+' from ';

tabl:='';

if fl_book then tabl:=tabl+'book';

if fl_avtor then begin.

if tabl<>'' then tabl:=tabl+', ';

tabl:=tabl+'avtor';

end;

if fl_izdat then begin.

if tabl<>'' then tabl:=tabl+', ';

tabl:=tabl+'izdat';

end;

if fl_location then begin.

if tabl<>'' then tabl:=tabl+', ';

tabl:=tabl+'location';

end;

if fl_vid then begin.

if tabl<>'' then tabl:=tabl+', ';

tabl:=tabl+'vid';

end;

if fl_category then begin.

if tabl<>'' then tabl:=tabl+', ';

tabl:=tabl+'category';

end;

stroka_SQL:= stroka_SQL+tabl+sqlwhere;

end;

end;

mainclientsform.ADOQuery1.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin.

mainclientsform.ADOQuery1.Active:=true;

mainclientsform.ADOQuery1.ExecSQL;

end;

end;

if nomer_poisk=2 then begin.

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

ayear:= strtoint (Edit7.Text);

amonth:=strtoint (Edit6.Text);

aday:=strtoint (Edit5.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timekon:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

P2 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P2.Name:='P2';

p2.DataType := ftdatetime;

P1.Value := timenach;

P2.Value := timekon;

sqlwhere:= ' where (book.idavtor1 =avtor.idavtor) and (book.idbook=recieve.idbook) and (recieve.datereceive > :P1) and (recieve.datereceive < :P2)';

stroka_SQL:='select * from avtor, book, recieve'+ sqlwhere;

mainclientsform.ADOQuery1.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin.

mainclientsform.ADOQuery1.Active:=true;

mainclientsform.ADOQuery1.ExecSQL;

end;

end;

if nomer_poisk=3 then begin.

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

ayear:= strtoint (Edit7.Text);

amonth:=strtoint (Edit6.Text);

aday:=strtoint (Edit5.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timekon:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

P2 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P2.Name:='P2';

p2.DataType := ftdatetime;

P1.Value := timenach;

P2.Value := timekon;

sqlwhere:= ' where (book.idavtor1 =avtor.idavtor) and (book.idbook=recieve.idbook) and (recieve.date_last > :P1) and (recieve.date_last < :P2) ';

stroka_SQL:='select * from avtor, book, recieve'+ sqlwhere;

mainclientsform.ADOQuery1.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin.

mainclientsform.ADOQuery1.Active:=true;

mainclientsform.ADOQuery1.ExecSQL;

end;

end;

if nomer_poisk=4 then begin.

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit1. Text<>'' then begin.

srtkl := edit1. Text;

end;

if srtkl<>'' then.

begin.

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

P4 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P4.Name:='P4';

p4.DataType := ftstring;

P4.Value:='n';

P4.Size:=4;

stroka_SQL:='select recieve. datereceive, book. NameBook, reader. Family from book, recieve, reader where (book.idbook=recieve.idbook) and (recieve.vozvrat Like: P4) and reader. nom_bileta Like: P1 ';

mainclientsform.ADOQuery1.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin.

mainclientsform.ADOQuery1.Active:=true;

mainclientsform.ADOQuery1.ExecSQL;

end;

end;

end;

procedure Tparampoik. RzBitBtn4Click (Sender: TObject);

begin.

flagpoisk:=false;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'parampoik');

flagsort:=false;

MainClientsForm.N1Click (Sender);

end;

procedure Tparampoik. RzRadioButton1Click (Sender: TObject);

begin.

RZEdit1.Visible:=true;

RZEdit2.Visible:=false;

RZEdit3.Visible:=false;

RZEdit4.Visible:=false;

RZEdit5.Visible:=false;

RZEdit2.Text:='';

RZEdit3.Text:='';

RZEdit4.Text:='';

RZEdit5.Text:='';

end;

procedure Tparampoik. RzRadioButton2Click (Sender: TObject);

begin.

RZEdit1.Visible:=false;

RZEdit2.Visible:=true;

RZEdit3.Visible:=false;

RZEdit4.Visible:=false;

RZEdit5.Visible:=false;

RZEdit1.Text:='';

RZEdit3.Text:='';

RZEdit4.Text:='';

RZEdit5.Text:='';

end;

procedure Tparampoik. RzRadioButton3Click (Sender: TObject);

begin.

RZEdit1.Visible:=false;

RZEdit2.Visible:=false;

RZEdit3.Visible:=true;

RZEdit4.Visible:=false;

RZEdit5.Visible:=false;

RZEdit1.Text:='';

RZEdit2.Text:='';

RZEdit4.Text:='';

RZEdit5.Text:='';

end;

procedure Tparampoik. RzRadioButton4Click (Sender: TObject);

begin.

RZEdit1.Visible:=false;

RZEdit2.Visible:=false;

RZEdit3.Visible:=false;

RZEdit4.Visible:=true;

RZEdit5.Visible:=false;

RZEdit1.Text:='';

RZEdit2.Text:='';

RZEdit3.Text:='';

RZEdit5.Text:='';

end;

procedure Tparampoik. RzRadioButton5Click (Sender: TObject);

begin.

RZEdit1.Visible:=false;

RZEdit2.Visible:=false;

RZEdit3.Visible:=false;

RZEdit4.Visible:=false;

RZEdit5.Visible:=true;

RZEdit1.Text:='';

RZEdit2.Text:='';

RZEdit3.Text:='';

RZEdit4.Text:='';

end;

end.