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

    Label4: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    DateTimePicker1: TDateTimePicker;

    ComboBox1: TComboBox;

    DateTimePicker2: TDateTimePicker;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form7: TForm7;

implementation

uses org_main;

{$R *.dfm}

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

begin                                         //при нажатии на нее производится добавление

//введенной в поля формы информации

  DataModule2.ADOQuery6.Close;

  DataModule2.ADOQuery6.SQL.Text:='select id_type_dn, name_type_dn from type_organaizer where name_type_dn='+''''+ComboBox1.Text+''''; //Получение

  DataModule2.ADOQuery6.Open;              // id,  выбранногов ComboBox типа

  DataModule2.ADOQuery4.SQL.Text:='insert into organaizer (name_dn, date_dn, time_dn, id_type_dn) values ('+''''+Edit1.Text+''''+','+''''+DateToStr(DateTimePicker1.Date)+''''+','+''''+FormatDatetime('hh:mm',DateTimePicker2.Time)+''''+','+''''+DataModule2.ADOQuery6.Fields.Fields[0].AsString+''''+')';                                       //Добавлениезаписи

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

  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;                                 //Обновлениезапроса

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

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

end;

procedure TForm7.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;

  ComboBox1.ItemIndex:=0;                        //Вводтипа, текущейдаты,

  DateTimePicker1.Date:=Date;                   //текущего времени по умолчанию в

  DateTimePicker2.Time:=Time;                  //формудобавления

end;

end.

10.  org_upd, форма Form8.

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

unit org_upd;

interface

uses

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

  Dialogs, ComCtrls, StdCtrls, conect;

type

  TForm8 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    Button1: TButton;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    procedure FormActivate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form8: TForm8;

implementation

uses org_main;

{$R *.dfm}

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

begin                                         //при нажатии на нее производится изменение

//введенные в поля формы информации

  DataModule2.ADOQuery6.Close;

  DataModule2.ADOQuery6.SQL.Text:='select id_type_dn, name_type_dn from type_organaizer where name_type_dn='+''''+ComboBox1.Text+'''';          //Получение

  DataModule2.ADOQuery6.Open;              // id,  выбранногов ComboBox типа