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

  DataModule2.ADOQuery4.SQL.Text:='update organaizer set name_dn='+''''+Edit1.Text+''''+', date_dn='+''''+DateToStr(DateTimePicker1.Date)+''''+', time_dn='+''''+FormatDatetime('hh:mm',DateTimePicker2.Time)+''''+', id_type_dn='+''''+DataModule2.ADOQuery6.Fields.Fields[0].AsString+''''+' where id_dn='+''+DataModule2.ADOQuery4.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();                                    //Выравнивание столбцов в таблице

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

end;

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

  DateTimePicker1.Date:=Date;

  DateTimePicker2.Time:=Time;

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

ComboBox1.text:=DataModule2.ADOQuery4.Fields.Fields[4].AsString;

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

DateTimePicker1.Date:=StrToDate(DataModule2.ADOQuery4.Fields.Fields[2].AsString);

DateTimePicker2.Time:=StrToTime(DataModule2.ADOQuery4.Fields.Fields[3].AsString);

end;

end.

11.  org_del, форма Form9.

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

 

unit org_del;

interface

uses

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

  Dialogs, StdCtrls, conect;

type

  TForm9 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormActivate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form9: TForm9;

implementation

uses org_main;

{$R *.dfm}

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

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

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

end;

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

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

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

 DataModule2.ADOQuery4.SQL.Text:='delete from organaizer where id_dn='+''+form2.DBGrid1.DataSource.DataSet.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();                                    //Выравниваниестолбцоввтаблице

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

end;

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

begin           //Вводудаляемойзаписиизглавнойформывформуудаления Label2.Caption:=form2.DBGrid1.DataSource.DataSet.Fields.Fields[1].AsString;

end;

end.