[T]-วิธีการเขียน Script2Tempreport ใน Report by James011

[James011]

    [T]-วิธีการเขียน Script ใน Report by James011

        เริ่มด้วย - ขั้นที่ 1
         
                  สร้างโครงสร้างหลัก ใน Script  ทดสอบไม่มี Error ผ่านครับ   

[James011]

    ขั้นที่ 2

           เลือกข้อมูลจากตาราง pttype โดยใช้ Clientdataset   
           โดยทดสอบแสดงผล ฟิวล์ pttype และฟิวล์ name ในแถวแรก

[James011]

    ขั้นที่ 3

              เลือกข้อมูลแล้วต้องการแสดงผลข้อมูลทุกตัว   ทำได้โดยใส่ Loop While เข้าไป

[James011]

  ขั้นที่ 4  

           บันทึกข้อมูลที่เลือก  เก็บลงตาราง tempreport   

[James011]

    ถูกใจ Thank ให้กำลังใจบ้างก็ได้นะครับ
                ถ้าไม่เข้าใจตรงไหนถามได้นะครับ
                เดี่ยวมาต่อ ขั้นต่อไป...................

[doramon]

พิมพ์พร้อมกันสองเครื่องไม่ได้

[James011]

พิมพ์พร้อมกันสองเครื่องไม่ได้

      ขั้นที่ 5    (โดน อ.อ๊อด ทดสอบแล้วครับ)

             ให้สามารถพิมพ์พร้อมกันหลายเครืองได้ครับ

[Svl2Nuk3]

ขอบคุณครับ

[Knott]

ขอบคุณครับ  ได้ความรู้อีกแล้วครับ 

ว่าแต่ Step 5  ทำอย่างไรครับ

[James011]

ขอบคุณครับ  ได้ความรู้อีกแล้วครับ 

ว่าแต่ Step 5  ทำอย่างไรครับ

ทุก Step มี Report ให้ Download ด้านล่าง ดูจาก Report ก็ได้ครับ

[Svl2Nuk3]

ขอบคุณครับ  ได้ความรู้อีกแล้วครับ 

ว่าแต่ Step 5  ทำอย่างไรครับ

ขออนุญาตอธิบายให้พี่นอทครับ   

ขั้นตอนที่  5  เอาไว้แยกข้อมูลกรณีมีคนใช้พร้อม ๆ กันหลายคน

ถ้าเขียนรายงานกับ tempreport  เราจะ  insert  ข้อมูลเข้าไปในตาราง  tempreport  ก่อน
ถ้ามีการใช้พร้อมกันหลายคน   มันจะมีข้อมูลไปกองรวมกันซึ่งไม่รู้ว่า  record  ไหนเป็นของคนไหน

อ.เจม  ก็เลยเอาฟิล์  id  มาเป็นตัวแยกโดยใส่ online id เข้าไป  เพราะแต่ละเครื่องที่ใช้งานจะมี  Online id  ต่างกัน  ทำให้แยกข้อมูลใน  tempreport  ได้   ว่าแต่ละ record  เป็นของ report และ user ไหน

จาก  SQL  จะเห็นว่ามีการใส่เงื่อนไขของ  id และเป็น  parameter  เพื่อรับค่า Parameter Onlineid ไปใช้
select * from tempreport where reportname="myscriptreport011" and id="{onlineid}"


ใน Script  รับค่าจาก  parameter  โดยใช้ฟังก์ชัน  report_value(2)
fonlineid:=report_value(2);

แล้วก็เอาตัวแปร  fonlineid   ไปเป็นเงื่อนไขในคำสั่ง  sql อีกทีครับ
เวลาดึงข้อมูลพร้อม ๆ กันหลาย ๆ เครื่องก็จะไม่มีปัญหาครับ

 

[Knott]

ขอบใจมากนุ๊ก เข้าใจแระ   

[saan]

ขอบคุณครับ 

[James011]

  ขั้นตอนที่ 6

              - การใช้ Function Getdaterange()    เพื่อรับค่าข้อมูลวันที่
              - การใช้ Function Getsqldata()   เพื่อประมวลผลคำสั่ง SQL โดยจะคืนค่ามา 1 ค่า 

[Bordin]

ขอบคุณครับ 

[nahos]

ขั้นตอน ที่ 7

[thecoy]

มีวิธีเขียน TclientDataset ที่ไม่ต้องใช้ผ่าน turbo hosxp มั้ยครับ

[James011]

มีวิธีเขียน TclientDataset ที่ไม่ต้องใช้ผ่าน turbo hosxp มั้ยครับ

    ลองทดสอบดูครับ

โค๊ด: Delphi

1.    cds.Edit;
2.   cds.FieldByName('credit').AsInteger := 500;
3.   cds.Post;
4.  
5.   if cds.ApplyUpdates(0) > 0 then
6.     ShowMessage ('Update failed');
7.    

[James011]

    ขั้นตอนที่ 7

     -การใช้   Function Getpickuplist 

[James011]

    ถ้าต้องการแบบละเอียดและมี Workshop ต้อง BMS  ตาม File ด้านล่างครับ

[anukul]

ขอบคุณมากครับ อธิบายได้เข้าใจดีพร้อมกับภาพประกอบชัดเจนมาก

ผ่านหลักสูตร Advanced report ยังไม่ลึกซึ้งเท่านี้เลยครับ

เยี่ยมมาก เป็นประโยชน์จริงๆ ครับ

 

[James011]

ขอบคุณมากครับ อธิบายได้เข้าใจดีพร้อมกับภาพประกอบชัดเจนมาก

ผ่านหลักสูตร Advanced report ยังไม่ลึกซึ้งเท่านี้เลยครับ

เยี่ยมมาก เป็นประโยชน์จริงๆ ครับ

 

 

[wiphusit]

ขอบคุณครับ

[เกื้อกูล ครับ..]

ขอบคุณมากครับ อธิบายได้เข้าใจดีพร้อมกับภาพประกอบชัดเจนมาก

ผ่านหลักสูตร Advanced report ยังไม่ลึกซึ้งเท่านี้เลยครับ

เยี่ยมมาก เป็นประโยชน์จริงๆ ครับ

 

หมอเก้งครับ...ผมทำวิชาหล่นตั้งแต่ออกเดินทางกลับครับ..
ยังตามหาไม่เจอเลยครับ..เหลือแต่ความว่างเปล่าเลยครับ       

[wiphusit]

ขอบคุณมากครับ อธิบายได้เข้าใจดีพร้อมกับภาพประกอบชัดเจนมาก

ผ่านหลักสูตร Advanced report ยังไม่ลึกซึ้งเท่านี้เลยครับ

เยี่ยมมาก เป็นประโยชน์จริงๆ ครับ

 

หมอเก้งครับ...ผมทำวิชาหล่นตั้งแต่ออกเดินทางกลับครับ..
ยังตามหาไม่เจอเลยครับ..เหลือแต่ความว่างเปล่าเลยครับ      

พี่เกื้อหล่นแถวไหนเดียวผมตามไปเก็บหน่อย อิอิ

[anukul]

หมอเก้งครับ...ผมทำวิชาหล่นตั้งแต่ออกเดินทางกลับครับ..
ยังตามหาไม่เจอเลยครับ..เหลือแต่ความว่างเปล่าเลยครับ       

อ้าว แล้วที่ส่งให้ผม อ.เกื้อ แอบไปเก็บมาจากแถวไหนครับเนี่ย   

[เกื้อกูล ครับ..]

อ๋อ..อันนั้นที่ผมส่งให้หมอเก้ง....สำหรับผมเรียกว่า...Reference ครับ..ก็อยู่ใน Notebook แต่ในหัวผม...มันว่างเปล่า..จะทำอะไร ต้องมานั่งพลิกดูหรือเปิดดู

ครั้งต่อครั้งน่ะครับ...สงสัย RAM จะเสื่อม  มัน save ไม่ได้ซักที.....   



วิภู...อย่าตามหาเลย...เดี๋ยวของ วิภู..จะหล่นที่เดียวกับผมล่ะยุ่งเลย.....