06-11-2024, 09:57 AM
I generate the list like this:
if SQLQuery1.RecordCount > 0 then
Begin
Repeat
VValue:=VValue+'<tr>'+
'<td>'+SQLQuery1.FieldByName('CoilNumber').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_Width').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_Length').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_gauge').AsString+'</td>'+
'<td>'+'<button type="button" class="btn btn-outline-primary" onclick="return getMeetingID('+#39+SQLQuery1.FieldByName('CoilNumber').AsString+#39+','+
')">Open</button>'+SLineBreak+'</td>'+
'</tr>';
SQLQuery1.Next;
Until SQLQuery1.Eof;
The javascript event pushes some paramters into delphi components and then does a button click event cll to action some delphi code.
if SQLQuery1.RecordCount > 0 then
Begin
Repeat
VValue:=VValue+'<tr>'+
'<td>'+SQLQuery1.FieldByName('CoilNumber').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_Width').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_Length').AsString+'</td>'+
'<td>'+SQLQuery1.FieldByName('Act_gauge').AsString+'</td>'+
'<td>'+'<button type="button" class="btn btn-outline-primary" onclick="return getMeetingID('+#39+SQLQuery1.FieldByName('CoilNumber').AsString+#39+','+
')">Open</button>'+SLineBreak+'</td>'+
'</tr>';
SQLQuery1.Next;
Until SQLQuery1.Eof;
The javascript event pushes some paramters into delphi components and then does a button click event cll to action some delphi code.

