[usfire]

Delphi 11

код

https://drive.google.com/file/d/1mjG...usp=drive_link

[usfire]

https://drive.google.com/file/d/17Z2...ew?usp=sharing

https://drive.google.com/file/d/1OGo...usp=drive_link

[lmikle]

ну вот совсем не понятно что надо...
можно подробнее словами?

[usfire]

Сообщение от lmikle

ну вот совсем не понятно что надо...
можно подробнее словами?

Код:

procedure TfrmTransportationsMonitorForm.Button1Click(Sender: TObject);
 var
 id : String  ;


begin
  TMQuery.SQL.Text := 'SELECT * FROM TABLE(TRANSPORTATIONS_DATA.RETURN_TRANSPORT) ORDER BY TECHNIKS';
  TMMemTable.DisableControls;
  try
    TMMemTable.Close;
    TMMemTable.Open;
    TMMemTable.First;
    var S := '';
    while not TMMemTable.Eof do
    begin
      S := S+TMMemTable.FieldByName('TECHNIKS_ID').AsString+'='+TMMemTable.FieldByName('TECHNIKS_IT_ID').AsString+',';
      TMMemTable.Next;


     //   new

           Memo1.Lines.add(TMMemTable.FieldByName('DRIVER').Text );

          Edit2.Text:=Memo1.Lines[1];


        //   new


     // Memo1.Lines.add(S+TMMemTable.FieldByName('DRIVER').Text );
     // memo1.SelStart ;




    end;
    Delete(S,length(S),1);
    TMMemTable.First;
    SetStatus;
    TMMemTable.Last;
    TMMemTable.First;
    if not Assigned(FChoiceColumn) then
      FChoiceColumn := TMGrid.Columns[2];
    TMGridSortMarkingChanged(nil);
    if length(id) > 0 then
      TMMemTable.Locate('TECHNIKS_ID',id,[]);
    if Assigned(MonitorScaner) then
    begin
      MonitorScaner.Ex := True;
      MonitorScaner.Terminate;
      MonitorScaner := nil;
    end;
    MonitorScaner := TMonitorScaner.Create(True,Self);
    MonitorScaner.CarsList.CommaText:=S;
    MonitorScaner.Start;
  finally
    TMMemTable.EnableControls;


  end;
end;

[usfire]

Сообщение от lmikle

ну вот совсем не понятно что надо...
можно подробнее словами?

Научился из SQL Выводить столбец в memo
Научился из SQL Выводить строку из столбеца


нужно Начится удалять запись в SQL программно ,
так же сравнивать записи ы sql

На текущий момент научился только выводить столбец , еще нужно удаление , сравнение , не всего столбца , разеых строк из столбца ,

Так же запись в SQL ,

[Aristarh Dark]

Сообщение от usfire

Далее нужно научится не весь столбец , например 5 или 4 строку из столбца

В SQL нет понятия 5 или 4 строки. Таблица это множество, в у множества нет порядкового номера элемента. Пример: отсортируешь фамилии по алфавиту по возрастанию 4 и 5 строки будут иметь одни значения, отсортируешь фамилии по алфавиту по убыванию 4 и 5 строки будут иметь совсем другие значения.
Общий вид команды удаления в SQL:

Код:

DELETE FROM имя_таблицы 
[WHERE условие_отбора_записей];

Если условие отбора записей WHERE отсутствует, то будут удалены все записи указанной таблицы.

Сообщение от usfire

сравнение , не всего столбца , разеых строк из столбца

Тут вообще не понятно, что требуется...

Сообщение от usfire

Так же запись в SQL

Код:

INSERT INTO имя_таблицы [(поле_таблицы, ...)]
VALUES (значение_поля_таблицы, ...)

Пример:

Код:

INSERT INTO Goods (good_id, good_name, type)
VALUES (20, 'Table', 2);