BMS-HOSxP Community
HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: iisomi ที่ ตุลาคม 15, 2009, 21:23:23 PM
-
คือไม่เข้าใจค่ะว่าภายใน function ต้องเขียนอย่างไรบ้าง ถึงจะนำข้อมูลในตารางมาใช้ได้ค่ะ ลองดึงข้อมูลออกมาแล้วพอจะนำน้อมูลไปแก้ไขข้อมูลไม่ขึ้นค่ะ รบกวนทุกท่านด้วยนะค่ะ
-
อ่านที่กระทู้นี้ครับ
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0
-
ลองศึกษาแล้วค่ะแต่ uses HOSxPDMU นำมาใช้ได้ยังไงอ่ะค่ะ
ถ้าเขียนตามอาจารย์แล้วแต่ฟ้อง errorตรงนี้ค่ะ รบกวนด้วยนะค่ะ
1.Unit xxxx;
2.interface
3.uses .....,...
4.implementation
5.uses HOSxPDMU;
6.
7.Procedure Button1Click(Sender:TObject);
8.var TC : TClientDataset;
9.begin
10.
11. TC := TClientDataset.Create(nil);
12. TC.Data := HOSxP_GetDataset('select * from pttype');
13. while not TC.eof do
14. begin
15. showmessage(TC.fieldbyname('name').asstring);
16. TC.next;
17. end;
18. TC.free;
19.
20.end;
-
ไม่รู้ใช่วิธีแก้ปัญหานี้ป่าวนะครับ
ลอง ใช้ เมนูช่วยใน delphi ครับ ตามรูป เรียก uses แทน โดยลบของบรรทัดนั้นออกก่อน
หรือใน Project เรายังไม่มี HOSXPDMU หรือเปล่าครับ มันเลยไม่เห็น
ลองดูแทบ message ด้านล่างว่าแจ้งว่าอย่างไรครับ
จะช่วยตอบได้ไกล้เคียงกว่า ครับ
-
ลองศึกษาแล้วค่ะแต่ uses HOSxPDMU นำมาใช้ได้ยังไงอ่ะค่ะ
ถ้าเขียนตามอาจารย์แล้วแต่ฟ้อง errorตรงนี้ค่ะ รบกวนด้วยนะค่ะ
1.Unit xxxx;
2.interface
3.uses .....,...
4.implementation
5.uses HOSxPDMU;
6.
7.Procedure Button1Click(Sender:TObject);
8.var TC : TClientDataset;
9.begin
10.
11. TC := TClientDataset.Create(nil);
12. TC.Data := HOSxP_GetDataset('select * from pttype');
13. while not TC.eof do
14. begin
15. showmessage(TC.fieldbyname('name').asstring);
16. TC.next;
17. end;
18. TC.free;
19.
20.end;
error ว่าอะไรครับ
-
ค่ะใน Project ยังไม่มี HOSXPDMU พยายามจะดึงใน โปรเจค turbo_hosxp มาใช้แต่นำมาใช้ในโปรเจคเรายังไง รบกวนอาจารย์ด้วยนะค่ะพยายามมาหลายวันแล้ว หรือถ้าเขียนขึ้นมาต้องเขียนอะไรบ้างค่ะ อยากก็อปโค้ดให้อาจารย์ดูแต่ไม่รู้จะรบกวนมากไปรึป่าว ขอบคุณอาจารย์ทุกท่านที่ร่วมตอบคำถามค่ะ