Разработка программной системы «Автоматизированная записная книжка», страница 6

DataModule1.ADOQuery3.ExecSQL;

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('update books set FIO_avtora='''+Edit2.Text+''' where ID_book='+inttostr(a)+' ');

DataModule1.ADOQuery3.ExecSQL;

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('update books set razdel='''+Edit3.Text+''' where ID_book='+inttostr(a)+' ');

DataModule1.ADOQuery3.ExecSQL; end;

Фильтрация по разделам, выполняется процедура (procedure TForm4.ComboBox1Change(Sender: TObject)):

begin

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('select * from books where razdel= '''+ComboBox1.Text+''' ');

DataModule1.ADOQuery3.Open; end;

Поиск по названию, данные выводятся в Edit1, Edit2, Edit3,а так же в DBGrid1, выполняется процедура (procedure TForm4.BitBtn10Click (Sender: TObject)):

begin

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('select * from books where Nazvanie='''+Edit4.Text+''' ');

DataModule1.ADOQuery3.Open;

Edit1.Text:=DataModule1.ADOQuery3.Fields[1].AsString;

Edit2.Text:=DataModule1.ADOQuery3.Fields[2].AsString;

Edit3.Text:=DataModule1.ADOQuery3.Fields[3].AsString; end;

Поиск по автору, данные выводятся в Edit1, Edit2, Edit3,а так же в DBGrid1, выполняется процедура (procedure TForm4.BitBtn11Click (Sender: TObject)):

begin

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('select * from books where FIO_avtora='''+Edit4.Text+''' ');

DataModule1.ADOQuery3.Open;

Edit1.Text:=DataModule1.ADOQuery3.Fields[1].AsString;

Edit2.Text:=DataModule1.ADOQuery3.Fields[2].AsString;

Edit3.Text:=DataModule1.ADOQuery3.Fields[3].AsString; end;

При выборе книги для чтения выполняется процедура (procedure TForm7.BitBtn2Click(Sender: TObject)):

begin

with combobox1 do

ifFileExists(ComboBox1.Text+'.txt') then //если файл с таким название //существует, выводится в memo1

begin

 memo1.Lines.LoadFromFile(combobox1.Text+'.txt');

end

else // выводится сообщение «файл отсутствует»

ShowMessage('            файл отсутствует             '); end;

В каждом ComboBox находятся книги одного раздела.

При выборе шрифта выполняется процедура (procedure TForm7.BitBtn11Click (Sender: TObject)):

Begin fontdialog1.Execute;

memo1.Font.Color:=fontdialog1.Font.Color;

memo1.Font.Size:=fontdialog1.Font.Size;

memo1.Font.Name:=fontdialog1.Font.Name;

memo1.font:=fontdialog1.font;end;

Сохранение файла из memo1(файл можно сохранить только в формате *.txt ), выполняется процедура (procedure TForm7.BitBtn12Click (Sender: TObject)):

begin

if SaveDialog1.Execute then

begin

AssignFile(F,'C:\Program Files\курсовикhbc’) ;//открывается папка по указанному пути

Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;

Открыть файл в memo1, выполняется процедура (procedure TForm7.BitBtn13Click(Sender: TObject)):

begin

If OpenDialog2.Execute Then

Begin

Memo1.Lines.LoadFromFile(OpenDialog2.FileName);

End;

 end;

Поиск текста memo1, выфполняется процедура 9procedure TForm7.BitBtn14Click(Sender: TObject)):

begin

spos:=Memo1.SelStart;

with FindDialog1 do

begin

FindText:= Memo1.SelText;

Execute;

end;

end;

procedure TForm7.FindDialog1Find(Sender: TObject);

begin

with FindDialog1 do

begin

if frMatchCase in Options

{поисксучетомрегистра}

then Memo1.SelStart := Pos(FindText,

Copy(Memo1.Lines.Text, spos + 1,

Length(Memo1.Lines.Text))) + spos - 1

{поискбезучетарегистра}

else Memo1.SelStart := Pos(AnsiLowerCase(FindText),

AnsiLowerCase(Copy(Memo1.Lines.Text, spos + 1,

Length(Memo1.Lines.Text)))) + spos - 1;

if Memo1.SelStart >= spos

then

begin

{выделениенайденноготекста}

Memo1.SelLength := Length(FindText);

{изменение начальной позиции поиска}

SPos := Memo1.SelStart + Memo1.SelLength + 1;

end