Search options (Page 31 of 42)

2017-02-02 12:19:55

Hi JB,

Thanks for the extra information.
However, my question remains unanswered. Please see my previous question above post#9
It's about searching in combobox.

2017-02-01 20:09:11

I wanted add search in combobox on another form (frmInvoice) where combo field contains firstname and lastname. {firstname} {lastname}
It works fine with last name but not with first name or both together.

on frmInvoice
i.e. typing bai finds all persons with lastname Bailey and lists in combo drop-down OK.
However, typing david or david bai doesnt find anything?
There is a David Bailey saved in person db.

Please see the attached sample projects:

2017-02-01 00:17:43

Thank you so much EHW..........................................................

OnAfterClick did the trick.

2017-01-31 18:01:19

Thank you so much Dmitry............

I have multiple tabs on form1 with eact tab having tGrid record listing and details of selected grid.

I used just the following to test first tab on form1:

procedure Form1_Button48_OnClick (Sender: string; var Cancel: boolean);
begin
    ClearAllComponents(Form1);
end;

However, it cleared everything on the form1 including unselected tGrid records?
After clearing everything info dialog says "No record selected to delete."

I have c/p your A function to clear all components on form script as it's and after added the above script.
I'm sure that I making a mistake but cannot find it:

procedure ClearAllComponents(Form: TAForm);
var
    i,c : Integer;
begin
    c := Form.ComponentCount - 1;
    For i := 0 to c do
    begin
       IF Form.Components[i] is TdbEdit Then TdbEdit(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbEditCount Then TdbEditCount(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbMemo Then TdbMemo(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbComboBox Then TdbComboBox(Form.Components[i]).dbItemID := -1;
       IF Form.Components[i] is TdbCheckBox Then TdbCheckBox(Form.Components[i]).State := TdbCheckBox(Form.Components[i]).dbDefaultState;
       IF Form.Components[i] is TdbDateTimePicker Then TdbDateTimePicker(Form.Components[i]).Checked := False;
       IF Form.Components[i] is TdbImageDataBase Then TdbImageDataBase(Form.Components[i]).Clear;
       IF Form.Components[i] is TdbMonthCalendar Then TdbMonthCalendar(Form.Components[i]).Date := now;
       IF Form.Components[i] is TdbStringGridEx Then TdbStringGridEx(Form.Components[i]).ClearRows;
       IF Form.Components[i] is TdbFileToDatabase Then
       begin
           TdbFileToDatabase(Form.Components[i]).Text := '';
           TdbFileToDatabase(Form.Components[i]).dbFileName := '';
       end;
    end;
end;


// --------->> form1 COMPANY tab
procedure Form1_Button48_OnClick (Sender: string; var Cancel: boolean);
begin
    ClearAllComponents(Form1);
end;

// --------->> form1 CUSTOMERS tab
procedure Form1_Button3_OnClick (Sender: string; var Cancel: boolean);
begin
    ClearAllComponents(Form1);
end;

// --------->> form1 PRODUCTS tab
procedure Form1_Button6_OnClick (Sender: string; var Cancel: boolean);
begin
    ClearAllComponents(Form1);
end;

2017-01-31 12:26:20

Hi Dmitry,

Is there any solution please?

AD1408 wrote:

Hi EHW,

Thanks for your kind help...... Always appreciated.

Lets hope Dmitry provides the remaining solution for clearing remaining field types after delete.
If possible, it needs to clear images, checkboxes, dates, memo and comboboxes field types too

2017-01-30 18:41:34

Hi EHW,

Thanks for your kind help...... Always appreciated.

Lets hope Dmitry provides the remaining solution for clearing remaining field types after delete.

If possible, it needs to clear images, checkboxes, dates, memo and comboboxes field types too

2017-01-30 18:36:06

I manage to solve out the issue by using a button for lookups with an action new record and updated the script as follows:

procedure MenuClick4 (Sender: string);
begin
     form1.btnLookups.click;
end;

I'd have preferred a direct syntax on menu item for new record. Perhaps it's not supported as yet until menu system implemented.

2017-01-29 11:58:44

I have posted the following on a different thread with another question, perhaps it's best to post on a new thread here

I have a menu item to launch Lookups form and this form uses MVD v3.1 tGrid with on grid edit only for adding new records.

showModal doesn't work. It needs newRecord action.

procedure MenuClick4 (Sender: string);
begin
     frmLookups.'NewRecord';
end;

the NewRecord in above script is not accepted. What's the correct action name for NewRecord please?

2017-01-29 11:44:53

Hi JB,

Jezebel from hell asked me to do some accounting app for her and she is very demanding...

On serious note, I still need a help on clearing images, checkboxes, dates and comboboxes field types as stated on my previous post #9.

2017-01-29 11:37:22

Added onchange event and it seems to be working atm.

procedure Form1_tgSearchPurchInv_OnChange (Sender: string);
begin
  form1.edSaleTabPurchInvTotals.Value:= Form1.tgSearchPurchInv.Columns[6].Footer.FormulaValue;
end;

2017-01-28 12:11:34

np JB.

Yes, EHW script is good for clearing multiple fields.

If possible, it needs to clear images, checkboxes, dates and comboboxes field types too beside textboxes.

The following clears tGrid OK:

procedure Form1_tgSearch_Customers_OnChange (Sender: string);
begin
   Form1.tgSearchCustInvItems.ClearRows;
end;

To clear images, checkboxes, dates and comboboxes I have tried to add EHW script but it didn't work:

procedure Form1_Button8_OnClick (Sender: string; var Cancel: boolean);
var i : Integer;
begin
       For i := 0 to Form1.ComponentCount -1 do
       IF Form1.Components[i] is TdbEdit Then TdbEdit(Form1.Components[i]).Clear;
end;

begin
       For i := 0 to Form1.ComponentCount -1 do
       IF Form1.Components[i] is TCheckBox Then TCheckBox (Form1.Components[i]).Clear;
end;

begin
       For i := 0 to Form1.ComponentCount -1 do
       IF Form1.Components[i] is TComboBox Then TComboBox (Form1.Components[i]).Clear;
end;

begin
       For i := 0 to Form1.ComponentCount -1 do
       IF Form1.Components[i] is TDateTime Then TDateTime (Form1.Components[i]).Clear;
end;

begin
       For i := 0 to Form1.ComponentCount -1 do
       IF Form1.Components[i] is TImage Then TImage (Form1.Components[i]).Clear;
end;

2017-01-28 03:30:55

procedure Form1_OnShow (Sender: string; Action: string);
  begin
    Form1.edSaleTabSaleInvTotals.Value := Form1.tgSearchSaleInv.Columns[9].Footer.FormulaValue;
    Form1.edSaleTabPurchInvTotals.Value := Form1.tgSearchPurchInv.Columns[6].Footer.FormulaValue;
  end;


procedure CalculateTotal;

begin
    Form1.edSaleTabDifference.Value := Form1.edSaleTabSaleInvTotals.value - Form1.edSaleTabPurchInvTotals.Value;
end;

procedure Form1_edSaleTabSaleInvTotals_OnChange (Sender: string);
 begin
    CalculateTotal;
 end;

 procedure Form1_edSaleTabPurchInvTotals_OnChange (Sender: string);
 begin
    CalculateTotal;
 end;

The above code copies tGrids footers and calc.

"edSaleTabPurchInvTotals" textbox field (please see img below) needs an update script on change of "t.tgSearchPurchInv.Columns[6].Footer"
Unfortunately, I failed to come up with an update script.

2017-01-27 23:45:00

Derek,

Thank you VERY much for quick reply...............................

I tried many variations without var and I couldn't get it working.
Your code with var works fine.

2017-01-27 22:55:37

AD1408 wrote:

Hi Derek,
..........
I got the dates was left out among image fields but couldn't convert the image script below to 'nested select' script:
Form1.dbiSearchDetCustImage.LoadFromDatabase('Customers', 'image', Form1.tgSearch_Invoices.dbItemID);

Derek, I guess the above for Dmitry

2017-01-27 20:29:10

Hi JB,

Thanks a lot...

I was looking for short script as in EHW script to handle many fields. Please see the post #1

2017-01-27 20:27:14

Hi Derek,

Thank you sooooooooo much...................

I got the dates was left out among image fields but couldn't convert the image script below to 'nested select' script:

Form1.dbiSearchDetCustImage.LoadFromDatabase('Customers', 'image', Form1.tgSearch_Invoices.dbItemID);

2017-01-27 15:54:43

I used same script for showing customers details on form1 customers and invoices tab.
Script works for customers tab but not on invoices tab.
Difference is that inv tgGrid on Invoices tab displaying data from InvoiceHeader table therefore invoice details displayed, however customer details are not .
I have linked InvoiceHeader table to Customers table but couldn't get it working.

Please see the attached sample project:

2017-01-27 14:06:25

Thank you so much EHW and Dmitry...............................

Assuming I applied the code correctly, not all cleared after a record deleted.
Please see reference images below:
Before deleting Paul Low record

After delete:

Image, date, combobox fields and associated tGrid is not cleared?

-----------------------------------
ps/.
I didn't want to start a new thread for this small issue of mine.
I have a menu item to launch Lookups form and this form uses MVD v3.1 tGrid with on grid edit only.

showModal doesn't work. It needs newRecord action.

procedure MenuClick4 (Sender: string);
begin
     frmLookups.'NewRecord';
end;

the NewRecord in above script is not accepted. What's the correct word please?

2017-01-26 19:10:16

Is there shorter way of clearing fields after deleting a record?

It's ok using .clear for few fields but when there are too many fields (i.e. over 500) writing a line for each field not an attractive proposition.

Below clears only a single field.

procedure Form1_tgSearch_Customers_OnChange (Sender: string);
begin
   Form1.EdSearch_InfoName.Clear;
end;

I have to add over 500 lines similar to
Form1.EdSearch_InfoName.Clear;

Perhaps there is a shorter way of achieving the task?

2017-01-25 14:51:23

Thank you so much Dmitry.....................

2017-01-24 12:46:47

AD1408 wrote:

Thanks Dmitry,

I tried following but get "List index out of bounds (1)" warning
procedure frmSaleTransHist_OnShow (Sender: string);
  begin
    frmSaleTransHist.edSaleTransInvTotal.Value := Form1.tgSearchSaleInv.Columns[9].Footer.FormulaValue;
  end;

???

Edit:
What I'm trying to do is copy tGrid footer values to another form and do calculations there
Please see the Updated sample project 2 with error and calc attached:

2017-01-23 17:45:48

Thanks Dmitry,

I tried following but get "List index out of bounds (1)" warning

procedure frmSaleTransHist_OnShow (Sender: string);
  begin
    frmSaleTransHist.edSaleTransInvTotal.Value := Form1.tgSearchSaleInv.Columns[9].Footer.FormulaValue;
  end;

Actually, I wanted copy form1/tgSearchSaleInv footer value.
Corrected frmSaleTransHist component name to edSaleTransInvTotal

2017-01-23 02:02:23

This time I wanted to copy tGrid footer value from one form into another form edit field with it's decimals and thousands separator.

Source frmSaleInv tGrid, target frmSaleTransHist / edSaleInvTotal field. I tried the following but didn't work:

procedure frmSaleTransHist_OnShow (Sender: string);

    begin
    frmSaleTransHist.edSaleTransInvTotal.Value := frmSaleInv.tgSaleInv.Columns[9].Footer.FormulaValue;

    end;

Please see the attached sample project:

2017-01-20 23:43:39

Looks like I made two simple mistake.

Thanks a lot EHW........................

2017-01-20 22:15:06

ehwagner wrote:

Attach your project Adam and I'll take a look at it.

Thanks EHW...

Here is the sample project:

Search options (Page 31 of 42)

Posts found: 751 to 775 of 1,044

751 Reply by AD1408 2017-02-02 12:19:55

Re: ComboBox Search (22 replies, posted in General)

752 Reply by AD1408 2017-02-01 20:09:11

Re: ComboBox Search (22 replies, posted in General)

753 Reply by AD1408 2017-02-01 00:17:43

Re: Clearing after delete... (21 replies, posted in General)

754 Reply by AD1408 2017-01-31 18:01:19

Re: Clearing after delete... (21 replies, posted in General)

755 Reply by AD1408 2017-01-31 12:26:20

Re: Clearing after delete... (21 replies, posted in General)

756 Reply by AD1408 2017-01-30 18:41:34

Re: Clearing after delete... (21 replies, posted in General)

757 Reply by AD1408 2017-01-30 18:36:06

Re: Menu item for new record (2 replies, posted in General)

758 Topic by AD1408 2017-01-29 11:58:44

Topic: Menu item for new record (2 replies, posted in General)

759 Reply by AD1408 2017-01-29 11:44:53

Re: Clearing after delete... (21 replies, posted in General)

760 Reply by AD1408 2017-01-29 11:37:22

Re: Updating TextBox (1 replies, posted in General)

761 Reply by AD1408 2017-01-28 12:11:34

Re: Clearing after delete... (21 replies, posted in General)

762 Topic by AD1408 2017-01-28 03:30:55

Topic: Updating TextBox (1 replies, posted in General)

763 Reply by AD1408 2017-01-27 23:45:00

Re: Showing details (5 replies, posted in General)

764 Reply by AD1408 2017-01-27 22:55:37

Re: Showing details (5 replies, posted in General)

765 Reply by AD1408 2017-01-27 20:29:10

Re: Clearing after delete... (21 replies, posted in General)

766 Reply by AD1408 2017-01-27 20:27:14

Re: Showing details (5 replies, posted in General)

767 Topic by AD1408 2017-01-27 15:54:43

Topic: Showing details (5 replies, posted in General)

768 Reply by AD1408 2017-01-27 14:06:25

Re: Clearing after delete... (21 replies, posted in General)

769 Topic by AD1408 2017-01-26 19:10:16

Topic: Clearing after delete... (21 replies, posted in General)

770 Reply by AD1408 2017-01-25 14:51:23

Re: Copying tGrid footer values... (8 replies, posted in General)

771 Reply by AD1408 2017-01-24 12:46:47

Re: Copying tGrid footer values... (8 replies, posted in General)

772 Reply by AD1408 2017-01-23 17:45:48

Re: Copying tGrid footer values... (8 replies, posted in General)

773 Reply by AD1408 2017-01-23 02:02:23

Re: Copying tGrid footer values... (8 replies, posted in General)

774 Reply by AD1408 2017-01-20 23:43:39

Re: Reports (48 replies, posted in General)

775 Reply by AD1408 2017-01-20 22:15:06

Re: Reports (48 replies, posted in General)

Posts found: 751 to 775 of 1,044