การปรับเลข HN ให้ครบ 9 หลักเช่น 000000001 ต้องทำไงครับ

[James011]

  การปรับเลข 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 ให้หรือป่าวครับ เพราะข้อมูลจำนวน ถ้าเปลี่ยนเองจะเสียเวลามากครับ
 

[thecoy]

อยู่ใน system setting ครับ เลือกรูปแบบว่า  hn จะเป็นแบบ 9 หลัก หรือ7 หลัก

[udomchok]

การปรับเลข 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]

หรือจะลองใช้การสร้าง 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;

[asawincyber]

ขอบคุณครับ 

[มนตรี บอยรักยุ้ยคนเดียว]

สำหรับ HN เก่า ๆ ที่โอนมา ถ้าใช้ access อยู่ ก็สั่ง update patient set hn=right("00000000" & hn,9) ก็ได้ครับ
สำหรับ HN ใหม่ก็กำหนดตามที่ thecoy บอกครับ

หรือจะลองใช้การสร้าง 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;

น่าใช้ทั้งคู่ รักพี่เสียดายน้อง อิอิอิ

[James011]

    สุดยอดจริงค้าฟ ท่านเทพทั้งหลาย   ขอบคุณอย่างแรงค้าฟฟฟ 

การปรับเลข 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 บอกครับ

หรือจะลองใช้การสร้าง 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;

[doramon]

ตรงนี้ตัวหนึ่งครับแต่ว่าต้องกำหนด HN เป็น 9 หลักก่อนแล้วเข้ามาใหม่ครับ

[James011]

 

ตรงนี้ตัวหนึ่งครับแต่ว่าต้องกำหนด HN เป็น 9 หลักก่อนแล้วเข้ามาใหม่ครับ

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