ข้มูลการสูบบุหรี่/ดื่มสุรา บน OPD card

[vinaisena]

ถ้าจะให้ ข้อมูลที่ พยาบาลคัดกรอง มีข้อมูลการสูบหรี่ การดื่มสุรา อยู่บน OPD card จะต้องทำอย่างไรบ้างครับ

[เกื้อกูล ครับ..]

ปรึกษา เจ๊ขวด...พี่วินัยจะได้ตามต้องการทุกประการครับ..ฟันธง..

[golf_win]

มาแทนเผื่อพี่ขวดยังไม่ว่างครับ โดยวาง variable มา 1 ตัว แล้วใส่คำสั่งตามนี้ครับ

if GetSQLIntegerData('select smoking_type_id from opdscreen where vn="'+DBPipeline['vn'] +'"')<>0 then
Value := '¡ÒÃÊÙººØËÃÕè :'+GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"') else
Value := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';

[เกื้อกูล ครับ..]

มาแทนเผื่อพี่ขวดยังไม่ว่างครับ โดยวาง variable มา 1 ตัว แล้วใส่คำสั่งตามนี้ครับ

if GetSQLIntegerData('select smoking_type_id from opdscreen where vn="'+DBPipeline['vn'] +'"')<>0 then
Value := '¡ÒÃÊÙººØËÃÕè :'+GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"') else
Value := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';

เยี่ยมยอดกระเทียมโทน..

[kitisak]

ขอบคุณมากครับ ต้องการพอดีครับ

[jackkawave]

ผมลองทำแล้วทำไมมันขึ้นแต่ ??:   ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ  มือใหม่จริงๆครับ 

[vinaisena]

OPD card ที่วางไว้ ได้มาจาก อ.ขวดครับ จัดเจนแน่นอนมากๆๆ

[เกื้อกูล ครับ..]

ผมลองทำแล้วทำไมมันขึ้นแต่ ??:   ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ  มือใหม่จริงๆครับ 

อย่าใช้วิธี Copy ไปวางครับ..ส่วนของข้อความภาษาไทย(สีแดง) ให้ท่านพิมพ์ผ่านคีย์บอร์ดของท่านเองในขั้นตอนออกแบบรายงานครับ..

f GetSQLIntegerData('select smoking_type_id from opdscreen where vn="'+DBPipeline['vn'] +'"')<>0 then
Value := '¡ÒÃÊÙººØËÃÕè :'+GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"') else
Value := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';

[jackkawave]

ผมลองทำแล้วทำไมมันขึ้นแต่ ??:   ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ  มือใหม่จริงๆครับ 

อย่าใช้วิธี Copy ไปวางครับ..ส่วนของข้อความภาษาไทย(สีแดง) ให้ท่านพิมพ์ผ่านคีย์บอร์ดของท่านเองในขั้นตอนออกแบบรายงานครับ..

f GetSQLIntegerData('select smoking_type_id from opdscreen where vn="'+DBPipeline['vn'] +'"')<>0 then
Value := '&iexcl;&Ograve;&Atilde;&Ecirc;&Ugrave;&ordm;&ordm;&Oslash;&Euml;&Atilde;&Otilde;&egrave; :'+GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"') else
Value := '&iexcl;&Ograve;&Atilde;&Ecirc;&Ugrave;&ordm;&ordm;&Oslash;&Euml;&Atilde;&Otilde;&egrave; : &auml;&Aacute;&egrave;&middot;&Atilde;&Ograve;&ordm;';

ได้แล้วครับ  ขอบพระคุณ อ.เกื้อ มากๆครับ   

[vinaisena]

ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ

[เกื้อกูล ครับ..]

select drinking_type_name from  drinking_type
 where drinking_type_id="'+DBPipeline['drinking_type_id'] +'"

[adr]

ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ

อ.เกื้อไม่ทานสุราครับ ทานแต่ป๋องเขียว  ล้อเล่นนะครับ ขำ ๆ

[เกื้อกูล ครับ..]

ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ

อ.เกื้อไม่ทานสุราครับ ทานแต่ป๋องเขียว  ล้อเล่นนะครับ ขำ ๆ

จริงครับ..ป๋องเขียวเท่านั้น...ฉันชอบสไปรท์..ในตัวเธอ...

[วีระวัฒน์ (เอก)]

อยู่ที่เดียวกับการซักประวัติ

[มนตรี บอยรักยุ้ยคนเดียว]

มาแทนเผื่อพี่ขวดยังไม่ว่างครับ โดยวาง variable มา 1 ตัว แล้วใส่คำสั่งตามนี้ครับ

if GetSQLIntegerData('select smoking_type_id from opdscreen where vn="'+DBPipeline['vn'] +'"')<>0 then
Value := '&iexcl;&Ograve;&Atilde;&Ecirc;&Ugrave;&ordm;&ordm;&Oslash;&Euml;&Atilde;&Otilde;&egrave; :'+GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"') else
Value := '&iexcl;&Ograve;&Atilde;&Ecirc;&Ugrave;&ordm;&ordm;&Oslash;&Euml;&Atilde;&Otilde;&egrave; : &auml;&Aacute;&egrave;&middot;&Atilde;&Ograve;&ordm;';

ผมใช้แบบนี้เลย ง่ายดี

[udomchok]

อย่าใช้วิธี Copy ไปวางครับ..ส่วนของข้อความภาษาไทย(สีแดง) ให้ท่านพิมพ์ผ่านคีย์บอร์ดของท่านเองในขั้นตอนออกแบบรายงานครับ..

Copy และ Paste ลงใน Report Designer ได้โดยภาษาแสดงถูกต้อง มี trick อยู่นิดหนึ่งครับ คือต้องเปลี่ยน keyboard ให้เป็นภาษาไทยก่อน copy ครับ พอจะ paste ก็ตรวจสอบอีกทีว่าเป็นไทยเหมือนกัน เท่านี้ก็ใช้การได้แล้วครับ

ปล. trick จาก อ.ขวด ครับ

[bacho_hospital]

ขุด กระทู้หน่อยครับ  ลองทุกตัวแล้ว compile  ไม่ได้คับ