Search options (Page 144 of 400)

const
  IDH_TOPIC10 = 10;
  IDH_TOPIC20 = 20;
  IDH_TOPIC30 = 30;
  IDH_TOPIC40 = 40;
  IDH_TOPIC50 = 50;

procedure Form1_OnShow (Sender: string; Action: string);
begin
  Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help\HelpFile.chm';
end;                



procedure Form1_bContents_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpContents;
end;

procedure Form1_bIndex_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpIndex('test');
end;

procedure Form1_bSearch_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpSearch;
end;

procedure Form1_bTopic30_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpContext(IDH_TOPIC30);
end;                     

procedure Form1_bTopic40_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpContext(IDH_TOPIC40);
end;

procedure Form1_bKeyword_OnClick (Sender: string; var Cancel: boolean);
begin
    Application.HelpKeyword('Test');
end;

// глобальное события для всех ошибок от СУБД
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    // ошибка при выполнении функций SQLExecute или SQLQuery
    if Sender=nil  then
    begin
        result := true; // предотвращает показ системной ошибки
        ShowMessage(Msg); // ваше сообщение об ошибке может быть здесь
    end;

    // ошибка возкнила при выполнении действия кнопки frmEmployee.bSaveEmp
    if Sender = frmEmployee.bSaveEmp then 
    begin
        if Pos('UNIQUE constraint failed', Msg)=1 then // по тексту сообщения узнает тип ошибки.
        begin
            result := True; // предотвращает показ системной ошибки
            MessageBox('Человек с данной фамилией уже присутствует в БД..', 'Error', MB_OK+MB_ICONWARNING);
        end;
    end;
end;



procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    SQLExecute('INSERT INTO employees (lastname) VALUES ("ivanov")');
end;


procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
begin
    SQLQuery('INSERT INTO employees (lastname) VALUES ("ivanov")', Results);
end;