Search options (Page 4 of 16)

If you are trying to add a field to an existing or deployed application, then try

SQLExecute('ALTER TABLE tele ADD COLUMN [id_Stoixeia] INTEGER REFERENCES [Stoixeia](id) ON DELETE CASCADE')

I'm not so sure if I understand your concern.

Maybe having a constant in the beginning of your script will do.

CONST
    ENV = 'dev';

...
...
...

function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    if ENV <> 'dev' then
    begin
        // exception from button frmStoixeia.Button4
        if Sender = frmDiafora.Button39 then
        begin
            if Pos('FOREIGN KEY constraint failed', Msg)=1 then
            begin
                result := True; // to prevent system message
                MessageBox('Αδύνατη η διαγραφή. Υπάρχουν συνδεόμενα.', 'Error', MB_OK+MB_ICONWARNING);
            end;
        end;
    end; // end if dev
end;

Then, make sure to make ENV constant to something like 'prod' when you will deploy your application.

If you really want a button in runtime, then you change that CONST to VAR, then have the function toggle the value of ENV.

As for me, I would create form for my custom message/confirm dialog.

Here's a workaround, putting password saving function on the mousenter event of the Form1. It seems that the onActivate function runs right after the showing of the login form.

Just do if-else in the script instead of that case query

if SQLExecute('SELECT COALESCE(b.is_active, 0) as isActiveReturn FROM bookings b WHERE b.is_active=1 AND b.id_boxed=1 ORDER BY b.is_active DESC LIMIT 1') = 0 then
    Main.Panel1.Caption := "Ja"
else 
    Main.Panel1.Caption := "Nein";

There you have it, maybe you don't have frmSafeguard on your project.

I just put the key there for some security purposes, you can override it

ini.WriteString('REMEMBER', 'user', EncryptRC5(frmdbCoreLogin.edLogin.Text, 'YourKey'));
ini.WriteString('REMEMBER', 'pass', EncryptRC5(frmdbCoreLogin.edPassword.Text, 'YourKey'));
frmdbCoreLogin.edLogin.Text := DecryptRC5(remUser, 'YourKey');
frmdbCoreLogin.edPassword.Text := DecryptRC5(remPass, 'YourKey');

That code doesn't affect to what DB you use. Is there any error message?
Check your user login settings too, maybe you are using dropdown instead of text

Maybe the query returns an array. I'm thinking Combobox3 list is from slujiteli table, right?  The details you gave is a little bit vague for we don't know the Checkbox1's sqlValue, etc. For starter, maybe your select query returns an array. Try adding LIMIT 1 in your query.

newprod.ComboBox3.dbItemID :=  SQLExecute('SELECT id FROM slujiteli WHERE Default = '+ newprod.CheckBox1.sqlValue +' LIMIT 1');

My advice, try debugging it by checking the newprod.CHeckbox1.sqlvalue, then run the query from a third party sqlite viewer to check if it really returns the correct id you are getting from database. It is also easier to work on it if you can send a simple application that address to your query.

Here.

Have you tried ClipboardSet?

You must first backup the database using the backup button. The button will backup your current sqlite.db to [filename].dbbak using SaveDialog

Then the Add record button is just to populate the table to see if populated table will be replaced by the backup.

To backup, you then click Backup button in which the program will ask the user for a file(backup, the one you save with Backup button) using the OpenDialog, then when the user select [filename].dbbak, it will close Form1, then replace sqlite.db with the user's selected [filename].dbbak, then reopen the program

Try this one.