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

  DataModule2.ADOQuery4.Close;

  DataModule2.ADOQuery4.SQL.Text:= select id_dn, name_dn as Наименование, date_dn as Дата, time_dn as Время, name_type_dn as Тип_события  from organaizer o, type_organaizer t where o.id_type_dn=t.id_type_dn and name_type_dn='+''''+ComboBox1.Text+'''';

  DataModule2.ADOQuery4.Open;              //запрос с выбором типа событий

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

end;

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

begin

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

  DataModule2.ADOQuery5.SQL.Text:='select name_type_dn from type_organaizer';                                                             //Формирование

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

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

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

  begin

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

DataModule2.ADOQuery5.Next;

  end;

MonthCalendar1.Date:=Date;                             //Инициализация календаря //текущей датой

DataModule2.ADOQuery4.Close;

  DataModule2.ADOQuery4.SQL.Text:= select id_dn, name_dn as Наименование, date_dn as Дата, time_dn as Время, name_type_dn as Тип_события  from organaizer o, type_organaizer t where o.id_type_dn=t.id_type_dn';                                  //Запроснавыборвсехзаписей

  DataModule2.ADOQuery4.Open;

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

end;

procedure TForm2.MonthCalendar1Click(Sender: TObject);          //Фильтрацияпо

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

  DataModule2.ADOQuery4.Close;                       //календарь

  DataModule2.ADOQuery4.SQL.Text:= select id_dn, name_dn as Наименование, date_dn as Дата, time_dn as Время, name_type_dn as Тип_события from organaizer o, type_organaizer t where o.id_type_dn=t.id_type_dn and date_dn='+''''+DateToStr(MonthCalendar1.Date)+'''';//Запроснавыборзаписей

  DataModule2.ADOQuery4.Open;                                 //сзаданнойдатой

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

end;

procedure TForm2.Timer1Timer(Sender: TObject);//Таймер, проверяющийчерез

begin                     //определенные промежутки времени не подошло-ли время

DataModule2.ADOQuery7.Close;                                   //какого-либо события

  DataModule2.ADOQuery7.SQL.Text:='select id_dn, name_dn, date_dn, time_dn, t.name_type_dn  from organaizer o, type_organaizer t where o.id_type_dn=t.id_type_dn and date_dn='+''''+FormatDatetime('dd.mm.yyyy',now)+''''+' and time_dn='+''''+FormatDatetime('hh:mm',now)+'''';        //Запроснавыбор

  DataModule2.ADOQuery7.Open;    //записей с текущей датой и временем

if DataModule2.ADOQuery7.Fields.Fields[1].AsString<>'' then

  begin//Проверка, если событие есть выводится

Beep;                                              //звуковой сигнал и сообщение с

Beep;                                              //названием события

ShowMessage(DataModule2.ADOQuery7.Fields.Fields[1].AsString);

  end;

end;

procedure TForm2.Width_col();                   //Процедуравыравниваниестолбцов

begin//в таблице

  form2.DBGrid1.Columns.Items[0].Visible:=false;

  form2.DBGrid1.Columns.Items[1].Width:=110;

  form2.DBGrid1.Columns.Items[2].Width:=100;

  form2.DBGrid1.Columns.Items[3].Width:=100;

  form2.DBGrid1.Columns.Items[4].Width:=100;

end;

end.

9.  org_add, форма Form7.

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

unit org_add;

interface

uses

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

  Dialogs, ComCtrls, StdCtrls, conect, Grids, DBGrids;

type

  TForm7 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;