ผู้เขียน หัวข้อ: CUSTOM-รายงานแสดงผู้ใช้บริการที่ถูกส่งตรวจโดยห้องบัตร แบบเลือกช่วงวันที่และเวลา  (อ่าน 5112 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
จากกระทู้ที่มีคนถามเกี่ยวกับการทำรายงาน แล้วสามารถเลือกวันที่และเวลา จากการส่งตรวจโดยห้องบัตร เลยเอาตัวอย่าง Code ที่เขียนมาให้ดูครับ
โค๊ด: Delphi
  1. var
  2.        date1,date2:tdatetime;
  3.        dt1,dt2,ds1,ds2:string;
  4. procedure GlobalOnCreate;
  5. begin
  6.   GetDateTimeRangeDialog(date1, date2);
  7. dt1:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date1);
  8. dt2:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date2);
  9. ds1:= getsqlstringdata('select unix_timestamp("'+dt1+'")');
  10. ds2:= getsqlstringdata('select unix_timestamp("'+dt2+'")');
  11. ChangeReportSQL('select a.vstdate,a.vsttime,a.oqueue,a.hn,'+
  12. 'concat(pname,fname,"  ",lname) as ptname '+
  13. ',a.cur_dep,a.cur_dep_time,a.last_dep,a.main_dep,staff,c.name '+
  14. 'from ovst a '+
  15. 'left outer join patient b on a.hn=b.hn '+
  16. 'left outer join opduser c on a.staff=c.loginname '+
  17. 'where  unix_timestamp(concat(a.vstdate," ",a.vsttime)) between "'+ds1+'" and "'+ds2+'"  '+
  18. 'and a.staff  in("yo","sod","ball","nek","auto","pooki","MART","nid","young","john") '+
  19. 'order by a.vn ');
  20. end;
  21.  
Yindee And Tan

ออฟไลน์ kungkung

  • Sr. Member
  • ****
  • กระทู้: 491
  • Respect: +2
    • ดูรายละเอียด
 :)  ขอบคุณครับ   :)
ผมกำลังเขียนตัวที่คล้ายๆ กันนี้อยู่พอดี
นวก.คอมพิวเตอร์  รพช.บ้านแหลม จ.เพชรบุรี
MASTER  :  Acer  AT350 F1 Intel Xeon E5620 SATA 146 x3  DDR3 36 GB. CentOS 6.3
Lenovo System x 3550 M5  16 GB  SAS 300 x 4 = CentOS 7.0
HOSxP v.3.53.7.16

ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,347
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
จากกระทู้ที่มีคนถามเกี่ยวกับการทำรายงาน แล้วสามารถเลือกวันที่และเวลา จากการส่งตรวจโดยห้องบัตร เลยเอาตัวอย่าง Code ที่เขียนมาให้ดูครับ
โค๊ด: Delphi
  1. var
  2.        date1,date2:tdatetime;
  3.        dt1,dt2,ds1,ds2:string;
  4. procedure GlobalOnCreate;
  5. begin
  6.   GetDateTimeRangeDialog(date1, date2);
  7. dt1:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date1);
  8. dt2:= FormatDateTime('yyyy-mm-dd hh:nn:ss',date2);
  9. ds1:= getsqlstringdata('select unix_timestamp("'+dt1+'")');
  10. ds2:= getsqlstringdata('select unix_timestamp("'+dt2+'")');
  11. [code]
  12. [/quote]
  13. สงสัยว่าทำไมต้องแปลงวันที่ 2 ครั้ง อ่ะ
  14. เพราะที่ดูใน manual ที่มากับโปรแกรม มันแปลงแค่ครั้งเดียวเอง :)
[/code]
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
ที่ต้องทำ สองครั้งเนื่องจาก ตาราง ovst   vstdate,vsttime แยกกันเก็บคนละ filed แต่ผู้ใช้ต้องการให้สร้าง เมนูให้สามารถที่จะรุบุช่วงวันที่และเวลาที่ต้องการได้ด้วย ปัญหาคือจะทำอย่างไรดี
ตอนแรกคิดจะไปใช้ vn เป็นตัวกำหนด แต่มีปัญหาว่าเครื่องที่เป็น Vista or 7 ปีมันจะเป็น 09 แทนที่จะเป็น 52 เลยลองมาใช้ unix_timestamp เข้ามาช่วยครับ ได้วันที่กับเวลา แล้วใช้  unix_timestamp  แปลงเป็นตัวเลข   อาจจะมีวิธีการเขียนแบบอื่นๆครับ แต่อยากลองใช้  unix_timestamp เท่านั้นเอง ว่าจะใช้งานได้จริงหรือเปล่า :) :) :)
Yindee And Tan

ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,347
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
ที่ต้องทำ สองครั้งเนื่องจาก ตาราง ovst   vstdate,vsttime แยกกันเก็บคนละ filed แต่ผู้ใช้ต้องการให้สร้าง เมนูให้สามารถที่จะรุบุช่วงวันที่และเวลาที่ต้องการได้ด้วย ปัญหาคือจะทำอย่างไรดี
ตอนแรกคิดจะไปใช้ vn เป็นตัวกำหนด แต่มีปัญหาว่าเครื่องที่เป็น Vista or 7 ปีมันจะเป็น 09 แทนที่จะเป็น 52 เลยลองมาใช้ unix_timestamp เข้ามาช่วยครับ ได้วันที่กับเวลา แล้วใช้  unix_timestamp  แปลงเป็นตัวเลข   อาจจะมีวิธีการเขียนแบบอื่นๆครับ แต่อยากลองใช้  unix_timestamp เท่านั้นเอง ว่าจะใช้งานได้จริงหรือเปล่า :) :) :)
OK กระจ่าง  ;) ;) ;)
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)

ออฟไลน์ mixer_79

  • Hero Member
  • *****
  • กระทู้: 670
  • กำลังใจในการทำงาน
  • Respect: +1
    • ดูรายละเอียด
นายทองคูณ พรมผักแว่น 0819550235
โรงพยาบาลสีคิ้ว อ.สีคิ้ว จ.นครราชสีมา 30140  
รพ.ขนาด 90 เตียง   thongkoon13@gmail.com
เริ่มใช้โปรแกรม 05 มีนาคม 2553
HOSxP V.3.56.2.15
______________________________________