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

type

  TForm10 = class(TForm)

    Button1: TButton;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    Label2: TLabel;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);      //Кнопка «Закрыть»

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

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

end;

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

begin

  DataModule2.ADOQuery4.Close;             

  DataModule2.ADOQuery4.SQL.Text:='select id_dn, name_dn, time_dn, 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)+''''; //Запроснавыбор

  DataModule2.ADOQuery4.Open;                        //событийтекущейдаты

  if DataModule2.ADOQuery4.Fields.Fields[0].AsString='' then

    DBGrid1.Visible:=false;                           //Проверка, если событий нет

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

  form10.DBGrid1.Columns.Items[1].Width:=100;

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

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

  Label2.Caption:=Form10.Caption+FormatDatetime(' dd mmmm yyyy г.',now);

end;                                                                                  //Вывод текущей даты

end.

8.  org_main, форма Form2.

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

unit org_main;

interface

uses

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

  Dialogs, ComCtrls, DBCGrids, ExtCtrls, conect, Grids, DBGrids, StdCtrls, org_add, org_upd, org_del;

type

  TForm2 = class(TForm)

    MonthCalendar1: TMonthCalendar;

    Timer1: TTimer;

    DBGrid1: TDBGrid;

    Button1: TButton;

    Label1: TLabel;

    ComboBox1: TComboBox;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Width_col();

    procedure FormActivate(Sender: TObject);

    procedure MonthCalendar1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses DB;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);        //Кнопка «Закрыть»

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

DataModule2.ADOQuery4.Close;                                 //выводятся все записи

DataModule2.ADOQuery4.SQL.Text:='selectid_dn, name_dnasНаименование, date_dnasДата, time_dnasВремя, t.name_type_dnasТип_записи fromorganaizero, type_organaizertwhereo.id_type_dn=t.id_type_dn';

DataModule2.ADOQuery4.Open;                        //Запрос на выбор всех записей

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

end;

procedure TForm2.Button2Click(Sender: TObject);        //Кнопка «Добавить»

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

Form7.Show;                                                       //форма добавления событий

end;

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

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

Form8.Show;                                                       //форма изменения событий

end;

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

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

Beep;

Form9.Show;                                                         //формаудалениясобытий

end;

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

begin//список фильтрации по типу