Search options (Page 245 of 400)

procedure Form1_load_local_OnClick (Sender: string; var Cancel: boolean);
var
    URL : String;
begin
    URL := 'http://www.daz3d.com/media/catalog/product/cache/1/image/960x1248/17f82f742ffe127f42dca9de82fb58b1/0/0/00-main-actual-eyes-4-daz3d.jpg';
    HTTPGetFile(URL,'test.jpg');

    Form1.DBImage2.Picture.LoadFromFile('test.jpg');
    Form1.DBImage2.dbFileName := 'test.jpg';
end;

procedure Form14_TableGrid1_OnChange (Sender: string);
var 
    i,c: integer;
    s: string;
begin
    c := Form14.TableGrid1.RowCount - 1;
    for i := 0 to c do
    begin
      s := Form14.TableGrid1.Cells[10,i];
      if ValidFloat(s)
      then if StrToFloat(s) < 0 then Form14.TableGrid1.Cell[10,i].TextColor := clRed
      else Form14.TableGrid1.Cell[10,i].TextColor := clGreen;

      if Form14.TableGrid1.Cells[3,i] = 'Real'
      then Form14.TableGrid1.Cell[3,i].Color := clSilver
      else Form14.TableGrid1.Cell[3,i].Color := clYellow;
    end;

    s := VarToStr ( SQLExecute('SELECT count(id) FROM Centre ;') );
    Form14.Label1.Caption:= 'количество СЧЕТОВ в базе- ' + s;
end;

SELECT
hamagi.lastname,
hamagi.firstname,
hamagi.fathername,
shuba.shuba_id

FROM hamagi

LEFT OUTER JOIN shuba ON hamagi.id_shuba=shuba.id

WHERE
(CASE WHEN {ComboBox4}=-1 then 1=1 else hamagi.id_shuba = {ComboBox4} end)

begin
       (CASE WHEN implementation=1 then 'На контроле' else '' end)
end.

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    ShowMessage('call from proc 1');
end;

procedure procedure1;
begin
  Form1_Button1_OnClick('', False);
end;