home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 1 / SuperCD_1.iso / pcplus / pcptutor / opdev / producto.wfk < prev    next >
Text File  |  1996-10-14  |  5KB  |  186 lines
  1. ** END HEADER -- do not remove this line*
  2. * Generated on 02/10/96
  3. *
  4. LOCAL f
  5. f = NEW PRODUCTOFORM()
  6. f.Open()
  7.  
  8. CLASS PRODUCTOFORM OF FORM
  9.    Set Procedure To C:\DBASEWIN\SAMPLES\BUTTONS.CC additive
  10.    this.Left =          0.833
  11.    this.Top =          0.2344
  12.    this.Width =         60.166
  13.    this.ColorNormal = "N/GB"
  14.    this.Text = "Form"
  15.    this.View = "producto.dbf"
  16.    this.ScrollBar =          2
  17.    this.HelpId = ""
  18.    this.HelpFile = ""
  19.    this.Height =         15.8818
  20.  
  21.    DEFINE TEXT TEXT1 OF THIS;
  22.        PROPERTY; 
  23.          Left          1,;
  24.          Top          0.5,;
  25.          Width         43,;
  26.          ColorNormal "RG+/GB",;
  27.          Border .F.,;
  28.          Text "Productos Insólitos",;
  29.          FontSize         18,;
  30.          Height          2.0293
  31.  
  32.    DEFINE TEXT TEXT2 OF THIS;
  33.        PROPERTY; 
  34.          Left          1,;
  35.          Top          3,;
  36.          Width         15,;
  37.          ColorNormal "B/GB",;
  38.          Border .F.,;
  39.          Text "&Codi_prod",;
  40.          OldStyle .T.,;
  41.          Height          1
  42.  
  43.    DEFINE SPINBOX SPINBOX1 OF THIS;
  44.        PROPERTY; 
  45.          Left         17,;
  46.          Top          3,;
  47.          Width         11.166,;
  48.          ColorNormal "N/W+",;
  49.          Border .T.,;
  50.          Rangemin          1,;
  51.          DataLink "PRODUCTO->:CODI_PROD:",;
  52.          Rangemax        100,;
  53.          Height          1
  54.  
  55.    DEFINE TEXT TEXT3 OF THIS;
  56.        PROPERTY; 
  57.          Left          1,;
  58.          Top          4,;
  59.          Width         15,;
  60.          ColorNormal "B/GB",;
  61.          Border .F.,;
  62.          Text "&Nombre_pro",;
  63.          OldStyle .T.,;
  64.          Height          1
  65.  
  66.    DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
  67.        PROPERTY; 
  68.          Left         17,;
  69.          Top          4,;
  70.          Width         35.666,;
  71.          ColorNormal "N/W+",;
  72.          Border .T.,;
  73.          DataLink "PRODUCTO->:NOMBRE_PRO:",;
  74.          Height          1
  75.  
  76.    DEFINE TEXT TEXT4 OF THIS;
  77.        PROPERTY; 
  78.          Left          1,;
  79.          Top          5,;
  80.          Width         15,;
  81.          ColorNormal "B/GB",;
  82.          Border .F.,;
  83.          Text "&Descr_prod",;
  84.          OldStyle .T.,;
  85.          Height          1
  86.  
  87.    DEFINE ENTRYFIELD ENTRYFIELD2 OF THIS;
  88.        PROPERTY; 
  89.          Left         16,;
  90.          Top          5,;
  91.          Width          7,;
  92.          ColorNormal "N/W+",;
  93.          Border .T.,;
  94.          DataLink "PRODUCTO->:DESCR_PROD:",;
  95.          Height          1
  96.  
  97.    DEFINE TEXT TEXT5 OF THIS;
  98.        PROPERTY; 
  99.          Left          1,;
  100.          Top          6,;
  101.          Width         15,;
  102.          ColorNormal "B/GB",;
  103.          Border .F.,;
  104.          Text "&Precio_uni",;
  105.          OldStyle .T.,;
  106.          Height          1
  107.  
  108.    DEFINE SPINBOX SPINBOX2 OF THIS;
  109.        PROPERTY; 
  110.          Left         17,;
  111.          Top          6,;
  112.          Width         12.666,;
  113.          ColorNormal "N/W+",;
  114.          Border .T.,;
  115.          Rangemin          1,;
  116.          DataLink "PRODUCTO->:PRECIO_UNI:",;
  117.          Rangemax        100,;
  118.          Height          1
  119.  
  120.    DEFINE TEXT TEXT6 OF THIS;
  121.        PROPERTY; 
  122.          Left          1,;
  123.          Top          7,;
  124.          Width         15,;
  125.          ColorNormal "B/GB",;
  126.          Border .F.,;
  127.          Text "&Codi_iva",;
  128.          OldStyle .T.,;
  129.          Height          1
  130.  
  131.    DEFINE SPINBOX SPINBOX3 OF THIS;
  132.        PROPERTY; 
  133.          Left         17,;
  134.          Top          7,;
  135.          Width          5.166,;
  136.          ColorNormal "N/W+",;
  137.          Border .T.,;
  138.          Rangemin          1,;
  139.          DataLink "PRODUCTO->:CODI_IVA:",;
  140.          Rangemax        100,;
  141.          Height          1
  142.  
  143.    DEFINE IMAGE IMAGE1 OF THIS;
  144.        PROPERTY; 
  145.          Left          2,;
  146.          Top          9,;
  147.          Width         16,;
  148.          DataSource "BINARY PRODUCTO->FOTO_PROD",;
  149.          Height          6
  150.  
  151.    DEFINE PUSHBUTTON PUSHBUTTON1 OF THIS;
  152.        PROPERTY; 
  153.          Left         20,;
  154.          Top         11,;
  155.          Width         14,;
  156.          ColorNormal "N/W",;
  157.          OnClick CLASS::PUSHBUTTON1_ONCLICK,;
  158.          Text "Oir descripción",;
  159.          Default .T.,;
  160.          Group .T.,;
  161.          Height          2
  162.  
  163.    DEFINE EDITOR EDITOR1 OF THIS;
  164.        PROPERTY; 
  165.          Left         36,;
  166.          Top          9,;
  167.          Width         20,;
  168.          ColorNormal "N/W*",;
  169.          Border .T.,;
  170.          DataLink "PRODUCTO->DESCR_PROD",;
  171.          Wrap .T.,;
  172.          Height          6
  173.  
  174.    Procedure PUSHBUTTON1_OnClick
  175.    play sound binary producto->son_prod
  176.    
  177. ENDCLASS
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.