1

(9 replies, posted in Russian)

k245 wrote:
6katran6 wrote:

как описать точней проблему не работает поиск не могу понять если не сложно приведите пример пару а дальше сам по пробую допилить

Нужно записать корректный запрос на языке SQL.

SELECT <что> FROM <откуда> WHERE <по условию>

простите но можете пример показать я не могу понять что не так он все равно не ищет

2

(9 replies, posted in Russian)

k245 wrote:
SELECT *
FROM "rabnar"
WHERE
   (kol LIKE '%{Edit1}%') 
OR (koef LIKE '%{Edit1}%')
OR (user_name LIKE '%{Edit1}%')  
OR (user_fomiliya  LIKE '%{Edit1}%') 
OR (user_patronymic LIKE '%{Edit1}%') 
OR (user_position LIKE '%{Edit1}%') 
OR (user_full LIKE '%{Edit1}%') 
OR (key LIKE '%{Edit1}%') 
OR (key1 LIKE '%{Edit1}%') 
OR (key2 LIKE '%{Edit1}%') 
OR (key3 LIKE '%{Edit1}%') 
OR (key4 LIKE '%{Edit1}%') 
OR (key5 LIKE '%{Edit1}%') 
OR (key6 LIKE '%{Edit1}%') 
OR (key7 LIKE '%{Edit1}%') 
OR (key8 LIKE '%{Edit1}%') 
OR (key9 LIKE '%{Edit1}%') 
OR (kol LIKE  '%{Edit1}%') 
OR (kol-1 LIKE '%{Edit1}%') 
OR (kol-2 LIKE '%{Edit1}%') 
OR (kol-3 LIKE '%{Edit1}%') 
OR (kol-4 LIKE '%{Edit1}%') 
OR (kol-5 LIKE '%{Edit1}%') 
OR (kol-6 LIKE '%{Edit1}%') 
OR (kol-7 LIKE '%{Edit1}%') 
OR (kol-8 LIKE '%{Edit1}%') 
OR (kol-9 LIKE '%{Edit1}%') 
OR (kol-10 LIKE '%{Edit1}%') 
OR (kol-11 LIKE '%{Edit1}%') 
OR (kol-12 LIKE '%{Edit1}%') 
OR (kol-13 LIKE '%{Edit1}%') 
OR (kol-14 LIKE '%{Edit1}%') 
OR (kol-15 LIKE '%{Edit1}%') 
OR (kol-16 LIKE '%{Edit1}%') 
OR (kol-17 LIKE '%{Edit1}%') 
OR (kol-18 LIKE '%{Edit1}%') 
OR (kol-19 LIKE '%{Edit1}%') 
OR (kol-20 LIKE '%{Edit1}%') 
OR (kol-21 LIKE '%{Edit1}%') 
OR (kol-22 LIKE '%{Edit1}%') 
OR (kol-23 LIKE '%{Edit1}%') 
OR (kol-24 LIKE '%{Edit1}%') 
OR (tab LIKE   '%{Edit1}%') 
OR (tab-1 LIKE '%{Edit1}%') 
OR (tab-2 LIKE '%{Edit1}%') 
OR (tab-3 LIKE '%{Edit1}%') 
OR (tab-4 LIKE '%{Edit1}%') 
OR (tab-5 LIKE '%{Edit1}%') 
OR (tab-6 LIKE '%{Edit1}%') 
OR (tab-7 LIKE '%{Edit1}%') 
OR (tab-8 LIKE '%{Edit1}%') 
OR (tab-9 LIKE '%{Edit1}%') 
OR (tab-10 LIKE '%{Edit1}%') 
OR (tab-11 LIKE '%{Edit1}%') 
OR (tab-12 LIKE '%{Edit1}%') 
OR (tab-13 LIKE '%{Edit1}%') 
OR (tab-14 LIKE '%{Edit1}%') 
OR (tab-15 LIKE '%{Edit1}%') 
OR (koef LIKE   '%{Edit1}%') 
OR (koef-1 LIKE '%{Edit1}%') 
OR (koef-2 LIKE '%{Edit1}%') 
OR (koef-3 LIKE '%{Edit1}%') 
OR (koef-4 LIKE '%{Edit1}%') 
OR (koef-5 LIKE '%{Edit1}%') 
OR (koef-6 LIKE '%{Edit1}%') 
OR (koef-7 LIKE '%{Edit1}%') 
OR (koef-8 LIKE '%{Edit1}%') 
OR (koef-9 LIKE '%{Edit1}%') 
OR (RustID LIKE '%{Edit1}%') 
OR (Rustpass LIKE '%{Edit1}%') 
OR (AnyDesk LIKE '%{Edit1}%') 

А здесь нужно заголовки для таблицы указать:

https://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=10331&amp;download=0

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

3

(9 replies, posted in Russian)

как описать точней проблему не работает поиск не могу понять если не сложно приведите пример пару а дальше сам по пробую допилить

4

(9 replies, posted in Russian)

не кто не может помочь ? с проблемой

5

(9 replies, posted in Russian)

в общем такая проблема не могу сделать поиск по комплектующим и там еще есть поле где ставится дата когда товар был приобретен не сохраняет данные тоже спасибо за понимания и помощь заранее благодарен...

6

(5 replies, posted in Russian)

так я только за решить за деньги проблему )))

7

(5 replies, posted in Russian)

я бы не хотел свой проект выкладывать вот и разработчику пишу

8

(5 replies, posted in Russian)

добрый день пишу на почту support@drive-software.com нужна ваша помощь в  решение проблемы а ответа нет

9

(2 replies, posted in Russian)

спасибо все работает

10

(2 replies, posted in Russian)

подскажите что может быть должно быть так при запуске программы должен открыться powershell и запустить скрипт но он не открывается

если просто запусть скрипт powershell то все работает ..

procedure Form1_OnClose (Sender: TObject; Action: string);
begin

  OpenFile('powershell:''C:\Users\'+GetUserName+'\Desktop\проект\Copy.ps1');

end;

вот код Copy.ps1 powershell

function Get-WindowsKey {



Copy-Item -Path "C:\Documents and Settings\user\Desktop\проект.exe" -Destination "C:\disk\"

$WshShell = New-Object -comObject WScript.Shell
$Shortcut = $WshShell.CreateShortcut("$Home\Desktop\проект.lnk")
$Shortcut.TargetPath = "C:\disk\проект.exe"
$Shortcut.Save()


   }
Get-WindowsKey

11

(11 replies, posted in Russian)

такой вопрос а можно вместо цвета  что бы текст становился жирным ?

12

(11 replies, posted in Russian)

огромное спасибо работает

13

(11 replies, posted in Russian)

в таком виде все ячейки подсвечены даже когда меняешь да или нет все равно тоже самое

begin
     c := Form1.TableGrid1.RowCount -1;
     for i := 0 to c do  // вычисляет разбиение каждого значения на указанную выше сумму
begin
          if Form1.TableGrid1.Cells[8,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color :=  $00E3F2F2
             else
          if Form1.TableGrid1.Cells[8,i] = ' ' then Form1.TableGrid1.Cell[0,i].Color := clGradientActiveCaption;
     end;
end;

14

(11 replies, posted in Russian)

так вроде ошибки нет но не подсвечивает цветом

begin
     z := Form1.TableGrid1.RowCount - 1;
     for i := 0 to z do
begin
         if Form1.TableGrid1.Cells[8,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color := $F0CAA6
          else if Form1.TableGrid1.Cells[8,i] = '' then Form1.TableGrid1.Cell[0,i].Color := $00E3F2F2;
     end;
end;

если так то ошибка

begin
     z := Form1.TableGrid1.RowCount - 1;
     for i := 0 to z do
begin
         if Form1.TableGrid1.Cells[10,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color := $F0CAA6
          else if Form1.TableGrid1.Cells[10,i] = '' then Form1.TableGrid1.Cell[0,i].Color := $00E3F2F2;
     end;
end;

15

(11 replies, posted in Russian)

https://i.postimg.cc/85tLZRTC/image.jpg

правильно 9 колонок

помогите в чем может быть стала ошибка вылетать такая https://i.postimg.cc/3NkG2KZS/image.jpg

ссылается на код 

  Timer.OnTimer := @OnTimer; 

procedure OnTimer;
begin
     Form1.Label2.Caption := FormatDateTime('c', Now);
end;

вставил код и за чего начала выскакивать

begin
     z := Form1.TableGrid1.RowCount - 1;
     for i := 0 to z do
begin
         if Form1.TableGrid1.Cells[9,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color := $F0CAA6
          else if Form1.TableGrid1.Cells[9,i] = '' then Form1.TableGrid1.Cell[0,i].Color := $00E3F2F2;
     end;
end;

17

(28 replies, posted in Russian)

спасибо то что нужно но нужна платная такая )))

18

(28 replies, posted in Russian)

VSPlayer  он не показывает все камеры сразу в online

19

(28 replies, posted in Russian)

ok понял )))

20

(28 replies, posted in Russian)

const
    text =  '<span style="color:red"><b>123459</b></span>';
    script = '<script>alert("Привет мир!");</script>';



var WB:TWebBrowser;
begin
  WB:=TWebBrowser.Create(Application);
 // WB.Silent := 1;
  TWinControl(WB).Parent := Form1;
  WB.Align := alClient;
  WB.Navigate('about:blank');
  WB.Navigate('javascript:document.body.innerHTML='''+text+script+''';');
end.

тут не могу понять куда адрес rtsps вставить ?

21

(28 replies, posted in Russian)

вот мне нужно на подобие этого https://github.com/grigory-lobkov/rtsp-camera-view только это программа плохо работает

22

(28 replies, posted in Russian)

)). можно пример какой ни будь.  примерно 10 камер мне нужно 10 окан с камерами что бы они показывали online ну и не плохо захват кадров ))))

23

(28 replies, posted in Russian)

не подскажите можно как то воспроизвести потоковое видео с камер или нет если есть демо поделитесь ?

24

(13 replies, posted in Russian)

ну не знаю я пользуюсь все норм )) уже давно.  не получилась сделать с Runtdesk но с AnyDesk все норм работает как надо )))

25

(13 replies, posted in Russian)

хорошо есть на подобие тоже приложения https://anydesk.com/ru в нем так можно сделать ?