Ошибка в коде!!!!

[курбанниязов]

s:='INSERT INTO Заказы ([Наименование]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+')';- этот кусок на наименование добавляет!!!!

s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+',
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';-На этот кусок он вообще не реагирует(

Что сделать можно будет?

[Stilet]

этот кусок на наименование добавляет!!!!

А должен куда?

На этот кусок он вообще не реагирует(

А где код выполнения запросов? Или угадывать?

[курбанниязов]

procedure TForm16.Button1Click(Sender: TObject);
var s:String;
begin
   if  (DBEdit3.Text='') then
 ShowMessage('Количество') else
  if  (DBEdit5.Text='') then
 ShowMessage('Дата') else
 if  (DBEdit6.Text='') then
 ShowMessage('Номер столика') else
 if  (DBComboBox2.Text='') then
 ShowMessage('Статус') else
   begin
    if DataModuleMenu.AdoTableZakazy.Modified then
        begin
        //s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед]) VALUES ('
+QuotedStr(dbLookUpComboBox1.Text)+', '+QuotedStr(DBEdit1.Text)+')';
          s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text)+', 
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';
        DataModuleMenu.ADOQuery1.Close;
        DataModuleMenu.ADOQuery1.SQL.Clear;
        DataModuleMenu.ADOQuery1.SQL.Add(s);
        try
        begin
          DataModuleMenu.ADOQuery1.ExecSQL;
           ShowMessage('Запись успешно сохранена!');
        end
        except
           ShowMessage('Ошибка при добавление записи!');
        end;
          DataModuleMenu.ADOTableZakazy.Active:=false;
      DataModuleMenu.ADOTableZakazy.Active:=true;
    form16.hide;
    end
    else
    form16.hide;
end;
end;

[Stilet]

Так. Ладно. представим на мгновение что я Мессинг.
Первое что мне совсем не нравится это сам запрос:

 s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text)+', 
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';

[Цена на 1 ед], [Вес/Объем] - это числовые поля? Если да то QuotedStr для них не нужно. Не смотря на преобразование, которое скорее всего сработает (что не факт), выйдив из строки ее числовое представление, я бы их не писал.
Далее:

        try
           DataModuleMenu.ADOQuery1.ExecSQL;
           ShowMessage('Запись успешно сохранена!');
        except
          on e:Exception do ShowMessage('Ошибка при добавление записи!:'+e.Message);
        end;

Т.е. опять натыкаемся на нелюбовь студентов обрабатывать ошибки, читая их текст, пусть даже он не даст ничего информативного. Видимо в современном образовании на это закрывают глаза, выпуская миллиарды "индусов"

Далее: С чего ты взял что ничего не вносится?

[курбанниязов]

Stilet


Я щас исправил в коде но никак не добавляеться данные в этом коде точто выделено жирным:
procedure TForm16.Button1Click(Sender: TObject);
var s:String;
begin
if (DBEdit3.Text='') then
ShowMessage('Количество') else
if (DBEdit5.Text='') then
ShowMessage('Дата') else
if (DBEdit6.Text='') then
ShowMessage('Номер столика') else
if (DBComboBox2.Text='') then
ShowMessage('Статус') else
begin
if DataModuleMenu.AdoTableZakazy.Modif ied then
begin
s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+', '+(DBEdit1.Text)+', '+(DBEdit2.Text)+')';
DataModuleMenu.ADOQuery1.Close;
DataModuleMenu.ADOQuery1.SQL.Clear;
DataModuleMenu.ADOQuery1.SQL.Add(s) ;
begin
DataModuleMenu.ADOQuery1.ExecSQL;
ShowMessage('Запись успешно сохранена!');
end;
DataModuleMenu.ADOTableZakazy.Activ e:=false;
DataModuleMenu.ADOTableZakazy.Activ e:=true;
form16.hide;
end
else
form16.hide;
end;
end;

[Аватар]

 if DataModuleMenu.AdoTableZakazy.Modified then

Зачем это?

[Stilet]

никак не добавляеться данные в этом коде точто выделено жирным:

Так выделенные жирным и не должны ничего добавлять.
Это просто операторы проверок, не более.
Давай по другому: Поставь точку прерывания на оператор ExecSQL - запусти программу. Когда она на нем брякнется наведи мышку на переменку s и посмотри что там написано, как выглядит сам запрос.
Далее посмотри какое из сообщений описанных у тебя в try...except выйдет.

[курбанниязов]

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

Так выделенные жирным и не должны ничего добавлять.
Это просто операторы проверок, не более.
Давай по другому: Поставь точку прерывания на оператор ExecSQL - запусти программу. Когда она на нем брякнется наведи мышку на переменку s и посмотри что там написано, как выглядит сам запрос.
Далее посмотри какое из сообщений описанных у тебя в try...except выйдет.

Можно вот эти операторы проверок добавить в Insert into
у меня просто есть 2 таблицы одна заказы второе меню и я выборочно выбираю то что нада добавить в заказ

[Аватар]

Да не доходит у ТС до ExexSQL. Modified=False и всех делов

[курбанниязов]

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

Так выделенные жирным и не должны ничего добавлять.
Это просто операторы проверок, не более.
Давай по другому: Поставь точку прерывания на оператор ExecSQL - запусти программу. Когда она на нем брякнется наведи мышку на переменку s и посмотри что там написано, как выглядит сам запрос.
Далее посмотри какое из сообщений описанных у тебя в try...except выйдет.

можно через Post эти операторы проверок добавить нужно все эти операторы тоже добавлять в таблицу как сделать правильно?



procedure TForm16.Button1Click(Sender: TObject);
var s:String;
begin
begin
s:='INSERT INTO Заказы ([Наименование], [Цена на 1 ед], [Вес/Объем]) VALUES ('+QuotedStr(dbLookUpComboBox1.Text )+',
'+QuotedStr(DBEdit1.Text)+', '+QuotedStr(DBEdit2.Text)+')';
DataModuleMenu.ADOQuery1.Close;
DataModuleMenu.ADOQuery1.SQL.Clear;
DataModuleMenu.ADOQuery1.SQL.Add(s) ;
try
begin
DataModuleMenu.ADOQuery1.ExecSQL;
ShowMessage('Запись успешно сохранена!');
end
except
ShowMessage('Ошибка при добавление записи!');
end;
DataModuleMenu.ADOTableZakazy.Activ e:=false;
DataModuleMenu.ADOTableZakazy.Activ e:=true;
form16.hide;
end
else
form16.hide;
end;
end;


Я сделал так но при добавление Итоговой Суммы, Даты и Официанта он не добавляет выдает ошибку!