BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: naj ที่ มีนาคม 19, 2007, 22:28:58 PM

หัวข้อ: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: naj ที่ มีนาคม 19, 2007, 22:28:58 PM
ตัวอย่าง จาก REPORT-LABOR-STANDARD
โค๊ด: SQL
  1. [code=pascal]
  2. BEGIN
  3.   Label33.Visible := DBPipeline['Labour_Spontaneous'] = 'Y';
  4.   Label36.Visible := DBPipeline['Labour_Induced'] = 'Y';
  5.   Label38.Visible := DBPipeline['Labour_Augmentation'] = 'Y';  
  6.  
  7.   Label58.Visible := DBPipeline['Labour_Drug_MO'] = 'Y';  
  8.   Label62.Visible := DBPipeline['Labour_Drug_Phenergan'] = 'Y';  
  9.   Label66.Visible := DBPipeline['Labour_Drug_Pethidine'] = 'Y';  
  10.   Label70.Visible := DBPipeline['Labour_Drug_Other'] = 'Y';  
  11.    
  12.   Label76.Visible := DBPipeline['Membrane_ARM'] = 'Y';  
  13.   Label78.Visible := DBPipeline['Membrane_Spontancous'] = 'Y';  
  14.  
  15.   Label81.Visible := DBPipeline['Membrane_Clear'] = 'Y';  
  16.   Label83.Visible := DBPipeline['Membrane_Mild'] = 'Y';  
  17.   Label85.Visible := DBPipeline['Membrane_Moderate'] = 'Y';  
  18.   Label87.Visible := DBPipeline['Membrane_Thick'] = 'Y';  
  19.  
  20.   Label108.Visible := DBPipeline['Placenta_Drug_Methergin'] = 'Y';  
  21.   Label112.Visible := DBPipeline['Placenta_Drug_Other'] = 'Y';  
  22.  
  23.   IF (DBPipeline['Infant_Abnormality'] = 'Y') THEN
  24.   BEGIN
  25.     Label131.Visible := FALSE ;
  26.     Label133.Visible := TRUE ;
  27.   END
  28.   ELSE BEGIN
  29.     Label131.Visible := TRUE  ;
  30.     Label133.Visible := FALSE ;
  31.   END  ;
  32.  
  33.   Label136.Visible := DBPipeline['Infant_Help_O2Tubing'] = 'Y';  
  34.   Label138.Visible := DBPipeline['Infant_Help_O2Bagcmask'] = 'Y';  
  35.   Label140.Visible := DBPipeline['Infant_Help_O2ETTube'] = 'Y';  
  36.  
  37.   Label144.Visible := DBPipeline['Infant_Terramycin'] = 'Y';  
  38.   Label146.Visible := DBPipeline['Infant_VitK1'] = 'Y';  
  39.   Label148.Visible := DBPipeline['Infant_HBVac'] = 'Y';  
  40.   Label150.Visible := DBPipeline['Infant_HBIG'] = 'Y';  
  41.  
  42.   IF DBPipeline['Note_Effect'] = 'Y' THEN
  43.   BEGIN
  44.     Label154.Visible := FALSE;
  45.     Label156.Visible := TRUE;
  46.   END ELSE
  47.   BEGIN
  48.     Label154.Visible := TRUE;
  49.     Label156.Visible := FALSE;
  50.   END ;
  51.  
  52.  
  53. END;
[/code]
หัวข้อ: Re: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: naj ที่ มีนาคม 19, 2007, 22:36:19 PM
ยกตัวอย่างเช่น ถ้าคนไข้แพ้ยาให้มี checkbox ตรงช่องที่แพ้ยา

      [/] แพ้        [] ไม่แพ้
หัวข้อ: Re: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: naj ที่ มีนาคม 19, 2007, 22:42:16 PM
ก่อนจะเริ่มทำ เราต้องรู้จัก  characters ที่เราจะใช้กันก่อนนะครับ
ดูได้ที่  http://www.delphibasics.co.uk/Article.asp?Name=Text
ยกตัวอย่าง
 The Ansi character set
  Char Code Description
 
       9  Tab
      10  Line feed
      13  Carriage return
 ' '  32  Space
  !   33  Exclamation mark
  "   34  Quotation mark
  #   35  Number sign
  $   36  Dollar sign
  %   37  Percent sign
  &   38  Ampersand
  '   39  Apostrophe
  (   40  Left parenthesis
  )   41  Right parenthesis
  *   42  Asterisk
  +   43  Plus sign
  ,   44  Comma
  -   45  Hyphen-minus
  .   46  Full stop
  /   47  Solidus
  0   48  Digit zero
  1   49  Digit one
  2   50  Digit two
  3   51  Digit three
  4   52  Digit four
  5   53  Digit five
  6   54  Digit six
  7   55  Digit seven
  8   56  Digit eight
  9   57  Digit nine
  :   58  Colon
  ;   59  Semicolon
  <   60  Less-than sign
  =   61  Equals sign
  >   62  Greater-than sign
  ?   63  Question mark
  @   64  Commercial at
  A   65  Latin capital letter A
  B   66  Latin capital letter B
  C   67  Latin capital letter C
  D   68  Latin capital letter D
  E   69  Latin capital letter E
  F   70  Latin capital letter F
  G   71  Latin capital letter G
  H   72  Latin capital letter H
  I   73  Latin capital letter I
  J   74  Latin capital letter J
  K   75  Latin capital letter K
  L   76  Latin capital letter L
  M   77  Latin capital letter M
  N   78  Latin capital letter N
  O   79  Latin capital letter O
  P   80  Latin capital letter P
  Q   81  Latin capital letter Q
  R   82  Latin capital letter R
  S   83  Latin capital letter S
  T   84  Latin capital letter T
  U   85  Latin capital letter U
  V   86  Latin capital letter V
  W   87  Latin capital letter W
  X   88  Latin capital letter X
  Y   89  Latin capital letter Y
  Z   90  Latin capital letter Z
  [   91  Left square bracket
  \   92  Reverse solidus
  ]   93  Right square bracket
  ^   94  Circumflex accent
  _   95  Low line
  `   96  Grave accent
  a   97  Latin small letter a
  b   98  Latin small letter b
  c   99  Latin small letter c
  d  100  Latin small letter d
  e  101  Latin small letter e
  f  102  Latin small letter f
  g  103  Latin small letter g
  h  104  Latin small letter h
  i  105  Latin small letter i
  j  106  Latin small letter j
  k  107  Latin small letter k
  l  108  Latin small letter l
  m  109  Latin small letter m
  n  110  Latin small letter n
  o  111  Latin small letter o
  p  112  Latin small letter p
  q  113  Latin small letter q
  r  114  Latin small letter r
  s  115  Latin small letter s
  t  116  Latin small letter t
  u  117  Latin small letter u
  v  118  Latin small letter v
  w  119  Latin small letter w
  x  120  Latin small letter x
  y  121  Latin small letter y
  z  122  Latin small letter z
 
 
หัวข้อ: Re: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: naj ที่ มีนาคม 19, 2007, 22:57:21 PM
ขอเวลาทำรายงานสักครู่ ครับ :D
หัวข้อ: Re: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: doramon ที่ มีนาคม 19, 2007, 22:58:03 PM
โอๆๆๆๆๆๆๆๆๆๆๆๆๆๆๆๆ สุดยอด
 ;D ;D ;D ;D ;D
หัวข้อ: Re: วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible
เริ่มหัวข้อโดย: naj ที่ มีนาคม 20, 2007, 00:43:23 AM
เพิ่งสังเกตว่าตัวเองมี ดาวเพิ่มมาอีกดวงแล้ว :)