N
🙈
Size: a a a
2020 February 29
N
скажи честно, что тебе просто лень или сложно это сделать, это будет понятно
мастер-класс покажешь?
AK
неа. 1 - мне тема неинтересна. 2 - я устал сегодня. 3 - у меня другая задача висит
N
неа. 1 - мне тема неинтересна. 2 - я устал сегодня. 3 - у меня другая задача висит
тогда схренали ты меня на слабо разводишь на лазарусе писать?
AK
не развожу :) но тыж не указал, что лазарь не подходит, вот я и предложил одну из альтернатив
AS
DM2.pFIBDataSet2.SQLs.SelectSQL.Clear;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
Нет, не всё.
Именовал компоненты плохо :)
И для запросов лучше использовать параметры, а не джойнитб строки со значением переменного характера
Именовал компоненты плохо :)
И для запросов лучше использовать параметры, а не джойнитб строки со значением переменного характера
AS
DM2.pFIBDataSet2.SQLs.SelectSQL.Clear;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
А, ещё j_status = 2 - магическое число
AE
мне лично так удобнее в одну строку .Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
AS
мне лично так удобнее в одну строку .Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
Плохо 😁
AS
мне лично так удобнее в одну строку .Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
Ни фига непонятно из этого кода :)
Лишняя когнитивная нагрузка
Лишняя когнитивная нагрузка
AE
хм, так по мне все проще уже некуда.
AS
DM2.pFIBDataSet2.SQLs.SelectSQL.Clear;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
DM2.pFIBDataSet2.SQLs.SelectSQL.BeginUpdate;
DM2.pFIBDataSet2.SQLs.SelectSQL.Append('UPDATE job SET job.j_status = 2 WHERE job.auto ='+var_tmp);
DM2.pFIBDataSet2.SQLs.SelectSQL.EndUpdate;
DM2.pFIBDataSet2.Active := true;
DM2.pFIBTransaction2.Commit;
Кроме того, я не вижу тут смысла в beginupdate-endupdate, которые к тому же используются без try-finally.. :)
И transaction commit тут тоже , либо вне контекста нормального, либо лишний для данного примера :)
И transaction commit тут тоже , либо вне контекста нормального, либо лишний для данного примера :)
AS
хм, так по мне все проще уже некуда.
В этом и беда :)
Что такое j_status=2? Хз
Что такое var_tmp? Да хз...
Что такое j_status=2? Хз
Что такое var_tmp? Да хз...
AS
Код должен ЧИТАТЬСЯ, как книга
AE
ок. понял.
AE
SelectSQL.BeginUpdate; SelectSQL.EndUpdate; - Убрал совсем, код нормально сработал как надо.
AE
DM2.pFIBTransaction2.Active;
DM2.pFIBTransaction2.Commit;
это у меня вручную управляется транзакция. без этого изменение данных в базу не фиксируется.
DM2.pFIBTransaction2.Commit;
это у меня вручную управляется транзакция. без этого изменение данных в базу не фиксируется.
DB
Добрый вечер! Есть способ поменять ширину и высоту image програмно?
Stretch у картинки делаешь true, и меняешь размер
DB
Качество правда будет не очень
DB
В jcl есть хорошая стретчилка