Search options (Page 123 of 400)

procedure Form1_OnShow (Sender: string; Action: string);
begin
    //SQLExecute('DROP TRIGGER IF EXISTS my_log_insert'); // how to remove trigger

    // trigger when insert new a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_insert AFTER INSERT ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (NEW.id, datetime(''now'', ''localtime''), ''New'', NEW.lastname, NEW.firstname, NEW.salary, NEW.dateofbirth); '+
    'END;'
    );

    // trigger when update a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_update AFTER UPDATE ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (NEW.id, datetime(''now'', ''localtime''), ''Update'', NEW.lastname, NEW.firstname, NEW.salary, NEW.dateofbirth); '+
    'END;'
    );

    // trigger when delete a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_delete AFTER DELETE ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (OLD.id, datetime(''now'', ''localtime''), ''Delete'', OLD.lastname, OLD.firstname, OLD.salary, OLD.dateofbirth); '+
    'END;'
    );
end;





procedure Form1_bUpdate_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.cbEmp.dbItemID = -1 then Form1.GridLogs.dbFilter := '' else Form1.GridLogs.dbFilter := 'ParentId='+Form1.cbEmp.sqlValue;
    Form1.GridLogs.dbUpdate;
end;


procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
    if frmEmployee.bSave.dbGeneralTableId <> -1 then
    begin
        frmEmployee.GridLogs.dbFilter := 'ParentId='+IntToStr(frmEmployee.bSave.dbGeneralTableId);
        frmEmployee.GridLogs.dbUpdate;
    end else
    begin
        frmEmployee.GridLogs.ClearRows;
    end;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    //SQLExecute('DROP TRIGGER IF EXISTS my_log_insert'); // how to remove trigger

    // trigger when insert new a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_insert AFTER INSERT ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (NEW.id, datetime(''now'', ''localtime''), ''New'', NEW.lastname, NEW.firstname, NEW.salary, NEW.dateofbirth); '+
    'END;'
    );

    // trigger when update a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_update AFTER UPDATE ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (NEW.id, datetime(''now'', ''localtime''), ''Update'', NEW.lastname, NEW.firstname, NEW.salary, NEW.dateofbirth); '+
    'END;'
    );

    // trigger when delete a record
    SQLExecute(
    'CREATE TRIGGER IF NOT EXISTS my_log_delete AFTER DELETE ON employees '+
    'BEGIN '+
    '    INSERT INTO employees_logs(ParentId, datetimeEvent, operation, lastname, firstname, salary, dateofbirth) VALUES (OLD.id, datetime(''now'', ''localtime''), ''Delete'', OLD.lastname, OLD.firstname, OLD.salary, OLD.dateofbirth); '+
    'END;'
    );
end;



procedure Form1_bUpdate_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.cbEmp.dbItemID = -1 then Form1.GridLogs.dbFilter := '' else Form1.GridLogs.dbFilter := 'ParentId='+Form1.cbEmp.sqlValue;
    Form1.GridLogs.dbUpdate;
end;


procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
    if frmEmployee.bSave.dbGeneralTableId <> -1 then
    begin
        frmEmployee.GridLogs.dbFilter := 'ParentId='+IntToStr(frmEmployee.bSave.dbGeneralTableId);
        frmEmployee.GridLogs.dbUpdate;
    end else
    begin
        frmEmployee.GridLogs.ClearRows;
    end;
end;

CONST

// setting of webcam
WEBCAM_NAME = 'USBWebCam'; // YOU NEED TO KNOW YOUR WEB CAM NAME!
WEBCAM_RESOLUTION = '1280x720';



procedure Form1_OnShow (Sender: string; Action: string);
begin
    ClearShotFolder;
end;

procedure frmEmployee_Button3_OnClick (Sender: string; var Cancel: boolean);
var
    pathShot: string;
    sShotFile: string;
begin
    frmEmployee.Button3.Enabled := False;
    pathShot := ExtractFilePath(Application.Exename)+'shot\';
    sShotFile := 'shot_'+FormatDateTime('ddmmyyyy_hhmmss', now)+'.jpg';

    OpenFile('-f dshow -s '+WEBCAM_RESOLUTION+' -i video="'+WEBCAM_NAME+'" -f image2 "'+pathShot+sShotFile+'"', 'ffmpeg.exe');


    Sleep(3000);
    if FileExists(pathShot+sShotFile) then
    begin
        frmEmployee.imgPhoto.LoadPicture(pathShot+sShotFile);
        frmEmployee.imgPhoto.dbFileName := pathShot+sShotFile;
        frmEmployee.imgPhoto.dbImageIsChanged := True;
    end;

    frmEmployee.Button3.Enabled := True;
end;





procedure Form1_bWebRes_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile('/K ffmpeg.exe -f dshow -list_options true -i video="'+WEBCAM_NAME+'"', 'cmd.exe'); // list of resolutions
end;

procedure Form1_bListCams_OnClick (Sender: string; var Cancel: boolean);
begin
    OpenFile('/K ffmpeg.exe -list_devices true -f dshow -i dummy', 'cmd.exe'); // list of devices
end;



procedure ClearShotFolder;
var
    sl: TStringList;
    i,c: integer;
    pathShot: string;
begin
    pathShot := ExtractFilePath(Application.Exename)+'shot\';

    sl := TStringList.Create;
    sl.Text := GetFilesList(pathShot);

    // delete all files
    c := sl.Count-1;
    for i := 0 to c do
        if not DeleteFile(sl[i]) then ShowMessage('Can''t remove file '+sl[i]);

    sl.Free;
end;