Разработка проекта «Автоматизированная записная книжка» с помощью СУБД Microsoft Office Access 2003, страница 7

      DataModule2.ADOQuery1.ExecSQL;                        //вбазуданных

    end                                                                               //втаблицу  fiz_kontakt

  else

    begin

      DataModule2.ADOQuery1.SQL.Text:='insert into org_kontakt (name_org, tel1, tel2, tel3, email, adress, id_gruppa, fiz) values ('+''''+Edit1.Text+''''+','+''''+Edit2.Text+''''+','+''''+Edit3.Text+''''+','+''''+Edit4.Text+''''+','+''''+Edit5.Text+''''+','+''''+Edit6.Text+''''+','+''''+DataModule2.ADOQuery2.Fields.Fields[0].AsString+''''+', false)';                   //Добавлениезаписи

      DataModule2.ADOQuery1.ExecSQL;                        //вбазуданных

    end;                                                                              //в таблицу  org_kontakt

t1:='select * from (selectid_kontasid, FIOasНаименование, tel_sotasТелефон1, tel_domasТелефон2, tel_rabasТелефон3, email, adress, g.name_gruppaasГруппа, fizfromfiz_kontaktf, gruppa_kontaktgwheref.id_gruppa=g.id_gruppa)';

t2:=' union (select id_org as id, name_org as Наименование, tel1 as Телефон1, tel2 as Телефон2, tel3 as Телефон3, email, adress, g.name_gruppa as Группа, fiz  from org_kontakt o, gruppa_kontakt g where o.id_gruppa=g.id_gruppa)';

  DataModule2.ADOQuery1.Close;

  DataModule2.ADOQuery1.SQL.Text:=t1+t2;

  DataModule2.ADOQuery1.Open;                        //Обновлениезапроса

  Form3.Width_col();                                    //Выравниваниестолбцоввтаблице

  Form4.Close;                                             //Закрытие формы добавления

end;

procedure TForm4.ComboBox1Change(Sender: TObject); //Раскрывающийся

begin//список выбора типа контактов

Label2.Visible:=true;                                 //Делаются видимыми ранее

Label3.Visible:=true;//скрытые строки

  Label4.Visible:=true;

 Label5.Visible:=true;

  Label6.Visible:=true;

  Label7.Visible:=true;

  Label8.Visible:=true;

  ComboBox2.Visible:=true;

  Edit1.Visible:=true;

  Edit2.Visible:=true;

  Edit3.Visible:=true;

  Edit4.Visible:=true;

  Edit5.Visible:=true;

  Edit6.Visible:=true;

  Button1.Visible:=true;

    caseComboBox1.ItemIndexof//Выбор надписей в зависимости

    0:                                                              //от типа контактов

begin

Label3.Caption:='Фамилия';

Label4.Caption:='Сотовый телефон';

      Label5.Caption:='Домашний телефон';

      Label6.Caption:='Рабочий телефон';

      ComboBox2.ItemIndex:=6;

    end;

    1:

    begin

      Label3.Caption:='Наименование';

      Label4.Caption:='Телефон 1';

      Label5.Caption:='Телефон 2';

      Label6.Caption:='Телефон 3';

      ComboBox2.ItemIndex:=5;

    end;

  end;

end;

procedure TForm4.FormActivate(Sender: TObject);       //Активацияформы

begin

  ComboBox1.ItemIndex:=-1;

  Label2.Visible:=false;                                //Делаются невидимыми все

Label3.Visible:=false;                                //строки, кроме раскрывающегося

Label4.Visible:=false;                                //списка выбора типа контакта

Label5.Visible:=false;

  Label6.Visible:=false;

  Label7.Visible:=false;

  Label8.Visible:=false;

  ComboBox2.Visible:=false;

  Edit1.Visible:=false;

  Edit2.Visible:=false;

  Edit3.Visible:=false;

  Edit4.Visible:=false;

  Edit5.Visible:=false;

  Edit6.Visible:=false;

  Button1.Visible:=false;

  ComboBox2.Items.Clear;                 //Очистка раскрывающегося списка групп

DataModule2.ADOQuery3.SQL.Text:='select name_gruppa from gruppa_kontakt';                                                              //Формирование

  DataModule2.ADOQuery3.Open;                                  //спискагрупп

  DataModule2.ADOQuery3.First;                         //враскрывающемся

  while not DataModule2.ADOQuery3.eof do                  //списке

  begin

 ComboBox2.Items.Add(DataModule2.ADOQuery3.Fields.Fields[0].AsString);

    DataModule2.ADOQuery3.Next;

  end;

end;

end.

5.  kont_upd, форма Form6.

Форма редактирования контактов – позволяет изменять информацию о контакте, открывается при нажатии на кнопку «Редактирование» на главной форме работы с контактами (Form3).