Уроки SQL с новичка до профессионала. Базы данных, ORACLE, MySQL, MS SQL Server. Уроки программирования. Microsoft Excel, уроки Эксель. Delphi. Записаться на курс "SQL. Базы данных. ORACLE. MS SQL Server. MySQL" можно тут: prime-soft.biz/courses/sql А здесь можно купить одноименную книгу самоучитель по SQL: prime-soft.biz/pay/201 Ссылка на книгу в Google Play: play.google.com/store/books/details?id=MLSREAAAQBAJ Курс программирования в PL/SQL (ORACLE): prime-soft.biz/courses/plsql
HAVING может спокойно применяться без GROUP BY и работать с алиасами полей, другими словами HAVING просто может фильтровать набор который уже отработал запрос
Добрый день! Скажите, пожалуйста, у Вас Windows или Mac? Для Windows: prime-soft.biz/files/scanner-client.zip Если нужна версия на Mac, напишите нам, пожалуйста на support@prime-soft.biz Пришлём ссылку.
Спасибо. А почему в примере с test_a и test_b дополнено условие where b.id is null ? Это совсем не понятно. Ведь левый джойн должен отработать без этого странного условия...🤯
Здравствуйте, получилось такое решение: implementation {$R *.dfm} procedure TForm1.bPoiskClick(Sender: TObject); var s,sfr:string; k,i:integer; begin sfr:=eNomer.Text; for k := 1 to mSpisok.Lines.Count do begin s:= mSpisok.Lines.Strings[k-1]; i:=Pos(sfr,s); if i>0 then mRez.Lines.Add(s); end; end; procedure TForm1.bUdalClick(Sender: TObject); begin mRez.Clear; eNomer.Clear; eNomer.SetFocus; end; end.
извините, я может глупый или что. смотрите значит есть стоимость 100, а налог допустим 20. нажимаем на "не включая налог" и нам выодит 120. разве не должно быть наоборот?
не коннектится по wifi: ставлю галку на вайвай, соединение - пишет "Не могу найти Pin. Обратитесь в поддержку... " и второй вопрос: периодически запущенное приложение на ноуте (win10) как бы засыпает, майфун перестаёт видеть подключение к десктопу. ни активировать, ни разбудить не удаётся, а закрыть можно только через диспетчер задач, чтоб запустить заново. подскажете, как побороть это? приложение очень нужное, спасибо вам!!
Бляяя что так много воды??? 1. Зачем писать id_client, когда можно client_id, тем более что уже был пример с бд 2. В наименовании столбцов и таблиц обычно используют snake-case, т.к. при автоматическом вызове название таблиц или столбцов бд может все прописать в одном регистре и тут уже camalCase в пролете 3. Все это можно было бы уместить в 10 минутный ролик, зачем так усложнять 🤔 4. Всего лишь по 2 части из разных уроков, а где остальное?
Добрый день. Спасибо за крутое приложение. Прошу подсказать, возможна ли реализация дополнительного функционала? Интересует хранение товара по уже созданным ячейкам. Поступает товар для хранения. Первым делом необходимо отсканировать в приложении ШК ячейки, программа произведет поиск ее в excel файле и уже в соседнюю добавит ШК товара и количество. При выимке товара, произвести те же действия только при вводе количества товара добавлять знак «-» отминусовывая таким образом количество хранящееся в конкретной ячейке. Если в данной ячейке, при добавлении товара, уже числиться определенный товар, то добавить новую строку, в этой же ячейке и записать дополнительно строку с товаром и количеством. И еще вопрос, можно ли реализовать функционал программы при работе с Гугл таблицей без постоянной активации окна? Что бы программно привязать приложение к адресу таблице и работать на компьютере при этом с другими задачами? Заранее спасибо.
Здравствуйте! Спасибо Вам за внимание к нашему приложению и интересный вопрос! Конечно всё можно сделать! Не могли бы написать нам на почту support@prime-soft.biz пожалуйста? Согласуем детали и всё реализуем!
Вопрос знатокам. Так работает. procedure TForm2.Button1Click(Sender: TObject); var a : integer; begin a := Pos(Edit1.Text, Memo1.Lines.Text); if a = 0 then begin ShowMessage('Текст не найден!'); end else begin ShowMessage('Текст найден!'); Memo1.SetFocus; Memo1.SelStart := a - 1; Memo1.SelLength := Length(Edit1.Text); end; end; end. а так уже не работает procedure TForm2.Button1Click(Sender: TObject); var a : integer; begin a := Pos(Edit1.Text, Memo1.Lines.Text); if a = 1 then begin ShowMessage('Текст найден!'); Memo1.SetFocus; Memo1.SelStart := a - 1; Memo1.SelLength := Length(Edit1.Text); end else begin ShowMessage('Текст не найден!'); end; end; end. В чём тут хитрость?