i have some trobles with Harbour Mini Gui
Moderator: Rathinagiri
- Rathinagiri
- Posts: 5471
- Joined: Tue Jul 29, 2008 6:30 pm
- DBs Used: MariaDB, SQLite, SQLCipher and MySQL
- Location: Sivakasi, India
- Contact:
Re: i have some trobles with Harbour Mini Gui
You can define the window as CHILD also, provided, there are no modal windows activated.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
Re: i have some trobles with Harbour Mini Gui
Hi to you all!
It seems to work now.
Thank you Rathinagiri, Mol, Esgici, Raumi75!
Next step will be to add a new record on a DBF file. But maybe tomorrow i'll begin to work on it. It's late now and i'm tired.
I have to say, this compiler is great... But it seems to begin newly to learn as a new language..
have a nice day (or night)
It seems to work now.
Thank you Rathinagiri, Mol, Esgici, Raumi75!
Next step will be to add a new record on a DBF file. But maybe tomorrow i'll begin to work on it. It's late now and i'm tired.
I have to say, this compiler is great... But it seems to begin newly to learn as a new language..
have a nice day (or night)
--
Riccardo Piccioli
Riccardo Piccioli
Re: i have some trobles with Harbour Mini Gui
Hiya! Here is another problem.
This is my addcouse.prg
If I check the value of the variables, i see they are empty.
Iused only one variable, tb_codcorso...
This is my addcouse.prg
Code: Select all
Function f_Addcorsi
public l_codcorso := ""
public tb_codcorso := ""
public l_descrizion := ""
public tb_descrizion := ""
public tb_tipologia := ""
public L_costo_sc1 := 0
public L_costo_sc2 := 0
public L_costo_sc3 := 0
public L_costo_sc4 := 0
public L_costo_sc5 := 0
DEFINE WINDOW Aggiungicorsi ;
AT 70, 575 ;
WIDTH 620 ;
HEIGHT 370 ;
TITLE "Aggiungi Corso" ;
MODAL
DEFINE STATUSBAR
STATUSITEM '1000 Bolle Blu - Aggiungi Corsi'
END STATUSBAR
@ 30, 20 FRAME Frame_corsi CAPTION "&Inserimento Dati del corso:";
WIDTH 580 HEIGHT 256 FONT "Arial" SIZE 9 BACKCOLOR NIL FONTCOLOR NIL OPAQUE
@ 56, 30 LABEL L_codcorso VALUE "&Codice Corso:";
ACTION Nil WIDTH 120 HEIGHT 12 FONT "Arial" SIZE 9
@ 52, 120 TEXTBOX tb_codcorso HEIGHT 24 VALUE "" WIDTH 55;
FONT "Arial" SIZE 9 TOOLTIP "Inserire il codice del corso con la desinenza appropriata" MAXLENGTH 5 ON LOSTFOCUS Nil
@ 83,30 Label des01 value "Desinenze:" FONT "Arial" SIZE 7
@ 93,40 Label des02 value "EXP - Esperienza;" FONT "Arial" SIZE 7
@ 103,40 Label des03 value "REK - Ricreativo;" FONT "Arial" SIZE 7
@ 113,40 Label des04 value "PRO - Professionale;" FONT "Arial" SIZE 7
@ 123,40 Label des05 value "EFR - Sanitario;" FONT "Arial" SIZE 7
@ 133,40 Label des06 value "SPE - Specialità;" FONT "Arial" SIZE 7
@ 143,40 Label des07 value "TEK - Tecnico;" FONT "Arial" SIZE 7
@ 52,220 COMBOBOX combo_tipologia ;
ITEMS { 'Esperienza' , 'Ricreativo' , 'Professionale' , 'Sanitario' , 'Specialità Ricreativo' , 'Tecnico' , 'Specialità Tecnico' , 'Specialità Istruttore' } ;
VALUE 1 ;
DISPLAYEDIT ;
ON DISPLAYCHANGE PlayBeep()
tb_tipologia := MsgInfo( alltrim(AggiungiCorsi.Combo_tipologia.DisplayValue ))
@ 86, 200 LABEL L_descrizion VALUE "&Descrizione:";
ACTION Nil WIDTH 190 HEIGHT 12 FONT "Arial" SIZE 9
@ 82, 280 TEXTBOX tb_descrizion HEIGHT 24 VALUE "" WIDTH 300;
FONT "Arial" SIZE 9 TOOLTIP "Inserire la descrizione del corso" MAXLENGTH 40 ON LOSTFOCUS Nil
@ 116, 200 LABEL L_costo_sc1 VALUE "&Costo corso Individuale:" WIDTH 300
@ 112, 390 TEXTBOX tb_costo_sc1 Value "####.##" WIDTH 110 HEIGHT 24 FONT "Arial" SIZE 9
@ 146, 200 LABEL L_costo_sc2 VALUE "&Costo corso Collettivo:" WIDTH 300
@ 142, 390 TEXTBOX tb_costo_sc2 Value "####.##" WIDTH 110 HEIGHT 24 FONT "Arial" SIZE 9
@ 176, 200 LABEL L_costo_sc3 VALUE "&Costo corso Sconto Fascia 1:" WIDTH 300
@ 172, 390 TEXTBOX tb_costo_sc3 Value "####.##" WIDTH 110 HEIGHT 24 FONT "Arial" SIZE 9
@ 206, 200 LABEL L_costo_sc4 VALUE "&Costo corso Sconto Fascia 2:" WIDTH 300
@ 202, 390 TEXTBOX tb_costo_sc4 Value "####.##" WIDTH 110 HEIGHT 24 FONT "Arial" SIZE 9
@ 236, 200 LABEL L_costo_sc5 VALUE "&Costo corso Sconto Fascia 3:" WIDTH 300
@ 232, 390 TEXTBOX tb_costo_sc5 Value "####.##" WIDTH 110 HEIGHT 24 FONT "Arial" SIZE 9
DEFINE BUTTON conferma
ROW 260
Col 250
WIDTH 150
HEIGHT 30
ACTION conferma_addcorsi()
CAPTION "Conferma Inserimento"
TOOLTIP "Cliccare qui per confermare l'inserimento del nuovo corso"
END BUTTON
END WINDOW
AggiungiCorsi.Center
AggiungiCorsi.Activate
Return Nil
***********************************************
** Inserimento dati nell'archivio CORSI.DBF ***
***********************************************
Procedure conferma_addcorsi()
local l_codcorso
local tb_codcorso
Use corsi shared new
append blank
** Test content variables <--- The variables are empty
msginfo(l_codcorso)
msginfo(tb_codcorso)
corsi->codcorso := tb_codcorso
Use
Return Nil
Iused only one variable, tb_codcorso...
--
Riccardo Piccioli
Riccardo Piccioli