BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: Knott ที่ มกราคม 20, 2011, 15:03:27 PM

หัวข้อ: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: Knott ที่ มกราคม 20, 2011, 15:03:27 PM
ผมทำ ue ของแพทย์แผนไทยครับ

โดยใช้ script นี้

var
    j:string;
begin

  if GetFormInputValue(7) > GetFormInputValue(8) then
     j := 'ความเจ็บปวดลดลง';
  ShowMessage('ความเจ็บปวดลดลง')
  SetFormInputValue(53,j)

  else if GetFormInputValue(7) = GetFormInputValue(8) then
     j := 'ความเจ็บปวดเท่าเดิม';
     ShowMessage('ความเจ็บปวดเท่าเดิม')
  SetFormInputValue(53,j)

  else if GetFormInputValue(7) < GetFormInputValue(8) then
     j := 'ความเจ็บปวดเพิ่มขึ้น';
     ShowMessage('ความเจ็บปวดเพิ่มขึ้น')
  SetFormInputValue(53,j)

end;

ผมจะเอาผลที่ได้ใส่ไว้ใน textedit ที่สร้างขึ้นมา ผมลองแล้วไม่ได้ครับ น่าจะใช้คำสั่งผิด
รบกวนผู้รู้ตอบหน่อยครับว่าต้องเขียนยังไง
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: Knott ที่ มกราคม 21, 2011, 16:33:10 PM
ขออนุญาตดันครับ   ;D ;D

SetFormInputValue(158,i) คำสั่งนี้ใช้กับตัวแปรที่เป็น string ได้มั้ยครับ
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: doramon ที่ มกราคม 21, 2011, 16:47:28 PM
ต้องส่งตัวเต็มขึ้นมาด้วยครับ จะได้ตรวจสอบถูกครับ

หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: Knott ที่ มกราคม 21, 2011, 16:52:19 PM
นี่ครับ ue ที่ทำไว้  รบกวน อ.อ๊อด  ด้วยครับ  :D
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: nummon ที่ มกราคม 23, 2011, 23:24:46 PM
component ที่ 53 ในฟอร์มนี้ เป็น memoedit scriptไม่ work
ลองเปลี่ยน component ที่เป็น textedit ลงไป
script นี้ก็ใช้ได้ครับ (เปลี่ยน ตัวเลข SetFormInputValue(xx,j) ก่อน )

โค๊ด: Delphi
  1.  
  2. var
  3.     j:string;
  4. begin
  5.  
  6.   if GetFormInputValue(7) > GetFormInputValue(8) then
  7.   begin
  8.      j := 'ความเจ็บปวดลดลง';
  9.      ShowMessage(j);
  10.      SetFormInputValue(153,j);
  11.   end
  12.   else if GetFormInputValue(7) = GetFormInputValue(8) then
  13.   begin
  14.      j := 'ความเจ็บปวดเท่าเดิม';
  15.      ShowMessage(j);
  16.      SetFormInputValue(153,j);
  17.   end
  18.   else if GetFormInputValue(7) < GetFormInputValue(8) then
  19.   begin
  20.      j := 'ความเจ็บปวดเพิ่มขึ้น';
  21.      ShowMessage(j);
  22.      SetFormInputValue(153,j);
  23.   end;
  24.  
  25. end;
  26.  
  27.  
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: Knott ที่ มกราคม 24, 2011, 08:47:41 AM
อ้างจาก: nummon ที่ มกราคม 23, 2011, 23:24:46 PM
component ที่ 53 ในฟอร์มนี้ เป็น memoedit scriptไม่ work
ลองเปลี่ยน component ที่เป็น textedit ลงไป
script นี้ก็ใช้ได้ครับ (เปลี่ยน ตัวเลข SetFormInputValue(xx,j) ก่อน )


ได้แล้วครับ ขอบคุณครับ
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 11, 2012, 21:48:01 PM
ถามหน่อยครับ
GetFormInputValue(7)

ตัวเลข  7  มันมาจากไหนครับ  เป็นลำดับ  Tab  หรือเปล่า
ผมเข้าใจว่าเป็นการอ้างถึง Object บน Form  แต่ไม่ได้อ้างชื่อ  แต่อ้างเป็นตัวเลขแทน
ดังนั้นผมจะรู้ได้อย่างไรว่า มัน Object ที่เท่าไร
หัวข้อ: Re: แสดงผลจาก script ใน ue
เริ่มหัวข้อโดย: krathokman ที่ กรกฎาคม 11, 2012, 22:00:41 PM
ได้แล้วครับ  ขอถามประเด็นอื่น  หากต้องการแสดงค่าจากการคำนวณ  โดยไม่ต้องเก็บลง Record
ทำอย่างไรครับ  เช่น
GetFormInputValue(7)*GetFormInputValue(12)
ไปแสดงที่ GetFormInputValue(9) ตัวนี้อาจจะเป็น Textbox  เปล่าๆ ไม่ผูกกับ Field ใด
เพียงแต่ให้ผู้ใช้เห็นผลจากการคำนวณเท่านั้นก่อน Save  มีสักตัวอย่างไหมครับ ขอบริจาคหน่อย