ผู้เขียน หัวข้อ: การใช้ Function HospitalDirector  (อ่าน 3107 ครั้ง)

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

ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,358
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
การใช้ Function HospitalDirector
« เมื่อ: กรกฎาคม 16, 2010, 23:32:41 PM »
0
ใน Report designer มี Function HospitalDirector ซึ่งมี x:string เป็น parameter
อยากทราบว่าต้องใส่อะไรแทน x ครับ เพื่อให้ออกมาเป็นชื่อ ผอ. (จากตาราง stockconfig)
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)

doramon

  • บุคคลทั่วไป
Re: การใช้ Function HospitalDirector
« ตอบกลับ #1 เมื่อ: กรกฎาคม 17, 2010, 10:24:45 AM »
0
function GetHospitalDirector: string;
begin

  with kskdm.fcds do
  begin
    close;
    data := HOSxP_GetDataset('select hospitaldirector as hn from stockconfig');
    // open;
    if recordcount > 0 then
      result := fieldbyname('hn').asstring
    else
      result := '';
    close;
  end;

end;

doramon

  • บุคคลทั่วไป
Re: การใช้ Function HospitalDirector
« ตอบกลับ #2 เมื่อ: กรกฎาคม 17, 2010, 10:38:21 AM »
0
HospitalName;   อ.ชัยพร คงจะทำแบบนี้ แต่คง ไม่ได้ปรับให้ครับ 

HospitalDirector: string    ก็คงใช้ได้เลยครับ





ออฟไลน์ udomchok

  • Hero Member
  • *****
  • กระทู้: 8,358
  • Respect: +589
    • ดูรายละเอียด
    • ร.พ.สมเด็จพระสังฆราช องค์ที่ 17
Re: การใช้ Function HospitalDirector
« ตอบกลับ #3 เมื่อ: กรกฎาคม 17, 2010, 11:15:15 AM »
0
Function ของ อ.mn เป็นแบบนี้
HospitalDirector(x);

เวลาใช้ก็แบบนี้
Text := HospitalDirector(x);
แต่ไม่สามารถใช้ได้ และไม่สามารถใช้แบบไม่มี parameter ได้

ตอนนี้เลยใช้แบบนี้ไปก่อน
Text := GetSQLStringData('select hospitaldirector from stockconfig');
ทำด้วยหัวใจร.พ.สมเด็จพระสังฆราช องค์ที่ 17 อ.สองพี่น้อง จ.สุพรรณบุรี
อบรมโดย BMS Team เมื่อ พ.ย. 49 ขึ้นระบบห้องบัตรเมื่อ X'Mas 2007
2008 : X-Ray กายภาพบำบัด แพทย์แผนไทย กิจกรรมบำบัด OPD ตา
2009 : ทันตกรรม ห้องตรวจตา OPD (พยาบาลและห้องตรวจแพทย์บางห้อง)