Удаление, изменение, добавление строк в DBGrid

@Luckas147 · Регистрация: 20.05.2012

Студворк — интернет-сервис помощи студентам

Всем здравствуйте!!!
Помогите разобраться

Дано: Форма с DBGrid которая отображает одну из четырех таблиц из базы данных Access с помощью RadioButton1-4
Нужно:
1. При нажатии кнопки Удалить удалялась выделенная строка таблицы которая открыта Radio Buttonом
2. При нажатии кнопки Добавить добавлялась строка в ту таблицу которая открыта Radio Buttonом
3. При нажатии кнопки Изменить вылазила форма где бы показывались старые данные выделенной строки таблицы(которая открыта Radio Buttonом) в Editах, где тут можно было их изменить и записать обратно
Количество столбцов в таблицах разное(

Добавлено через 2 часа 9 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm2::Button1Click(TObject *Sender)
{
ADOQuery1->Active=false;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("INSERT INTO Êëèåíòû (ÔÈÎ, Ïàñïîðòíûå äàííûå, ¹ äîãîâîðà, Óñëîâèÿ çàêàçà, Ñóììà çàêàçà) VALUES (:ÔÈÎ, :Ïàñïîðòíûå äàííûå, :¹ äîãîâîðà, :Óñëîâèÿ çàêàçà, :Ñóììà çàêàçà");
ADOQuery1->Parameters->ParamByName("ÔÈÎ")->Value=Edit1->Text;
ADOQuery1->Parameters->ParamByName("Ïàñïîðòíûå äàííûå")->Value=Edit2->Text;
ADOQuery1->Parameters->ParamByName("¹ äîãîâîðà")->Value=StrToInt(Edit3->Text);
ADOQuery1->Parameters->ParamByName("Óñëîâèÿ çàêàçà")->Value=Edit4->Text;
ADOQuery1->Parameters->ParamByName("Ñóììà çàêàçà")->Value=StrToInt(Edit5->Text);
ADOQuery1->ExecSQL();
Close();
}

Это кнопка добавить но почему-то пишет проблемы с подключением (Параметр Паспортные данные - не найден)

@Bit_Man · 22.05.2012, 05:48

А если так

C++
1
:Паспортные_данные

?! или обратись по индексу

@Luckas147 · 22.05.2012, 05:51 **[ТС]**

Вот сама программа на всякий пожарный

@Luckas147 · 22.05.2012, 06:05 **[ТС]**

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

А если так

C++
1
:Паспортные_данные

?! или обратись по индексу

заработало, но другие 2 вопроса тоже надо решить

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm2::Button1Click(TObject *Sender)
{
ADOQuery1->Active=false;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("INSERT INTO Êëèåíòû ([ÔÈÎ],[Ïàñïîðòíûå_äàííûå] ,[¹_äîãîâîðà] ,[Óñëîâèÿ_çàêàçà] ,[Ñóììà_çàêàçà]) VALUES (:ÔÈÎ, :Ïàñïîðòíûå_äàííûå, :¹_äîãîâîðà, :Óñëîâèÿ_çàêàçà, :Ñóììà_çàêàçà");
ADOQuery1->Parameters->ParamByName("ÔÈÎ")->Value=Edit1->Text;
ADOQuery1->Parameters->ParamByName("Ïàñïîðòíûå_äàííûå")->Value=Edit2->Text;
ADOQuery1->Parameters->ParamByName("¹_äîãîâîðà")->Value=StrToInt(Edit3->Text);
ADOQuery1->Parameters->ParamByName("Óñëîâèÿ_çàêàçà")->Value=Edit4->Text;
ADOQuery1->Parameters->ParamByName("Ñóììà_çàêàçà")->Value=StrToInt(Edit5->Text);
ADOQuery1->ExecSQL();
Close();
}

щас выдает синтаксическая ошибка insert INTO

@Bit_Man · 22.05.2012, 06:22

Посмотрел твой проект.

Новичок в программировании?! И так для начала. У тебя же одна база - одна! зачем тебе 2 ADOConnection в Unit2. Сделай лучше DataModule и туда его. На Form1 вместо GroupBox лучше RadioGroup, оставь одинт ADOQuery1 остальные лишние. В Form2 в Edit'ах просто данные ADOQuery1 из Form1, а записать можно и ADOQuery2(например) в DataModule

Добавлено через 2 минуты
наименование полей и параметров разные вещи!

@Luckas147 · 22.05.2012, 16:25 **[ТС]**

Посмотрел твой проект.

Новичок в программировании?! И так для начала. У тебя же одна база - одна! зачем тебе 2 ADOConnection в Unit2. Сделай лучше DataModule и туда его. На Form1 вместо GroupBox лучше RadioGroup, оставь одинт ADOQuery1 остальные лишние. В Form2 в Edit'ах просто данные ADOQuery1 из Form1, а записать можно и ADOQuery2(например) в DataModule

А где расположен DataModule?

Добавлено через 4 минуты
Разобрался в чем причина
нужно было убрать _ в Insert Into
теперь выдает DataType mismatch

Добавлено через 9 часов 50 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm2::Button1Click(TObject *Sender)
{
DataModule1->ADOQuery1->Active=false;
DataModule1->ADOQuery1->SQL->Clear();
DataModule1->ADOQuery1->SQL->Add("INSERT INTO Êëèåíòû ([ÔÈÎ],[Ïàñïîðòíûå äàííûå] ,[¹ äîãîâîðà] ,[Óñëîâèÿ çàêàçà] ,[Ñóììà çàêàçà]) VALUES (:ÔÈÎ, :Ïàñïîðòíûå_äàííûå, :¹_äîãîâîðà, :Óñëîâèÿ_çàêàçà, :Ñóììà_çàêàçà)");
DataModule1->ADOQuery1->Parameters->ParamByName("ÔÈÎ")->Value=Edit1->Text;
DataModule1->ADOQuery1->Parameters->ParamByName("Ïàñïîðòíûå_äàííûå")->Value=Edit2->Text;
DataModule1->ADOQuery1->Parameters->ParamByName("¹_äîãîâîðà")->Value=StrToInt(Edit3->Text);
DataModule1->ADOQuery1->Parameters->ParamByName("Óñëîâèÿ_çàêàçà")->Value=Edit4->Text;
DataModule1->ADOQuery1->Parameters->ParamByName("Ñóììà_çàêàçà")->Value=StrToInt(Edit5->Text);
DataModule1->ADOQuery1->ExecSQL();
Close();
}

Переделал с обращение к DataModule1 выдает Datatype Mismatch

@Sasha · 22.05.2012, 16:36

Ну думаю 4 сутки сидеть не будешь

@Luckas147 · 22.05.2012, 16:53 **[ТС]**

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

Ну думаю 4 сутки сидеть не будешь

спс огромное вам.

Добавлено через 3 минуты
я разобрался у меня в базе данных не те типы стояли(
теперь нормально добавляет, но почему то сразу не обновляет
пробовал код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(RadioButton1->Checked){
Form2->Show();
DataModule1->ADOQuery1->Close();
DataModule1->ADOQuery1->SQL->Clear();
DataModule1->ADOQuery1->SQL->Text="select * from Клиенты";
DataModule1->ADOQuery1->Open();
}
if(RadioButton2->Checked){
Form3->Show();
}
if(RadioButton3->Checked){
Form4->Show();
}
if(RadioButton4->Checked){
Form5->Show();
}
}

@Sasha · 22.05.2012, 17:01

У меня всё обновляло после добавления

@Luckas147 · 22.05.2012, 17:08 **[ТС]**

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

У меня всё обновляло после добавления

А да вижу ссори, не сразу посмотрел

Добавлено через 5 минут
Я еще пытался ваш код удаления туда присобачить.
Не могли бы вы мне объяснить как блондинке как это сделать в моем случае

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
void TForm1::DelString()
{
       if(DBGrid1->SelectedRows->Count == 0)
       {
         AnsiString ert = "\t\t\tНе выделена ни одна строка в базе!!!!!!!!\n\nДля удаления строки в базе, выберите необходимую строку левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля удаления нескольких строк из базы, зажмите клавишу Ctrl на клавиатуре и выберите необходимые строки для удаления левой кнопкой мыши, а затем нажмите на кнопку УДАЛИТЬ ДАННЫЕ\n\nДля снятия выделения строк используйте клавишу Esc";
         if (Application->MessageBox(ert.c_str(),"Предупреждение",MB_OK +MB_TOPMOST+ MB_ICONEXCLAMATION)==IDOK)
         {
           return;
         }
       }
 
         if(DBGrid1->SelectedRows->Count > 0)
         {
          ADOQuery1->DisableControls();
          TStringList *dwe = new TStringList();
          dwe->Clear();
          int curItem = ADOQuery1->RecNo;
           if(DBGrid1->SelectedRows->Count == 1)
          {
            AnsiString ds = "Вы деиствительно хотите удалить выбранную строку? \n\n" + IntToStr(ADOQuery1->FieldByName("ФИО")->AsInteger)+" - "+ADOQuery1->FieldByName("Паспортные_данные")->AsString+" - "+ADOQuery1->FieldByName("№_догорора")->AsString+" - "+ADOQuery1->FieldByName("Условия_заказа")->AsString+" - "+ADOQuery1->FieldByName("Сумма_заказа")->AsString;
             if (Application->MessageBox(ds.c_str(),"Подтверждение удаления строки из базы данных",MB_YESNO +MB_TOPMOST+ MB_ICONQUESTION)!=IDYES)
            {
              DBGrid1->SelectedRows->Clear();
              ADOQuery1->EnableControls();
              delete dwe;
              dwe = NULL;
              return;
            }
          }
 
 
                 ADOQuery1->First();
 
                 while(!ADOQuery1->Eof)
                {
                   if(DBGrid1->SelectedRows->CurrentRowSelected)
                  {
                   dwe->Add(IntToStr(ADOQuery1->FieldByName("id")->AsInteger));
                  }
                   ADOQuery1->Next();
                }
 
                    AnsiString asd = StringReplace(dwe->Text,"\r\n"," ",TReplaceFlags()<<rfReplaceAll);
                    asd = StringReplace(asd.Trim()," ",",",TReplaceFlags()<<rfReplaceAll);
 
                     ADOQuery1->Close();
                     ADOQuery1->SQL->Clear();
                     ADOQuery1->SQL->Text = "DELETE FROM Клиенты WHERE id IN ("+asd+")";
                     ADOQuery1->ExecSQL();
                     DBGrid1->SelectedRows->Clear();
 
                    if(ADOQuery1->RecordCount > 0)
                  {
                    if(curItem > ADOQuery1->RecordCount)
                   {
                     ADOQuery1->Last();
                   }
                    else
                   {
                    ADOQuery1->RecNo = curItem;
                   }
                  }
 
 
 
 
          ADOQuery1->EnableControls();
          delete dwe;
          dwe = NULL;
     }
 
 
}

И я поеду наконец уже это блондинке объяснять)

@Luckas147 · 22.05.2012, 20:05 **[ТС]**

Вы как-то хитро сделали обновления после добавления строки. Почему-то пока не настроешь ADO из Form2 на Form1 база данных в DBGrid1 вообще не появляется( Пытаюсь сделать тоже самое что сделали вы но уже для RadioButon2 ничего не получается(

@Sasha · 22.05.2012, 20:33

Так, а что тебе конкретно надо?

@Luckas147 · 22.05.2012, 20:40 **[ТС]**

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

Так, а что тебе конкретно надо?

я хочу чтобы обновлялось после добавления и во вторую таблицу (Заказы), тока объясните плиз как это делается. Мне это еще для двух таблиц надо самому сделать.
И еще ваш код удаления для выделенной строки)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	22.05.2012, 06:22
	Посмотрел твой проект. Новичок в программировании?! И так для начала. У тебя же одна база - одна! зачем тебе 2 ADOConnection в Unit2. Сделай лучше DataModule и туда его. На Form1 вместо GroupBox лучше RadioGroup, оставь одинт ADOQuery1 остальные лишние. В Form2 в Edit'ах просто данные ADOQuery1 из Form1, а записать можно и ADOQuery2(например) в DataModule Добавлено через 2 минуты наименование полей и параметров разные вещи! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	22.05.2012, 17:01
	У меня всё обновляло после добавления 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	22.05.2012, 20:33
	Так, а что тебе конкретно надо? 0