Thank you so much Dmitry............
I think I inserted the code in wrong place or incorrectly?
/////////////////////////////////////////////////////////////////////////////////////
/// --> LOOKUPS - COMPONENTS - MOVING ROWS UP and DOWN <--//////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
procedure Form1_Button3_OnAfterClick (Sender: string);
begin
UpdateDatabase('component');
end;
procedure frmLookups_Button3_OnClick (Sender: string; var Cancel: boolean);
var
id1, id2: integer;
record_count1, record_count2: string;
begin
if (frmLookups.tgLookupsComponents.SelectedRow > 0) then
begin
id1 := frmLookups.tgLookupsComponents.dbItemID;
id2 := frmLookups.tgLookupsComponents.dbIndexToID(frmLookups.tgLookupsComponents.SelectedRow-1);
record_count1 := SQLExecute('SELECT record_count FROM component WHERE id='+IntToStr(id1));
record_count2 := SQLExecute('SELECT record_count FROM component WHERE id='+IntToStr(id2));
if (record_count1<>'') and (record_count2<>'') then
begin
SQLExecute('UPDATE component SET record_count='+record_count2+' WHERE id='+IntToStr(id1));
SQLExecute('UPDATE component SET record_count='+record_count1+' WHERE id='+IntToStr(id2));
frmLookups.tgLookupsComponents.dbUpdate;
frmLookups.tgLookupsComponents.dbItemID := id1;
end;
end;
///When no record selected display info message
procedure frmLookups_Button3_OnClick (Sender: string; var Cancel: boolean);
var
id1, id2: integer;
record_count1, record_count2: string;
begin
if frmLookups.tgLookupsComponents.dbItemID=-1 then
begin
ShowMessage('You should select a record');
Exit;
end;
if (frmLookups.tgLookupsComponents.SelectedRow > 0) then
begin
/////////
end;
procedure frmLookups_Button4_OnClick (Sender: string; var Cancel: boolean);
var
id1, id2: integer;
record_count1, record_count2: string;
begin
if (frmLookups.tgLookupsComponents.dbItemID <> -1) and (frmLookups.tgLookupsComponents.SelectedRow < frmLookups.tgLookupsComponents.RowCount-1) then
begin
id1 := frmLookups.tgLookupsComponents.dbItemID;
id2 := frmLookups.tgLookupsComponents.dbIndexToID(frmLookups.tgLookupsComponents.SelectedRow+1);
record_count1 := SQLExecute('SELECT record_count FROM component WHERE id='+IntToStr(id1));
record_count2 := SQLExecute('SELECT record_count FROM component WHERE id='+IntToStr(id2));
if (record_count1<>'') and (record_count2<>'') then
begin
SQLExecute('UPDATE component SET record_count='+record_count2+' WHERE id='+IntToStr(id1));
SQLExecute('UPDATE component SET record_count='+record_count1+' WHERE id='+IntToStr(id2));
frmLookups.tgLookupsComponents.dbUpdate;
frmLookups.tgLookupsComponents.dbItemID := id1;
end;
end;
///When no record selected display info message
procedure frmLookups_Button4_OnClick (Sender: string; var Cancel: boolean);
var
id1, id2: integer;
record_count1, record_count2: string;
begin
if frmLookups.tgLookupsComponents.dbItemID=-1 then
begin
ShowMessage('You should select a record');
Exit;
if (frmLookups.tgLookupsComponents.SelectedRow > 0) then
begin
//////////
end;
---------------------------------
edit:
Beside above, after applying filter for combo boxes, first one (components) worked but second combo (details) didn't
Attached updated sample project. It doesn't include the latest code for message pop-ups as I couldn't implement it correctly.
Adam
God... please help me become the person my dog thinks I am.