Página 1 de 1

tela de venda/orcamento

Enviado: 30 Jun 2012 21:33
por paulomuniz
ja tenho sistema rodando em minigui mais no momento tenho um sistema de estoque em dos clipper que usa vetor na entrada de nota fiscal, mais nao sei como fazer no minigui :( :'(

tela de venda/orcamento

Enviado: 30 Jun 2012 21:57
por sygecom
Olá Paulo,
Você postou na sessão Hwgui mas a sua duvida é sobre Minigui ou Hwgui ?
Post o exemplo de como usar no Clipper para alguém tentar lhe postar um exemplo usando LIB Gráfica.

tela de venda/orcamento

Enviado: 01 Jul 2012 12:06
por Imatech
Acredito que nas interfaces gráficas o uso seja muito parecido...

um exemplo básico seria:


Vetor (CUI):

Código: Selecionar todos


* Load Fields
Tabela->Campo_01 := aDados[  1 ]
Tabela->Campo_02 := aDados[  2 ]
Tabela->Campo_03 := aDados[  3 ]

* Save Fields
aDados[  1 ] := Tabela->Campo_01
aDados[  2 ] := Tabela->Campo_02
aDados[  3 ] := Tabela->Campo_03


TextBox (GUI):

Código: Selecionar todos


* Load Fields
Tabela->Campo_01 := Form.TextBox.TxtBox_01.Value
Tabela->Campo_02 := Form.TextBox.TxtBox_02.Value
Tabela->Campo_03 := Form.TextBox.TxtBox_03.Value


* Save Fields
Form.TextBox.TxtBox_01.Value := Tabela->Campo_01
Form.TextBox.TxtBox_02.Value := Tabela->Campo_02
Form.TextBox.TxtBox_03.Value := Tabela->Campo_03




Dica: é possivel a utilizazão de Arrays/Hash's/Vetores para criação e manipulação de controles visuais... para seu habito será importante estudar essa variante...

QT Sample: QLineEdit - Array of Line Edit
The following example uses many line edits, stored in an array, to insert and view data. (by Giovanni Di Maria)

Código: Selecionar todos


PROCEDURE Main() 
  LOCAL oWnd
  LOCAL oName[16]
  LOCAL k := 0 
  
  oWnd := QMainWindow() 
  oWnd:setWindowTitle( "Finestra di Giovanni" ) 
  oWnd:resize( 400, 250 ) 
  
  for k = 1 TO 8 
    oName[k] := QLineEdit( oWnd ) 
    oName[k]:move( 20, 22 * k ) 
    oName[k]:resize( 150, 20 ) 
  next k 
  
  for k = 9 TO 16 
    oName[k] := QLineEdit( oWnd ) 
    oName[k]:move( 180, 22 * ( k - 8 ) ) 
    oName[k]:resize( 150, 20 ) 
  next k 
  
  oWnd:show() 
  QApplication():exec() 

RETURN




Abç...