Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2009, 20:24   #1
ImmortalAlexSan
Участник клуба
 
Аватар для ImmortalAlexSan
 
Регистрация: 13.01.2009
Сообщений: 1,353
Восклицание Делфи Базы Данных

Уважаемые программисты! Помоги пожалуйста срочно! Завтра сдавать программу, а она не до конца готова! Думал, что справлюсь, оказывается не совсем так... Вот код программы:

procedure TForm3.Button2Click(Sender: TObject);
begin
if DBLookupComboboxEh1.Text='' then showmessage('Ошибкаí!') else
begin
if Button2.Caption='Добавить' then
begin
ZQuery1.SQL.Text:='Insert into izdels (izdel_id,izdel_name,izdel_info) values (''+ZReadOnlyQuery1izdel_id.AsStrin g+'','''+edit2.Text+''','''+edit3.T ext+''')';
ZQuery1.ExecSQL;
Form1.ZQuery1.Refresh;
end else
begin
ZQuery1.SQL.Text:='Update izdels set izdel_id=''+ZReadOnlyQuery1id_kaf.A sString+'',izdel_name='''+edit2.tex t+''',izdel_info='''+edit3.text+''' ;
ZQuery1.ExecSQL;
Form1.ZQuery1.Refresh;
end;
close();
end;
end;

end.

В данном случае конкретно интересует, как правильно записать вот эту строку:ZQuery1.SQL.Text:='Insert into izdels (izdel_id,izdel_name,izdel_info) values (''+ZReadOnlyQuery1izdel_id.AsStrin g+'','''+edit2.Text+''','''+edit3.T ext+''')';
и эту: ZQuery1.SQL.Text:='Update izdels set izdel_id=''+ZReadOnlyQuery1id_kaf.A sString+'',izdel_name='''+edit2.tex t+''',izdel_info='''+edit3.text+''' ;
Возникнут вопросы отвечу легко, пока не знаю, что надо пояснить...
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
ImmortalAlexSan вне форума Ответить с цитированием
Старый 29.12.2009, 22:34   #2
fbus
Форумчанин
 
Аватар для fbus
 
Регистрация: 23.10.2008
Сообщений: 460
По умолчанию

ZQuery1.SQL.Text:='Insert into izdels (izdel_id,izdel_name,izdel_info) values ('"+ZReadOnlyQuery1izdel_id.AsStrin g+'", "'+edit2.Text+'","'+edit3.Text+'")' ;

ZQuery1.SQL.Text:='Update izdels set izdel_id='"+ZReadOnlyQuery1id_kaf.A sString+''',izdel_name="'+edit2.tex t+'",izdel_info="'+edit3.text+'" ;
fbus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проверка базы данных на корректность веденных данных samouelson БД в Delphi 1 20.12.2009 17:23
Кто сможет помоч написать прогу на паскале или делфи на тему базы данных "Зоопарк" DeluxeSan Помощь студентам 6 08.12.2009 19:32
Базы данных Valera Помощь студентам 1 13.08.2008 10:38
базы данных Gromsky Помощь студентам 2 03.03.2008 15:45