BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: vinaisena ที่ สิงหาคม 09, 2011, 12:08:27 PM
-
ถ้าจะให้ ข้อมูลที่ พยาบาลคัดกรอง มีข้อมูลการสูบหรี่ การดื่มสุรา อยู่บน OPD card จะต้องทำอย่างไรบ้างครับ
-
ปรึกษา เจ๊ขวด...พี่วินัยจะได้ตามต้องการทุกประการครับ..ฟันธง.. ;D ;D ;D ;D ;D
-
มาแทนเผื่อพี่ขวดยังไม่ว่างครับ โดยวาง variable มา 1 ตัว แล้วใส่คำสั่งตามนี้ครับ ;D ;D
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 ตัว แล้วใส่คำสั่งตามนี้ครับ ;D ;D
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 := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';
เยี่ยมยอดกระเทียมโทน.. ;D ;D
-
ขอบคุณมากครับ ต้องการพอดีครับ ;D ;D ;D
-
ผมลองทำแล้วทำไมมันขึ้นแต่ ????????:?????? ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ มือใหม่จริงๆครับ ;D ;D ;D ???
-
OPD card ที่วางไว้ ได้มาจาก อ.ขวดครับ จัดเจนแน่นอนมากๆๆ
-
ผมลองทำแล้วทำไมมันขึ้นแต่ ????????:?????? ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ มือใหม่จริงๆครับ ;D ;D ;D ???
อย่าใช้วิธี 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 := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';
-
ผมลองทำแล้วทำไมมันขึ้นแต่ ????????:?????? ทำอย่างไรครับ ให้มันเป็นภาษาไทยครับ มือใหม่จริงๆครับ ;D ;D ;D ???
อย่าใช้วิธี 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 := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';
ได้แล้วครับ ขอบพระคุณ อ.เกื้อ มากๆครับ ;D ;D ;D ;D ;D
-
ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ
-
select drinking_type_name from drinking_type
where drinking_type_id="'+DBPipeline['drinking_type_id'] +'"
-
ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ
อ.เกื้อไม่ทานสุราครับ ทานแต่ป๋องเขียว ;D ;D ;D ล้อเล่นนะครับ ขำ ๆ
-
ได้แล้วครับ แล้วดื่มสุรา มีไหมครับ อ.เกื้อ
อ.เกื้อไม่ทานสุราครับ ทานแต่ป๋องเขียว ;D ;D ;D ล้อเล่นนะครับ ขำ ๆ
จริงครับ..ป๋องเขียวเท่านั้น...ฉันชอบสไปรท์..ในตัวเธอ... ;D ;D ;D ;D
-
อยู่ที่เดียวกับการซักประวัติ
-
มาแทนเผื่อพี่ขวดยังไม่ว่างครับ โดยวาง variable มา 1 ตัว แล้วใส่คำสั่งตามนี้ครับ ;D ;D
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 := '¡ÒÃÊÙººØËÃÕè : äÁè·ÃÒº';
ผมใช้แบบนี้เลย ง่ายดี
-
อย่าใช้วิธี Copy ไปวางครับ..ส่วนของข้อความภาษาไทย(สีแดง) ให้ท่านพิมพ์ผ่านคีย์บอร์ดของท่านเองในขั้นตอนออกแบบรายงานครับ..
Copy และ Paste ลงใน Report Designer ได้โดยภาษาแสดงถูกต้อง มี trick อยู่นิดหนึ่งครับ คือต้องเปลี่ยน keyboard ให้เป็นภาษาไทยก่อน copy ครับ พอจะ paste ก็ตรวจสอบอีกทีว่าเป็นไทยเหมือนกัน เท่านี้ก็ใช้การได้แล้วครับ
ปล. trick จาก อ.ขวด ครับ
-
ขุด กระทู้หน่อยครับ ลองทุกตัวแล้ว compile ไม่ได้คับ ;D