วันนี้จะมาแนะนำลูกเล่นให้กับรายงานที่เราสร้างโดยใช้ visible

[naj]

ตัวอย่าง จาก 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]

[naj]

ยกตัวอย่างเช่น ถ้าคนไข้แพ้ยาให้มี checkbox ตรงช่องที่แพ้ยา

      [/] แพ้        [] ไม่แพ้

[naj]

ก่อนจะเริ่มทำ เราต้องรู้จัก  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
 
 

[naj]

ขอเวลาทำรายงานสักครู่ ครับ

[doramon]

โอๆๆๆๆๆๆๆๆๆๆๆๆๆๆๆๆ สุดยอด
 

[naj]

เพิ่งสังเกตว่าตัวเองมี ดาวเพิ่มมาอีกดวงแล้ว