Search options (Page 10 of 25)

Here is another option. If your file extensions are always 3 such as pdf, zip, doc...etc, you can append the following to your rtrim statement in your SELECT.

You can provide the following SQL statements inside your project to protect your SQLite.db. Only third-party apps which solicits the password will have access to the DB.

SQLExecute('PRAGMA key = ''PASSWORD'';');      // To provide the password to a database

SQLExecute('PRAGMA rekey = ''PASSWORD'';');   // To assign or change the password of the database

SQLExecute('PRAGMA rekey = '''';');      // To remove the password of the database

hotice546,
See if attached guides you to what you want. I used a Boolean field to distinguish an administrator from a user, but you may have another way. You just need to replace the If statement with whatever method you use.

Unfortunately I'm not sure how to do that. This is something Dimitry will probably need to answer. Sorry.

Thank you Dimitry. Much obliged.

humblelion,
See attached for a simple example on creating a calculated field for the multiplication of qty and price for a total to be displayed on a tablegrid. Also, the calculation is scripted on the update form upon entry of qty and price.

I'm not sure I understand. I tested my changes in the procedure you provided and it displays the file size in MB whether it is below or above 15. Are you changing something when you retrofit this code into your actual project?

You mention real time size. I don't understand what you mean. If you are looking to display the actual size of a file then all you need to do is create another label and then populate it with the integer i (see below).

Form1.ActualSize.Caption := IntToStr(i);

Change

frmNotes.edRR.value := ('1 : '(frmNotes.edPipsGained.value)/(frmNotes.edStop.Value));

To

frmNotes.edRR.Text := '1 : ' + FloatToStr(frmNotes.edPipsGained.value/frmNotes.edStop.Value);

Derek,
Try this.

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
  Form1.Tablegrid1.columns[0].enabled := false;
end;

As in most cases with MVD there are multiple ways to do things. In this case there is another option for the report date without formatting in the Report SQL or using calculated field. You can create a memo field (label field) in the report and then on the AfterData event place the following script:

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
    Memo1.Text := FormatDateTime('d',SqlDateTimeToDateTime(<Report."Date">)) + ' ' 
      + FormatDateTime('mmmm',SqlDateTimeToDateTime(<Report."Date">)) + ' '
      + FormatDateTime('yyyy',SqlDateTimeToDateTime(<Report."Date">));  
end;

Using Derek's example see attached for another option. I'm not in no way trying to say that my way is the best. Just trying to show another possiblity.

Derek you're right. It's not really a drag and drop in its true sense, but it does give the illusion of one. Your drag cursor was a nice touch, It made it look even more like dragging. Thanks.

On your edit form in addition to your normal SAVE button, create a button called "Save As New" and place the following code on it.

procedure Form2_SaveAs_Button_OnClick (Sender: TObject; var Cancel: boolean);
begin
    Form2.Save_Button.dbGeneralTableId:=-1;
    Form2.Save_Button.Click;
end;

See attached for an example.