home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 1 / SuperCD_1.iso / pcplus / pcptutor / opdev / producto.bak < prev    next >
Text File  |  1996-10-14  |  6KB  |  219 lines
  1. ** END HEADER -- do not remove this line*
  2. * Generated on 30/09/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.ScrollBar =          2
  11.    this.HelpId = ""
  12.    this.HelpFile = ""
  13.    this.Text = "Form"
  14.    this.Height =         20.6494
  15.    this.Left =          1
  16.    this.Top =          0
  17.    this.Width =         54.875
  18.    this.ColorNormal = "N/GB"
  19.    this.View = "producto.dbf"
  20.  
  21.    DEFINE TEXT TEXT1 OF THIS;
  22.        PROPERTY; 
  23.          Text "Productos Insólitos",;
  24.          Height          2.5,;
  25.          Left          1,;
  26.          Top          0.5,;
  27.          Width         37,;
  28.          ColorNormal "RG+/GB",;
  29.          Border .F.,;
  30.          FontSize         18
  31.  
  32.    DEFINE TEXT TEXT2 OF THIS;
  33.        PROPERTY; 
  34.          Text "&Codi_prod",;
  35.          Height          1,;
  36.          Left          1,;
  37.          Top          3,;
  38.          Width         15,;
  39.          ColorNormal "B/GB",;
  40.          Border .F.,;
  41.          OldStyle .T.
  42.  
  43.    DEFINE SPINBOX SPINBOX1 OF THIS;
  44.        PROPERTY; 
  45.          DataLink "PRODUCTO->:CODI_PROD:",;
  46.          Height          1,;
  47.          Rangemax        100,;
  48.          Left         17,;
  49.          Rangemin          1,;
  50.          Top          3,;
  51.          Width          9.125,;
  52.          ColorNormal "N/W+",;
  53.          Border .T.
  54.  
  55.    DEFINE TEXT TEXT3 OF THIS;
  56.        PROPERTY; 
  57.          Text "&Nombre_ped",;
  58.          Height          1,;
  59.          Left          1,;
  60.          Top          4,;
  61.          Width         15,;
  62.          ColorNormal "B/GB",;
  63.          Border .F.,;
  64.          OldStyle .T.
  65.  
  66.    DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
  67.        PROPERTY; 
  68.          DataLink "PRODUCTO->:NOMBRE_PED:",;
  69.          Height          1,;
  70.          Left         17,;
  71.          Top          4,;
  72.          Width         35.5,;
  73.          ColorNormal "N/W+",;
  74.          Border .T.
  75.  
  76.    DEFINE TEXT TEXT4 OF THIS;
  77.        PROPERTY; 
  78.          Text "&Descr_prod",;
  79.          Height          1,;
  80.          Left          1,;
  81.          Top          5,;
  82.          Width         15,;
  83.          ColorNormal "B/GB",;
  84.          Border .F.,;
  85.          OldStyle .T.
  86.  
  87.    DEFINE ENTRYFIELD ENTRYFIELD2 OF THIS;
  88.        PROPERTY; 
  89.          DataLink "PRODUCTO->:DESCR_PROD:",;
  90.          Height          1,;
  91.          Left         17,;
  92.          Top          5,;
  93.          Width          6.25,;
  94.          ColorNormal "N/W+",;
  95.          Border .T.
  96.  
  97.    DEFINE TEXT TEXT5 OF THIS;
  98.        PROPERTY; 
  99.          Text "&Precio_uni",;
  100.          Height          1,;
  101.          Left          1,;
  102.          Top          6,;
  103.          Width         15,;
  104.          ColorNormal "B/GB",;
  105.          Border .F.,;
  106.          OldStyle .T.
  107.  
  108.    DEFINE SPINBOX SPINBOX2 OF THIS;
  109.        PROPERTY; 
  110.          DataLink "PRODUCTO->:PRECIO_UNI:",;
  111.          Height          1,;
  112.          Rangemax        100,;
  113.          Left         17,;
  114.          Rangemin          1,;
  115.          Top          6,;
  116.          Width         10.625,;
  117.          ColorNormal "N/W+",;
  118.          Border .T.
  119.  
  120.    DEFINE TEXT TEXT6 OF THIS;
  121.        PROPERTY; 
  122.          Text "&Codi_iva",;
  123.          Height          1,;
  124.          Left          1,;
  125.          Top          7,;
  126.          Width         15,;
  127.          ColorNormal "B/GB",;
  128.          Border .F.,;
  129.          OldStyle .T.
  130.  
  131.    DEFINE SPINBOX SPINBOX3 OF THIS;
  132.        PROPERTY; 
  133.          DataLink "PRODUCTO->:CODI_IVA:",;
  134.          Height          1,;
  135.          Rangemax        100,;
  136.          Left         17,;
  137.          Rangemin          1,;
  138.          Top          7,;
  139.          Width          4.625,;
  140.          ColorNormal "N/W+",;
  141.          Border .T.
  142.  
  143.    DEFINE TEXT TEXT7 OF THIS;
  144.        PROPERTY; 
  145.          Text "&Foto_prod",;
  146.          Height          1,;
  147.          Left          1,;
  148.          Top          8,;
  149.          Width         15,;
  150.          ColorNormal "B/GB",;
  151.          Border .F.,;
  152.          OldStyle .T.
  153.  
  154.    DEFINE ENTRYFIELD ENTRYFIELD3 OF THIS;
  155.        PROPERTY; 
  156.          DataLink "PRODUCTO->:FOTO_PROD:",;
  157.          Height          1,;
  158.          Left         17,;
  159.          Top          8,;
  160.          Width          6.5,;
  161.          ColorNormal "N/W+",;
  162.          Border .T.
  163.  
  164.    DEFINE TEXT TEXT8 OF THIS;
  165.        PROPERTY; 
  166.          Text "&Son_prod",;
  167.          Height          1,;
  168.          Left          1,;
  169.          Top          9,;
  170.          Width         15,;
  171.          ColorNormal "B/GB",;
  172.          Border .F.,;
  173.          OldStyle .T.
  174.  
  175.    DEFINE ENTRYFIELD ENTRYFIELD4 OF THIS;
  176.        PROPERTY; 
  177.          DataLink "PRODUCTO->:SON_PROD:",;
  178.          Height          1,;
  179.          Left         17,;
  180.          Top          9,;
  181.          Width          6.5,;
  182.          ColorNormal "N/W+",;
  183.          Border .T.
  184.  
  185.    DEFINE IMAGE IMAGE1 OF THIS;
  186.        PROPERTY; 
  187.          Height          6,;
  188.          Left          1,;
  189.          Top         11,;
  190.          Width         14,;
  191.          DataSource "BINARY PRODUCTO->FOTO_PROD"
  192.  
  193.    DEFINE PUSHBUTTON PUSHBUTTON1 OF THIS;
  194.        PROPERTY; 
  195.          OnClick CLASS::PUSHBUTTON1_ONCLICK,;
  196.          Text "Oir descripción",;
  197.          Height          3,;
  198.          Left         20,;
  199.          Top         13,;
  200.          Width         15,;
  201.          ColorNormal "N/W",;
  202.          Group .T.
  203.  
  204.    DEFINE EDITOR EDITOR1 OF THIS;
  205.        PROPERTY; 
  206.          DataLink "PRODUCTO->DESCR_PROD",;
  207.          Height          8,;
  208.          Left         36,;
  209.          Top         11,;
  210.          Width         17,;
  211.          ColorNormal "N/W*",;
  212.          Border .T.,;
  213.          Wrap .T.
  214.  
  215.    Procedure PUSHBUTTON1_OnClick
  216.    play sound binary products->prodsound
  217.  
  218. ENDCLASS
  219.