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