Search options (Page 33 of 42)

Thanks a lot Dmitry..........

Save as dialog is showing fine with your script.
However, save/copy function needed.
Also save as file type needed on windows save as dialog. Currently it's empty.

I have tried the following but didn't show save as file type and didn't save/copy db file into selected folder. In any case CopyFile('sqlite.db'); returns error.:

procedure MenuClick1 (Sender: string);

var
    SaveDialog: TSaveDialog;
begin
    SaveDialog := TSaveDialog.Create(Form1);

    if SaveDialog.Execute then
    begin
        CopyFile('sqlite.db');
        ShowMessage( SaveDialog.FileName );
    end;

    SaveDialog.Free;
end;

Hi Derek,

Thanks a lot for the sample...

Yes, it's a very simple solution for private - own projects. However, I'm not sure it can be used for public projects as we wouldn't know which drives users would have in their computer. Copy file could be used in public project if we can have appropriate settings on options window such as boolean to use backup or not, ability to specify backup folder and back up timer which I don't know how to add these settings to options window and make them work.

My thinking was to do it via menu command as it may be simpler approach - even though not proper one but still better than manually locating db file and copying.

Imho, proper way may be is doing via settings on options window as explained above paragraph. Plus created backup file extension would be .backup and ability to open - save backup file within application when needed.

Thanks a lot Dmitry................

Thanks a million Dmitry....

It didn't work adding after for to do. It brought back repeating cells values.

However, adding after each '0'; script lines like below worked fine:

SaleTransHist.tgSaleInvTransHist.Cells[11,i] := '0';
SaleTransHist.tgSaleInvTransHist.CalculateFooter;

Once again, thank you so much for your kind help..............

Thank you sooooooooo much Dmitry..........

Filtering out repeating cell values works perfectly with the beta you kindly offered.

However,  filtered out cell values still included in footer sum calc, hence showing incorrect footer totals.
Is there solution for this too?

Hi EHW,

Thanks a lot...........................

Great stuff... Appreciated.

Thanks a lot Dmitry.......

I have associated the sql query to a button with warning message and it works fine - deletes the password.

After user adds and saves a password, on next visit to "frmAddEditPassw" I wanted "edExistingPassword" (Existing / Current Password) field to display saved password in alpha numeric characters. I tried the following but didn't work:

procedure frmAddEditPassw_edExistingPassword_OnChange (Sender: string);
begin
    frmAddEditPassw.edExistingPassword.Text := SQLExecute('SELECT password FROM password WHERE id = '+frmAddEditPassw.edExistingPassword.sqlValue);
end;

Delete button responds regardless there is a saved password or not atm. What I like to do but cannot is; if there is no value displayed in field "edExistingPassword" (Existing / Current Password) delete button becomes disabled or alternatively hidden. Please see the images below as a reference.

Thanks a lot Dmitry.............
It does the job.

Hi Dmitry,

Yes, I still couldn't find an answer.