BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: Auing ที่ มิถุนายน 24, 2009, 16:16:10 PM
-
เรียนถามอาจารย์หลายๆท่านคับ พอจะมีวิธีที่จะคลิกขวาบริเวณที่สรุปข้อมูลของรายงานใน User script ให้ส่งออกมาเป็น Excel ได้หรือเปล่าคับ........ รอคำตอบขอบคุณครับ
-
มี่ครับ
แต่ว่าต้องส่ง ตาราง doraemon มาครับ
เป็น cds
-
ได้ครับ เพิ่มโค้ดเข้าไปที่ แทบ 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;
ลองดูครับ (ผมทำไว้เหมือนกัน น่าจะกรณีเดียวกัน :))
-
มี่ครับ
แต่ว่าต้องส่ง ตาราง doraemon มาครับ
เป็น cds
table สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า File ใหญ่ ??? ??? ???
-
table สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า File ใหญ่ ??? ??? ??? จะขอส่งทาง mail ไปให้นะครับรบกวนอาจาร์ด้วยครับ
ส่งมาเฉพาะ script ของตัวนี้ก็ได้ครับ ไม่ต้องเอามาหมดหรอกครับ
select * from doreamon where itemname ='xxxxx' ชื่อ script ที่ต้องการ แล้ว save เป็น cds มาก็ได้ เดี่ยวจะช่วยดูให้ครับ
-
table สำหรับอาจารย์อ็อดผม up ขึ้นไม่ได้ครับมันบอกว่า File ใหญ่ ??? ??? ??? จะขอส่งทาง mail ไปให้นะครับรบกวนอาจาร์ด้วยครับ
ส่งมาเฉพาะ script ของตัวนี้ก็ได้ครับ ไม่ต้องเอามาหมดหรอกครับ
select * from doreamon where itemname ='xxxxx' ชื่อ script ที่ต้องการ แล้ว save เป็น cds มาก็ได้ เดี่ยวจะช่วยดูให้ครับ
ที่ผมจะส่งออกเป้นของ ER ครับ แต่ไม่รู้อยู่ตรงใหนตาลายคับ
-
ใช้เงื่อนไขด้วยครับ ตามนี้คับ
select * from doreamon where itemname ='xxxxx'
xxxxx คือ ชื่อฟอร์ม script นะครับ
-
ใช้เงื่อนไขด้วยครับ ตามนี้คับ
select * from doreamon where itemname ='xxxxx'
xxxxx คือ ชื่อฟอร์ม script นะครับ
หาแล้วไม่มีครับแต่มันชื่อนี้แหละ ER-Report-V1
ผมเลยแนบไฟล์มาให้ดูด้วยครับ
-
;D ;D ;D ไปที่สายฟ้าครับ ตาราง doraemon แล้ว SAVE ออกมาครับ ;D ;D ;D
-
ได้ครับ เพิ่มโค้ดเข้าไปที่ แทบ 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 อ่ะครับ
-
;D ;D ;D ไปที่สายฟ้าครับ ตาราง doraemon แล้ว SAVE ออกมาครับ ;D ;D ;D
ผม save ออกมาแล้วครับแต่ Up ขึ้นเว็บไม่ได้ครับ ไฟล์อยู่ที่ 20 กว่าเมก zip แล้วเหลือ 2 เมกกว่าก็ยัง Up ขึ้นไม่ได้ครับเลย งงงงงงงงงง ??? ??? ??? ??? ???
-
ทดสอบครับ
-
ทดสอบตัวนี้ดูครับ
คลิกขวา ส่งออก Excel ได้เลยครับ
ลืมไปต้องเพิ่ม script นี้เข้าไปตอบ FormCreate ด้วยครับ
procedure TForm5.FormCreate(Sender: TObject);
begin
cxGrid1DBTableView1.PopupMenu := PopupMenu1;
end;
-
ทดสอบตัวนี้ดูครับ
คลิกขวา ส่งออก Excel ได้เลยครับ
ลืมไปต้องเพิ่ม script นี้เข้าไปตอบ FormCreate ด้วยครับ
procedure TForm5.FormCreate(Sender: TObject);
begin
cxGrid1DBTableView1.PopupMenu := PopupMenu1;
end;
ไม่ทราบจะนำเข้ารายงานนี้ยังไงครับ อ.armds
-
ตามรูปภาพเลยครับ
ขั้นตอนแรกต้องลบตัวเก่าออกก่อนครับ (ถ้ามีนะ )ถ้าไม่มี ก็ข้ามขั้นตอนนี้ไปครับ
ต่อไปก็นำเข้าโดยไฟล์ cds แล้วกด append ได้เลย
-
ตามรูปภาพเลยครับ
ขั้นตอนแรกต้องลบตัวเก่าออกก่อนครับ (ถ้ามีนะ )ถ้าไม่มี ก็ข้ามขั้นตอนนี้ไปครับ
ต่อไปก็นำเข้าโดยไฟล์ cds แล้วกด append ได้เลย
รบกวน อ.armds ครับ((มีเรื่องให้ปวดหมองอีกล่ะคับ พอดีงกกกก..!!)) ถ้าไม่ลบตัวเดิมออกแต่เราจะไปเพิ่มให้มันต่อจากอันเดิมได้หรือเปล่าครับ .....ขอบคุณครับที่ติดตามกระทู้ผม
-
อืม เพิ่มจากอันเดิมก็ได้ครับ อันนี้ก็แล้วแต่พื้นฐาน pascal script ด้วยนะครับ
ตามภาพครับ ( ผมคงเป็นครูไม่ได้แล้วแน่ ๆ เลย อธิบายไม่ได้เรื่องเลย ??? ???)
ปล. น่าจะ save ตัวเก่าไว้อีกชื่อหนึ่ง แล้วค่อยนำเข้าตัวที่ผมทำไว้ ไปทับ ก็ได้นะ
-
มาแจ้งผลการนำไปใช้ของพี่ อาร์ม โดยรวมถือว่าสุดยอดครับ :o :o
แต่ในหน้าแรก เป็นดังภาพ หากเลือกการจำหน่าย แล้วกดแสดงผลจะเกิด error ขึ้นครับ รบกวนพี่อาร์มช่วยแนะนำด้วยครับ :'( :'(
-
มาแจ้งผลการนำไปใช้ของพี่ อาร์ม โดยรวมถือว่าสุดยอดครับ :o :o
แต่ในหน้าแรก เป็นดังภาพ หากเลือกการจำหน่าย แล้วกดแสดงผลจะเกิด error ขึ้นครับ รบกวนพี่อาร์มช่วยแนะนำด้วยครับ :'( :'(
แก้ไข Error ให้แล้วครับ ลืมใส่เครื่องหมาย +