ฝากให้Golf_winครับ

[อู๋kokha50]

ดูกระทู้เก่าก่อนครับ
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=6479.0

แล้วอันล่างนี้ ฟอร์มครับ

[golf_win]

ไม่ได้ปรับแก้รายละเอียดอย่างอื่นเลยนะครับ แก้ตรงวันที่ที่ต้องการใช้เป็น variable ครับ
  ???จะใช้ใน vista ได้หรือป่าวช่วยทดสอบทีนะครับ

[Khuad]

...ไม่รู้ว่าฟอร์มนี้น้อง golf_win หรือ คุณ  kokha50 เป็นคนต้องการใช้ครับ....

...คือผมยังไม่มี Vista ไว้ทดสอบเหมือนกันครับ  ลองทดสอบดูนะครับ....

...คำสั่งของ variable คือ
   
Value := FormatDateTime('d mmm eeee',GetSQLDateData('select nextdate from oapp where oapp_id = "'+DBPipeline['oapp_id']+'"'));

...ส่วนรูปแบบของวันที่ตามที่เราต้องการให้กำหนดที่คำสั่งของ variable (ตรงสีแดง) ครับ... .....

[อู๋kokha50]

ของผมครับ อ.ขวด ใช้คำสั่งนี้ทดสอบแล้วไม่ผ่านครับ

...คำสั่งของ variable คือ
   
Value := FormatDateTime('d mmm eeee',GetSQLDateData('select nextdate from oapp where oapp_id = "'+DBPipeline['oapp_id']+'"'));



รูปไม่ผ่านตามนี้ครับ

[Khuad]

....ถ้าไม่ได้นำเข้าฟอร์ม  ลองตรวจสอบดูที่ Design ใน Report Designer ดูนะครับ...

....คลิ๊กที่ variable แล้วเลือก  DataType  ตรง Miscellaneous  ให้เป็น  dtString  ตามรูปที่แนบนะครับ.. ..

[อู๋kokha50]

ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ

[doramon]

ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ

เดียวกลับบ้านผมจะแก้ให้ครับ 

อยู่ รพ ไม่มี vista

[Khuad]

....เดี๋ยวต้องลองใน Vista ดูบ้างแล้วครับ...

....ยังงัยฝาก อ.อ๊อดดูให้ก่อนแล้วกันนะครับ  เดี๋ยวผมลง Vista ก่อน.... .....

[Khuad]

...

ผ่านครับ แต่ออกมา เป็น d mmmm eeee แบบนี้ตามรูป ครับ

...ผมลองทำในเครื่อง Vista(sp1)  แล้วก็สามารถแสดงผลได้นะครับ...

...คุณ kokha50 ลองตรวจสอบดูนะครับ  ว่าได้ไปกำหนด d mmmm eeee ไว้ใน DisplayFormat..(คลิ๊กขวา) หรือเปล่า  ถ้ากำหนดไว้ให้ลบออกนะครับ ให้เป็นช่องว่างๆ ไว้ .....
...ถ้าจะกำหนดรูปแบบวันที่ต้องกำหนดที่คำสั่งของ variable (คลิ๊กขวา เลือก Calculations..) นะครับ...

[Khuad]

....ลืมดูไปว่าปียังเป็น คศ. อยู่ .... .....

[Khuad]

...ผมเองก็ไม่ทราบเหมือนกันว่ามีวิธีการอื่นๆ ที่ง่ายกว่าหรือเปล่านะครับ...

...แต่ผมลองใช้วิธีแก้ไขคำสั่งรายงานให้มีข้อมูลของปี พศ. เพิ่มเข้าไปครับ

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 จะเป็น ตัวย่อของวัน) ถ้าไม่ต้องการก็ลบออกได้ครับ.... ...

[golf_win]

สุดยอดครับ ผมคิดไม่ถึงเลยว่าพี่จะใช้คำสั่งนี้ครับ ขออนุญาติเก็บไว้เรียนรู้นะครับ

[อู๋kokha50]

ขอบคุณ น้อง Golf อ.ขวด และอ.อ๊อด ด้วย งานนี้ชุมนุมคนเก่งมารวมกัน

รู้สึกโชคดีที่ได้เห็นเป็นบุญตา สุดยอดวิชาและฝีมือ จะขาดก็แต่ อ.อ๊อด ยังไม่ได้แสดงให้ชมเป็นบุญตา
แก่ชาวยุทธ Hosxp

ใช้ได้แล้วครับ อ.ขวด ทั้ง windowsXP และ Vista ยอดเยี่ยมจริงๆครับ

[doramon]

มาไม่ทัน 

แต่ดีแล้วครับ

จะได้มีเวลาไปทำ  ... บ้าง