แสดงผลจาก script ใน ue

[Knott]

ผมทำ ue ของแพทย์แผนไทยครับ

โดยใช้ script นี้

var
    j:string;
begin

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

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

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

end;

ผมจะเอาผลที่ได้ใส่ไว้ใน textedit ที่สร้างขึ้นมา ผมลองแล้วไม่ได้ครับ น่าจะใช้คำสั่งผิด
รบกวนผู้รู้ตอบหน่อยครับว่าต้องเขียนยังไง

[Knott]

ขออนุญาตดันครับ   

SetFormInputValue(158,i) คำสั่งนี้ใช้กับตัวแปรที่เป็น string ได้มั้ยครับ

[doramon]

ต้องส่งตัวเต็มขึ้นมาด้วยครับ จะได้ตรวจสอบถูกครับ

[Knott]

นี่ครับ ue ที่ทำไว้  รบกวน อ.อ๊อด  ด้วยครับ 

[nummon]

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.  

[Knott]

component ที่ 53 ในฟอร์มนี้ เป็น memoedit scriptไม่ work
ลองเปลี่ยน component ที่เป็น textedit ลงไป
script นี้ก็ใช้ได้ครับ (เปลี่ยน ตัวเลข SetFormInputValue(xx,j) ก่อน )

ได้แล้วครับ ขอบคุณครับ

[krathokman]

ถามหน่อยครับ
GetFormInputValue(7)

ตัวเลข  7  มันมาจากไหนครับ  เป็นลำดับ  Tab  หรือเปล่า
ผมเข้าใจว่าเป็นการอ้างถึง Object บน Form  แต่ไม่ได้อ้างชื่อ  แต่อ้างเป็นตัวเลขแทน
ดังนั้นผมจะรู้ได้อย่างไรว่า มัน Object ที่เท่าไร

[krathokman]

ได้แล้วครับ  ขอถามประเด็นอื่น  หากต้องการแสดงค่าจากการคำนวณ  โดยไม่ต้องเก็บลง Record
ทำอย่างไรครับ  เช่น
GetFormInputValue(7)*GetFormInputValue(12)
ไปแสดงที่ GetFormInputValue(9) ตัวนี้อาจจะเป็น Textbox  เปล่าๆ ไม่ผูกกับ Field ใด
เพียงแต่ให้ผู้ใช้เห็นผลจากการคำนวณเท่านั้นก่อน Save  มีสักตัวอย่างไหมครับ ขอบริจาคหน่อย