Search options (Page 24 of 34)

Thank you Dmitry for fixing my project beyond expectation. You rock!

there was a little mistake in the script, this is how it has been fixed:

procedure Form1_GridTop_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    if Form1.GridTop.Cells[9,ARow]='Yes' then
        Form1.bottom_grid.dbPopupMenu.Items[0].Enabled:= False
    else Form1.bottom_grid.dbPopupMenu.Items[0].Enabled:= True;
end;

When I say it does not work, I mean that even with your script, I still can edit the value of a row in bottom grid using double click which should not be the case

It makes no difference in short.

Hi,

yes I want to disable editing by double click on bottom grid if a column in top grid is contains a certain value.

I do not understand your script, could you explain please?

Oh, is that simple as that?

I used this script

procedure Form1_OnShow (Sender: string; Action: string); 
begin
if Form1.Checkbox1.Checked then Form1.color := $003333FF else Form1.color:= $00FFCC99; 
end;

Works like a charm

Thanks Derek

Great, thanks Dmitry. Super fast as usual

You should implement an answer scoring on your forum

Sounds good for the future!! A multiplatform easy way to develop database application, thumbs up!

Ok I see, we do not use it the same way

I actually use the memo component to be able to write a multiline comment with clear view on what is being written, then I click on "Save Maintenance", it records all entries in a table "Maintenances" using scripts shown below. When opening back the form for the same switch (show record) last entry remains.

// Save maintenance into separate table
procedure ADD_switch_Button1_OnClick (Sender: string; var Cancel: boolean);
begin

   SQLExecute ('INSERT INTO maintenances (Hostname,Description,DateMaint,IMAC,MAC_ADDRESS) VALUES ('+ ADD_switch.hostname_add.sqlValue+','+ADD_switch.Descript1.sqlValue+','+ADD_switch.DateMaint.sqlDate+', '+ADD_switch.IMAC.sqlValue+','+ADD_switch.mac_add.sqlValue+' )');

    ADD_switch.Close;

end;


// Display maintenances related to current Switch

procedure ADD_switch_OnShow (Sender: string; Action: string);
var
    sSW_ID: string;
begin
    sSW_ID := ADD_switch.mac_add.sqlValue; // get current MAC Address

    ADD_switch.MaintHistory.dbSQL:='SELECT Hostname, MAC_ADDRESS, Description, strftime("%d.%m.%Y" ,Datemaint), IMAC FROM Maintenances where MAC ='+sSW_ID+;
    ADD_switch.MaintHistory.dbListFieldsNames :='Hostname,Details Maint,Date Maint, IMAC';
    ADD_switch.MaintHistory.dbSQLExecute;
end;

This might be possible using a parameter form in your application. You would have to replace 'c:\Test' by a SQL query like for a variable I guess. Master Dmitry may have a better idea, though

This is an issue I already raised for encrypted database, the script files are readable with password not being encrypted. It would be better in a future release to embed the scripts into the ".exe". Doing so, it would be harder to hack the database.

Any news for a true multiline textbox component?

I need to support multiline entries in my project and I struggle to get it working properly. When designing I can draw a very nice big textbox which reduces automatically to 1 line when starting the application.

I tried to use memo instead but it retains latest entry every time I display the edition form without closing the application on same record. Is there a way to at least clear the memo component when closing the form?

Of course, use Combobox component and enter manually the name of your table or select the foreign key.