BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: naj ที่ มกราคม 14, 2009, 12:34:45 PM

หัวข้อ: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 12:34:45 PM
มีบางท่านถามมาเกี่ยวกับการสร้าง Function หรือ Procedure ขึ้นใช้เองเพิ่มเติมจากFunction หรือ Procedure เดิมที่มีมาให้ใน HOSxP Report Designer ยกตัวอย่าง รายงานชื่อ SYSTEM-OPD-RG0110-1 ตัวอย่างตามรูป
 Function ชื่อ GetHOSVariable()
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 12:43:30 PM
ทีนี้เราก็มารู้จักการสร้าง Function ขึ้นมาใช้ครับ
ตามขั้นตอนดังงนี้ โดย ยกตัวอย่างว่าผมต้องการสร้าง FUNCTION ที่หาจำนวนตัวอักษรของชื่อผู้ป่วย จริงๆมี function  Length(S); อยุ่แล้วใน Report Designer(RD) ตามรูปครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 12:48:02 PM
ขั้นตอนที่ 1
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 12:51:42 PM
ต่อครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 12:57:52 PM
ขั้นตอนที่ 2
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 13:02:31 PM
โปรแกรมจะสร้าง function ให้ อัตโนมัติ ชื่อ
function GlobalFunction1
โดยมี Format ที่เตรียมให้แล้วดังนี้
โค๊ด: Delphi
  1. function GlobalFunction1: Variant;
  2. begin
  3.  
  4.   Result :=
  5.  
  6. end;
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 13:12:23 PM
ก่อนที่จะสร้าง Function มารู้จักความหมายและการสร้างก่อนครับ
Function  ชื่อ(ตัวแปร:ประเภทตัวแปร):ค่าที่คืนกลับมา;
ตัวอย่าง
function YindeeTest(t:String):String;
begin
  statment.....

result:=     ;
end;
ชื่อตัวแปร  YindeeTest
ตัวแปร:ประเภทตัวแปร  t:String
ค่าที่คืนกลับมา String
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 13:20:28 PM
ผมสร้าง Function YindeeTest ตามรูป
จากนั้นลอง click ขวา complie
หมายเหตุ เราสามารถที่จะตั้งชื่อ function ใหม่ได้ครับแทนชื่อเดิมที่โปรแกรมตั้งให้ แต่การตั้งชื่อต้องเป็นไปตามกฎของ Pascal or Delphi
โค๊ด: Delphi
  1. function YindeeTest(y:string):String;
  2. var
  3. i:integer;
  4. begin
  5.    y:='Yindeemaka';
  6.    i:=length(y);
  7.   Result :=inttostr(i);
  8.  
  9. end;
  10.  
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 13:36:14 PM
ต่อเลยครับ กำลังมันส์
โค๊ด: Delphi
  1. procedure GlobalOnCreate;
  2. begin
  3. ChangeReportSQL('select fname from patient order by hn desc limit 10');
  4.  
  5. end;
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ มกราคม 14, 2009, 13:46:08 PM
ต่อครับ
ผมนำ Variable1 มาวางใน Detail Band  โดยใช้ CODE
โค๊ด: Delphi
  1. procedure Variable1OnCalc(var Value: Variant);
  2. begin
  3.  
  4.   Value :=YindeeTest(DBPipeline['fname']) ;
  5.  
  6. end;
เป็นตัวอย่างง่ายๆครับ ลองเอาไปประยุกต์ใช้ดูนะครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: anukul ที่ มกราคม 14, 2009, 15:25:12 PM
 :o :o :o

สุดยอดครับ  สร้าง Function แล้วแจกได้มั๊ยครับ   ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: SrWooD ที่ มกราคม 14, 2009, 16:20:23 PM
เยี่ยมยอดที่ซู๊ดเลยครับ อ.naj

ขอบคุณครับ

 ;D ;D ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: doramon ที่ มกราคม 14, 2009, 16:35:14 PM
สุดยอดเทพ  ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: Khuad ที่ มกราคม 14, 2009, 19:32:21 PM

.... สุดดดดดด  ยอดดดดดด  เทพพพพพพ .......................

....  :o  :o  :o  :o  :o  :o  :o  :o  :o  :o ........................


.... ขอบคุณมากๆ เลยครับ อ.นาจ .....
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: มนตรี บอยรักยุ้ยคนเดียว ที่ มกราคม 14, 2009, 22:07:47 PM
อ้างจาก: naj ที่ มกราคม 14, 2009, 12:43:30 PM
ทีนี้เราก็มารู้จักการสร้าง Function ขึ้นมาใช้ครับ
ตามขั้นตอนดังงนี้ โดย ยกตัวอย่างว่าผมต้องการสร้าง FUNCTION ที่หาจำนวนตัวอักษรของชื่อผู้ป่วย จริงๆมี function  Length(S); อยุ่แล้วใน Report Designer(RD) ตามรูปครับ
อ้างจาก: naj ที่ มกราคม 14, 2009, 12:34:45 PM
มีบางท่านถามมาเกี่ยวกับการสร้าง Function หรือ Procedure ขึ้นใช้เองเพิ่มเติมจากFunction หรือ Procedure เดิมที่มีมาให้ใน HOSxP Report Designer ยกตัวอย่าง รายงานชื่อ SYSTEM-OPD-RG0110-1 ตัวอย่างตามรูป
 Function ชื่อ GetHOSVariable()
สุดยอดครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: wiphusit ที่ มกราคม 14, 2009, 22:28:11 PM
สุดยอดจริงๆ ครับ
สงสัยต้องไปขอวิชาสักคอร์ดแล้ว
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: yord ที่ มกราคม 14, 2009, 23:17:45 PM
สุดยอด ;D
ยอดเยี่ยม ;D
ขอบคุณครับ ;D ;D ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: Knott ที่ มกราคม 15, 2009, 08:24:25 AM
ยกให้เป็นเทพแห่ง HOSxP อีกท่านนึงเลยครับ  ;D ;D ;D ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: ~๐{}-FILM-{}๐~ ที่ มกราคม 15, 2009, 09:01:13 AM
อ.นาจ  ครับเอาแบบเป็น  คู่มือ ใน Word หรือ  acrobat ก็ได้ครับ
จะได้ปริ๊นออกมาดูได้ครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: Khuad ที่ มกราคม 15, 2009, 09:30:55 AM
อ้างจาก: Knott ที่ มกราคม 15, 2009, 08:24:25 AM
ยกให้เป็นเทพแห่ง HOSxP อีกท่านนึงเลยครับ  ;D ;D ;D ;D

... อ.นาจ แกเป็นสุดยอดปรมาจารย์มานานแล้วครับ  แต่ช่วงนี้แกชอบซุ่มครับ(อยู่แถวห้องฟันอ๊ะเปล่า?) ...

... ปล่อยมาแต่ละดอกนี่สุดยอดทั้งนั้นเลย ....   ;D ....
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: vios1909 ที่ มกราคม 15, 2009, 10:35:41 AM
อย่าง อ.นาจ เนี่ยต้องเรียก ว่าปรมาจารย์ตั๊กหม้อ  เอ้ยยย ตั๊กม่อ  คร้าบบบบ  ;D ;D ;D ;D ;D
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: thank ที่ กุมภาพันธ์ 04, 2010, 15:41:33 PM
อีกรูปแบบสำหรับสร้าง function ใหม่หรือแก้ไขฟังก์ชั่นเดิมแบบมี source code ครับ "unit myRapFuncs"
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: Bond_007 ที่ กุมภาพันธ์ 04, 2010, 15:47:55 PM
ขอบคุณมากครับ
หัวข้อ: Re: การสร้าง Function ใช้เองใน Report Designer
เริ่มหัวข้อโดย: naj ที่ กุมภาพันธ์ 04, 2010, 15:57:20 PM
อ้างจาก: thank ที่ กุมภาพันธ์ 04, 2010, 15:41:33 PM
อีกรูปแบบสำหรับสร้าง function ใหม่หรือแก้ไขฟังก์ชั่นเดิมแบบมี source code ครับ "unit myRapFuncs"

แต่น่าสนใจ
เปิดจากตรงไหนครับ หาไม่เจอ
เจอแล้วครับ