jump to navigation

Excel Lib untuk Oracle Dev 10g October 24, 2009

Posted by mulyono rafianto in Programming.
add a comment

Beberapa Call Procedure dalam melukis excell dibutuhkan penyederhanaan Program, berikut ini beberapa Library semoga dapat bermanfaat :

– =====================
– PROCEDURE SECTION
– CALL PROCEDURE FUNCTION

PROCEDURE xslcellHed1(brs number,kol varchar2,vval varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
OLE2.SET_PROPERTY(cell, ‘HorizontalAlignment’, xlLeft );
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Color’, myBlue);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Bold’, ‘True’);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Size’, ‘16′);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcellHed2(brs number,kol varchar2,vval varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
OLE2.SET_PROPERTY(cell, ‘HorizontalAlignment’, xlLeft );
OLE2.SET_PROPERTY(cell, ‘VerticalAlignment’,   xlTop );
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Bold’, ‘True’);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Size’, ‘12′);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell1(brs number,kol varchar2,vval varchar2, F varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
if F =’v’ then
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
elsif F=’f’ then
OLE2.SET_PROPERTY(cell,’Formula’,vval);
end if;
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Bold’, ‘True’);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Size’, ‘12′);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell2(brs number,kol varchar2,vval varchar2, F varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
if F =’v’ then
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
elsif F=’f’ then
OLE2.SET_PROPERTY(cell,’Formula’,vval);
end if;
OLE2.SET_PROPERTY(cell, ‘ColumnWidth’, 35);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell3(brs number,kol varchar2,vval varchar2, F varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(Worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
if F =’v’ then
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
elsif F=’f’ then
OLE2.SET_PROPERTY(cell,’Formula’,vval);
end if;
OLE2.SET_PROPERTY(cell, ‘NumberFormat’, ‘###,##0.00′);
OLE2.SET_PROPERTY(cell, ‘ColumnWidth’, 15);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell4(brs number,kol varchar2,vval varchar2, F varchar2, wn numeric) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Bold’, ‘True’);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Color’, wn);
if F =’v’ then
OLE2.SET_PROPERTY(cell, ‘Value’, vval);
elsif F=’f’ then
OLE2.SET_PROPERTY(cell,’Formula’,vval);
end if;
OLE2.SET_PROPERTY(cell, ‘NumberFormat’, ‘###,##0.00′);
OLE2.SET_PROPERTY(cell, ‘ColumnWidth’, 16);
OLE2.RELEASE_OBJ(cell);
END;

– PROCEDURE FOR UTILITAS MARK UP CELL
PROCEDURE xslcell4wn(brs number,kol varchar2, wn number) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Font’), ‘Bold’, ‘True’);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cell, ‘Interior’), ‘ColorIndex’, wn);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell4Borders(brs number,kol varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, brs);
OLE2.ADD_ARG(args, kol);
cell := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Cells’, args);
OLE2.DESTROY_ARGLIST(args);
V_BORDER := OLE2.get_obj_property(Cell,’Borders’);
OLE2.Set_property(V_BORDER,’LineStyle’,1);
OLE2.RELEASE_OBJ(V_BORDER);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell4Borders2(brs number, kol1 varchar2, kol2 varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, kol1||”||to_char(brs)||’:'||kol2||”||to_char(brs));
cellRange := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Range’, args);
OLE2.DESTROY_ARGLIST(args);
V_BORDER := OLE2.get_obj_property(cellRange,’Borders’);
OLE2.Set_property(V_BORDER,’LineStyle’,1);
OLE2.RELEASE_OBJ(V_BORDER);
OLE2.RELEASE_OBJ(cellRange);
END;

PROCEDURE xslcell4Borders3(brs1 number, kol1 varchar2, brs2 number,kol2 varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, kol1||”||to_char(brs1)||’:'||kol2||”||to_char(brs2));
cellRange := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Range’, args);
OLE2.DESTROY_ARGLIST(args);
V_BORDER := OLE2.get_obj_property(cellRange,’Borders’);
OLE2.Set_property(V_BORDER,’LineStyle’,1);
OLE2.RELEASE_OBJ(V_BORDER);
OLE2.RELEASE_OBJ(cellRange);
END;

PROCEDURE xslcell4Grid(brs number, kol1 varchar2, kol2 varchar2, wn number) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, kol1||”||to_char(brs)||’:'||kol2||”||to_char(brs));
cellRange := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Range’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cellRange, ‘Interior’), ‘ColorIndex’, wn);
OLE2.RELEASE_OBJ(cellRange);
END;

PROCEDURE xslcell4Grid2(brs1 number,brs2 number, kol1 varchar2, kol2 varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, kol1||”||to_char(brs1)||’:'||kol2||”||to_char(brs2));
cellRange := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Range’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cellRange, ‘Rows’), ‘Group’,0);
OLE2.RELEASE_OBJ(cellRange);
END;

PROCEDURE xslcell4Fit(col1 varchar2, col2 varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.add_arg(args, col1||’:'||col2);
cell := OLE2.Get_Obj_Property(WorkSheet, ‘Columns’, args);
OLE2.destroy_arglist(args);
OLE2.invoke(cell, ‘AutoFit’);
OLE2.RELEASE_OBJ(cell);
END;

PROCEDURE xslcell4gabung(brs1 number,brs2 number, kol1 varchar2, kol2 varchar2) IS
BEGIN
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, kol1||”||to_char(brs1)||’:'||kol2||”||to_char(brs1));
cellRange := OLE2.GET_OBJ_PROPERTY(worksheet, ‘Range’, args);
OLE2.DESTROY_ARGLIST(args);
OLE2.SET_PROPERTY(OLE2.get_obj_property(cellRange,’Rows’),’Merge’,0);
OLE2.RELEASE_OBJ(V_BORDER);
OLE2.RELEASE_OBJ(cellRange);
END;

– PROCEDURE FOR EVIRONMENT PROSES
PROCEDURE XlSaveFile(Filename varchar) IS
BEGIN
Args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(ARGS,Filename);
OLE2.INVOKE(workbook, ‘SaveAs’, args);
OLE2.destroy_arglist(args);
END;

PROCEDURE XlSave IS
BEGIN
Args := OLE2.CREATE_ARGLIST;
OLE2.INVOKE(workbook, ‘Save’);
OLE2.destroy_arglist(args);
END;

PROCEDURE xlsClosed IS
BEGIN
–Args := OLE2.CREATE_ARGLIST;
–OLE2.INVOKE(application, ‘FileCloseAll’, args);
–OLE2.destroy_arglist(args);
OLE2.INVOKE(application,’QUIT’);
–OLE2.INVOKE(application,’AppClose’);
OLE2.RELEASE_OBJ(cell);
OLE2.RELEASE_OBJ(worksheet);
OLE2.RELEASE_OBJ(worksheets);
OLE2.RELEASE_OBJ(workbook);
OLE2.RELEASE_OBJ(workbooks);
OLE2.RELEASE_OBJ(application);
END;

Salam

Mulyono Rafianto

Oracle Deplover Programmed

Smart dengan Job Schedule Task. August 22, 2009

Posted by mulyono rafianto in Programming.
add a comment

focus2008aJajaran menajemen atau marketing membutuhkan data harian yang akurat dari hasil rekap penjualan kemarin, sebulan, dan beberapa bulan lalu dalam urutan time series yang sudah harus didapat pada jam 5 atau jam 6 pagi berupa email – Attachment Excell. Untuk  kebutuhan analisa besok
pagi breefing guna menyusun penyesuaian target terhadap sales force nya pada keesokan hari nya.

Dari request tersebut tentulah kita tidak akan masuk jam 3 atau 4 pagi guna menyusun Excel dari hasil rekap row data Database Oracle dan sekaligus meng-email kan pada bagian bagian yang membutuhkan
nya.

Berikut tutorial Smart dengan Job Schedule Task

Melukis Excell dengan Oracle Developer June 10, 2009

Posted by mulyono rafianto in Programming.
1 comment so far

Pada Aplikasi Oracle Developver kita dapat membuat file excell, sehingga informasi yang di sajikan lebih general dan orang umumnya lebih mudah untuk mencerna dan memahami, lebih informatif dari pada bentuk Grid Row Data.

berikut contoh yang dapat di di saji kan di sini (hanya sekedar contoh) :

……..
application:=OLE2.CREATE_OBJ(‘Excel.Application’);
OLE2.SET_PROPERTY(application, ‘Visible’, ‘False’);
workbooks := OLE2.GET_OBJ_PROPERTY(application, ‘Workbooks’);
workbook := OLE2.INVOKE_OBJ(workbooks,’Add’);

…… lebih lengkap nya.

versi pengembangan dengan zip dan download

versi pengembangan dengan Call Procedure

versi pengembangan dengan download

Browse Explorer System Linux dengan WinSCP. June 7, 2009

Posted by mulyono rafianto in Programming.
add a comment

Berikut tools untuk browsing sistem Linux ( Explore ) dari windows, digunakan untuk (misal : memaintenance log dari System Oracle Linux RH Enterprice, atau sekedar copy paste backup dari dan ke system Linux), dengan WinSCP.

Program Koperasi dengan Visual Foxpro April 17, 2009

Posted by mulyono rafianto in Programming.
11 comments

Berikut ini sample aplikasi Program Koprasi dengan Visual foxpro, untuk di share dan di kembangkan bagi yang ingin lebih jauh mengembangkan nya dan belajar program visual foxpro di persilahkan source code prg, form (open), selamat mengembangkan dan selamat berkreasi.

Source Code dapat di download di sini

Salam

Mulyono Rafianto

Aplikasi Web Server dgn Oracle Developer 6i R2 March 22, 2009

Posted by mulyono rafianto in Programming.
add a comment

Oracle Developer (link), Programing ERP – Web Server – Case sederhana snap-shot System ERP modul Inventory

Info : Keunggulan & Fakta-fakta Seputar Windows XP SP3 October 23, 2008

Posted by mulyono rafianto in Programming.
2 comments

Keunggulan & Fakta-fakta Seputar Windows XP SP3

Setelah mencoba update Windows XP SP3 dan memakainya selama sebulan lebih, kami menemukan banyak fitur dan kelebihan dari Service Pack ini. Berikut beberapa di antaranya:

1. Sistem operasi Windows XP SP3 lebih kebal virus dari pada versi SP2

SP3 mengadopsi sistem keamanan kulitas Windows Vista (NAP) yang dikenal sebagai sistem operasi teraman di dunia. NAP (Network Access Protection) adalah sebuah kebijakan teknologi yang menginspeksi komputer terlebih dahulu sebelum terhubung dengan suatu jaringan besar, kemudian juga akan mengupdate secara otomatis ataupun melakukan pengeblokan jikalau ada yang tidak memenuhi kriteria keamanan.

Keunikan lainnya adalah ketika kami mencoba meng-install SP3 di komputer yang mengandung virus, spyware dan trojan, dan ternyata SP3 otomatis menghapus semua sampah-sampah tersebut, dan menggantinya dengan yang sistem baru.

Bila komputer yang terkena virus dan ingin mengubah sistem dari Windows XP, otomatis sistem akan merestart komputer dan mengagalkannya. Virus sendiri yang aktif di startup tidak langsung hilang, tetapi bisa dibersihkan lewat safe mode.

2. Deteksi hardware dan plug ins lebih cepat

Bila Windows XP SP2 mendeteksi hardware baru seperti flash disk yang baru dipasang pada komputer, dan ketika kita memasangnya kembali, kadang-kadang masih dideteksi kembali oleh SP2. Kalau di SP3 hal ini tidak terjadi. Hardware yang sudah pernah terpasang di komputer, cukup dideteksi sekali. Pada pemasangan berikutnya, SP3 sudah mengenalinya dengan baik, tanpa perlu adanya deteksi kembali dan tetek bengeknya. Selain itu prosesnya sendiri lebih cepat dibanding SP2.

3. Perbaikan pada Direct-X dan error lainnya

Bila komputer yang memiliki Direct-X versi lama, tidak bisa diupgrade ke Direct-X 9.0c atau yang rusak, maka SP3 akan otomatis meng-updatenya ketika di install. Direct-X dari SP3 ternyata lebih stabil dan mengenali extension baru dari video-video player, yang sebelumnya kadang-kadang error ketika filenya diliihat pada Windows Explorer.

Kami mendapat beberapa informasi yang berkaitan dengan error-error ketika membuka folder atau Windows Explorer, sistem aplikasi crash, dan lain sebagainya. Dan ternyata di SP3 hampir tidak kami jumpai sama sekali. Aplikasi browser (IE, FireFox dan Opera) yang keluar mendadak juga belum pernah dialami kami sejal menginstall SP3.

Fakta-fakta Seputar Windows XP SP3:

1. SP3 membetulkan sekitar 1174 bug dan update sekuriti
2. SP3 bisa di install ke komputer yang mengandung minimal SP1, jadi tidak perlu harus update SP2 dahulu sebelum meng-installnya
3. SP3 mengandung update juga untuk Windows XP Media Center Edition (MCE) and Windows XP Tablet PC Edition, and update sekuriti untuk .NET Framework version 1.0
4. SP3 juga mengupdate sekuriti untuk Windows Media Player 10
5. Untuk Windows XP retail dan versi OEM, SP3 tidak akan meminta serial no. ketika meng-installnya

Bahasa Pemrogramman? October 21, 2008

Posted by mulyono rafianto in Programming.
1 comment so far

Saya sedang membuat aplikasi sebelum nya dengan menggunakan Java Programming untuk Aplikasi Koperasi Simpan Pinjam sederhana saat ini sedang di garap secara serius dengan menggunakan Visual Foxpro, Namun demikian bagaimana komentar anda tentang bahasa pemrogramman yang menurut anda mudah, dan gampang di pelajari. berikut saya ajukan Pooling berikut ini :

GET Value Excell Capture ke DBF August 26, 2008

Posted by mulyono rafianto in Programming.
add a comment

Kadang kala kita memerlukan template Excell untuk dibawa kedalam aplikasi database, template excel tersebut di gunakan sebagai parameter yang akan kita hitung untuk aplikasi database, berikut tips dan trik, moga dapat membantu.

( contoh 1 ) baca lebih lengkapnya..

( contoh 2 ) baca lebih lengkap nya…

Install Java Package in Ubuntu Offline June 28, 2008

Posted by mulyono rafianto in Programming.
add a comment

Refrensi bagus untuk ubuntu linux ( install java6 )

To install Sun Java using pre-packaged debs in vanilla installation of Ubuntu 8.04 without an Internet connection you will be required to satisfy a few dependencies. To view the list of dependencies and recommended packages you can use Ubuntu Packages Search and search for a top level package, in this case it is sun-java6-plugin. http://packages.ubuntu.com/ Download the following six .deb files to successfully complete the installation offline:

1. sun-java6-jre_6-06-0ubuntu1_all.deb
2. sun-java6-bin_6-06-0ubuntu1_i386.deb
3. sun-java6-plugin_6-06-0ubuntu1_i386.deb
4. java-common_0.30_all.deb
5. unixodbc_2.2.11-16build1_i386.deb
6. odbcinst1debian1_2.2.11-16build1_i386.deb

You can locate these either through Ubuntu Packages Search or download them directly through Ubuntu Archive:

• http://archive.ubuntu.com/ubuntu/pool/multiverse/s/sun-java6/
• http://archive.ubuntu.com/ubuntu/pool/main/j/java-common/
• http://archive.ubuntu.com/ubuntu/pool/main/u/unixodbc/

If you try to install Sun JRE by double clicking on the package you will notice that it is dependent on Sun BIN, which in turn depends on Sun JRE creating an infinite loop. To combat this create a folder (i.e. “java”) on your Desktop and copy all six files to it. Now launch the terminal and navigate to the the folder you created.

masukan semua hasil download kr direktory misal nya /documens/java6

ketik sudo dpkg -i *

untuk installasi,

selamat java sudah terinstall di ubuntu anda.