ผู้เขียน หัวข้อ: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form  (อ่าน 7752 ครั้ง)

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

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« เมื่อ: มีนาคม 22, 2013, 09:45:54 AM »
0
ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง  RunHOSxP_ScriptProgram('xxxxFORM')  ผ่าน Button ใน MainForm  โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ  ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ
« แก้ไขครั้งสุดท้าย: มีนาคม 22, 2013, 10:10:39 AM โดย naj »
Yindee And Tan

ออฟไลน์ James011

  • Hero Member
  • *****
  • กระทู้: 1,743
  • Respect: +16
    • ดูรายละเอียด
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #1 เมื่อ: มีนาคม 22, 2013, 09:57:44 AM »
0
 
ลองทดสอบการเขียนฟอร์มในปุ่ม Custom Form โดยที่ เราสร้างฟอร์มย่อยมากกว่า 1 form ยกตัวอย่างเช่น มี MianForm กับ ChildForm เรียก ChildForm ด้วยคำสั่ง  RunHOSxP_ScriptProgram('xxxxFORM')  ผ่าน Button ใน MainForm  โดยปกติใน Delphi เราสามารถประกาศตัวแปรในส่วนของ Public ของ Unit1 แล้ว Use Unit1 ใน Unit2 ซึ่งจะทำให้เราสามารถที่จะใช้ตัวแปรร่วมกันได้(รับส่งค่าระหว่าง Form ได้) แต่จากเท่าที่ลองทำใน HOSxP ไม่สามารถทำได้ครับ เลยไม่แน่ใจว่าตอนนี้ HOSxP สามารถทำได้หรือยังครับ  ถ้าไม่ได้จริงคงต้องใช้วิธีเดิม Compile เป็น Exe file แล้วเรียกขึ้นมาใช้งานตรงๆ
;D ;D ;D ผมอยากได้แบบนี้เหมือนกันครับ

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #2 เมื่อ: มีนาคม 22, 2013, 09:58:42 AM »
0
 :) :) :) :)
Yindee And Tan

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #3 เมื่อ: มีนาคม 22, 2013, 10:05:28 AM »
0
ถ้าได้ HOSxP  Amazing  เถิดเทิงเป็นแน่แท้  บรรดาขาสร้าง(ฝัน) การพัฒนาต่อยอดการใช้งาน คงคันไม้คันมือ(ส่ายสะดือ เด้งมา เด้งไป...555)  ;D
Yindee And Tan

ออฟไลน์ armds

  • Hero Member
  • *****
  • กระทู้: 1,084
  • armds
  • Respect: +10
    • ดูรายละเอียด
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #4 เมื่อ: มีนาคม 22, 2013, 11:10:28 AM »
0
ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่  sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ
โรงพยาบาลสมเด็จพระยุพราชด่านซ้าย จ.เลย
ขนาด 60 เตียง นวก. คอมพิวเตอร์ ขึ้นระบบ ปี 2548
ขอบคุณ อ.ชัยพร อ.สุชัย อ.เดชา อ.doreamon อ.naj อ.ขวด และอ.ในเว็บ hosxp.net ทุกท่าน

ออฟไลน์ Khuad

  • Hero Member
  • *****
  • กระทู้: 3,778
  • .. นางฟ้า ตัวไม่น้อยแล้ว ..
  • Respect: +10
    • ดูรายละเอียด
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #5 เมื่อ: มีนาคม 22, 2013, 12:06:33 PM »
0
ใช้วิธีแบบผมก็ได้นะครับ
ส่งค่าไปเก็บไว้ที่  sys_var (สร้าง 1 record ชื่ออะไรก็ได้ห้ามซ้ำ)
แล้วค่อยเอาค่าที่ส่งมาไปให้ฟอร์ม ที่จะเขียนเพิ่มเติมเอาอีกทีครับ
ตัวอย่างครับ

... เทพ ๆๆๆๆๆ ...  ;D ...
โรงพยาบาลวังน้อย   พระนครศรีอยุธยา ( รพช.30 เตียง )
Server : ProLiant DL120G6  Xeon X3450  RDIMM 12 Gb  2x256GB SSD Raid 1
OS : CentOS 6.3  DB : Percona 5.5.21

Slave : ProLiant ML110G6  Xeon X3430  UDIMM 8 Gb  2x300GB SAS Raid 1
OS : CentOS 6.3  DB : Percona 5.5.32

HOSxP version  3.57.xx.xx    เริ่มระบบ  เมษายน 2549

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #6 เมื่อ: มีนาคม 22, 2013, 13:11:23 PM »
0
Thanks  :) :) :)
ไอเดีย บรรเจิด ไม่ต้องใช้เข็มขัด (เพราะคาดไม่ถึง...) 
« แก้ไขครั้งสุดท้าย: มีนาคม 22, 2013, 13:19:27 PM โดย naj »
Yindee And Tan

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #7 เมื่อ: มีนาคม 22, 2013, 22:03:15 PM »
0
มีใครจำได้ไหมครับว่า WinEXEC  เราจะส่งค่า Parameter เข้าไปใน Project ที่เรา Compile ได้ยังงัย (ลืมวิธีทำไปแล้วครับ)
Yindee And Tan

ออฟไลน์ naj

  • Hero Member
  • *****
  • กระทู้: 2,449
  • Respect: +8
    • ดูรายละเอียด
    • http://www.luangphopern-hospital.com
Re: การส่งค่าตัวแปรของ Form ในปุ่ม Custom Form
« ตอบกลับ #8 เมื่อ: มีนาคม 23, 2013, 10:45:52 AM »
0
ถึงบางอ้อ แล้วครับ  :D :D :D :D :D
เข้าใจการทำงานของคำสั่ง WinEXEC และการส่งค่า Param ที่มากกว่า 1 ตัว ให้กับ Exe File ที่เราสร้างขึ้น 
unit Yindee;
procedure main;
var fan:string;
begin
 fan:=GetGlobalValue('AN');

  //WinEXEC('Project1.exe '+fan);
  Winexec('Project1.exe '+' '+fan);

  //showmessage(fan);
end;
end.
Yindee And Tan