Search options (Page 140 of 400)

SELECT

"$autoinc", 
strftime('%d.%m.%Y',"Account".register), 
F1.statusaccount,  
"Account".Email,                     
F2.location,  
F4.Country,
"Account".balance,       
f5.editaction,                                                                   
"Account".id   

FROM "Account"  
             
LEFT OUTER JOIN statusaccount F1 ON F1.id="Account".id_statusaccount 
LEFT OUTER JOIN location F2 ON F2.id="Account".id_location                                       
LEFT OUTER JOIN country F4 ON F4.id="Account".id_country 
LEFT OUTER JOIN editaction f5 ON f5.id="Account".id_Editaction   
                                                  
WHERE                            

(CASE WHEN {Basesearchstatusaccount}=-1 THEN 1=1 ELSE {Basesearchstatusaccount}="Account".id_statusaccount END)
AND
(CASE WHEN {Basesearchlocation}=-1 THEN 1=1 ELSE {Basesearchlocation}="Account".id_location END)              
AND
(CASE WHEN {Combo_country}=-1 THEN 1=1 ELSE {Combo_country}="Account".id_country END)          
AND 
(CASE WHEN {DateTimePicker3} IS NOT NULL THEN date(f5.editaction) = date({DateTimePicker3}) ELSE 1=1 END)

procedure frmmainmenu_tgeqiup_OnChange (Sender: string);
var
    i,c: integer;
begin
    c := frmmainmenu.tgeqiup.RowCount-1;
    if frmmainmenu.tgeqiup.Columns.Count > 3 then
        for i:= c downto 0 do
            if frmmainmenu.tgeqiup.Cells[3,i]='0' then frmmainmenu.tgeqiup.DeleteRow(i);
end;

SELECT 
parts.partName
  
,(                             

TOTAL( sklad.quanity * (CASE WHEN sklad.id_skladOperation = 4 THEN -1 ELSE 1 END) )

-                                   
                                        
ifnull((SELECT 
SUM(partsApp.quanty) as result 
FROM partsApp                                                 
LEFT OUTER JOIN parts ON partsApp.id_parts=parts.id       
WHERE partsApp.id_parts = sklad.id_parts),0)
)                       


FROM sklad

LEFT OUTER JOIN parts ON sklad.id_parts=parts.id
                                                               
GROUP BY parts.partName; 

id_skladOperation = 4

// global event for all exceptions related database
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    // exception from button Form1.Button6
    if Sender = Form1.Button6 then
    begin
        if Pos('FOREIGN KEY constraint failed', Msg)=1 then
        begin
            result := True; // to prevent system message
            MessageBox('Selected record contains...', 'Error', MB_OK+MB_ICONWARNING);
        end;
    end;
end;

Form1.Edit1.Text

Form1.Edit1.sqlValue

procedure Form1_TableGrid1_OnEnter (Sender: string);
begin
    if Form1.TableGrid1.SelectedRow = -1 then Form1.TableGrid1.SelectedRow := 0;
end;