Search options (Page 1 of 2)

Thank you sparrow, derek for the quick reply. However, I think I missed an important point. My program uses a login replacement window from a related topic. I also have a project on MySQL

Part of my login window code

function GetCombo: TdbComboBox;
var
  i: integer;
begin
  for i := 0 to frmdbCoreLogin.componentCount - 1 do
  begin
    if frmdbCoreLogin.Components[i] is TdbCombobox then
    begin
      Result := TdbComboBox(frmdbCoreLogin.Components[i]);
      Result.dbFilter := 'is_active = 1';
      exit;
    end;
  end;
end;

procedure Login_OnClick( Sender:TObject; var Cancel:boolean );
var
  tmpMD5: string;
  tmpUsername: string;
    begin
  if frmdbCoreLogin.edLogin.Visible then
    tmpUsername := frmdbCoreLogin.edLogin.Text
  else
    tmpUsername := GetCombo.Text;
  tmpMD5 := StrToMD5( frmdbCoreLogin.edPassword.Text + tmpUserName );
  if SQLExecute('SELECT count(*) FROM _user WHERE username = "'+tmpUserName+'" AND password = "'+tmpMD5+'" ') = 0 then
    MessageBox('Invalid login or password','Error', MB_ICONWARNING + MB_OK )
  else
  begin
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonDown, 0, 0);
   sleep(100);
   SendMessage( frmdbCoreLogin.bLogin.handle , wm_LButtonUp, 0, 0);
 end;
end;

procedure Init;
var
  tmpLoginButton: TdbButton;
begin
  tmpLoginButton := TdbButton.Create( frmdbCoreLogin );
  tmpLoginButton.Parent := frmdbCoreLogin;
  tmpLoginButton.Top := frmdbCoreLogin.bLogin.Top;
  tmpLoginButton.Left := frmdbCoreLogin.bLogin.Left;
  tmpLoginButton.Width := frmdbCoreLogin.bLogin.Width;
  tmpLoginButton.Height := frmdbCoreLogin.bLogin.Height;
  tmpLoginButton.Caption := 'Entry';
  tmpLoginButton.Font := frmdbCoreLogin.bLogin.Font;
  tmpLoginButton.Default := True;
  tmpLoginButton.OnClick := 'Login_OnClick';
  frmdbCoreLogin.bLogin.Visible := False;
end;

And thanks again for the tips and care. It worked, but again got stuck on the data sample. That is, I need to "copy" into the temporary table only those data that are selected in Tablegrid. Any tips on how to do this? I tried this way

for i := 0 to Form1.TableGrid1.RowCount - 1 do
  begin
    SQLExecute('INSERT INTO IntermediateTable (PayeeSurname, Payment) VALUES (''' + Form1.TableGrid1.Cell[3, i].AsString + ''', ' + IntToStr(Trunc(StrToFloat(Form1.TableGrid1.Cell[4, i].AsString) * 100)) + ')');
  end;

but I understand that it is somehow broken.

I'm checking my account against the checksum. Attached the full calculation.

It's all about the formula for checking the correctness of entering the account relative to the control amount. It is necessary to operate with all symbols (31).

Please see an example...frmAddPayee_Edit3_OnExit

I have many different dates in my database. More than 100,000 approx. In order not to accumulate these "00:00:00.000" values (which occupy a certain place) in the database in the future, I would like to understand how to properly organize saving from the DateTimePicker.

Thank you very much. An interesting solution is to connect the comboboxes through a filter.

This is fantastic. Thank you very much. Exactly what is needed. I just wanted to understand why I was not getting the grouped data of the last driver. Thank you very much for the detailed example. I will continue to study the features of programming and scripts. And thanks again.

Thanks for the tip, but I didn't use it. To make it clear what I wanted, I am attaching the оption of solution. This is work with a report and not with a database.

But this solution does not work very correctly. Maybe someone will tell me how to properly organize a script in Fastreport?

Thanks for the answer. This project that I have attached is an example. In my project there are fields that are calculated when entered for printing in FastReport. Sorry for not giving a complete example... The problem is that I don't know how to group directly into a fast report. I think that a script is needed before printing, which would control the fields on the page. Maybe someone will point to the necessary manual or a similar script.