Search options (Page 25 of 42)

I found some Delphi code on the Net.. Perhaps somebody can translate MVD or do something with it.

unit paswgen;

interface
uses classes;

const
  CHAR_ALPHANUM='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
                           'abcdefghijklmnopqrstuvwxyz'+
                           '0123456789';
  CHAR_ALPHA='ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
                     'abcdefghijklmnopqrstuvwxyz';
  CHAR_NUMERIC='0123456789';

type
  TPasswordGenerator=class(TObject)
  private
    FMaxChar: word;
    FPassword: string;
    FCharacter: string;
    procedure SetMaxChar(const Value: word);
    procedure SetCharacter(const Value: string);
  public
    constructor Create;
    procedure Generate;

    //password
    property Password:string read FPassword;
    //karakter yang diijinkan
    property Character:string read FCharacter write SetCharacter;
    //panjang password
    property MaxChar:word read FMaxChar write SetMaxChar;
  end;

implementation


{ TPasswordGenerator }

constructor TPasswordGenerator.Create;
begin
  FMaxChar:=8;
  SetLength(FPassword,FMaxChar);
  FCharacter:=CHAR_ALPHANUM;
end;

procedure TPasswordGenerator.Generate;
var i,indx:word;
begin
  SetLength(FPassword,FMaxChar);
  for i:=1 to FMaxChar do
  begin
    indx:=random(length(FCharacter))+1;
    FPassword[i]:=FCharacter[indx];
  end;
end;

procedure TPasswordGenerator.SetCharacter(const Value: string);
begin
  FCharacter := Value;
end;

procedure TPasswordGenerator.SetMaxChar(const Value: word);
begin
  FMaxChar := Value;
end;

initialization
Randomize;
end.

I have an Invoice report. I like to change color of two fields in Fast Reorts depending on field 1 value.

Field 1. DbCr with 2 values (ReportDbCrdbcr)
Sale
Refund

Field 2. Fast reports text field (Memo1)

In Fast reports script editor I need the following script please.
----------------------------------------------------------------------------------
If Field 1 value is  'Sale' then Field 1 and Field 2 text color =clBlue

If Field 1 value is  'Refund' then Field 1 and Field 2 text color =clRed

The following didn't work?

procedure ReportDbCrdbcrOnAfterData(Sender: TfrxComponent);
begin
  if DbCrdbcr.text := 'Sale' then
  begin              
  DbCrdbcr.textColor := clBlue;
  Memo1.text := clBlue
  else
  if DbCrdbcr.text := 'Refund' then      
    begin
    DbCrdbcr.textColor := clRede;
    Memo1.text := clRede
    end;              
end;

I wanted to color all rows text to red on tgMainCustomersTransItems,  if  tgMainCustomersTrans column[1] contained 'Refund' as follow:

procedure tgCustInvItemChange2; // ********* Coloring refund Inv Items rows
var
   iRow1 ,c2: integer;
   q1, iCol1: integer;
begin
     c2 := Form1.tgMainCustomersTransItems.RowCount - 1;
     q1 := Form1.tgMainCustomersTransItems.Columns.Count-1;
     for iRow1 := 0 to c2 do
        if Form1.tgMainCustomersTrans.Cells[1,iRow1] = 'Refund' then
            for iCol1 := 0 to q1 do Form1.tgMainCustomersTransItems.Cell[iCol1,iRow1].textColor := clRed;
end;

but it didn't work? Tried to add Form1.btnCustTransItemSearch.click; to above which caused app crash on run.

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Also tried to get tGrid focused on newly added record row with the following but didn't work too:

procedure frmSalesInv_Button1_OnAfterClick (Sender: string);
begin
      Form1.tgMainCustomersTrans.dbItemID:= Last_Insert_id;
      Form1_tgMainCustomersTrans_OnCellClick('',0,0);
end;

I tried to hide refund reason column [0] on tgMainCustomersTransItems, when column [1] cell value is 'Sale' on tgMainCustomersTrans with the script below but couldn't get it right:

procedure Form1_tgMainCustomersTrans_OnChange (Sender: string);
begin
if Form1.tgMainCustomersTrans.Cells[1,Form1.tgMainCustomersTrans.SelectedRow] = 'Sale' then
   begin
     Form1.tgMainCustomersTransItems.Columns[0].Visible := False;
   end;
end;

Another issue I have no idea how to solve. tGrid tax column contains + and - values. How can I pick only minus values from the tGrid tax column cells and show the total on edit field? Kind of creating virtual tGrid tax footer column without changing the current structure of the tGrid.

Thanks a lot for the quick info EHW..........

I noticed an issue on adding inv item. It would come up with not null error since id_customer was marked as required.  I checked off nut null. However, this time saved invoice item is not displayed tgMainCustomersTransItems tGrid.

Also, I'm not clear how to get customer details (address) on sale inv form as combo changed to label. I couldn't see onChange event for labels.

Once again I'm grateful for your kind help.........

I'm still playing with Derek's approach on refunds. It was all fine until I start testing inv report/print. I realized that it's not practical to have sale and return items on same invoice when printing; as sale and refunds usually happens at different times. If already sale invoice issued/sent later on adding refund items to same invoice and issuing it again would be incorrect. Granted, one can issue sale and refund inv headers and items separately but this would require extra attention on user part so that user doesn't add refund items to sale inv header etc.

In order to avoid all those inconveniences, I thought moving sale or refund (DbCr) combo to sale invoice header and referencing combo value on sale inv items so that user can only add sale inv items to sale inv header and vice versa. With additional coloring (Thanks to EHW) to highlight it's whether sale or refund + hiding refund reason combo and it's label if it's a sale on sale inv items form.

In attached sample project I have tried to apply coloring and getting sale/ refund (DbCr) value on sale inv item form in order to apply same coloring + show / hide refund reason combo and it's label but failed again?

EHW, I used onAfterClick for coloring on form1 add and edit buttons beside combo on change events. Thinking it'd be used with add and edit actions beside combo change on inv header. When existing record displayed with edit action it'd keep the original status (coloring) whether it's a sale or refund.

I couldn't apply foreign key constraint script to multiple delete buttons on same form.

I have lookups form contains about 15 tables with 15 delete buttons on tab pages. How can I apply one  foreign key constraint script to multiple delete buttons on a same form rather than repeating the script 15 times?

function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    if Sender = frmLookups.btnGenTaxRateDelete + frmLookups.btnGenCountryDelete + frmLookups.btnGenRetReasonDelete then
    begin
    if Pos('FOREIGN KEY constraint failed', Msg)=1 then
        begin
            result := True; // to prevent system message
            MessageBox('Record cannot be deleted....',
            'Error', MB_OK+MB_ICONWARNING);
        end;
    end;
end;

Any solution?

Hi EHW,
Thank you very much......................
Nice and clean solution!!!

Thank you very much EHW................................