![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Участник клуба
Регистрация: 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+''' ; Возникнут вопросы отвечу легко, пока не знаю, что надо пояснить...
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
![]() |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 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+'" ; |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проверка базы данных на корректность веденных данных | 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 |