BMS-HOSxP Community
HOSxP => การเขียน SQL Script => ข้อความที่เริ่มโดย: อู๋kokha50 ที่ กันยายน 10, 2008, 21:18:45 PM
-
ดูกระทู้เก่าก่อนครับ
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=6479.0
แล้วอันล่างนี้ ฟอร์มครับ
-
ไม่ได้ปรับแก้รายละเอียดอย่างอื่นเลยนะครับ แก้ตรงวันที่ที่ต้องการใช้เป็น variable ครับ ;D ;D
??? ???จะใช้ใน vista ได้หรือป่าวช่วยทดสอบทีนะครับ ??? ???
-
...ไม่รู้ว่าฟอร์มนี้น้อง golf_win หรือ คุณ kokha50 เป็นคนต้องการใช้ครับ....
...คือผมยังไม่มี Vista ไว้ทดสอบเหมือนกันครับ ลองทดสอบดูนะครับ....
...คำสั่งของ variable คือ
Value := FormatDateTime('d mmm eeee',GetSQLDateData('select nextdate from oapp where oapp_id = "'+DBPipeline['oapp_id']+'"'));
...ส่วนรูปแบบของวันที่ตามที่เราต้องการให้กำหนดที่คำสั่งของ variable (ตรงสีแดง) ครับ... :D.....
-
ของผมครับ อ.ขวด ใช้คำสั่งนี้ทดสอบแล้วไม่ผ่านครับ
...คำสั่งของ variable คือ
Value := FormatDateTime('d mmm eeee',GetSQLDateData('select nextdate from oapp where oapp_id = "'+DBPipeline['oapp_id']+'"'));
รูปไม่ผ่านตามนี้ครับ
-
....ถ้าไม่ได้นำเข้าฟอร์ม ลองตรวจสอบดูที่ Design ใน Report Designer ดูนะครับ...
....คลิ๊กที่ variable แล้วเลือก DataType ตรง Miscellaneous ให้เป็น dtString ตามรูปที่แนบนะครับ.. :D..
-
ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ
-
ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ
เดียวกลับบ้านผมจะแก้ให้ครับ
อยู่ รพ ไม่มี vista
-
....เดี๋ยวต้องลองใน Vista ดูบ้างแล้วครับ...
....ยังงัยฝาก อ.อ๊อดดูให้ก่อนแล้วกันนะครับ เดี๋ยวผมลง Vista ก่อน.... :D.....
-
...ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ
...ผมลองทำในเครื่อง Vista(sp1) แล้วก็สามารถแสดงผลได้นะครับ...
...คุณ kokha50 ลองตรวจสอบดูนะครับ ว่าได้ไปกำหนด d mmmm eeee ไว้ใน DisplayFormat..(คลิ๊กขวา) หรือเปล่า ถ้ากำหนดไว้ให้ลบออกนะครับ ให้เป็นช่องว่างๆ ไว้ .....
...ถ้าจะกำหนดรูปแบบวันที่ต้องกำหนดที่คำสั่งของ variable (คลิ๊กขวา เลือก Calculations..) นะครับ...
-
....ลืมดูไปว่าปียังเป็น คศ. อยู่ .... ;D.....
-
...ผมเองก็ไม่ทราบเหมือนกันว่ามีวิธีการอื่นๆ ที่ง่ายกว่าหรือเปล่านะครับ...
...แต่ผมลองใช้วิธีแก้ไขคำสั่งรายงานให้มีข้อมูลของปี พศ. เพิ่มเข้าไปครับ
select o.*,concat(p.pname,p.fname," ",p.lname) as ptname,d.name as doctor_name ,
c.name as clinic_name,year(o.nextdate)+543 as thaiyear
from
oapp o
left outer join patient p on p.hn=o.hn
left outer join doctor d on d.code=o.doctor
left outer join clinic c on c.clinic=o.clinic
where oapp_id='4'
...ที่เพิ่มคือที่เป็นสีแคงครับ จากนั้นเพื่อให้แสดงวันที่นัดสวยๆ หน่อย ผมใช้ variable โดยใช้คำสั่ง
Value := FormatDateTime('aaaa d mmmm',GetSQLDateData('select nextdate from oapp where oapp_id = "'+DBPipeline['oapp_id']+'"'))+ ' ' +DBPipeline['thaiyear'];
...ทดสอบใน vista แล้วใช้งานได้ครับ แนบฟอร์มที่แก้ไว้ด้วยแล้วครับ...
...อีกนิดครับ ตรงการกำหนดรูปแบบวันที่ของคำสั่ง ที่มี aaaa คือวันของสัปดาห์ครับ(ถ้าใช้ aaa จะเป็น ตัวย่อของวัน) ถ้าไม่ต้องการก็ลบออกได้ครับ.... :D...
-
สุดยอดครับ ผมคิดไม่ถึงเลยว่าพี่จะใช้คำสั่งนี้ครับ ขออนุญาติเก็บไว้เรียนรู้นะครับ ;D ;D
-
ขอบคุณ น้อง Golf อ.ขวด และอ.อ๊อด ด้วย งานนี้ชุมนุมคนเก่งมารวมกัน
รู้สึกโชคดีที่ได้เห็นเป็นบุญตา สุดยอดวิชาและฝีมือ จะขาดก็แต่ อ.อ๊อด ยังไม่ได้แสดงให้ชมเป็นบุญตา
แก่ชาวยุทธ Hosxp
ใช้ได้แล้วครับ อ.ขวด ทั้ง windowsXP และ Vista ยอดเยี่ยมจริงๆครับ
-
มาไม่ทัน
แต่ดีแล้วครับ
จะได้มีเวลาไปทำ ... บ้าง
;D