BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: James011 ที่ เมษายน 30, 2009, 16:59:21 PM

หัวข้อ: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: James011 ที่ เมษายน 30, 2009, 16:59:21 PM
 :) การปรับเลข HN ให้ครบ 9 หลักโดยการเข้าฐานข้อมูลโดยตรง
ขั้นตอนที่ผมทำครับ
1.ปรับแต่งตาราง patient และ Run HN อัตโนมัตโดยใช้ Access แล้ว Export
2.นำเข้าข้อมูล *.sql โดยใช้โปรแกรม navicat ประมาณ 2x,xxx Record 
3.ต้องการปรับ HN จาก 1, 2 , 3.... ให้เป็น  9 หลัก คือ  000000001 , 000000002 , 000000003 ,.........
ไม่ทราบว่าในโปรแกรม HOSxP มี tool ให้หรือป่าวครับ เพราะข้อมูลจำนวน ถ้าเปลี่ยนเองจะเสียเวลามากครับ
 :-*
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: thecoy ที่ เมษายน 30, 2009, 21:40:43 PM
อยู่ใน system setting ครับ เลือกรูปแบบว่า  hn จะเป็นแบบ 9 หลัก หรือ7 หลัก
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: udomchok ที่ เมษายน 30, 2009, 22:14:02 PM
อ้างจาก: เจมส์@ศูนย์อนามัยที่ 11 ที่ เมษายน 30, 2009, 16:59:21 PM
:) การปรับเลข HN ให้ครบ 9 หลักโดยการเข้าฐานข้อมูลโดยตรง
ขั้นตอนที่ผมทำครับ
1.ปรับแต่งตาราง patient และ Run HN อัตโนมัตโดยใช้ Access แล้ว Export
2.นำเข้าข้อมูล *.sql โดยใช้โปรแกรม navicat ประมาณ 2x,xxx Record 
3.ต้องการปรับ HN จาก 1, 2 , 3.... ให้เป็น  9 หลัก คือ  000000001 , 000000002 , 000000003 ,.........
ไม่ทราบว่าในโปรแกรม HOSxP มี tool ให้หรือป่าวครับ เพราะข้อมูลจำนวน ถ้าเปลี่ยนเองจะเสียเวลามากครับ
 :-*
สำหรับ HN เก่า ๆ ที่โอนมา ถ้าใช้ access อยู่ ก็สั่ง update patient set hn=right("00000000" & hn,9) ก็ได้ครับ
สำหรับ HN ใหม่ก็กำหนดตามที่ thecoy บอกครับ
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: naj ที่ พฤษภาคม 01, 2009, 06:51:56 AM
หรือจะลองใช้การสร้าง Function ChangeHN29Digit เข้ามาช่วยจัดการก็ได้ครับ
โค๊ด: Delphi
  1. function ChangeHN29Digit(s: string; i: integer): string;
  2. begin
  3.   //result:=s;
  4. //i คือจำนวนหลัก HN ที่เราต้องการ
  5.   while length(s) < i do
  6.   begin
  7.     s := '0' + s;
  8.   end;
  9.   result := s;
  10. end;
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: asawincyber ที่ พฤษภาคม 01, 2009, 07:01:53 AM
ขอบคุณครับ  ;D ;D
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: มนตรี บอยรักยุ้ยคนเดียว ที่ พฤษภาคม 01, 2009, 08:40:51 AM
อ้างจาก: udomchok ที่ เมษายน 30, 2009, 22:14:02 PM
สำหรับ HN เก่า ๆ ที่โอนมา ถ้าใช้ access อยู่ ก็สั่ง update patient set hn=right("00000000" & hn,9) ก็ได้ครับ
สำหรับ HN ใหม่ก็กำหนดตามที่ thecoy บอกครับ

อ้างจาก: naj ที่ พฤษภาคม 01, 2009, 06:51:56 AM
หรือจะลองใช้การสร้าง Function ChangeHN29Digit เข้ามาช่วยจัดการก็ได้ครับ
โค๊ด: Delphi
  1. function ChangeHN29Digit(s: string; i: integer): string;
  2. begin
  3.   //result:=s;
  4. //i คือจำนวนหลัก HN ที่เราต้องการ
  5.   while length(s) < i do
  6.   begin
  7.     s := '0' + s;
  8.   end;
  9.   result := s;
  10. end;

น่าใช้ทั้งคู่ รักพี่เสียดายน้อง อิอิอิ
หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: James011 ที่ พฤษภาคม 01, 2009, 09:54:22 AM
 ;D   สุดยอดจริงค้าฟ ท่านเทพทั้งหลาย   ขอบคุณอย่างแรงค้าฟฟฟ   


อ้างจาก: udomchok ที่ เมษายน 30, 2009, 22:14:02 PM
อ้างจาก: เจมส์@ศูนย์อนามัยที่ 11 ที่ เมษายน 30, 2009, 16:59:21 PM
:) การปรับเลข HN ให้ครบ 9 หลักโดยการเข้าฐานข้อมูลโดยตรง
ขั้นตอนที่ผมทำครับ
1.ปรับแต่งตาราง patient และ Run HN อัตโนมัตโดยใช้ Access แล้ว Export
2.นำเข้าข้อมูล *.sql โดยใช้โปรแกรม navicat ประมาณ 2x,xxx Record 
3.ต้องการปรับ HN จาก 1, 2 , 3.... ให้เป็น  9 หลัก คือ  000000001 , 000000002 , 000000003 ,.........
ไม่ทราบว่าในโปรแกรม HOSxP มี tool ให้หรือป่าวครับ เพราะข้อมูลจำนวน ถ้าเปลี่ยนเองจะเสียเวลามากครับ
 :-*
สำหรับ HN เก่า ๆ ที่โอนมา ถ้าใช้ access อยู่ ก็สั่ง update patient set hn=right("00000000" & hn,9) ก็ได้ครับ
สำหรับ HN ใหม่ก็กำหนดตามที่ thecoy บอกครับ



อ้างจาก: naj ที่ พฤษภาคม 01, 2009, 06:51:56 AM
หรือจะลองใช้การสร้าง Function ChangeHN29Digit เข้ามาช่วยจัดการก็ได้ครับ
โค๊ด: Delphi
  1. function ChangeHN29Digit(s: string; i: integer): string;
  2. begin
  3.   //result:=s;
  4. //i คือจำนวนหลัก HN ที่เราต้องการ
  5.   while length(s) < i do
  6.   begin
  7.     s := '0' + s;
  8.   end;
  9.   result := s;
  10. end;




หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: doramon ที่ พฤษภาคม 01, 2009, 15:47:01 PM
ตรงนี้ตัวหนึ่งครับแต่ว่าต้องกำหนด HN เป็น 9 หลักก่อนแล้วเข้ามาใหม่ครับ

หัวข้อ: Re: การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ
เริ่มหัวข้อโดย: James011 ที่ พฤษภาคม 01, 2009, 22:16:02 PM
 
อ้างจาก: doraemon ที่ พฤษภาคม 01, 2009, 15:47:01 PM
ตรงนี้ตัวหนึ่งครับแต่ว่าต้องกำหนด HN เป็น 9 หลักก่อนแล้วเข้ามาใหม่ครับ


;D :D ขอบคุณครับ แต่ปรับได้เฉพาะ HN = 7 หลัก ถ้าน้อยกว่า 7 หลักปรับไม่ได้ครับ