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

ВВЕДЕНИЕ
1 АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ И ФОРМИРОВАНИЕ ТРЕБОВАНИЙ К РАЗРАБАТЫВАЕМЫМ ПРОГРАММНЫМ СРЕДСТВАМ
1.1 Анализ предметной области
1.2 Описание функций программного обеспечения
2 СИНТЕЗ ИНФОРМАЦИОННОЙ МОДЕЛИ СИСТЕМЫ
2.1 Описание информационных объектов ПО, их атрибутов
2.2 Организация запросов к базе данных на языке SQL
3 ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО И АЛГОРИТМИЧЕСКОГО ОБЕСПЕЧЕНИЯ БИБЛИОТЕЧНОЙ СИСТЕМЫ
3.1 Алгоритмическое обеспечение функционирования системы поиска программного обеспечения
3.2 Проектирование пользовательского интерфейса
3.3 Описание разработанного программного проекта
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
ПРИЛОЖЕНИЕ А ЛИСТИНГ ПРОГРАММЫ

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.
15