Table Browse: [Del] options

[CalScot]

I’ve just been playing around with the Table options (“Project Browser”, “Tables” tab), and although it’s easy to use and I like it, there are a couple of things related to the “[Del]” option (in “Table Edit”, “Table Browse”) that I think would make it easier or more useful:

1. For “Deleted()” records, I can’t see any way of telling that they’re flagged for deletion (like the old “*” in the screen header in dBase).
2. I can’t see any way to “UnDelete”. (Doing [Del] x 2 doesn’t do it.)
3. It would be nice to have the option to “Pack”.

Maybe these things exist and I just can’t find them, or maybe they’re not there but could be considered for inclusion in a future release?

Thanks.
CalScot

[Leopoldo Blancas]

Hola CalScot...

No entiendo bien lo que dices, pero en HMG/Samples/Grid hay varios ejemplos que consideran el DELETE de registros... Me parece que el ejemplo Grid.25.... Y lo de "Pack" existe, solo que lo tienes que hacer tu por separado, con un botón por ejemplo.

Saludos
Polo
*-------------------------------------------------------------------------------------------------------------------------------------------
Hello CalScot ...

I do not understand what you say, but HMG / Samples / Grid there are several examples that consider DELETE records ... I think the example Grid.25 .... And what of "Pack" exists, just that you have to do separately, with a button for example.

regards
Polo

[CalScot]

Hola, Polo.

Sorry if I didn't make it clear!

I meant the Tables option within HMG - not in an example or in any program I've written or am trying to write.

I'm suggesting that in the Table Browse feature of a future version of HMG, there is not only the option to [Del]ete, but also: 1) something to show that a record is marked as deleted, 2) the option to undelete a record that has been marked as deleted, and 3) the option to pack the database (without having to leave Table Browse to do it).

If you take a look at the "Table Browse" option in HMG, and try the [Del] key, you'll see what I think is missing.

I hope that's a better explanation!
Tks.
CalScot.

[Leopoldo Blancas]

Hola...

En los tópicos anteriores Roberto Lopez (Creo que así fue) dio de Baja al control BROWSE, en futuras versiones solo se va a trabajar con GRID, sabemos que BROWSE fue primero, pero ahora tenemos que acostumbrarnos con GRID. Y checa el ejemplo Grid.25 y veras que ya tiene considerado lo que dices. O como lo quisieras tu?

Saludos
Polo
*--------------------------------------------------------------
Hello ...

In the previous topics Roberto Lopez (I think it was) gave low BROWSE control, future versions will only work with GRID, we know BROWSE came first, but now we have to get used to GRID. And check out the example Grid.25 and see that you have considered what you say. Or as you would like?

regards
Polo

[CalScot]

Thank you - I will check out the Grid 25 example.

If the grid option implementation includes the things I've mentioned, then maybe it can replace Table Browse in a future version of HMG?

Thanks again.
CalScot

[Pablo César]

I do know if you have solved yet, but I have prepared an example based on Polo indication sample with DELETE KEY (like a Clipper behaviour) for delete and recall records:

Code: Select all

/*
* HMG Virtual Grid Demo
* (c) 2009 Roberto Lopez
*/

#include "hmg.ch"

#define MY_RED          {224,38,16}

Function Main
Local aValue := { Nil , Nil }
Local fColor := { || if ( deleted() , MY_RED , BLACK ) }

* Grid Column Controls Definitions

aCtrl_1 := {'TEXTBOX','NUMERIC','9999999999'}
aCtrl_2 := {'TEXTBOX','CHARACTER'}
aCtrl_3 := {'TEXTBOX','CHARACTER'}
aCtrl_4 := {'DATEPICKER','UPDOWN'}
aCtrl_5 := { 'CHECKBOX' , 'Yes' , 'No' }
aCtrl_6 := { 'EDITBOX' }

DEFINE WINDOW Form_1 ;
	AT 0,0 ;
	WIDTH 800 ;
	HEIGHT 510 ;
	TITLE 'Hello World!' ;
	MAIN
	
	ON KEY DELETE ACTION DelRecall()

	DEFINE MAIN MENU 
		POPUP 'File'
			ITEM 'Append (Alt+A)' ACTION Form_1.Grid_1.Append
			ITEM 'Set RecNo'      ACTION Form_1.Grid_1.RecNo := val(InputBox('','')) 
			ITEM 'Get RecNo'      ACTION MsgInfo( Str(Form_1.Grid_1.RecNo) )
			ITEM 'Delete (Alt+D)' ACTION Form_1.Grid_1.Delete
			ITEM 'Recall (Alt+R)' ACTION Form_1.Grid_1.Recall
			ITEM 'Get Value'      ACTION ( aValue := Form_1.Grid_1.Value , MsgInfo( Str( aValue [1] ) + ' , ' + Str( aValue [2] ) ) )
			ITEM 'Set Value'      ACTION ( aValue [ 1 ] :=  val(InputBox('New Row','Selected Cell (Value)')) , aValue [ 2 ] :=  val(InputBox('New Col','Selected Cell (Value)')) , Form_1.Grid_1.Value := { aValue [ 1 ] , aValue [ 2 ] } )
			ITEM 'Save Pending Changes (Alt+S)' ACTION Form_1.Grid_1.Save
			ITEM 'Clear Changes Buffer (Undo) (ALt+U)'  ACTION Form_1.Grid_1.ClearBuffer
		END POPUP
	END MENU

	USE TEST // SHARED

	INDEX ON CODE TO CODE

	GO TOP

	@ 10,10 GRID Grid_1 ;
		WIDTH 770 ;
		HEIGHT 440 ;
		HEADERS {'Column 1','Column 2','Column 3','Column 4','Column 5','Column 6'} ;
		WIDTHS {140,140,140,100,100,100};
		EDIT ;
		VALUE { 1 , 1 } ;
		COLUMNCONTROLS { aCtrl_1 , aCtrl_2 , aCtrl_3 , aCtrl_4 , aCtrl_5 , aCtrl_6 } ;
		ROWSOURCE "Test" ;
		COLUMNFIELDS { 'Code' ,  'First' , 'Last' ,  'Birth' , 'Married' , 'Bio' } ;
		DYNAMICFORECOLOR { fColor, fColor, fColor, fColor, fColor, fColor } ;
		ALLOWAPPEND ;
		ALLOWDELETE  

END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Function DelRecall()
If IsControlDefined(Grid_1,Form_1)
   If Deleted()
      Form_1.Grid_1.Recall
      Recall
   Else
      Form_1.Grid_1.Delete
      Delete
   Endif
Endif
Return Nil

Please note also fore color will be changed according is deleted or not. I hope to enjoy it !

[CalScot]

Thank you, Pablo, but I think I am not making clear what I'm asking for - my apologies!

It is not something that I'm trying to program, but something that I would like to see added to the way that HMG allows us to manipulate data from within HMG itself. (F.y.i., I'm using 3.1.1)

Maybe the following will explain it better:

Go to the Project Browser, then to the Tables tab, then double-click on a table to get to Table Edit, then click on Browse, and you will see the table's data and the following options:
[Alt+A]:Append - [Del]elete - [Enter]/[DblClick]:Modify

What I'm suggesting is that it would be good to have more than these three options, such as a way to "Recall", to "Pack", and something (like the asterisk in the original dBaseIII?) to show if a record is marked as Deleted.

The three existing options are very useful, but if you want to see if a record is marked as deleted, or if you want to Recall a deleted record, or if you want to pack the database, then you have to leave that screen and use another method to do these things. It would be very useful (in my opinion!) if they were included along with the existing Append, Delete and Modify options.

I hope that makes sense!! (Especially when translated?)
Thanks.
CalScot

[esgici]

Hi amigos Polo and Pablo;

our friend Scott talking about using HMG-IDE as a database manager

Please look at here for more information.

TIA

[CalScot]

Exactly! Thank you esgici!

But... If you look at step 5 on the link you included, it shows the screen with

[Alt+A]:Append - [Del]elete - [Enter]/[DblClick]:Modify

- it's the same screen (just arrived at a different way).

For me, it would be much more useful with Recall, Pack and a Deleted-flag.
Does anyone else agree? (If not, I promise to not mention it any more!!)

Regards.
CalScot

[esgici]

...
For me, it would be much more useful with ...

Dear Scott

I agree with your wish

Beside perfection and extremely usefulness, HMG-IDE is a very complicated and very big project. And our "maestro" Roberto hasn't enough time to enhance it. Moreover db manager section of HMG-IDE has not a purpose to being a ultimate db manager; it is preliminary a (perfect) project builder and a (ultimate) form designer. DB manager feature is simply a daily tool for programmers.

( IMHO there isn't and can't be an ultimate DB Manager )

By the way, did you tried DBA ?

( It's exist with source in the forum too, but I confused links )

Salute to sunny California from Turkiye

Happy HMG'ing