Search options (Page 336 of 400)

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Footer.Color := clGreen;
end;

procedure Form1_GridSearch_OnChange (Sender: string);
var
    i, c: integer;
    sDate: string;
    Date: TDate;
begin
     c := Form1.GridSearch.RowCount - 1;
     for i := 0 to c do
     begin
         sDate := Form1.GridSearch.Cells[3,i];
         if ValidDate(sDate) then
         begin
              Date := StrToDate(sDate);
              if Now > (Date+30) then Form1.GridSearch.Cell[3,i].Color := clRed;
         end;

     end;
end;

SELECT
datavvoda,
textzayavki

FROM
zayavki

WHERE
Date({DateTimePicker1}) < Date(zayavki.datavvoda) AND
Date(zayavki.datavvoda) < Date({DateTimePicker2})

sHash := StrToMD5(sPassword);

OpenFile('/f /im notepad.exe', 'taskkill.exe'); 

procedure frmNew_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
var
    idImage: string;
begin
     idImage := SQLExecute ('SELECT id_name FROM fixed WHERE fixed.id=' + frmNew.TableGrid1.sqlValue);
     frmNew.DBImage1.Clear;

     if ValidInt(idImage) then frmNew.DBImage1.LoadFromDatabase( 'name', 'image', StrToInt(idImage) );
end;

SELECT
tbsofa.id,
tbsofa.sofanom,
tbsofa.sofanomzak,
tbsofaname.sofaname,
tbsofa.sofabuyer,
tbsofa.sofarun,
tbsofa.sofaplanend,
tbsofa.sofaclothparish,
tbclothsellerone.clothsellerone,
tbsofa.clothname1,
tbsofa.clothmetr1,
tbsofa.clothprise1,
tbclothsellertwo.tbclothsellertwo,
tbsofa.clothname2,
tbsofa.clothmetr2,
tbsofa.clothprise2,
tbclothsell.tbclothsell,
tbsofa.clothname3,
tbsofa.clothmetr3,
tbsofa.clothprise3,
tbcloths.tbcloths,
tbsofa.clothname4,
tbsofa.clothmetr4,
tbsofa.clothprise4,
tbsofa.sofanote

FROM tbsofa

LEFT OUTER JOIN tbsofaname ON tbsofaname.id = tbsofa.id_tbsofaname
LEFT OUTER JOIN tbclothsellerone ON tbclothsellerone.id = tbsofa.id_tbclothsellerone
LEFT OUTER JOIN tbclothsellertwo ON tbclothsellertwo.id = tbsofa.id_tbclothsellertwo
LEFT OUTER JOIN tbclothsell ON tbclothsell.id = tbsofa.id_tbclothsell
LEFT OUTER JOIN tbcloths ON tbcloths.id = tbsofa.id_tbcloths

WHERE tbsofa.sofaclothparish IS NULL AND 
tbsofa.id_tbclothsellerone={ComboBox1} OR 
tbsofa.id_tbclothsellertwo={ComboBox1} OR 
tbsofa.id_tbclothsell={ComboBox1} OR 
tbsofa.id_tbcloths={ComboBox1};