ขอความช่วยเหลือ

[vinaisena]

พอดี Team audit ของ รพ.ไปทำการ Audit OPD card ที่ สปสช.จัดขึ้น มีงานให้เวชระเบียนปรับปรุงเรื่อง OPD card ว่า น่าจะมีชื่อ user ที่ login ปรากฏบน OPD card หลังเจ้าหน้าที่ห้องบัตร สั่งพิมพ์ เลยรบกวน อาจารย์ board hosxp ช่วยเหลือแก้ไขด้วยครับ
ขอบพระคุณล่วงหน้าครับ

[udomchok]

สร้าง Label ขึ้นมา 1 ตัส สมมุติตั้งชื่อว่า lblPrintFromComp วางในตำแหน่งที่ต้องการ แล้วไปที่ tab calc เลือก event เลือก lblPrintFromComp
แล้ว copy code นี้ไปใส่นะครับ

  Text := '¾ÔÁ¾ì¨Ò¡à¤Ã×èÍ '+GetSQLStringData('select concat(servername," ...login by ",kskloginname) from onlineuser where onlineid ="'+GetOnlineID+'"');

อันนี้คำแปลครับ
  Text := 'พิมพ์จากเครื่อง '+GetSQLStringData('select concat(servername," ...login by ",kskloginname) from onlineuser where onlineid ="'+GetOnlineID+'"');

ผมสอนวิธีจับปลาให้นะครับ จะได้ยั่งยืนกว่าการหาปลามาให้ครับ 

[udomchok]

หรือลองหา report ตัวหลัง ๆ ที่ post นะครับ ผมจะใส่ไว้ทุก report ครับ
เอาไปศึกษานะครับ

[vinaisena]

ขอบคุณครับ
สั้น ง่าย ได้ใจความ

[Bond_007]

ขอบคุณครับ ได้เทคนิคเพิ่มอีกแล้ว

[vinaisena]

ประมาณนี้ได้ไหม หลังจากเข้าไปดู
begin

   {
   Value := GetCurrentUser;
   
   or
   }
   
   Value :=  GetSQLStringData('select name from opduser where loginname = "'+GetCurrentUser+'" ');

end;

[vinaisena]

ผมหาปลาได้แล้วครับ อ.โก้
ขอบคุณครับ

[udomchok]

ผมหาปลาได้แล้วครับ อ.โก้
ขอบคุณครับ

ยินดีด้วยครับ
นี่แหละครับ จะได้เกิดความยั่งยืนในการดำรงชีวิตครับ