Search options (Page 204 of 400)

procedure Form1_OnShow (Sender: string; Action: string);
begin
    if FileExists('text.txt') then Form1.Memo1.Lines.LoadFromFile('text.txt');
end;

procedure Form1_OnClose (Sender: string; Action: string);
begin
    Form1.Memo1.Lines.SaveToFile('text.txt');
end;

procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
    if (Ctrl) and (Key = ord('Q')) then Form1.Memo1.Text := Form1.TableGrid1.Cells[0,Form1.TableGrid1.SelectedRow];
end;

if (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[2,r])) and 
   (ValidFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])) then 
        if (StrToFloat(frmPoisk.tablRezultatPoiska.Cells[2,r]) < StrToFloat(frmPoisk.tablRezultatPoiska.Cells[3,r])) and
        (frmPoisk.tablRezultatPoiska.Cells[4,r]='') then frmPoisk.tablRezultatPoiska.Cell[2,r].Color := clRed;

CASE WHEN boolfield = 1 THEN 'OK' ELSE 'Not Ok' END

SELECT

dom.adress
,usluga.vid_uslugi
,rabota.vid_rabot
,application.summa
,application.record_count
,strftime('%d.%m.%Y',application.date) as date
,strftime('%d.%m.%Y',{dtFrom}) as datefrom
,strftime('%d.%m.%Y',{dtTo}) as dateto

FROM application

LEFT OUTER JOIN dom ON dom.id=application.id_dom
LEFT OUTER JOIN rabota ON rabota.id=application.id_rabota
LEFT OUTER JOIN usluga ON usluga.id=application.id_usluga

WHERE
date(application.date) > date({dtFrom}) AND
date(application.date) < date({dtTo}) AND
CASE WHEN {cbAdress}=-1 THEN 1=1 ELSE {cbAdress}= application.id_dom END AND
CASE WHEN {cbUsluga}=-1 THEN 1=1 ELSE {cbUsluga}= application.id_usluga END

SELECT
 baza.record_count,
 (SELECT fieldname FROM tablename WHERE tablename.id={ComboBox}) as ComboBoxValue,
 baza.data,
 baza.datavipolneniya,
 ..........

SELECT count(*) FROM Contact

If (1 <= n) and (n <= 30) then 
begin
    if MessageDlg('Демонстрационная версия. Из 30 дней осталось: ' + IntToStr(n) +'.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
    begin
        frmMain.PanelXXX.Visible:= True;
    end else
    begin
        frmMain.PanelXXX.Visible:= False;
    end;
end;

if n < 1 then
begin
    if MessageDlg('Пробный период закончился.'+#13+'Вы хотите приобрести лицензию?', mtInformation, mbYes+mbNo, 0) = mrYes then
    begin
        frmMain.PanelXXX.Visible:= True;
    end else
    begin
        frmMain.Close;
    end;
end;