[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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

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:

Код:

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

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

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

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

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

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

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

Код:

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

Пример:

Код:

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