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

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;

//Ввод редактируемой записи из главной формы в форму редактирования

ComboBox2.text:=DataModule2.ADOQuery1.Fields.Fields[7].AsString;

  Edit1.Text:=DataModule2.ADOQuery1.Fields.Fields[1].AsString;

  Edit2.Text:=DataModule2.ADOQuery1.Fields.Fields[2].AsString;

  Edit3.Text:=DataModule2.ADOQuery1.Fields.Fields[3].AsString;

  Edit4.Text:=DataModule2.ADOQuery1.Fields.Fields[4].AsString;

  Edit5.Text:=DataModule2.ADOQuery1.Fields.Fields[5].AsString;

  Edit6.Text:=DataModule2.ADOQuery1.Fields.Fields[6].AsString;

end;

end.

6.  kont_del, форма Form5.

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

unit kont_del;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, kont_main, StdCtrls, conect, Buttons;

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Button2: TButton;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);        //Кнопка «Нет»

begin//при нажатии на нее

Form5.Close;                                                                //закрывается форма

end;

procedure TForm5.Button2Click(Sender: TObject);        //Кнопка «Удалить»

vart1, t2, t: string;                                       //при нажатии на нее производится

begin                                                            //удаление выделеннойзаписи

  if DataModule2.ADOQuery1.Fields.Fields[8].AsString='True' then

    t:='delete from fiz_kontakt f where f.id_kont='+''+form3.DBGrid1.DataSource.DataSet.Fields.Fields[0].AsString+''

  else                    //Выбор таблицы fiz_kontakt

    t:='delete from org_kontakt o where o.id_org='+''+form3.DBGrid1.DataSource.DataSet.Fields.Fields[0].AsString+'';

//Выбор таблицы org_kontakt

DataModule2.ADOQuery1.SQL.Text:=t;   //Удаление записи из БД

DataModule2.ADOQuery1.ExecSQL;        //извыбраннойтаблицы

  t1:='select * from (select id_kont as id, 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 as id, name_org as Наименование, tel1 as Телефон, 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();                                      //Выравнивание столбцов в таблице

Form5.Close;//Закрытие формы удаления

end;

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

begin//Ввод удаляемой записи из главной формы в форму удаления

Label2.Caption:=form3.DBGrid1.DataSource.DataSet.Fields.Fields[1].AsString;

end;

end.

7.  org_today, форма Form10.

Форма дел на сегодня – выводятся список дел на текущую дату, открывается при нажатии н кнопку «Органайзер» на главной форме программы (Form1).

unit org_today;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, conect, org_main, Grids, DBGrids;