home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Plus SuperCD 1
/
SuperCD_1.iso
/
pcplus
/
pcptutor
/
opdev
/
producto.wfk
< prev
next >
Wrap
Text File
|
1996-10-14
|
5KB
|
186 lines
** END HEADER -- do not remove this line*
* Generated on 02/10/96
*
LOCAL f
f = NEW PRODUCTOFORM()
f.Open()
CLASS PRODUCTOFORM OF FORM
Set Procedure To C:\DBASEWIN\SAMPLES\BUTTONS.CC additive
this.Left = 0.833
this.Top = 0.2344
this.Width = 60.166
this.ColorNormal = "N/GB"
this.Text = "Form"
this.View = "producto.dbf"
this.ScrollBar = 2
this.HelpId = ""
this.HelpFile = ""
this.Height = 15.8818
DEFINE TEXT TEXT1 OF THIS;
PROPERTY;
Left 1,;
Top 0.5,;
Width 43,;
ColorNormal "RG+/GB",;
Border .F.,;
Text "Productos Insólitos",;
FontSize 18,;
Height 2.0293
DEFINE TEXT TEXT2 OF THIS;
PROPERTY;
Left 1,;
Top 3,;
Width 15,;
ColorNormal "B/GB",;
Border .F.,;
Text "&Codi_prod",;
OldStyle .T.,;
Height 1
DEFINE SPINBOX SPINBOX1 OF THIS;
PROPERTY;
Left 17,;
Top 3,;
Width 11.166,;
ColorNormal "N/W+",;
Border .T.,;
Rangemin 1,;
DataLink "PRODUCTO->:CODI_PROD:",;
Rangemax 100,;
Height 1
DEFINE TEXT TEXT3 OF THIS;
PROPERTY;
Left 1,;
Top 4,;
Width 15,;
ColorNormal "B/GB",;
Border .F.,;
Text "&Nombre_pro",;
OldStyle .T.,;
Height 1
DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
PROPERTY;
Left 17,;
Top 4,;
Width 35.666,;
ColorNormal "N/W+",;
Border .T.,;
DataLink "PRODUCTO->:NOMBRE_PRO:",;
Height 1
DEFINE TEXT TEXT4 OF THIS;
PROPERTY;
Left 1,;
Top 5,;
Width 15,;
ColorNormal "B/GB",;
Border .F.,;
Text "&Descr_prod",;
OldStyle .T.,;
Height 1
DEFINE ENTRYFIELD ENTRYFIELD2 OF THIS;
PROPERTY;
Left 16,;
Top 5,;
Width 7,;
ColorNormal "N/W+",;
Border .T.,;
DataLink "PRODUCTO->:DESCR_PROD:",;
Height 1
DEFINE TEXT TEXT5 OF THIS;
PROPERTY;
Left 1,;
Top 6,;
Width 15,;
ColorNormal "B/GB",;
Border .F.,;
Text "&Precio_uni",;
OldStyle .T.,;
Height 1
DEFINE SPINBOX SPINBOX2 OF THIS;
PROPERTY;
Left 17,;
Top 6,;
Width 12.666,;
ColorNormal "N/W+",;
Border .T.,;
Rangemin 1,;
DataLink "PRODUCTO->:PRECIO_UNI:",;
Rangemax 100,;
Height 1
DEFINE TEXT TEXT6 OF THIS;
PROPERTY;
Left 1,;
Top 7,;
Width 15,;
ColorNormal "B/GB",;
Border .F.,;
Text "&Codi_iva",;
OldStyle .T.,;
Height 1
DEFINE SPINBOX SPINBOX3 OF THIS;
PROPERTY;
Left 17,;
Top 7,;
Width 5.166,;
ColorNormal "N/W+",;
Border .T.,;
Rangemin 1,;
DataLink "PRODUCTO->:CODI_IVA:",;
Rangemax 100,;
Height 1
DEFINE IMAGE IMAGE1 OF THIS;
PROPERTY;
Left 2,;
Top 9,;
Width 16,;
DataSource "BINARY PRODUCTO->FOTO_PROD",;
Height 6
DEFINE PUSHBUTTON PUSHBUTTON1 OF THIS;
PROPERTY;
Left 20,;
Top 11,;
Width 14,;
ColorNormal "N/W",;
OnClick CLASS::PUSHBUTTON1_ONCLICK,;
Text "Oir descripción",;
Default .T.,;
Group .T.,;
Height 2
DEFINE EDITOR EDITOR1 OF THIS;
PROPERTY;
Left 36,;
Top 9,;
Width 20,;
ColorNormal "N/W*",;
Border .T.,;
DataLink "PRODUCTO->DESCR_PROD",;
Wrap .T.,;
Height 6
Procedure PUSHBUTTON1_OnClick
play sound binary producto->son_prod
ENDCLASS