Search options (Page 3 of 15)

При нажатии на гиперссылку автоматически открывается браузер по умолчанию.

An example

procedure frmMain_lbWebpage_OnClick (Sender: TObject);
var
    webpage:string;
begin
  
  webpage := frmMain.lbWebpage.Caption; 
  OpenURL(webpage);
end;

Здесь у меня есть метка, которая при двойном щелчке по гиперссылке открывает URL-адрес в браузере по умолчанию.

Looks very snazzy

Hmm, 2020 was a leap year, if you use 2024 do you get the same problem?

This error means you have entries in other tables linked to the entry you want to delete.

You need to delete those other entries first and then you can delete the master entry last.

I might have misunderstood, but if Remainder_OnShow is your renamed Form1, you need to change

Возможно, я неправильно понял, но если Remainder_OnShow - это ваша переименованная форма Form1, вам нужно изменить

TTimer.Create(Form1)

To

TTimer.Create(Remainder_OnShow)

Hello Lejoso,

If you are updating a tablegrid you could do the following.

procedure dbUpdateTimer;
var
    indx,cnt : integer;
begin
  {updates any tablegrid no matter what its name onfrmMain}
  cnt := frmMain.ComponentCount -1;
  for indx := 0 to cnt do
  begin
    if frmMain.Components[indx]  is TdbStringGridEx then
        TdbStringGridEx(frmMain.Components[indx]).dbUpdate;
  end;    
{end of frmMain updates}

{manually update other forms}                                                                                          
  frmOrderEntry.grdOrder.dbUpdate;
  frmEditAssemblies.tgMasterPart.dbUpdate;
  frmEditAssemblies.tgSubPart.dbUpdate;
  frmEditPart.grdEditPart.dbUpdate;
{end of manual update other forms}
  //showmessage('databases updated');
end;

This code automatically updates all tablegrids in the program every 30 seconds or so. The timer is set up elsewhere.

If you don't want to do that, all you need to do is add the line

FormName.TableGridName.dbUpdate

in an event such as after_click  etc.

I can answer your first question easily.  WAL stands for Write Ahead Logging, which allows SQLite to have multiusers access it.

However, these are special cache files that it writes, and won't automatically commit users data changes to the database. It basically will wait until the last user has closed their connection with the DB (with MVD that is just closing the application) and then it updates the database. I believe it commits data to the database as the cache reaches a certain point.

As for your other question, I'll have to think about it and maybe someone else can answer off the top of their head.

You could try putting SQLite into 'WAL' mode, this might help.

Just a warning, if you intend to have the SQlite database file on a network share drive and an IT department runs a cache clearing program in the background, you will lose data and get locked database messages.

If there is no cache clearing program is running, then there shouldn't be any problems.

To enable WAL mode in sqlite, open your database in a database browser such as DB Browser for SQL Lite and type in under the SQL tab

PRAGMA journal_mode = WAL

Close the browser and when you next open your program you will see 3 extra files appear, these are the caching files.

If this doesn't work for you, then to disable Write Ahead Logging open the DB browser and type into the SQL tab

PRAGMA journal_mode=DELETE

Are you using SQLite or MySQL?

Thanks EHWagner,

Your code is far more compact than what I was about to write. Though mine was going to include buttons that could be acted upon.

Hi Derek,

What you have suggested was my original idea, and then I thought I'd use the MessageDlgTimeOut  function, which would have been perfect if I hadn't discovered it doesn't return the 'flags' value (http://myvisualdatabase.com/forum/viewt … 199#p40199) .

I'll see how my current incarnation goes using the above function to close the program, and if it turns out the users are even more incapable in using a logout button than just closing the program, I'll institute my own close program timer with code similar to yours.

Thank you for the reply.