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

  form3.DBGrid1.Columns.Items[7].Width:=100;

  Form3.DBGrid1.Columns.Items[8].Visible:=false;

end;

procedure TForm3.Button1Click(Sender: TObject); //Кнопка «Добавление»

begin//при ее нажатии вызывается

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

end;

procedure TForm3.Button2Click(Sender: TObject); //Кнопка «Редактирование»

begin//при ее нажатии вызывается

form6.Show;                                               //форма изменения контактов

end;

procedure TForm3.Button3Click(Sender: TObject); //Кнопка «Удаление»

begin//при ее нажатии вызывается

  Beep;

  form5.Show;                                               //форма удаления контактов

end;

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

vart1, t2, s: string;                                       //список фильтрации по группе

begin

  t1:='select * from (select id_kont, FIO as Наименование, tel_sot as Телефон1, tel_dom as Телефон2, tel_rab as Телефон3, email, adress, g.name_gruppa as Группа, fiz  from fiz_kontakt f, gruppa_kontakt g where f.id_gruppa=g.id_gruppa';

  t2:=' (select id_org, 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';

  s:=' and name_gruppa='+''''+ComboBox1.Text+''''+')';         //отборгруппы

  DataModule2.ADOQuery1.Close;   

  DataModule2.ADOQuery1.SQL.Text:=t1+s+' union  '+t2+s;         

  DataModule2.ADOQuery1.Open;              //запрос с отбором группы из списка

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

end;

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

vart: string;                                                          //список фильтрации по типу

begin

  case ComboBox2.ItemIndex of                             //выбортипаконтактов

  0: t:='select id_kont, FIO as Фамилия, tel_sot as Телефон_сотовый, tel_dom as Телефон_домашний, tel_rab as Телефон_рабочий, email, adress, g.name_gruppa as Группа, fiz  from fiz_kontakt f, gruppa_kontakt g where f.id_gruppa=g.id_gruppa';

  1: t:='select id_org, 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';

  end;

  DataModule2.ADOQuery1.Close;

  DataModule2.ADOQuery1.SQL.Text:=t;

  DataModule2.ADOQuery1.Open;              //запрос с выбором типа контактов

Width_col();

end;

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

begin

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

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

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

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

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

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

  begin

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

    DataModule2.ADOQuery3.Next;

  end;

  ComboBox1.ItemIndex:=-1;

  ComboBox2.ItemIndex:=-1;

end;

procedure TForm3.RadioGroup1Click(Sender: TObject); //Строкисортировки

var t1, t2, s: string;

begin

  t1:='select * from (select id_kont, FIO as Наименование, tel_sot as Телефон1, tel_dom as Телефон2, tel_rab as Телефон3, email, adress, g.name_gruppa as Группа, fiz  from fiz_kontakt f, gruppa_kontakt g where f.id_gruppa=g.id_gruppa)';

  t2:=' union (select id_org, 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)';

  case RadioGroup1.ItemIndex of       //Выборстрокисортировки

    0: s:=' order by name';