การสร้าง Function ใช้เองใน Report Designer

[naj]

มีบางท่านถามมาเกี่ยวกับการสร้าง Function หรือ Procedure ขึ้นใช้เองเพิ่มเติมจากFunction หรือ Procedure เดิมที่มีมาให้ใน HOSxP Report Designer ยกตัวอย่าง รายงานชื่อ SYSTEM-OPD-RG0110-1 ตัวอย่างตามรูป
 Function ชื่อ GetHOSVariable()

[naj]

ทีนี้เราก็มารู้จักการสร้าง Function ขึ้นมาใช้ครับ
ตามขั้นตอนดังงนี้ โดย ยกตัวอย่างว่าผมต้องการสร้าง FUNCTION ที่หาจำนวนตัวอักษรของชื่อผู้ป่วย จริงๆมี function  Length(S); อยุ่แล้วใน Report Designer(RD) ตามรูปครับ

[naj]

ขั้นตอนที่ 1

[naj]

ต่อครับ

[naj]

ขั้นตอนที่ 2

[naj]

โปรแกรมจะสร้าง function ให้ อัตโนมัติ ชื่อ
function GlobalFunction1
โดยมี Format ที่เตรียมให้แล้วดังนี้

โค๊ด: Delphi

1. function GlobalFunction1: Variant;
2. begin
3.  
4.   Result :=
5.  
6. end;

[naj]

ก่อนที่จะสร้าง Function มารู้จักความหมายและการสร้างก่อนครับ
Function  ชื่อ(ตัวแปร:ประเภทตัวแปร):ค่าที่คืนกลับมา;
ตัวอย่าง
function YindeeTest(t:String):String;
begin
  statment.....

result:=     ;
end;
ชื่อตัวแปร  YindeeTest
ตัวแปร:ประเภทตัวแปร  t:String
ค่าที่คืนกลับมา String

[naj]

ผมสร้าง 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.  

[naj]

ต่อเลยครับ กำลังมันส์

โค๊ด: Delphi

1. procedure GlobalOnCreate;
2. begin
3. ChangeReportSQL('select fname from patient order by hn desc limit 10');
4.  
5. end;

[naj]

ต่อครับ
ผมนำ Variable1 มาวางใน Detail Band  โดยใช้ CODE

โค๊ด: Delphi

1. procedure Variable1OnCalc(var Value: Variant);
2. begin
3.  
4.   Value :=YindeeTest(DBPipeline['fname']) ;
5.  
6. end;

เป็นตัวอย่างง่ายๆครับ ลองเอาไปประยุกต์ใช้ดูนะครับ

[anukul]

 

สุดยอดครับ  สร้าง Function แล้วแจกได้มั๊ยครับ   

[SrWooD]

เยี่ยมยอดที่ซู๊ดเลยครับ อ.naj

ขอบคุณครับ

 

[doramon]

สุดยอดเทพ 

[Khuad]

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

....                    ........................


.... ขอบคุณมากๆ เลยครับ อ.นาจ .....

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

ทีนี้เราก็มารู้จักการสร้าง Function ขึ้นมาใช้ครับ
ตามขั้นตอนดังงนี้ โดย ยกตัวอย่างว่าผมต้องการสร้าง FUNCTION ที่หาจำนวนตัวอักษรของชื่อผู้ป่วย จริงๆมี function  Length(S); อยุ่แล้วใน Report Designer(RD) ตามรูปครับ

มีบางท่านถามมาเกี่ยวกับการสร้าง Function หรือ Procedure ขึ้นใช้เองเพิ่มเติมจากFunction หรือ Procedure เดิมที่มีมาให้ใน HOSxP Report Designer ยกตัวอย่าง รายงานชื่อ SYSTEM-OPD-RG0110-1 ตัวอย่างตามรูป
 Function ชื่อ GetHOSVariable()

สุดยอดครับ

[wiphusit]

สุดยอดจริงๆ ครับ
สงสัยต้องไปขอวิชาสักคอร์ดแล้ว

[yord]

สุดยอด
ยอดเยี่ยม
ขอบคุณครับ

[Knott]

ยกให้เป็นเทพแห่ง HOSxP อีกท่านนึงเลยครับ 

[~๐{}-FILM-{}๐~]

อ.นาจ  ครับเอาแบบเป็น  คู่มือ ใน Word หรือ  acrobat ก็ได้ครับ
จะได้ปริ๊นออกมาดูได้ครับ

[Khuad]

ยกให้เป็นเทพแห่ง HOSxP อีกท่านนึงเลยครับ 

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

... ปล่อยมาแต่ละดอกนี่สุดยอดทั้งนั้นเลย ....    ....

[vios1909]

อย่าง อ.นาจ เนี่ยต้องเรียก ว่าปรมาจารย์ตั๊กหม้อ  เอ้ยยย ตั๊กม่อ คร้าบบบบ 

[thank]

อีกรูปแบบสำหรับสร้าง function ใหม่หรือแก้ไขฟังก์ชั่นเดิมแบบมี source code ครับ "unit myRapFuncs"

[Bond_007]

ขอบคุณมากครับ

[naj]

อีกรูปแบบสำหรับสร้าง function ใหม่หรือแก้ไขฟังก์ชั่นเดิมแบบมี source code ครับ "unit myRapFuncs"

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