BMS-HOSxP Community

HOSxP => การเขียน SQL Script => ข้อความที่เริ่มโดย: thaidelphi ที่ มกราคม 11, 2010, 19:45:32 PM

หัวข้อ: อยากทราบการเขียน Script UE Form
เริ่มหัวข้อโดย: thaidelphi ที่ มกราคม 11, 2010, 19:45:32 PM
อยากทราบการเขียน Script UE Form
มี function อะไรที่ใช้ได้บ้างครับ
จะติดต่อกับตัว database ผ่าน TZquery ได้ไหม ใน UE ฟอร์ม

เผื่อจะทำตัวตรวจสอบ VN ว่ามีการบันทึกข้อมูลในฟอร์ม UE ไปหรือยัง
หัวข้อ: Re: อยากทราบการเขียน Script UE Form
เริ่มหัวข้อโดย: nummon ที่ มกราคม 13, 2010, 22:53:38 PM
ผมลอง(ผิดลองถูก)เขียน  event script ติดต่อ  database ได้
ผ่าน tclientdataset ตาม ตย.


  vn := GetGlobalValue('VN');
  uCDS :=tclientdataset.create(nil);
  uCDS.Data := HOSxP_Getdataset('select ward from ipt where an = "'+vn+'"');
  ward:= uCDS.FieldByName('ward').AsString ;

มี function อะไรที่ใช้ได้บ้างครับ

หาเก็บๆแกะๆเอาจากของที่มีแจกตัวอย่างUEให้ในเวบนี้น่ะครับ
ไม่รู้ว่าทั้งหมดมีอะไรบ้าง
หัวข้อ: Re: อยากทราบการเขียน Script UE Form
เริ่มหัวข้อโดย: thaidelphi ที่ มกราคม 14, 2010, 19:35:00 PM
ผมลอง(ผิดลองถูก)เขียน  event script ติดต่อ  database ได้
ผ่าน tclientdataset ตาม ตย.


  vn := GetGlobalValue('VN');
  uCDS :=tclientdataset.create(nil);
  uCDS.Data := HOSxP_Getdataset('select ward from ipt where an = "'+vn+'"');
  ward:= uCDS.FieldByName('ward').AsString ;


ขอบคุณครับ
หัวข้อ: Re: อยากทราบการเขียน Script UE Form
เริ่มหัวข้อโดย: doramon ที่ มกราคม 14, 2010, 22:42:00 PM
ผมลอง(ผิดลองถูก)เขียน  event script ติดต่อ  database ได้
ผ่าน tclientdataset ตาม ตย.


  vn := GetGlobalValue('VN');
  uCDS :=tclientdataset.create(nil);
  uCDS.Data := HOSxP_Getdataset('select ward from ipt where an = "'+vn+'"');
  ward:= uCDS.FieldByName('ward').AsString ;

มี function อะไรที่ใช้ได้บ้างครับ

หาเก็บๆแกะๆเอาจากของที่มีแจกตัวอย่างUEให้ในเวบนี้น่ะครับ
ไม่รู้ว่าทั้งหมดมีอะไรบ้าง


หาเก็บๆแกะๆเอาจากของที่มีแจกตัวอย่างUEให้ในเวบนี้น่ะครับ 

แบบนี้และครับ