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

 DataModule1.ADOQuery1.SQL.Add('select max(ID_cont) from Contact');

 DataModule1.ADOQuery1.Open;

 r:=DataModule1.ADOQuery1.Fields[0].AsInteger;

 r:=r+1;

 DataModule1.ADOQuery1.Close;

 DataModule1.ADOQuery1.SQL.Clear;

 DataModule1.ADOQuery1.SQL.Add('insert into Contact (ID_cont, FIO, tel, e_mail, Adress, Gruppa) values ('+inttostr(r)+','''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+Memo1.Text+''','''+Edit4.Text+''')');

 DataModule1.ADOQuery1.ExecSQL;

 r:=0; end;

При редактирование записей, выполняется процедура (procedure TForm3.BitBtn3Click(Sender: TObject)):

begin

DataModule1.ADOQuery1.Close;

   DataModule1.ADOQuery1.SQL.Clear;

   DataModule1.ADOQuery1.SQL.Add('update Contact set FIO='''+Edit1.Text+'''  where ID_cont='+inttostr(q)+'');//q глобальнаяпеременнаязапоминающая ID

   DataModule1.ADOQuery1.ExecSQL;

  DataModule1.ADOQuery1.SQL.Clear;

   DataModule1.ADOQuery1.SQL.Add('update Contact set tel='''+Edit2.Text+''' where ID_cont='+inttostr(q)+'');

   DataModule1.ADOQuery1.ExecSQL;

   DataModule1.ADOQuery1.Close;

   DataModule1.ADOQuery1.SQL.Clear;

   DataModule1.ADOQuery1.SQL.Add('update Contact set e_mail='''+Edit3.Text+''' where ID_cont='+inttostr(q)+'');

   DataModule1.ADOQuery1.ExecSQL;

   DataModule1.ADOQuery1.Close;

DataModule1.ADOQuery1.SQL.Clear;

   DataModule1.ADOQuery1.SQL.Add('update Contact set Adress='''+Memo1.Text+''' where ID_cont='+inttostr(q)+'');

   DataModule1.ADOQuery1.ExecSQL;

    DataModule1.ADOQuery1.Close;

   DataModule1.ADOQuery1.SQL.Clear;

   DataModule1.ADOQuery1.SQL.Add('update Contact set Gruppa='''+ComboBox1.Text+''' where ID_cont='+inttostr(q)+'');

DataModule1.ADOQuery1.ExecSQL; end;

При удалении пользователем контакта , выполняется процедура (procedure TForm3.BitBtn4Click(Sender: TObject)):

begin

DataModule1.ADOQuery1.Close;

DataModule1.ADOQuery1.SQL.Clear;

DataModule1.ADOQuery1.SQL.Add('delete FIO, tel, e_mail, Adress, Gruppa from Contact where ID_cont='+inttostr(q)+' ');

DataModule1.ADOQuery1.ExecSQL;

DataModule1.ADOQuery1.Close; end;

При обновлении, выпол6няется процедура (procedure TForm3.BitBtn5Click(Sender: TObject)) :

begin

DataModule1.ADOQuery1.Close;

  DataModule1.ADOQuery1.SQL.Clear;

  DataModule1.ADOQuery1.SQL.Add('select FIO from Contact order by FIO');

  DataModule1.ADOQuery1.Open;

  {w:=DataModule1.ADOQuery1.RecordCount;}

  DataModule1.ADOQuery1.First;

  ListBox1.Clear;

  for I:=0 to DataModule1.ADOQuery1.RecordCount-1 do

    begin

    ListBox1.Items.Add(DataModule1.ADOQuery1.Fields[0].AsString);

DataModule1.ADOQuery1.Next; end;

2.  Если пользователь выбрал переход на форму «книги», то открывается выбранная форма.

При добавления новой книги в каталог, выполняется процедура (procedure TForm4.BitBtn5Click(Sender: TObject)):

begin

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('select max(ID_book) from books');

DataModule1.ADOQuery3.Open;

r:=DataModule1.ADOQuery3.Fields[0].AsInteger;

r:=r+1;

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('insert into books (ID_book, Nazvanie, FIO_avtora,razdel) values ('+inttostr(r)+','''+Edit1.Text+''','''+Edit2.Text+''','''+ComboBox2.Text+''')'); DataModule1.ADOQuery3.ExecSQL; end;

Удаление книги из каталога, выполняется процедура (procedure TForm4.BitBtn7Click(Sender: TObject)):

begin

DataModule1.ADOQuery3.ExecSQL;

При удалении книги из каталога:

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

DataModule1.ADOQuery3.SQL.Add('delete from books where Nazvanie='''+Edit1.Text+''' ');

DataModule1.ADOQuery3.ExecSQL;

Редактирование записи в каталоге:

DataModule1.ADOQuery3.Close;

DataModule1.ADOQuery3.SQL.Clear;

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