User Script

[Auing]

เรียนถามอาจารย์หลายๆท่านคับ พอจะมีวิธีที่จะคลิกขวาบริเวณที่สรุปข้อมูลของรายงานใน User script ให้ส่งออกมาเป็น  Excel   ได้หรือเปล่าคับ........        รอคำตอบขอบคุณครับ

[doramon]

มี่ครับ

แต่ว่าต้องส่ง ตาราง doraemon มาครับ

เป็น cds

[armds]

ได้ครับ  เพิ่มโค้ดเข้าไปที่ แทบ DFM

object PopupMenu1: TPopupMenu
    Left = 56
    Top = 48
    object nmuThis: TMenuItem
      Caption = 'ส่งออก Excel'
      OnClick = nmuThisClick
    end
   
  end

แล้วมาเขียน   OnClick  ไปที่ แทบ  Source

procedure TForm1.mnuAClick(Sender: TObject);
begin
  fcds.data:=cds.data;
  ExportDatasetToExcel('test.xls');
end;

ลองดูครับ  (ผมทำไว้เหมือนกัน น่าจะกรณีเดียวกัน 

[Auing]

มี่ครับ

แต่ว่าต้องส่ง ตาราง doraemon มาครับ

เป็น cds

table  สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า  File ใหญ่  

[armds]

table  สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า  File ใหญ่   จะขอส่งทาง  mail  ไปให้นะครับรบกวนอาจาร์ด้วยครับ

ส่งมาเฉพาะ  script  ของตัวนี้ก็ได้ครับ  ไม่ต้องเอามาหมดหรอกครับ 
select * from doreamon where itemname ='xxxxx'  ชื่อ  script  ที่ต้องการ  แล้ว   save  เป็น  cds  มาก็ได้  เดี่ยวจะช่วยดูให้ครับ 

[Auing]

table  สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า  File ใหญ่   จะขอส่งทาง  mail  ไปให้นะครับรบกวนอาจาร์ด้วยครับ

ส่งมาเฉพาะ  script  ของตัวนี้ก็ได้ครับ  ไม่ต้องเอามาหมดหรอกครับ 
select * from doreamon where itemname ='xxxxx'  ชื่อ  script  ที่ต้องการ  แล้ว   save  เป็น  cds  มาก็ได้  เดี่ยวจะช่วยดูให้ครับ 

ที่ผมจะส่งออกเป้นของ  ER  ครับ  แต่ไม่รู้อยู่ตรงใหนตาลายคับ

[armds]

ใช้เงื่อนไขด้วยครับ  ตามนี้คับ
select * from doreamon where itemname ='xxxxx'

xxxxx  คือ  ชื่อฟอร์ม script  นะครับ

[Auing]

ใช้เงื่อนไขด้วยครับ  ตามนี้คับ
select * from doreamon where itemname ='xxxxx'

xxxxx  คือ  ชื่อฟอร์ม script  นะครับ

หาแล้วไม่มีครับแต่มันชื่อนี้แหละ   ER-Report-V1
ผมเลยแนบไฟล์มาให้ดูด้วยครับ

[jdadmin1]

  ไปที่สายฟ้าครับ ตาราง doraemon แล้ว SAVE ออกมาครับ

[Auing]

ได้ครับ  เพิ่มโค้ดเข้าไปที่ แทบ DFM

object PopupMenu1: TPopupMenu
    Left = 56
    Top = 48
    object nmuThis: TMenuItem
      Caption = 'ส่งออก Excel'
      OnClick = nmuThisClick
    end
   
  end

แล้วมาเขียน   OnClick  ไปที่ แทบ  Source

procedure TForm1.mnuAClick(Sender: TObject);
begin
  fcds.data:=cds.data;
  ExportDatasetToExcel('test.xls');
end;

ลองดูครับ  (ผมทำไว้เหมือนกัน น่าจะกรณีเดียวกัน 

อาจารย์คับผมเพิ่มไปตามที่บอกแล้วแต่กด  Execute,save  มันก้ไม่บันทึกอ่ะคับ    กดตรง  tab  Script อ่ะครับ

[Auing]

ไปที่สายฟ้าครับ ตาราง doraemon แล้ว SAVE ออกมาครับ

ผม save ออกมาแล้วครับแต่ Up ขึ้นเว็บไม่ได้ครับ ไฟล์อยู่ที่ 20 กว่าเมก  zip แล้วเหลือ 2 เมกกว่าก็ยัง Up ขึ้นไม่ได้ครับเลย   งงงงงงงงงง

[doramon]

ทดสอบครับ

[armds]

ทดสอบตัวนี้ดูครับ
คลิกขวา  ส่งออก Excel  ได้เลยครับ
ลืมไปต้องเพิ่ม  script นี้เข้าไปตอบ  FormCreate  ด้วยครับ

procedure TForm5.FormCreate(Sender: TObject);
begin
 
  cxGrid1DBTableView1.PopupMenu := PopupMenu1;

end;

[jassada]

ทดสอบตัวนี้ดูครับ
คลิกขวา  ส่งออก Excel  ได้เลยครับ
ลืมไปต้องเพิ่ม  script นี้เข้าไปตอบ  FormCreate  ด้วยครับ

procedure TForm5.FormCreate(Sender: TObject);
begin
 
  cxGrid1DBTableView1.PopupMenu := PopupMenu1;

end;

ไม่ทราบจะนำเข้ารายงานนี้ยังไงครับ อ.armds

[armds]

ตามรูปภาพเลยครับ
ขั้นตอนแรกต้องลบตัวเก่าออกก่อนครับ  (ถ้ามีนะ )ถ้าไม่มี ก็ข้ามขั้นตอนนี้ไปครับ
ต่อไปก็นำเข้าโดยไฟล์  cds  แล้วกด  append  ได้เลย

[Auing]

ตามรูปภาพเลยครับ
ขั้นตอนแรกต้องลบตัวเก่าออกก่อนครับ  (ถ้ามีนะ )ถ้าไม่มี ก็ข้ามขั้นตอนนี้ไปครับ
ต่อไปก็นำเข้าโดยไฟล์  cds  แล้วกด  append  ได้เลย

รบกวน  อ.armds  ครับ((มีเรื่องให้ปวดหมองอีกล่ะคับ  พอดีงกกกก..!!))    ถ้าไม่ลบตัวเดิมออกแต่เราจะไปเพิ่มให้มันต่อจากอันเดิมได้หรือเปล่าครับ    .....ขอบคุณครับที่ติดตามกระทู้ผม

[armds]

อืม   เพิ่มจากอันเดิมก็ได้ครับ  อันนี้ก็แล้วแต่พื้นฐาน  pascal script  ด้วยนะครับ
ตามภาพครับ  ( ผมคงเป็นครูไม่ได้แล้วแน่ ๆ เลย  อธิบายไม่ได้เรื่องเลย  )
ปล. น่าจะ save ตัวเก่าไว้อีกชื่อหนึ่ง  แล้วค่อยนำเข้าตัวที่ผมทำไว้  ไปทับ  ก็ได้นะ

[golf_win]

มาแจ้งผลการนำไปใช้ของพี่ อาร์ม โดยรวมถือว่าสุดยอดครับ
แต่ในหน้าแรก เป็นดังภาพ หากเลือกการจำหน่าย แล้วกดแสดงผลจะเกิด error ขึ้นครับ รบกวนพี่อาร์มช่วยแนะนำด้วยครับ

[armds]

มาแจ้งผลการนำไปใช้ของพี่ อาร์ม โดยรวมถือว่าสุดยอดครับ
แต่ในหน้าแรก เป็นดังภาพ หากเลือกการจำหน่าย แล้วกดแสดงผลจะเกิด error ขึ้นครับ รบกวนพี่อาร์มช่วยแนะนำด้วยครับ

แก้ไข  Error  ให้แล้วครับ  ลืมใส่เครื่องหมาย  +