Search options (Page 4 of 15)

Shilov,

You need to change your MySQL authentication method to 'standard'  as MVD can't work with  SHA256 authentication.

Вам необходимо изменить метод аутентификации MySQL на «стандартный», поскольку MVD не может работать с аутентификацией SHA256.

(Google translate).

Time is an existing method! Try changing time to myTime for example.

Here is my code that works:

var
Timer : TTimer;
iSeconds : integer;


procedure frmMain_On_Show(Sender: TObject; Action string);
begin

     Timer := TTimer.Create (frmMain);
     Timer.Interval := 20000;  //Reset every 20 seconds
     Timer.Enabled := True;
     Timer.OnTimer := @OnTimer;
end;

procedure OnTimer;
begin

     iSeconds := iSeconds + 1;
     frmMain.lbCounter.Caption := ' '+intToStr(iSeconds);
     AutocloseSet;
     if iSeconds > 30 then // This equals 10 minutes approx
     begin
         
          dbUpdateTimer;
          iSeconds := 0;
     end;
end;

procedure dbUpdateTimer;
var
    indx,cnt : integer;
begin

 {update all tables on main form
  cnt := frmMain.ComponentCount -1;
  for indx := 0 to cnt do
  begin
    if frmMain.Components[indx]  is TdbStringGridEx then
        TdbStringGridEx(frmMain.Components[indx]).dbUpdate;
  end; 
 
 {update tables on all other forms}                                                                                           
  frmOrderEntry.grdOrder.dbUpdate;
  frmEditAssemblies.tgMasterPart.dbUpdate;
  frmEditAssemblies.tgSubPart.dbUpdate;
  frmEditPart.grdEditPart.dbUpdate;
  
end;

I've attached a snipshot of the _user table. 

So myself 'admin', and 'kerian' can log in with no problem, if I impersonate any of the others I get the above runtime error.

iwkom,

If the result is two digits, do they get subtracted from the nearest multiple of 10 to produce the check digit?

Are the numbers added as single digits or as actual numbers?

Using your formula for example, the eight digit number 83102340 = 8 + 6 + 3 + 0 + 10 + 18 + 28 + 0 = 73, if adding as actual numbers. But if added as single digits the number will be  8 + 6 + 3 +  0 +1 + 0 + 1 + 8 + 2 + 8 + 0 = 38.

Does the resulting number get deducted from the nearest value of 10  which in the above examples would either result in a check digit of either 7  or 2?

If you could clarify the above, a function could be written for you.

Hello Papafrank and Derek,

Derek I hope you don't mind, but I'd like to offer a minor difference to your code, which in its' present state no longer keeps the edit box on return from form 2, so of course doesn't quite do what Papafrank wants, but could be useful for someone else.

1. Click on the Form1 adn enable the property 'Key Preview'

2. Double Click on the Form1 event OnKeyPress  and add below code to the script

procedure Form1_OnKeyPress (Sender: TObject; var Key: Char);

begin
    if Key = #13 then
    begin     
        twincontrol(form1.findcomponent(vwherefrom)).setfocus;
      Key :=#0;
    end;

end;

3. Amend the Form1_EditXX_OnEnter code to:

Procedure Form1_Edit1_OnEnter (Sender: TObject);
begin
  vwherefrom := Form1.Edit2.Name; //'edit1';
  resetcolors;
  form1.edit1.Color := $00C0DCC1;
end;

Do that to all the 'OnEnter' code and then you also not only have the edit boxes change colour when you click in them  but you can now move from edit box to edit box just by pressing the Enter key.

The advantage to changing vwherefrom := 'EditXX' to vWhereFrom := Form1.EditXX.Name   is that if you change the EditBox name at anytime you won't have to change the script. It also allows for some cut and paste into other programs.

Note that each edit box vWhereFrom := Form1.EditXX.Name 'points to the next edit box , not the current one

I tried to see if there was a way to have 'intelligent code' which would recognise which edit box had been entered and automatically move to the next edit box but I couldn't get

if form1.Controls[i] is TEdit   

or

if form1.components[i] is TEdit

to work.

What did you do to get it to work?

unforgettable,

The full stop is the end of the complete program. All procedures and functions must be before the begin.....end..

A procedure or function must finish with a end;.

So for example:

procedure loadSettings;
var
  settingsIni : TStringlist;
  lngth : integer;
begin
   settingsIni := TStringList.Create;
   settingsIni.LoadFromFile ('Settings.ini');
   dbName := SettingsIni[4];
   SettingsIni.free;
   lngth := Length(dbName) - 7;
   dbName := copy(dbName, 8, lngth);
   FrmMain.lbDbPath.Caption := ExtractFilePath(Application.ExeName)+ dbName;
end;  //procedure ends with a semicolon

function CountBackups(dir: string) : string;
var
  fileList : TStringList;
 // count : integer;
begin
   result := '0';
   fileList := TStringList.Create;
   fileList.Text := GetFilesList(dir, '*.db',False);
   result := intToStr(fileList.Count -1);

   fileList.Free;
end; // Function ends with a semicolon


begin

end.   //complete program finishes here.

In MVD the begin-------end.  is used for any code that must run when your program first starts and before your form appears.  In most cases you will leave this part of the script blank.

Google Translate:

Это не совсем ответ на ваш вопрос, но 'FileOpen (FileName)' может открыть любой файл, зарегистрированный в Windows, или вы можете использовать FileOpen (FileName, расширение, которое вам нужно)

This is not really an answer to your question, but 'FileOpen (FileName)' can open any file registered in Windows, or you can use FileOpen (FileName, the extension you need)

Unforgettable,

Sorry I led you down the wrong path.  I hadn't realised it wasn't working properly until the other day.

I've just discovered that combobox.text  only works if you fill an edittbox with the combox text and then use the editbox in your SQL statement.

Make the editbox invisible.

So  place the code in the ONChange event.

Form2.edit1.text := Form2.combobox1.text;
SQLExecute(INSERT INTO sal (books) VALUES ("'+form2.Edit1.Text+'")');