Как можно вставить кнопку (Button)?

@Maikl2020 · Регистрация: 13.04.2014

Здравствуйте, наконец соединил база данных (Access 2003) на Delphi 7.
Помогите, теперь как можно добавит кнопка (Button), что добавлять и удалят строки.

@Алекcей · 10.11.2017, 10:16

добавляете на форму кнопки для добавления и удаления записей. в обработчике их нажатия вызываете процедуры (их тоже нужно написать), которые добавляют/удаляют записи.

@droider · 10.11.2017, 10:59

Сообщение от Maikl2020

соединил база данных (Access 2003) на Delphi 7

каким образом?

Добавлено через 1 минуту
Прежде чем перейти к обработчикам, ответьте на этот вопрос.

@Maikl2020 · 10.11.2017, 11:03 **[ТС]**

droider, С помощью компоненты ADOConection1, ADOQuery1, DataSource и DBGrid
Алекcей, Ну на кнопках какие коды надо написать?

@Алекcей · 10.11.2017, 11:07

В обработчике кнопки добавить запись - вызывать запрос insert ...., а удалить - delete

@droider · 10.11.2017, 11:33

Сообщение от Maikl2020

ADOQuery1

через него записи можно вставлять либо SQL запросом (INSERT...INTO...)

Delphi

1	ADOQuery1.SQL.Add('...')

, либо использовать Insert метод

Delphi

1	ADOQuery1.Insert; //режим добавления записи

и добавлять значения в нужные поля таблиц. К примеру

Delphi

1
2

ADOQuery1.FieldByName('Имя поля').AsString :=Edit1.Text; //строковое значение
ADOQuery1.FieldByName('Имя поля').AsInteger :=StrToInt(Edit2.Text);//числовое значение

и т.д.

Удалять выделенную запись просто методом Delete:

Delphi

1	ADOQuery1.Delete;

Можно тоже SQL запросом (DELETE...FROM...).

@Maikl2020 · 10.11.2017, 16:28 **[ТС]**

droider, Я добавил на Button1

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.FieldByName('Имя поля').AsString :=Edit1.Text; //строковое значение
ADOQuery1.FieldByName('Имя поля').AsInteger :=StrToInt(Edit2.Text);//числовое значение
end;
end.

но он ошибка дает на первом строчке

@Алекcей · 10.11.2017, 16:31

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
//Если редактируем запись
ADOQuery1.Edit;
//Если добавляем новую 
ADOQuery1.Append;
 
ADOQuery1.FieldByName('Имя поля').AsString :=Edit1.Text; //строковое значение
ADOQuery1.FieldByName('Имя поля').AsInteger :=StrToInt(Edit2.Text);//числовое значение
 
//Обязательно
ADOQuery1.Post;
 
end;
end.

@Maikl2020 · 10.11.2017, 16:34 **[ТС]**

Или

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
with ADOQuery1 do
begin
Insert;
ADOQuery1.FieldByName('Èìÿ ïîëÿ').AsString :=Edit1.Text; //ñòðîêîâîå çíà÷åíèå
ADOQuery1.FieldByName('Èìÿ ïîëÿ').AsInteger :=StrToInt(Edit2.Text);//÷èñëîâîå çíà÷åíèå
   end;
end;
 
end.

Добавлено через 2 минуты
Алекcей,
Ошибка на

Delphi

1	ADOQuery1.FieldByName('Имя поля').AsString :=Edit1.Text; //строковое значение

@Алекcей · 10.11.2017, 16:37

попробуйте так

Delphi

1	ADOQuery1.FieldByName('Имя поля').AsString :=QuotedStr(Edit1.Text);

но лучше текст ошибки выложите сюда

@Maikl2020 · 10.11.2017, 16:46 **[ТС]**

Алекcей, Еще ошибка на этом

Delphi

1	ADOQuery1.FieldByName('Èìÿ ïîëÿ').AsString :=QuotedStr(Edit1.Text);

@droider · 10.11.2017, 16:47

Сообщение от Алекcей

попробуйте так

излишне

@Maikl2020 · 10.11.2017, 16:48 **[ТС]**

Вот

@droider · 10.11.2017, 16:54

Maikl2020,

Delphi

 procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Insert;
with ADOQuery1 do
 begin
FieldByName('Г€Г¬Гї ГЇГ®Г«Гї').AsString :=Edit1.Text; //Г±ГІГ°Г®ГЄГ®ГўГ®ГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ
FieldByName('Г€Г¬Гї ГЇГ®Г«Гї').AsInteger :=StrToInt(Edit2.Text);//Г·ГЁГ±Г«Г®ГўГ®ГҐ Г§Г*Г*Г·ГҐГ*ГЁГҐ
 end;
end;
end.

Добавлено через 1 минуту
Maikl2020, укажите имя поля Вашей таблицы, в которое вставляете запись!

Добавлено через 3 минуты
И еще метод Insert не стоит вносить в блок with..do, т.к. компилятор воспринимает его как строковую процедуру Insert() и требует указать дополнительные параметры.

@Maikl2020 · 10.11.2017, 16:55 **[ТС]**

droider, Ошибка дает все равно

@Maikl2020 · 10.11.2017, 16:56 **[ТС]**

Сообщение от droider

требует указать дополнительные параметры.

Какие?

@Алекcей · 10.11.2017, 17:01

можете выложить сюда свой проект?

@Maikl2020 · 10.11.2017, 17:05 **[ТС]**

Алекcей, ок

@Алекcей · 10.11.2017, 17:06

сделайте так:

Delphi

1 2	ADOQuery1.FieldByName('ФИО').AsString :=Edit1.Text; //строковое значение ADOQuery1.FieldByName('Код').AsInteger :=StrToInt(Edit2.Text);//числовое значение

@Maikl2020 · 10.11.2017, 17:11 **[ТС]**

Еще один вопрос, ребята почему на Delphi 10, все политри (Standart, Additional, Win32, Ssystem,... ) нету

Добавлено через 3 минуты
Алекcей, Спасибо работал а теперь на Button2 какие коды должны для того чтобы удалил одну или несколько строк

@droider 4665 / 2652 / 832 Регистрация: 04.10.2012 Сообщений: 9,666
	10.11.2017, 16:47	12
	Сообщение от Алекcей попробуйте так излишне 0

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
	10.11.2017, 16:55 [ТС]	15
	droider, Ошибка дает все равно 0 Миниатюры

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
		1
	Как можно вставить кнопку (Button)? 10.11.2017, 10:10. Просмотров 1671. Ответов 28 Метки нет (Все метки) Здравствуйте, наконец соединил база данных (Access 2003) на Delphi 7. Помогите, теперь как можно добавит кнопка (Button), что добавлять и удалят строки. 0

@Алекcей 463 / 426 / 168 Регистрация: 11.12.2013 Сообщений: 2,270
	10.11.2017, 10:16	2
	добавляете на форму кнопки для добавления и удаления записей. в обработчике их нажатия вызываете процедуры (их тоже нужно написать), которые добавляют/удаляют записи. 0

@droider 4665 / 2652 / 832 Регистрация: 04.10.2012 Сообщений: 9,666
	10.11.2017, 10:59	3
	Сообщение от Maikl2020 соединил база данных (Access 2003) на Delphi 7 каким образом? Добавлено через 1 минуту Прежде чем перейти к обработчикам, ответьте на этот вопрос. 0

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
	10.11.2017, 11:03 [ТС]	4
	droider, С помощью компоненты ADOConection1, ADOQuery1, DataSource и DBGrid Алекcей, Ну на кнопках какие коды надо написать? 0

@Алекcей 463 / 426 / 168 Регистрация: 11.12.2013 Сообщений: 2,270
	10.11.2017, 11:07	5
	В обработчике кнопки добавить запись - вызывать запрос insert ...., а удалить - delete 0

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
	10.11.2017, 16:48 [ТС]	13
	Вот 0 Миниатюры

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
	10.11.2017, 16:56 [ТС]	16
	Сообщение от droider требует указать дополнительные параметры. Какие? 0

@Алекcей 463 / 426 / 168 Регистрация: 11.12.2013 Сообщений: 2,270
	10.11.2017, 17:01	17
	можете выложить сюда свой проект? 0

@Maikl2020 Всегда онлайн 49 / 49 / 10 Регистрация: 13.04.2014 Сообщений: 1,337
	10.11.2017, 17:11 [ТС]	20
	Еще один вопрос, ребята почему на Delphi 10, все политри (Standart, Additional, Win32, Ssystem,... ) нету Добавлено через 3 минуты Алекcей, Спасибо работал а теперь на Button2 какие коды должны для того чтобы удалил одну или несколько строк 0