Search options (Page 1 of 2)

all the folder. i did it myself and its so strange cause i used the same version on my pc and works just fine . the thing is how to save the already used entries . I mean im trying to use the .db file on another one and just shows as empty

well i saw that but something catched my eye. If you just hit X button on top without putting anything in the serial it just opens the form.
Is it my misunderstanding? can i also all on form close to terminate the program aswell?

Also i forgot to mention that im not gonna be publishing it online first and second each client will have a customized version so the keys will not be the same

well thats not what i want to do.
1st of all i dont wanna use them as logins just as a serial key just my mind is set on something else.
I actually dont wanna sell my product but rent it for a specific amount of time. So if i give a client of mine his database to use i want to give it working for a specific amount of tme and when he asks me for a new key i wanna have the specific key already inserted so i can give it to him directly without the need for me to mess with the program again. So i need a serial number script with the extra function that the key will trigger a timer that will actually give the user a specific amount of time to use it,
I actually think of it an another measure for not sharing my program and his key to other users, even if he does it will expire sometime. The question is that is it possible to create what you would call a "long term trial" serial key to give the users to have?
I certainly dont have the knoledge to do that kind of customization in script but from the things i know that actually possible and possibly easy too , just not for me to understand and produce.
Any ideas?

thank you so much <3
you really saved me

well i tried to close the command as you mentioned and did not give the wanted result , still doing the same , process not closed on form close ,
And the other thing is that its the exact same script from the original and it closes the form without having ;

Also i saw that my password is not marked with * but instead shows the characters  
i cant seem to find what im doing wrong , i changed everything that should be changed.

var
   sUser: string = '';

procedure frmLogin_OnShow (Sender: string; Action: string);
begin
     frmLogin.edPassword.PasswordChar := '*';
     frmLogin.bLogin.Default:=True;
end;

procedure Base_OnClose (Sender: string; Action: string);
begin
    frmLogin.Close
end;

procedure frmLogin_bLogin_OnClick (Sender: string; var Cancel: boolean);
var
   s: string;
begin
     // SQL query for check user and password
     s := VarToStr( SQLExecute('SELECT count(id) FROM users WHERE (login = ''' + frmLogin.edUser.Text + ''') AND (password = ''' + frmLogin.edPassword.Text + ''');') );

     // if SQL query found login and password
     if (s <> '0') and (s<>'') then
     begin
          sUser := frmLogin.edUser.Text; // remember username

          // check admin rights
          s := VarToStr( SQLExecute('SELECT administrator FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then Base.bUsers.Enabled := False; // if the user does not have administrator privileges, deactivate the button to create other users

          // check permissions to read
          s := VarToStr( SQLExecute('SELECT read FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then Base.edit.Enabled := False; // deactivate the button to edit the record

          // check write permissions
          s := VarToStr( SQLExecute('SELECT write FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then
          begin
               Base.New.Enabled := False;      // deactivate the button to add the record
               CharacterSheet.Save.Enabled := False; // deactivate the button to save the record
               ActivityLog.save.Enabled := False;
               Connections.save.Enabled := False;
          end;

          // check permission to delete
          s := VarToStr( SQLExecute('SELECT remove FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then Base.delete.Enabled := False; // deactivate the button to delete the record

          // check permission to search
          s := VarToStr( SQLExecute('SELECT search FROM users WHERE (login = ''' + sUser + ''');') );
          if s='0' then base.search.Enabled := False; // deactivate the button to search the records

          frmLogin.Hide; // close login form
          Base.Show;
     end else MessageDlg('password is incorrect', mtError, mbOk, 0); // message if the password is incorrect

end;

begin
  // Initial check whether there is a database administrator user
  // if not, create an administrator with username admin and password admin
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
     begin
         SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
         frmLogin.edUser.Text := 'admin';
         frmLogin.edPassword.Text := 'admin';
     end;

end.

i copied the whole script, crated the right forms with the same names and replaced what had to be replaced.
Its not working for me and its not even hiding the password when i try it.... maybe it has something to do with the suser at the start?
Im almost noob btw. The text boxes and everything is named correctly. no errors when starting the exe