ผู้เขียน หัวข้อ: ขึ้น Error แบบนี้ แก้ไขอย่างไรครับ  (อ่าน 2326 ครั้ง)

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

ออฟไลน์ woravet

  • Sr. Member
  • ****
  • กระทู้: 409
  • Respect: +12
    • ดูรายละเอียด
ขึ้น Error แบบนี้ แก้ไขอย่างไรครับ
« เมื่อ: มิถุนายน 07, 2011, 17:31:11 PM »
0
procedure MainForm.FormShow(Sender: TObject);
var
  opdscreen_cds: TClientDataSet;
  cds:Tclientdataset;
begin
  fvn := trim(Getglobalvalue('VN'));
  fptname := getsqldata('select concat(p.pname,p.fname," ",p.lname) '+
                     ' as name '+
                     ' from patient p  '+
                     ' left outer join ovst o on o.hn = p.hn '+
                     ' where o.vn ="'+fvn+'"  ');
  ptname.text := fptname;
  ptname1.caption := fptname;
  opdscreen_cds.data := HOSxP_GetDataSet('select * from opdscreen where vn = "'+fvn+'" ');
  txtfbs.text :=opdscreen_cds['fbs'].value;
end;

แล้วขึ้น error ว่า Record, object or class type required. แก้ไขอย่างไรครับ
รพ.บึงสามัคคี จ.กำแพงเพชร
*********************
อ.สุชัยและคณะ ขึ้นระบบ 29 ตค.49(Linux+Fedara 5)
*********************
ปัจจุบัน
HOSxP version 3.53.4.27
Server:Windows XP SP2,MySQL 5
Client ประมาณ 15 เครื่อง

dusit

  • บุคคลทั่วไป
Re: ขึ้น Error แบบนี้ แก้ไขอย่างไรครับ
« ตอบกลับ #1 เมื่อ: มิถุนายน 07, 2011, 21:28:50 PM »
0
ลองแบบนี้ ได้ไหมครับ

procedure MainForm.FormShow(Sender: TObject);
var
  opdscreen_cds: TClientDataSet;
  cds:Tclientdataset;
begin
  opdscreen_cds:=tclientdataset.create(nil);
  cds:=tclientdataset.create(nil);


  fvn := trim(Getglobalvalue('VN'));
  fptname := getsqldata('select concat(p.pname,p.fname," ",p.lname) '+
                     ' as name '+
                     ' from patient p  '+
                     ' left outer join ovst o on o.hn = p.hn '+
                     ' where o.vn ="'+fvn+'"  ');
  ptname.text := fptname;
  ptname1.caption := fptname;
  opdscreen_cds.data := HOSxP_GetDataSet('select * from opdscreen where vn = "'+fvn+'" ');
  txtfbs.text :=opdscreen_cds['fbs'].value;
end;

หรือไม่ก็ลาก clientdataset มาใส่ใน design form ตอนออกแบบฟอร์มครับ
แล้วในนี้ไม่ต้อง ใส่  opdscreen_cds: TClientDataSet;
  cds:Tclientdataset;

ถ้ากอบปี้ Pas / Dfm มาให้จะแก้ไขได้ตรงครับ อันนี้ ต้องไปลองดูครับ