ผู้เขียน หัวข้อ: อยากให้ hosxp มีการตรวจสอบน้ำหนักส่วนสูงว่าอยู่ในช่วงที่ถูกต้องด้วยหรือไม่ครับ  (อ่าน 3652 ครั้ง)

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

ออฟไลน์ aekunited

  • Full Member
  • ***
  • กระทู้: 128
  • Respect: +1
    • ดูรายละเอียด
อยากให้ hosxp มีการตรวจสอบน้ำหนักส่วนสูงว่าอยู่ในช่วงที่ถูกต้องด้วยหรือไม่ครับ

มาตรวจสอบย้อนหลัง ผมนี่อึ้งไปเลย ;D :o :'(
« แก้ไขครั้งสุดท้าย: เมษายน 21, 2015, 13:13:58 PM โดย aekunited »

ออฟไลน์ golf_win

  • Hero Member
  • *****
  • กระทู้: 3,481
  • Respect: +112
    • ดูรายละเอียด
ลองใช้ระบบ sys_vn_script ครับช่วยได้เยอะเลย code ก็ประมาณนี้ครับ

 {==================== check BW ====================}
   bw:= getsqldata('select bw from opdscreen '+
           ' where vn="'+fvn+'" and bw>0 ');

   age_y:= getsqldata('select age_y from vn_stat '+
           ' where vn="'+fvn+'" ');

   if (age_y<6) and (bw>50) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁà´ç¡ÍÒÂØ < 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;
   if (age_y>5) and (bw>149) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁÍÒÂØ >= 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;

{==================== check height ====================}
   if Getsqldata('select count(vn) as cc from opdscreen where height>220 and vn="'+fvn+'"')>0 then
        begin
          showmessage('ÃкºµÃǨ¾ºÇèÒÁÕ¡Òúѹ·Ö¡¤èÒ ***ÊèǹÊÙ§*** ¤ÅÒ´à¤Å×è͹ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ  ÊèǹÊÙ§ ÍÕ¡¤ÃÑ駤ÃѺ');
          showmessage('¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ ***ÊèǹÊÙ§*** ÍÕ¡¤ÃÑ駹ФÃѺ');
        end;
โรงพยาบาลเจ็ดเสมียน จังหวัดราชบุรี
Start 19-1-51    35 station
HOSxP  3.59.5.18 Activate License
Tel. 032-305096-7 ต่อ 118
Web. http://csmhos.thaiddns.com:8080
         http://csmhos.thaieasydns.com:8080

ออฟไลน์ มนตรี บอยรักยุ้ยคนเดียว

  • Hero Member
  • *****
  • กระทู้: 5,369
  • Respect: +12
    • ดูรายละเอียด
    • โรงพยาบาลชุมชน ด่านมะขามเตี้ย
ลองใช้ระบบ sys_vn_script ครับช่วยได้เยอะเลย code ก็ประมาณนี้ครับ

 {==================== check BW ====================}
   bw:= getsqldata('select bw from opdscreen '+
           ' where vn="'+fvn+'" and bw>0 ');

   age_y:= getsqldata('select age_y from vn_stat '+
           ' where vn="'+fvn+'" ');

   if (age_y<6) and (bw>50) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁà´ç¡ÍÒÂØ < 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;
   if (age_y>5) and (bw>149) then
      begin
          showmessage('ÃкºµÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡ¾ºÇèÒ·èÒ¹ÍÒ¨¨ÐºÑ¹·Ö¡¹éÓ˹ѡ¢Í§¼Ùé»èǼԴ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¤èÒ¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ [ ¡ÅØèÁÍÒÂØ >= 6 »Õ ]');
          showmessage('â»Ã´µÃǨÊͺ¡Òúѹ·Ö¡¹éÓ˹ѡÍÕ¡¤ÃÑ駤ÃѺ');
      end;

{==================== check height ====================}
   if Getsqldata('select count(vn) as cc from opdscreen where height>220 and vn="'+fvn+'"')>0 then
        begin
          showmessage('ÃкºµÃǨ¾ºÇèÒÁÕ¡Òúѹ·Ö¡¤èÒ ***ÊèǹÊÙ§*** ¤ÅÒ´à¤Å×è͹ ¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ  ÊèǹÊÙ§ ÍÕ¡¤ÃÑ駤ÃѺ');
          showmessage('¡ÃسҵÃǨÊͺ¡Òúѹ·Ö¡¢éÍÁÙÅ ***ÊèǹÊÙ§*** ÍÕ¡¤ÃÑ駹ФÃѺ');
        end;

5555 เยี่ยมเลย
เริ่ม11พย.2548OPD-Paperlessพร้อมHOSxPลดโลกร้อน
FF-Paperless(รพ.สค.)เริ่ม1ตค2555=100%
IPD-Lesspaper1ตค2560ระบบDmsByNeoNetwork
IPD-Paperless1พ.ค2562ระบบHOSxPXE4
ServerMTOL8.5+MDB-10.4.20,SlaveOL8.5+MDB-10.7.3
LOG=PostgreSQL11,INV=PostgreSQL11

ออฟไลน์ aekunited

  • Full Member
  • ***
  • กระทู้: 128
  • Respect: +1
    • ดูรายละเอียด
ขอบคุณสำหรับแนวทางเพิ่มเติมครับ ;D ;D ;D

ปล.กด like ไม่ได้อีกแล้วแหะ