home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / tema / 602propc / disk5 / data.5 / WINTIME / APPS / PSEZNAM.VWD < prev    next >
Text File  |  1996-12-03  |  5KB  |  129 lines
  1. `Tfirma` TABLEVIEW 12 0 606 363
  2. STYLE 524352
  3. HDFTSTYLE 4337664
  4. BACKGROUND 173
  5. FONT 8 0 34 "MS Sans Serif" 
  6. TOOLBAR
  7.  0 768 0 "" _STMT_START RETURN 768                                              _STMT_END
  8.  1 769 0 "" _STMT_START RETURN 769                                              _STMT_END
  9.  2 770 0 "" _STMT_START RETURN 770                                              _STMT_END
  10.  7 1586 2 "" _STMT_START RETURN 1586                                              _STMT_END
  11.  5 1589 0 "" _STMT_START RETURN 1589                                              _STMT_END
  12.  3 1585 0 "" _STMT_START RETURN 1585                                              _STMT_END
  13.  4 1584 0 "" _STMT_START RETURN 1584                                              _STMT_END
  14.  6 1588 0 "" _STMT_START RETURN 1588                                              _STMT_END
  15.  8 1587 0 "" _STMT_START RETURN 1587                                              _STMT_END
  16.  DELREC 0 2 COMMAND FRAME "" _STMT_START RETURN 2083                                                _STMT_END
  17.  DELALL 0 0 "ZruÜit vÜechny zßznamy vΦetn∞ vÜech kontakt∙" _STMT_START RETURN 2084                                              _STMT_END
  18.  PODROB 0 2 COMMAND FRAME "PodrobnΘ zobrazenφ vybranΘ firmy..." _STMT_START RETURN 3000                                              _STMT_END
  19.  19 1610 2 RIGHT "" _STMT_START RETURN 1610                                              _STMT_END
  20. END
  21. HELP 10900
  22. BEGIN
  23.  LTEXT "&f" 19 42 55 23 18 0
  24.   PANE PAGEHEADER
  25.   PRECISION 0
  26.   VISIBILITY false
  27.  EDITTEXT 5 82 54 96 18 42008576
  28.   PANE PAGEHEADER
  29.   BACKGROUND 0
  30.   ACCESS firma
  31.   QUERYCOND "firma .= %"
  32.  LTEXT "&z" 18 188 56 23 18 0
  33.   PANE PAGEHEADER
  34.   VISIBILITY false
  35.  EDITTEXT 6 216 54 69 18 42008576
  36.   PANE PAGEHEADER
  37.   BACKGROUND 0
  38.   ACCESS prijmeni
  39.   QUERYCOND "prijmeni .= %"
  40.  LTEXT "&m" 20 292 56 16 18 0
  41.   PANE PAGEHEADER
  42.   VISIBILITY false
  43.  EDITTEXT 7 312 54 64 18 42008576
  44.   PANE PAGEHEADER
  45.   BACKGROUND 0
  46.   ACCESS mesto
  47.   QUERYCOND "mesto .= %"
  48.  PUSHBUTTON "ZruÜit v²b∞r" 10 492 52 82 22 65536
  49.   PANE PAGEHEADER
  50.   PRECISION 0
  51.   ACTION ACTION_(35,'','','')
  52.   STATUSTEXT "ZruÜenφ v²b∞ru"
  53.   FONT 9 238 34 "Arial CE" BOLD  
  54.  LTEXT 15 6 46 580 32 7
  55.   PANE PAGEHEADER
  56.  CTEXT "Vyhledßvejte zapsßnφm poΦßteΦnφch pφsmen..." 16 20 38 232 14 1
  57.   PANE PAGEHEADER
  58.   PRECISION 0
  59.  CTEXT "P°ehled firem" 12 50 8 156 24 8404993
  60.   PANE PAGEHEADER
  61.   PRECISION 0
  62.   FONT 14 238 34 "Arial CE" BOLD  
  63.  PUSHBUTTON "&Detail" 4 490 16 82 22 0
  64.   PANE PAGEHEADER
  65.   PRECISION 0
  66.   ACTION RETURN 3000
  67.   STATUSTEXT "PodrobnΘ zobrazenφ vybranΘ firmy..."
  68.   FONT 8 0 34 "MS Sans Serif" BOLD  
  69.  SUBVIEW 3 6 82 582 168 8421376
  70.   PANE PAGEHEADER
  71.   BACKGROUND 0
  72.   PRECISION 0
  73.   DEFAULT "Psezn2"
  74.  PUSHBUTTON "T&isk Ütφtku" 8 408 275 80 22 65536
  75.   PANE PAGEHEADER
  76.   BACKGROUND 248
  77.   PRECISION 0
  78.   ACTION editTisk := false;;TiskStitku(@)
  79.   STATUSTEXT "Vytiskne Ütφtek pro vybranou firmu"
  80.  PUSHBUTTON "Tisk form&ulß°e" 9 492 275 80 22 65536
  81.   PANE PAGEHEADER
  82.   BACKGROUND 248
  83.   PRECISION 0
  84.   ACTION TiskForm(@)
  85.   STATUSTEXT "Vytiskne jeden z formulß°∙ pro vybranou firmu"
  86.  PUSHBUTTON "Telefono&vat" 11 408 302 80 22 65536
  87.   PANE PAGEHEADER
  88.   BACKGROUND 248
  89.   PRECISION 0
  90.   ACTION if telefon# > 0 then Vytocit(telefon[0],firma) else Info_box('Nelze','Pro firmu nenφ zadanΘ ₧ßdnΘ telefonnφ Φφslo!')
  91.   STATUSTEXT ""
  92.  PUSHBUTTON "Fa&xovat" 13 492 302 80 22 65536
  93.   PANE PAGEHEADER
  94.   BACKGROUND 248
  95.   PRECISION 0
  96.   ACTION if fax# >0 then Odfaxovat(fax[0], firma) else Info_box('Nelze','Pro firmu nenφ zadanΘ ₧ßdnΘ faxovΘ Φφslo!')
  97.   STATUSTEXT ""
  98.  PUSHBUTTON "Kontakt&y" 30 401 16 82 22 65536
  99.   PANE PAGEHEADER
  100.   BACKGROUND 248
  101.   PRECISION 0
  102.   ACTION if Cislo=noneshort then Info_box('Nelze','Nenφ vypln∞no Φφslo firmy!');if Cislo=noneshort then halt;Schuzky(!!,@);
  103.   STATUSTEXT ""
  104.   FONT 8 0 34 "MS Sans Serif" BOLD  
  105.  PUSHBUTTON "Poznßmka" 28 6 256 58 24 65536
  106.   PANE PAGEHEADER
  107.   BACKGROUND 248
  108.   PRECISION 0
  109.   ACTION Edit_text(pozn,0,0,500,200)
  110.   STATUSTEXT "Otev°e okno s textem poznßmky"
  111.  LTEXT 69 68 260 290 66 65568
  112.   PANE PAGEHEADER
  113.   PRECISION 0
  114.   ACCESS POZN
  115.   ACTION Edit_text(pozn,0,0,500,200)
  116.   STATUSTEXT "...pro zadßvßnφ textovΘ poznßmky dvakrßt klikn∞te na tΘto slo₧ce"
  117.   FONT 8 238 49 "Courier New CE"   
  118.  LTEXT 31 67 257 292 70 7
  119.   PANE PAGEHEADER
  120.  LTEXT 14 384 258 198 70 7
  121.   PANE PAGEHEADER
  122.  CTEXT "pouze aktußlnφ zßznam" 17 401 254 121 16 1
  123.   PANE PAGEHEADER
  124.   PRECISION 0
  125.  EDITTEXT 21 26 28 70 28 8454272
  126.   ACCESS cislo
  127.   VISIBILITY false
  128. END