VPF::Модификация записей в Access с помощью Delphi

Zerony

Дата 18.9.2010, 18:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 21.12.2008

Репутация: нет
Всего: нет

Доброго времени суток!
Задали на самостоятельное изучение тему "Как с помощью программы Delphi добавлять, удалять и редактировать записи в таблице Access".
Написала программу, следуя указаниям методички, она должна соответственно добавлять, удалять и редактировать записи.
Но возникло 2 проблемы:
- Программа не редактирует записи, только удаляет и добавляет нормально
- После нажатия кнопок "Добавить" или "Удалить" DBGrid1 на форме очищается, а этого быть не должно, нужно чтобы добавленные/удалённые/изменённые записи сразу же отображались на DBGrid1, без перезапуска программы.
Вот код:
Код:

Код


unit LAB3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); {Добавление записей}
begin
ADOQuery1.Active:=false;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таблица1');
ADOQuery1.SQL.Add('(TovarName,Price,Sklad)');
ADOQuery1.SQL.Add('VALUES("'+ Edit1.Text +'",'+Edit2.Text+','+ Edit3.Text+')');
ADOQuery1.ExecSQL;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
X:=DataSource1.DataSet.FieldByName('IDCode').AsInteger;
end;

procedure TForm1.Button2Click(Sender: TObject); {Удаление записей}
begin
ADOQuery1.Active:=false;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM Таблица1');
ADOQuery1.SQL.Add('WHERE IDCode='+ IntToStr(X));
ADOQuery1.ExecSQL;
end;

procedure TForm1.Button3Click(Sender: TObject); {Редактирование записей}
begin
ADOQuery1.Active:=false;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Таблица1');
ADOQuery1.SQL.Add('SET TovarName='+'"'+ Edit1.Text+'"'+
                                 ',Price='+Edit2.Text+
                                 ',Sklad='+Edit3.Text);
ADOQuery1.SQL.Add('WHERE IDCode='+IntToStr(X));
ADOQuery1.ExecSQL;
end;

end.

Помогите пожалуйста кто чем может!

Данкинг

Дата 18.9.2010, 19:26 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(Zerony @ 18.9.2010, 19:35

)

- Программа не редактирует записи, только удаляет и добавляет нормально

Вестимо, условие по WHERE... не выполняется.

Цитата(Zerony @ 18.9.2010, 19:35

)

- После нажатия кнопок "Добавить" или "Удалить" DBGrid1 на форме очищается,

Вестимо, датасет, с ним связанный, закрывается. В приведённом коде вообще никаких подключений к гридам не нашёл.

Это сообщение отредактировал(а) Данкинг - 18.9.2010, 19:26

--------------------

There's nothing left but silent epitaphs.

superVad

Дата 19.9.2010, 11:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 3
Всего: 15

Zerony, не вижу где происходит подключение к базе и открытие датасета который в гриде отображается.

Зачем это:

Код


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
X:=DataSource1.DataSet.FieldByName('IDCode').AsInteger;
end;

Разве нельзя, когда тебе понадобится IDCode - просто взять его из датасета? Я так понял, что Данкинг это и имел ввиду, что в Х не всегда будет значение.

Что бы в датасете отображались изменения сразу без его переоткрытия - надо юзать методы датасета.

Код


ADODataSet1.Append; //добавить запись
ADODataSet1.FieldByName('IDCode').AsInteger:=присвоить что то;

ADODataSet1.Delete;//удалить

ADODataSet1.Edit;//редактировать
ADODataSet1.FieldByName('IDCode').AsInteger:=присвоить что то;

Если хочешь оставить так как есть - то переоткрывай датасет после каждого изменения - ато откуда ему знать, что другой запрос изменил данные.

Да и оформь код тегами - красивше будет.

Это сообщение отредактировал(а) superVad - 19.9.2010, 12:00

Akella

Дата 19.9.2010, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Zerony, ты ж не первый год на форме
Внимательно прочти закреплённые темы: http://forum.vingrad.ru/forum/Vingrad-help-center.html

Добавлено через 16 секунд
и отредактируй своё сообщение

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »