ผู้เขียน หัวข้อ: Pascal Script for Fun Part I  (อ่าน 14860 ครั้ง)

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

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Pascal Script for Fun Part I
« เมื่อ: สิงหาคม 16, 2006, 01:33:26 AM »
0
ในการเขียน Script นอกจากจะเขียนเป็น Script ให้ทำงานตามที่สั่งได้แล้ว ยังสามารถออกแบบให้สามารถติดต่อกับผู้ใช้งานโดยใช้ Standard VCL Component ได้ด้วย แต่เนื่องจากระบบ Script ไม่มีระบบ IDE ที่จะออกแบบหน้าจอ ดังนั้นจึงต้องใช้วิธีนำ component มาใช้โดยการเขียน Code มาดูตัวอย่างครับ

โค๊ด: Pascal
  1. Unit Script;
  2.  
  3. var MyForm : TForm;
  4.     OKButton : TButton;
  5.  
  6.  
  7. Implementation
  8.  
  9.  
  10. Procedure OKButtonClick;
  11. begin
  12.   MyForm.close;
  13.  
  14. end;
  15.  
  16. Procedure InitilizeForm;
  17. begin
  18.  
  19.   MyFORM:=TForm.create(nil);
  20.   MyForm.top:=100;
  21.   MyForm.left:=100;
  22.  
  23.   OKButton:=TButton.Create(MyForm);
  24.   OKButton.parent:=MyForm;
  25.   OKButton.Caption:='OK';
  26.   OKButton.left:=10;
  27.   OKButton.top:=10;
  28.  
  29.   OKButton.OnClick:=OkButtonClick;
  30.  
  31. end;
  32.  
  33.  
  34. Procedure Main;
  35. var
  36.   i:integer;
  37. begin
  38.   InitilizeForm;
  39.   MyForm.showmodal;
  40.   MyForm.free;
  41. end;
  42.  
  43.  
  44.  
  45.  
  46.  
  47. end.
  48.  
  49.  
  50.  
« แก้ไขครั้งสุดท้าย: สิงหาคม 16, 2006, 05:25:55 AM โดย manoi »
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Re: Pascal Script for Fun Part I
« ตอบกลับ #1 เมื่อ: สิงหาคม 16, 2006, 04:38:42 AM »
0
คราวนี้มาดูเมื่อเขียนให้ทำการดึงข้อมูลมาใช้บ้าง


โปรแกรม (script) Pttype name changer จะทำการดึงข้อมูลในตาราง pttype มาให้ผู้ใช้แก้ไขชื่อ โดยการระบุรหัสิทธิการรักษาที่ต้องการ

โค๊ด: Pascal
  1. Unit Script;
  2.  
  3. var MyForm : TForm;
  4.     OKButton : TButton;
  5.     SaveButton : TButton;
  6.     DBEdit1:TDBEdit;
  7.     DataSource : TDataSource;
  8.     ClientDataset : TClientDataset;
  9.     PttypeEdit : TEdit;
  10.  
  11.     PttypeLabel : TLabel;
  12.     PttypeNameLabel : TLabel;
  13.  
  14.  
  15. Implementation
  16.  
  17.  
  18. Procedure OKButtonClick;
  19. begin
  20.   MyForm.close;
  21.  
  22. end;
  23.  
  24. Procedure SaveButtonClick;
  25. begin
  26.   if ClientDataset.state = dsedit then ClientDataset.post;
  27.  
  28.   if ClientDataset.changecount>0 then HOSxP_UpdateDelta(clientdataset.delta,'select * from pttype where pttype="'+PttypeEdit.text+'"');
  29.   MyForm.close;
  30. end;
  31.  
  32. Procedure PttypeEditChange;
  33. begin
  34.   ClientDataset.Data:=HOSxP_GetDataset('select * from pttype where pttype="'+PttypeEdit.text+'"');
  35.   SaveButton.enabled:=ClientDataset.recordcount>0;
  36.  
  37. end;
  38.  
  39. Procedure InitilizeForm;
  40. begin
  41.  
  42.   MyFORM:=TForm.create(nil);
  43.   MyForm.top:=100;
  44.   MyForm.left:=100;
  45.  
  46.   OKButton:=TButton.Create(MyForm);
  47.   OKButton.parent:=MyForm;
  48.   OKButton.Caption:='Close';
  49.   OKButton.left:=150;
  50.   OKButton.top:=150;
  51.  
  52.   OKButton.OnClick:=OkButtonClick;
  53.  
  54.   SaveButton:=TButton.Create(MyForm);
  55.   SaveButton.parent:=MyForm;
  56.   SaveButton.Caption:='Save';
  57.   SaveButton.left:=50;
  58.   SaveButton.top:=150;
  59.   SaveButton.enabled:=false;
  60.  
  61.   SaveButton.OnClick:=SaveButtonClick;
  62.  
  63.   DataSource:=TDataSource.create(MyForm);
  64.   ClientDataset:=TClientDataset.create(MyForm);
  65.   ClientDataset.data:=HOSxP_GetDataset('select * from pttype limit 0');
  66.   DataSource.Dataset := ClientDataset;
  67.  
  68.   PttypeEdit:=TEdit.create(MyForm);
  69.   PttypeEdit.parent:=MyForm;
  70.   PttypeEdit.left:=100;
  71.   PttypeEdit.top:=20;
  72.   PttypeEdit.width:=40;
  73.  
  74.   PttypeEdit.onchange:=PttypeEditChange;
  75.  
  76.   PttypeLabel:=TLabel.create(MyForm);
  77.   PttypeLabel.parent:=MyForm;
  78.   PttypeLabel.caption:='ÃËÑÊÊÔ·¸Ô';
  79.   PttypeLabel.left:=20;
  80.   PttypeLabel.top:=23;
  81.  
  82.  
  83.   PttypeNameLabel:=TLabel.create(MyForm);
  84.   PttypeNameLabel.parent:=MyForm;
  85.   PttypeNameLabel.caption:='ª×èÍÊÔ·¸Ô';
  86.   PttypeNameLabel.left:=20;
  87.   PttypeNameLabel.top:=53;
  88.  
  89.   DBEdit1:=TDBEdit.create(MyForm);
  90.   DBEdit1.parent:=MyForm;
  91.   DBEdit1.left:=100;
  92.   DBEdit1.top:=50;
  93.   DBEdit1.DataSource:=Datasource;
  94.   DBEdit1.DataField:='name';
  95.  
  96.  
  97.  
  98. end;
  99.  
  100.  
  101. Procedure Main;
  102. var
  103.   i:integer;
  104. begin
  105.  
  106.  
  107.   InitilizeForm;
  108.   MyForm.showmodal;
  109.   MyForm.free;
  110.  
  111. end;
  112.  
  113.  
  114.  
  115.  
  116.  
  117. end.
  118.  
  119.  
  120.  
  121.  
« แก้ไขครั้งสุดท้าย: สิงหาคม 16, 2006, 05:21:22 AM โดย manoi »
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ admin

  • Administrator
  • Jr. Member
  • *****
  • กระทู้: 68
  • Respect: +17
    • ดูรายละเอียด
    • HOSxP
Re: Pascal Script for Fun Part I
« ตอบกลับ #2 เมื่อ: สิงหาคม 16, 2006, 08:09:08 AM »
0
ลองเพิ่ม DBGrid เข้าไป

โค๊ด: Pascal
  1. Unit Script;
  2.  
  3. var MyForm : TForm;
  4.     OKButton : TButton;
  5.     SaveButton : TButton;
  6.     DBEdit1:TDBEdit;
  7.     DataSource : TDataSource;
  8.     ClientDataset : TClientDataset;
  9.     PttypeEdit : TEdit;
  10.  
  11.     PttypeLabel : TLabel;
  12.     PttypeNameLabel : TLabel;
  13.  
  14.     DBGrid : TDBGrid;
  15.  
  16.  
  17. Implementation
  18.  
  19.  
  20. Procedure OKButtonClick;
  21. begin
  22.   MyForm.close;
  23.  
  24. end;
  25.  
  26. Procedure SaveButtonClick;
  27. begin
  28.   if ClientDataset.state = dsedit then ClientDataset.post;
  29.  
  30.   if ClientDataset.changecount>0 then HOSxP_UpdateDelta(clientdataset.delta,'select * from pttype where pttype="'+PttypeEdit.text+'"');
  31.   MyForm.close;
  32. end;
  33.  
  34. Procedure PttypeEditChange;
  35. begin
  36.   ClientDataset.Data:=HOSxP_GetDataset('select * from pttype where pttype="'+PttypeEdit.text+'"');
  37.   SaveButton.enabled:=ClientDataset.recordcount>0;
  38.  
  39. end;
  40.  
  41. Procedure InitilizeForm;
  42. begin
  43.  
  44.   MyFORM:=TForm.create(nil);
  45.   MyForm.top:=200;
  46.   MyForm.left:=200;
  47.   MyForm.Width := 400;
  48.   MyForm.Height := 550;
  49.  
  50.   MyForm.caption:='Pttype name changer version 1.0';
  51.  
  52.   OKButton:=TButton.Create(MyForm);
  53.   OKButton.parent:=MyForm;
  54.   OKButton.Caption:='Close';
  55.   OKButton.left:=150;
  56.   OKButton.top:=450;
  57.  
  58.   OKButton.OnClick:=OkButtonClick;
  59.  
  60.   SaveButton:=TButton.Create(MyForm);
  61.   SaveButton.parent:=MyForm;
  62.   SaveButton.Caption:='Save';
  63.   SaveButton.left:=50;
  64.   SaveButton.top:=450;
  65.   SaveButton.enabled:=false;
  66.  
  67.   SaveButton.OnClick:=SaveButtonClick;
  68.  
  69.   DataSource:=TDataSource.create(MyForm);
  70.   ClientDataset:=TClientDataset.create(MyForm);
  71.   ClientDataset.data:=HOSxP_GetDataset('select * from pttype limit 0');
  72.   DataSource.Dataset := ClientDataset;
  73.  
  74.   PttypeEdit:=TEdit.create(MyForm);
  75.   PttypeEdit.parent:=MyForm;
  76.   PttypeEdit.left:=100;
  77.   PttypeEdit.top:=20;
  78.   PttypeEdit.width:=40;
  79.  
  80.   PttypeEdit.onchange:=PttypeEditChange;
  81.  
  82.   PttypeLabel:=TLabel.create(MyForm);
  83.   PttypeLabel.parent:=MyForm;
  84.   PttypeLabel.caption:='ÃËÑÊÊÔ·¸Ô';
  85.   PttypeLabel.left:=20;
  86.   PttypeLabel.top:=23;
  87.  
  88.  
  89.   PttypeNameLabel:=TLabel.create(MyForm);
  90.   PttypeNameLabel.parent:=MyForm;
  91.   PttypeNameLabel.caption:='ª×èÍÊÔ·¸Ô';
  92.   PttypeNameLabel.left:=20;
  93.   PttypeNameLabel.top:=53;
  94.  
  95.   DBEdit1:=TDBEdit.create(MyForm);
  96.   DBEdit1.parent:=MyForm;
  97.   DBEdit1.left:=100;
  98.   DBEdit1.top:=50;
  99.   DBEdit1.DataSource:=Datasource;
  100.   DBEdit1.DataField:='name';
  101.  
  102.   DBGrid := TDBGrid.create(MyForm);
  103.   DBGrid.parent := MyForm;
  104.   DBGrid.top:=100;
  105.   DBGrid.left:=20;
  106.   DBGrid.datasource := Datasource;
  107.  
  108.   MyForm.activecontrol := PttypeEdit;
  109.  
  110.  
  111.  
  112.  
  113. end;
  114.  
  115.  
  116. Procedure Main;
  117. var
  118.   i:integer;
  119. begin
  120.  
  121.  
  122.   InitilizeForm;
  123.   MyForm.showmodal;
  124.   MyForm.free;
  125.  
  126. end;
  127.  
  128.  
  129.  
  130.  
  131.  
  132. end.
  133.  
  134.  
  135.  
BMS Administrator

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
What 's next
« ตอบกลับ #3 เมื่อ: สิงหาคม 16, 2006, 18:48:03 PM »
0
จากความสามารถของตัว Script นี้ทำให้เราสามารถเพิ่มความยืดหยุ่นในการใช้งานระบบ HOSxP ได้ โดยการ Integrate Script เข้าไปในบางส่วนของระบบงานเพื่อให้ผู้ดูแลสามารถเพิ่มเติมการทำงานหรือเก็บข้อมูลบางอย่างเพิ่มเติมได้โดยไม่ต้องแก้ไขระบบหลัก ยกตัวอย่างเช่น

ระบบที่ได้นำร่องการ integrate ไปแล้วคือระบบการเชื่อมต่อกับ LIS ทั้งการส่ง Request Lab และการอ่านผล Lab จาก LIS

ระบบที่จะทำการ Integrate Script เข้าต่อจากนี้คือ ระบบการสั่ง X-Ray ที่จะสามารถออกแบบหน้าจอสั่ง X-Ray ได้เอง (ด้วยการดัดแปลง Script)
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ nahos

  • Hero Member
  • *****
  • กระทู้: 2,216
  • รพ.นาแห้ว
  • Respect: +7
    • ดูรายละเอียด
    • รพ.นาแห้ว
Re: Pascal Script for Fun Part I
« ตอบกลับ #4 เมื่อ: สิงหาคม 17, 2006, 01:12:27 AM »
0
ดีครับ โหวต ๆ
ถ้าำคำถามท่านได้คำตอบที่ต้องการจากอาจารย์ท่านใด กรุณากด Thank เบา ๆ ^ ถูกใจกด [applaud] ไม่ชอบใจกด[smite]
>> การโพสต์ขอรายงานที่ดี <<
อ่านซักนิด ถามยังไงให้ได้คำตอบ ? :)
วิธีแสดงตัวว่าเป็นใคร โดย อ.อ๊อด (ให้ข้อมูลว่าเป็นใคร ปฏิบัติงานที่ไหน ใช้ server อะไร OS อะไร HOsxp Vไหน)
ก่อนที่จะตั้งกระทู้ถาม ลองค้นจากกระทู้เก่าดูก่อนไหม จะได้คำตอบเร็วกว่าการรอคำตอบนะ
..........................................................................
เจษ จพ.เภสัชกรรมฯ user@ NAHAEO HOSPITAL LOEI. <br>  Supervise by DANSAI HOSPITAL LOEI. <br>
Start 01/03/2550
=> Server IBM X3200 Ram 6 Gb. OS:Cent OS 6.0  
=> Client 20 client  OS: SP2  => HosXP Version <b>3.56.11.19</b>
-----------------------------
น้ำเต็มแก้ว "การเรียนรู้ไม่มีที่สิ้นสุด"

doramon

  • บุคคลทั่วไป
Re: Pascal Script for Fun Part I
« ตอบกลับ #5 เมื่อ: สิงหาคม 17, 2006, 08:44:14 AM »
0
ดีมากเลยครับแต่บางครั้งยากมีปัญหาภาษาไทย
อ่านไม่ออกอยู่ครับไม่รู้ว่าผมทำอะไรผิดหรือเปล่า

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Re: Pascal Script for Fun Part I
« ตอบกลับ #6 เมื่อ: สิงหาคม 24, 2006, 08:04:42 AM »
0
เย้ Geshi ทำงานได้แล้ว
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ nuttavut

  • Hero Member
  • *****
  • กระทู้: 2,634
  • Boom-Beam
  • Respect: +15
    • ดูรายละเอียด
    • โรงพยาบาลวิเชียรบุรี
Re: Pascal Script for Fun Part I
« ตอบกลับ #7 เมื่อ: สิงหาคม 24, 2006, 20:52:13 PM »
0
..ดีครับ แต่ขอเป็น file VDO ประกอบได้ไหมครับ จะได้มองเห็นภาพและวิธีการ ลำดับขั้นตอน.......พิจารณาด้วยนะครับผม...
..Wichianburi Hospital  Phetchabun ..
Mr.Nuttavut   System Admin,Programer
Master:: HP DL380 G7 RAM 24GB Raid5 CentOS5.2  Percona 5.1.45
Slave::HP ProLiant ML150G3 Xeon Raid1  CentOS5.2   ,Percona 5.1.45
HOSxP 3.55.7.14, LIS (iLab),PACS
Tel. 0-5692-8169 ต่อ 180  | รพ. ขนาด 150+ เตียง |17 สอ. HOSxP_PCU |BMS Datacenter 18 node |
WWW : http://wichianhos.thaieasydns.com
|..ดูแลห่วงใย ใส่ใจบริการ รักษาได้มาตรฐาน พัฒนางานสู่ความเป็นเลิศ ..|   PDS Project  |  การนำเข้า Script คลิก

ออฟไลน์ manoi

  • Hero Member
  • *****
  • กระทู้: 8,669
  • Respect: +170
    • ดูรายละเอียด
    • HOSxP Community Center
Re: Pascal Script for Fun Part I
« ตอบกลับ #8 เมื่อ: สิงหาคม 24, 2006, 22:40:00 PM »
0
ต้องรอ Part II ครับ :]
HOSxP Project Manager / Cheif Developer / BMS MD

ออฟไลน์ nuttavut

  • Hero Member
  • *****
  • กระทู้: 2,634
  • Boom-Beam
  • Respect: +15
    • ดูรายละเอียด
    • โรงพยาบาลวิเชียรบุรี
Re: Pascal Script for Fun Part I
« ตอบกลับ #9 เมื่อ: สิงหาคม 24, 2006, 23:27:22 PM »
0
 :) ;D...จะรอดูนะครับ...ติดตามความคืบหน้าเสมอครับ...และขอบคุณทุกคำถามที่ตอบครับ... ::) :o
..Wichianburi Hospital  Phetchabun ..
Mr.Nuttavut   System Admin,Programer
Master:: HP DL380 G7 RAM 24GB Raid5 CentOS5.2  Percona 5.1.45
Slave::HP ProLiant ML150G3 Xeon Raid1  CentOS5.2   ,Percona 5.1.45
HOSxP 3.55.7.14, LIS (iLab),PACS
Tel. 0-5692-8169 ต่อ 180  | รพ. ขนาด 150+ เตียง |17 สอ. HOSxP_PCU |BMS Datacenter 18 node |
WWW : http://wichianhos.thaieasydns.com
|..ดูแลห่วงใย ใส่ใจบริการ รักษาได้มาตรฐาน พัฒนางานสู่ความเป็นเลิศ ..|   PDS Project  |  การนำเข้า Script คลิก