Delphi

Setting Proxy Internet Explorer

2009-10-28T17:52:00.000-07:00

Set Proxy

Ada kalanya kita ingin browser diset proxynya ke proxy server yang kita inginkan. Mari kita lihat cara men settingnya lewat pemrograman Delphi.

Prosedur mengeset proxy

Procedure TForm1.SetProxy(const Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteString('ProxyServer',Server);
Reg.WriteBool('ProxyEnable',True);
Reg.CloseKey;
Reg.Free;
end;

Procedure Menonaktifkan proxy

Procedure TForm1.DisableProxy;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteBool('ProxyEnable',False);
Reg.CloseKey;
Reg.Free;
//InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;

Button yang kita inginkan untuk menjalan pengesetan proxy diberi kode sebagai berikut

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SetProxy(edit1.text+':'+edit2.text);
end;

Selesai

Konversi Gambar

2009-10-07T23:39:00.000-07:00

Adakalanya kita bermaksud mengkonversi gambar dari BMP menjadi JPG atau sebaliknya dengan menggunakan program Delphi. Salah satu kegunaanya misalnya untuk mengupload gambar agar gambar tidak terlalu besar maka dikonversi dari BMP ke JPG, atau masih banyak lagi keperluannya.

Pertama Buat sebuah form, kemudian taruh komponen button 2 buah, komponen label, komponen opendialog,edit, lalu tambahkan komponen button lagi.
Komponen button yang pertama dikasih caption BMPkeJPG
Komponen button yang kedua dikasih caption JPGkeBMP
Komponen button yang ketiga dikasih caption Browse

Komponen edit textnya dikosongkan, komponen edit ini dirubah properties name nya menjadi Ed_FileAwal. Lalu buat procedure Bmp2Jpg dan procedure jpg2bmp.
Berikut kode delphinya secara detail :

type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
Ed_FileAwal: TEdit;
Label1: TLabel;
BitBtn1: TBitBtn;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure Bmp2Jpg (BmpFileName : String; JpgSavePath : string; Comp : Integer);
{1 = low quality , 100 good quality}
var bmp : TBitmap;
Jpg : TJpegImage;
begin
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
try
bmp.LoadFromFile (BmpFileName);
if comp <> 100 then exit;
Jpg.CompressionQuality := Comp;
Jpg.Assign(bmp);
Jpg.SaveToFile (JpgSavePath + '.jpg');

finally
jpg.Free;
bmp.Free;
end;
end;

procedure jpg2bmp(JpgFilePath : string; BmpSavePath : string);
var bmp : TBitmap;
Jpg : TJpegImage;
begin
bmp := TBitmap.Create;
jpg := TJpegImage.Create;
try
jpg.LoadFromFile (jpgfilepath);
bmp.Assign(jpg);
bmp.SaveToFile (BmpSavePath + '.bmp');

finally
jpg.Free;
bmp.Free;
end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bmp2jpg('c:\1.bmp','c:\jpg',100);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
jpg2bmp('c:\jpg.jpg','c:\juhu.bmp');
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Ed_FileAwal.text:=OpenDialog1.filename;
end;
end;

end.

Selamat mencoba

Defrag Memori

2009-09-28T18:04:00.000-07:00

Kadangkala jikalau kita menjalankan aplikasi yang terlalu banyak dalam waktu yang bersamaan maka komputer akan menjadi lambat. Setelah aplikasi kita tutup, kok masih tetap lambat. Apa sebabnya? aplikasi yang sudah ditutup tadi belum sepenuhnya hilang dari memori. Nah inilah gunanya aplikasi Defrag memori.

Berikut function defrag memory dengan kode Delphi

Deklarasi

uses Windows;
type proc = procedure;
var bussy : boolean;
//limit dalam satuan megabyte
procedure defragmem(limit : integer; x: proc);

procedure defragmem(limit : integer; x: proc);
var tab : array [0..1024] of pointer;
i : integer;
p : pointer;
lim : integer;
begin
if bussy then exit;
bussy:=true;
lim:=limit;
if lim>1024 then lim:=1024;
for i:=0 to lim do tab [i]:=nil;
for i:=0 to lim-1 do
begin
p:=VirtualAlloc(nil, 1024*1024, MEM_COMMIT,
PAGE_READWRITE + PAGE_NOCACHE);
tab[i]:=p;
asm
pushad
pushfd
mov edi, p
mov ecx, 1024*1024/4
xor eax, eax
cld
repz stosd
popfd
popad
end;
if assigned(x) then x;
end;
for i:=0 to lim-1 do
begin
VirtualFree(Tab[i], 0, MEM_RELEASE);
if assigned(x) then x;
end;
bussy:=false;
end;

Cara pemanggilannya

Defragmem(memlevel.position,idle);

memlevel merupakan trackbar dimana nilai maksimalnya diset dengan kapasitas memory dalam komputer

StringGrid Position

2009-09-17T21:27:00.000-07:00

Kadang kita dihadapkan permasalahan dimana kita harus menampilkan data pada Stringgrid bukan dbgrid. Maka untuk pengkodeannya pun manual. Apalagi data diambil dari database dan kita harus menampilkannya distring grid. Maka kita mencocokan cell demi cell dengan algiritma perulangan.

Bila stringgrid berisi sumary dan user minta detail datanya dengan cara doubleklik, maka untuk menampilkan detailnya tersebut kita harus mengambil value dari posisi mouse tadi didouble klik (paham gak he3)

Sample kode berikut menunjukan posisi dari cell yang kita double klik dari sebuah string grid

1. Buat Form
2. Tempelkan komponen : Stringgrid, Label

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
StringGrid1.MouseToCell(X,Y,a,b);
end;

procedure TForm1.StringGrid1DblClick(Sender: TObject);
begin
label1.Caption:=inttostr(a)+' - '+inttostr(b);

end;

Setelah itu baru mengambil valuenya dengan cara memetakan koordinat posisi tadi dengan isi cell

var j:string;
begin
j:=StringGrid1.Cells[a,b];
end;

Semoga dapat membantu

Backup Database Server dengan Delphi

2009-09-16T18:15:00.000-07:00

Sekarang ini banyak aplikasi yang menggunakan database server. Yang menggunakan database server pada umumnya adalah aplikasi web based dan aplikasi client server. Pada suatu saat kita pasti ingin membuat fasilitas backup buat user melalui aplikasi yang kita buat.

Jadi user tidak perlu membuka database langsung tapi cukup lewat aplikasi yang kita buat saja untuk urusan backup membackup.

Atau mungkin kita membuat aplikasi yang tidak online dimana aplikasi tersebut dipakai dibanyak cabang, tapi antar cabang tidak ada jaringan dan dari cabang ke pusatpun tidak ada jaringan secara online yang menghubungkan. Kemudian databasenya setiap periode tertentu ingin digabungkan ke kantor pusat, dengan cara database dicabang di dump dulu baru dikirim ke pusat. Baru dipusat direstore.

Source code dibawah ini merupakan contoh backup dan restore yang dapat membantu Anda untuk mengatasi permasalahan / kasus-kasus tersebut diatas. Tinggal dikembangkan sendiri :

1. Buat Form diberi nama : frmMaintenance
2. Letakan komponen sebagai berikut :

ADOConnection nama :ADOConnection1
ADOQuery diberi nama Table1
ListBox diberi nama ListBox1
button diberi nama button7
SaveDialog diberi nama SaveDialog1
ADOQuery diberi nama ADOQuery1
CheckBox di beri nama CheckBox1
CheckBox di beri nama CheckBox2

Berikut penggalan source codenya :

var
frmMaintenance: TfrmMaintenance;
FileT : text; // File untuk nyimpen hasil backup
implementation

{$R *.dfm}

procedure TfrmMaintenance.GoBackup; // Procedure jalankan backup
var NameFile,waktu,host : string;
i,j,k : longint;
NameTable : string;
Data : string;
begin

if not SaveDialog1.Execute then
exit;

NameFile := SaveDialog1.FileName ;
waktu := FormatDateTime('dddd,dd mmmm yyyy -- hh:mm:ss',now);
host := 'localhost';
//frmSetting.Edit1.Text;
AssignFile(FileT,NameFile);
Rewrite(FileT);
writeln(FileT,'-- MySQL DUMP');
writeln(FileT,'-- Generate With MyDUMP');
writeln(FileT,'-- Generate at '+waktu+'');
writeln(FileT,'-- --------------------------------------------');

//CloseFile(FileT);

for i := 1 to ADOQuery1.RecordCount do
begin

table1.SQL.Clear;
table1.SQL.Add('SHOW CREATE TABLE '+Listbox1.Items.Strings[i-1]+'');
table1.Open ;

NameTable :=Listbox1.Items.Strings[i-1];

Append(FileT);
Writeln(FileT,'--');
Writeln(FileT,'-- Nama Tabel :'+ NameTable +'');
Writeln(FileT,'--');
Writeln(FileT,'');

if CheckBox1.Checked then
writeln(FileT,'DROP TABLE IF EXISTS ' + NameTable + ';');

Writeln(FileT,''+table1.fields[1].asstring+ ';');

if Checkbox2.Checked then
begin

// data transfer
table1.SQL.Clear;
table1.SQL.Add('SELECT * FROM '+Listbox1.Items.Strings[i-1]+'');
table1.Open ;
table1.First ;
for j := 1 to table1.RecordCount do
begin
Append(FileT);
write(FileT,'INSERT INTO ' + NameTable + ' VALUES( ');
for k := 1 to table1.FieldCount do
begin

Data := table1.FieldByName(table1.Fields[k-1].FieldName).AsString;
write(FileT,' "' + Data + '" ');
if k < table1.FieldCount then write(FileT,',');

end;

writeln(FileT,');');
table1.Next ;
end;
end;
end;

CloseFile(FileT);
MessageDlg('Proses database dump selesai',mtInformation,[mbOK],0);

end;

procedure TfrmMaintenance.FormShow(Sender: TObject);
var i : integer;
begin
button7.Enabled := true;

// setelah koneksi, tampilkan nama table ke listbox
try
with ADOQuery1 do begin
ADOQuery1.Open;
ADOQuery1.First;
ListBox1.Items.Clear;
For i:= 1 to ADOQuery1.RecordCount do
begin
ListBox1.Items.Add(ADOQuery1.fields[0].asstring);
ADOQuery1.Next;
end;
end;

except on e:exception do begin
MessageDlg('Koneksi database error',mtError,[mbOK],0);
button7.Enabled := False;
end;
end;
end;

Melihat IP

2009-09-15T21:55:00.000-07:00

Berikut penggalan source Delphi untuk melihat IP sendiri

function LocalIP : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
Buffer : array [0..63] of char;
I : Integer;
GInitData : TWSADATA;

begin
WSAStartup($101, GInitData);
Result := '';
GetHostName(Buffer, SizeOf(Buffer));
phe :=GetHostByName(buffer);
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^[I] <> nil do begin
result:=StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

cara memanggilnya misalnya dengan menggunakan edit

edit1.text:=LocalIP;

Delphi Source Code

2009-09-15T03:44:00.000-07:00

Berikut ini adalah koleksi Link Delphi programming

Delphi32.com - the premier source for Delphi developers. Home of Delphi and Kylix information, large component library, discussions, tips, articles.

DelphiABC.com - Collection of components, tips an tricks, samples, forums, advanced search and more...

Delphi Compendium - from the CyberMatrix Corporation: lots of info about Delphi.

delphiDabbbler.com Delphi Pascal source code library, components, programming articles, tutorials and free programs.

Delphi Pages - Borland/Inprise Delphi and Builder Resource Center. Search quickly for components, tips, forum, chat, news, etc.

Delphi Snippets - from Sortland Automasjon.

Delphi-Treff - German site - Der Treffpunkt für Delphi-Entwickler.

Developer's Super Page Find articles/tips in Delphi, to help you develop your applications; build your resume, post and find jobs, chat online.

Dutch Pascal Users Group - the PGG (short for Pascal Gebruikers Groep) is a division of HCC, the largest "computer club" of the Netherlands. It is directed towards the users of Pascal and Pascal related programming languages. Has a very active Delphi forum.

Embarcadero - Delphi - the "HOME" of Delphi (took it over from Borland)

MAS Delphi-page - very nice site with Delphi-components, applications, tools, code examples, tips & trix, links and info. All is freeware!

NLDelphi, the Dutch Delphi page - Delphi news, Delphi articles, and of course a forum where you can meet fellow programmers or present a problem. Language: Dutch.

Programmers Heaven - one of the largest sources of free downloadable files: source code, utilities, and other tools for programmers and developers. Besides Delphi, also: C/C++/C#, JAVA, Linux, Internet, Visual Basic, and so on.

Swiss Delphi Center - Switzerland's top Delphi site.

Torry's Delphi Pages - one of the very best Delphi sites: components, examples, applications, tools, documents, updates,... too much to list here!

VP Source - huge resource for programmers [Delphi, VB, C++, Pascal] and for webmasters. It also contains e-commerce, security sections + chatroom and toplists.

Normalisasi Vs Database Flate

2009-09-13T22:55:00.000-07:00

Dalam kuliah dalam membuat database selalu ditekankan agar database tersebut dinormalisasi terlebih dahulu. Bahkan ada dosen yang mengajarkan kalo tidak ternormalisasi penuh maka data akan lambat. Memang bukunya pun bilang begitu
Berikut kutipan dafinisi Normalisasi dan Tujuannya dari berbagai sumber :
Normalisasi adalah suatu teknik untuk mengorganisasi dalam tabel-tabel untuk memenuhi kebutuhan dalam suatu organisasi.

Tujuan dari normalisasi
-Untuk menghilangkan kerangkapan data
-Untuk mengurangi kompleksitas
-Untuk mempermudah pemodifikasian data
-Untuk mempercepat akses data

Normalisasi merupakan sebuah teknik dalam logical desain sebuah basis data / database, teknik pengelompokkan atribut dari suatu relasi sehingga membentuk struktur relasi yang baik (tanpa redudansi).

Proses normalisasi akan sangat membantu dalam menghemat ruang yang digunakan oleh setiap tabel di dalamnya, sekaligus mempercepat proses permintaan data.
Semuanya betul. Tetapi ketika kita membangun aplikasi client/server atau Web dengan data yang besar Aturan normalisasi digunakan tetapi jangan dipaksakan memenuhi bentuk normal, sesuai yang ada diteori. Kenapa?

Karena hasil dari normalisasi penuh kadang tabelnya terlalu banyak dan jika membutuhkan suatu data yang kompleks untuk laporan harus join tabel kemana-mana, apabila data sudah diatas 100ribu record maka lama banget keluarnya.

Solusinya :
1. Database dibuat fleksibel, tidak harus normalisasi penuh, menganalisa kolom-kolom yang sering dipakai untuk laporan agar dibuat dalam satu table. Sehingga pada saat query untuk laporan data tidak harus join kemana-mana cukup 1 atau 2 table saja. Dan hasilnya akan lebih cepat.

2. Datawarehousing, menciptakan table-table yang siap dipakai untuk Laporan yang diambil dari table-table transaksi. Proses pemindahan ke table-table tersebut bisa batch(per jam / per hari) atau realtime

Efeknya dengan normalisasi tidak penuh maka kadang ada proses update lebih dari 1 table.

Gimana jikalau ada gagal dalam update, yang satu sudah ke update yang lain belum, bisa kacau??

itulah fungsinya penggunaan fasilitas Transact SQL yaitu update data kebanyak table dalam suatu waktu. Jika yang satu gagal maka semua proses update di rollback (digagalkan semua) sehingga data menjadi lebih konsisten

Rahasia Membangun ERP

2009-09-03T21:30:00.001-07:00

Banyak sekali ERP yang dijual dengan harga yang sangat mahal, misalnya SAP, Oracle Finance. Biaya mainenance saja sudah bisa ratusan juta perbulan, tergantung perusahaanya.

Contoh ERP yang main di secondari market, dengan harga yang lebih murah
• Microsoft Axapta,
• SAP Business One,
• Oracle Finance for SMB

Tapi walaupun murah yah ratusan juta juga coy.
Kalo kita cuman bisa selalu import ERP dari luar negeri kayaknya gak kreatif tuh orang-orang Indonesia, padahal banyak orang lulusan teknologi Informatika

Sebenarnya programmer bisa membuat sistem ERP sendiri asal dibimbing oleh orang yang sudah pengalaman dalam membangun sistem ERP

Konsepnya adalah setiap modul saling terintegrasi dan bermuara pada laporan-laporan yang siap pakai dan digunakan oleh bagian yang membutuhkan. Konsep cara pandang membangun ERP harus global dalam memandang suatu flow perusahaan. Sehingga bisa memenuhi setiap bagian dengan baik.

Hampir setiap proses berhubungan dengan Finance/Keuangan. Jadi setiap transaksi yang berhubungan dengan uang, sistem men-generate jurnal keuangan. Sehingga tidak ada lagi nginput jurnal dari transaksi, kalo sistem sudah melakukannya. Sehingga Accounting pekerjaanya adalah mengecek, mengkoreksi dan membuat jurnal penyesuaian.

Sedangkan untuk jurnal Uang Masuk dan Uang Keluar dilakukan oleh kasir pada saat menerbitkan kwitansi atau menerima Lap rekening koran.

Untuk lebih jelasnya saya membuka konsultasi gratis untuk pembuatan ERP ini, konteks 081380321827.

Sallam
Hadi

Download Source Aplikasi Inventory

2009-08-26T06:25:00.000-07:00

Aplikasi Inventory adalah Aplikasi yang sangat banyak dibutuhkan. Disini saya akan men-share aplikasi inventory yang pernah saya buat, yaitu aplikasi inventory alat-alat kesehatan.

Penghitungan harga pokok pada aplikasi ini adalah FIFO(First In First Out).
Dan harga ditentukan pada saat kontrak dengan customer, Jadi harga bisa diset berbeda-beda tiap customer. Tetapi Anda bisa merubahnya karena saya berikan source codenya dalam bahasa pemrograman delphi (min Delphi 7).
Featurenya menggunakan database mysql. Bisa berjalan di Jaringan LAN, WAN ataupun online

Langkah-langah untuk menjalankan aplikasi ini :
1. Download file programinvetory.zip
2. Download file dbinventory.zip
3. Download file komponentambahan.zip
4. Download myodbc disitusnya mysql
5. Install Myodbc bila belum ada
6. Unzip file programinventory.zip
7. Buat database di mysql nama databasenya : dbretail
8. Unzip file dbinventory.zip diunzip lalu di execute ke dalam database dbretail
9. Buat alias didalam ODBC, driver myodbc nama datasource ias, username root, password
kosongin.
10. Buka programinventory yang sudah diunzip, nama projectnya PRetail.dpr
11. Selamat mencoba

Download Myodbc

Download dbinventory.zip

Download programinventory.zip

Program ini free. Kalau mau tahu lebih lanjut bisa hubungi kami di 081380321827. Jangan sungkan-sungkan bertanya. Gratis.

Program tersebut dapat disambungkan dengan program General Ledger. Source codenya ada cuman belum diupload. Untuk program General Ledgernya tidak free. Harga sourcenya cukup murah yaitu Rp. 1 juta rupiah. Kami akan beri source dan memberikan training sehari.

Flow Program Accounting

2009-05-13T04:44:00.000-07:00

Proses Aliran Data di Program Accounting terdiri atas : Entry Jurnal, Posting, Reporting, Tutup Bulan

Entry Jurnal

Entry Jurnal bisa dilakukan oleh staf accounting atau kasir, atau bagian yang terlibat dalam sistem dan menginput transaksi yang mengakibatkan terbentuknya jurnal.

Misalnya bagian penjualan akan menginput transaksi penjualan. Proses penjualan tersebut, bila diintegrasikan maka didalam prosesnya bisa disisipkan proses insert ke table jurnal, yaitu masuknya pendapatan dan timbulnya piutang jika penjualan tidak tunai.

Proses ini akan meng-insert ke table jurnal
Bentuk table jurnal kolomnya antara lain (contoh) :
-id
-no jurnal
-no perkiraan
-keterangan
-no refferensi
-debet
-kredit

Posting

Posting adalah proses transfer data jurnal kedalam table COA (Chart of Account) yang diolah menjadi laporan keuangan.

Tabel COA atau table perkiraan kolomnya antara lain :
-id
-no perkiraan
-keterangan
-saldoawal
-debet
-kredit
-faktor
-kelompok coa
-bulan
-tahun

Reporting

Adalah proses query pembuatan laporan dari tabel COA,
Neraca : Dari table COA
Ledger : Gabungan dari table COA dan jurnal
Labarugi : Dari table COA
Neraca Percobaan : Dari table COA
Neraca Saldo : Dari table COA

Proses Tutup bulan

Proses Tutup bulan atau closing, kita pindahkan saldo akhir dari table COA ke dalam saldo awal table COA juga namun di periode yang berikutnya,
Prosesnya adalah :
1. Masukkan data COA ke table temporary
2. Tambahkan nilai 1 pada kolom bulan ditable temporary COA
Misalnya tadinya bulan bernilai 1 maka ditambah satu menjadi bulan bernilai 2.
Khusus akhir tahun, bulan 12 dirubah menjadi 1 dan tahun ditambah 1.

3. Masukkan data COA temporary ke table COA kembali.

Demikian tulisanku pada malam ini, smoga ada manfaatnya, klo kurang jelas bisa komentar

Transact SQL di Delphi

2009-04-14T18:21:00.000-07:00

Hal paling vital dalam sebuah program database adalah bahwa setiap data dapat tersimpan dengan sempurna.

Aplikasi desktop tidak banyak masalah untuk menangani hal ini. Namun seringkali jika aplikasi yang berjalan dalam jaringan atau internet, seringkali gagal menangani hal ini. Misalnya ada sebuah tombol simpan didalamnya mengeksekusi 7 buah perintah sql update, kadangkala hanya sebagian perintah sql yang dapat tereksekusi jikalau jaringan sedang bermasalah. Sehingga program menjadi error. Dan datanya tidak sinkron.

Bagaimanakah solusinya? jika kita menggunakan Delphi. Gunakan transact Sql. Yang mendukung transact sql adalah database mysql4 keatas, sql server, oracle dsb. Tidak semua database mendukung transact sql.

Transact SQL menjamin sekumpulan sintak sql tereksekusi, tetapi jikalau salah satu gagal maka sintak sql tersebut digagalkan semua, sehingga keadaan data masih sinkron.

Contoh sintak di delphi

if not dm1.Database1.InTransaction then dm1.Database1.StartTransaction;
try

//perintah sql

dm1.Database1.Commit;

except
qryrec.CancelUpdates;
dm1.Database1.Rollback;
raise;
Showmessage('Maaf Proses penyimpanan Gagal');
exit;

end;

Selamat mencoba bagi yang belum mencoba

Accounting for Programmer

2009-03-27T04:55:00.001-07:00

Membuat program adalah pekerjaan sehari-hari seorang programmer. Termasuk didalamnya menterjemahkan keinginan user kedalam software komputer. Membuat software untuk retail, distribusi, inventory (keluar masuk barang), programmer tinggal menanyakan maunya user seperti apa.

Tetapi ketika programmer yang awam terhadap ilmu akuntansi diminta untuk membuat program accounting / GL merupaka hal yang agak berbeda. Programmer tersebut harus memahami ilmu akuntansi tersebut sebelum membuat program accounting/general ledger.
Kalo belajar akuntansi dan yang njelasin orang akuntansi sendiri bakalan muter2 he3. Kira2 sampe 6 bulan. Dasar1 dan dasar2.

Akuntansi tidaklah serumit yang kita bayangkan. Untuk memahami akuntansi kita harus mengenal persamaan akuntansi, baru kemudian jurnal. Lalu posting jurnal tersebut menjadi laporan keuangan.

Sepertinya sangat panjang dijelaskan. Tapi saya bisa membantu mengenalkan akuntansi ke programmer he3 dalam sehari. Kalo minat boleh undang saya dan team. Training sehari tentang akuntansi. Dijamin paham tentang akunting. Materinya AR/AP, jurnal, pembuatan laporan Keuangan dan metode persediaan dan bagaimana implementasinya disistem. Biaya training cukup 999 ribu aja deh, boleh ditawar.
Alamat saya di Jakarta Pusat, Menteng. call 081380321827

Membangun Aplikasi Client Server Online

2009-03-19T17:32:00.000-07:00

Teknologi client server, bukan merupakan teknologi baru. Konsep Aplikasi Client Server, secara sederhana dapat dijelaskan sebagai berikut :
1. Aplikasi terletak pada Komputer Client
2. Database terletak pada Server

Aplikasi Client Server, sudah mulai redup setelah munculnya aplikasi Web based.
Karena Web Based menawarkan teknologi dimana Aplikasi dan Database terletak di Server.
Namun jangan salah, aplikasi client server masih banyak dipakai, dan relatif lebih aman. Dan dari sisi user interface bila dikemas dengan baik maka akan lebih menarik aplikasi Client Server. Misalnya entry jurnal accounting dengan menggunakan aplikasi web based tentu agak kerepotan / tidak secepat dengan menggunakan aplikasi client server.

Aplikasi Swalayan dan retail masih menggunakan aplikasi Client Server di kasirnya.
Tetapi Servernya online. Misalnya sebuah perusahaan retail Server di Singapura, dan perusahaan retailnya diseluruh Indonesia, untuk kasirnya lebih mudah menggunakan aplikasi client server. Jadi hanya database servernya yang terletak di Singapura tetapi aplikasinya berada di masing-masing cabang Perusahaan tersebut. Sehingga terjadi pemusatan data.

Kita bisa menggunakan Delphi atau VB atau bahasa pemrograman Desktop lain yang mendukung database server seperti Oracle, Sql Server maupun Mysql Server.

Syarat mutlak dapat berjalanya aplikasi client server yaitu antara Server dan Client terhubung, bisa menggunakan internet atau jaringan VPN atau Dialup.

Misalnya, kita menggunakan mysql server dan bhs pemorgraman Delphi, koneksi dgn myodbc :
1. Letakkan mysql database di server Kantor Pusat
2. Arahkan koneksi aplikasi dari kantor cabang ke pusat. Biasanya dengan menunjuk IPnya. Kalo pake myodbc, di host kita ketikan ip komputer server.
3. Di Client, sambungkan aplikasi yang dibuat dengan alias di Myodbc yang telah kita buat.
4. Aplikasi sudah bisa berjalan.

Membuat aplikasi client server dilingkup LAN, mungkin sudah biasa dan relatif lebih mudah, tetapi jika di Internet atau Jaringan VPN dimana antar Server dan Client berbeda kota butuh tips dan trik yang jitu. Di sini saya akan membagikan pengalaman saya yaitu tips dan trik membuat aplikasi Client Server yang sifatnya online seperti contoh diatas :
1. Jangan meload semua record dalam memunculkan suatu form ataupun report. Usahakan menggunakan query. (Dalam delpi jangan menggunakan komponen ttable)
2. Gunakan data temporary dan simpan dikomputer client untuk data yang jarang berubah. Untuk memasukan data temporary ke file temporary tersebut tambahkan menu update dari Server ke client.
3. Untuk meload data-data yang sifatnya temporary jangan ke server, tapi data temporary saja.
4. Gunakan feature transact pada database, untuk mencegah gagalnya penyimpanan karena infrastruktur / internet yang jelek

Kalo gak jelas bisa hubungi saya
hadi kusyanto
081380321827

Atau pengin dibantuin projeknya boleh he3. Tapi kalo sekedar belajar aja boleh, gratis kalo cuman nelpon, Atau traktir kalo mo ngobrol2 di luar kantor. Tapi bayar kalo mo dibantuin projeknya he3.

Strategi Implementasi System Informasi

2009-02-09T22:13:00.000-08:00

Implementasi System Informasi tidaklah mudah, butuh strategi ataupun pengalaman agar implementasi sistem dapat berjalan dengan lancar.

Kendala yang besar adalah bahwa user tidak mau menggunakan sistem, karena menurut mereka sistem bikin ribet dan susah.

Untuk itu buatlah sistem yang fleksibel dengan mengurangi blok atau kontrol yang berlebihan (sesuai SOP ) pada awal dibuatnya sistem, sehingga user merasa nyaman menggunakan sistem. Dalam tahap ini sistem berfungsi membantu pekerjaan user, dan sangat kurang disisi kontrol.

Setiap kekurangan sistem kita lengkapi, agar user merasa puas.

Setelah sistem sudah running well, barulah diperketat dari sisi kontrol, agar sesuai dengan kemauan big boz perusahaan, yaitu mengontrol aset dari perusahaan/organisasi

Hal ini cukup efektif dalam implementasi sistem apabila usernya susah nginput data dalam sistem

Implementasi Mysql

2009-01-18T21:36:00.000-08:00

Mysql adalah database yang powerfull dan banyak diminati pada masa kini, selain gratis juga mempunyai perfoma yang sangat cepat.
Mysql juga sekarang diajarkan dikampus-kampus, dan banyak juga buku-buku yang membahas tentang mysql.

Disini saya akan membahas tentang implementasi mysql lebih dekat kedalam dunia kerja

Download Implementasi Mysql

Aplikasi Inventory

2008-11-19T07:52:00.001-08:00

Cara Membuat Program Accounting

2008-11-12T02:00:00.000-08:00

Program accounting merupakan program yang dibutuhkan dalam suatu perusahaan. Sayangnya banyak prgrammer yang tidak tahu konsep akuntansi. Untuk bisa membuat program akuntansi sebaiknya mengerti dasar-dasar akuntansi.

Manual akuntansi banyak didapat diweb-web, bahkan disediakan secara gratis.

Tetapi sayang sudah mengerti akutansi pun tidak bisa memulai dari mana cara membuatnya.

Dibawah ini saya terangkan salah satu contoh dasar pembuatan program akuntansi:
Struktur Database
1. Buat table jurnal, yang akan menampung jurnal
2. Buat table coa, yang akan menampung laporan keuangan.

Setiap transaksi jurnal dimasukkan kedalam tabel jurnal, sedangkan setiap posting dimasukkan ke dalam tabel coa, didalam tabel coa kita susun elemen yang dibutuhkan untuk laporan keuangan.
Laporan
Neraca, Laba Rugi, Neraca Saldo,Trial Balance diambil dari tabel coa

Laporan
Ledger, Cashlow diambil dari table jurnal

Bila kurang jelas silakan beri komentar

Menghubungkan Delphi ke Mysql

2008-11-12T01:42:00.000-08:00

Ada berbagai cara untuk menghubungkan Delphi ke database mysql. Cara yang mudah yaitu dengan menggunakan myodbc. Driver MyODBC dapat didownload disitusnya mysql. Setelah itu buat alias di ODBC.

Pada Windows XP
Klik Start Control Panel, Administrative Tools, double klik Data sources(ODBC)
Setelah itu klik Add, pilih MyODBC 3.51 driver, Klik Finish
Isi Datasource Name diisi dengan alias yang kita panggil dari Delphi.
Server diisi IP Server Mysql
User diisi User mysql
Password diisi Password mysql
Database diisi nama database yang ada di mysql

Klik Test, kalau sukses maka akan menyebutkan pesan success.
Klik OK, dan Klik OK

Di Delphi
Tempelkan komponen Database pada form/datamodule.
Pilih Alias name sesuai datasource name yang dibuat pada ODBC.

Selesai, Adakah Pertanyaan?

Syarat Menjadi Manager IT

2008-11-11T00:44:00.000-08:00

Berikut standar kelayakan menjadi seorang Manager IT :

Skill :
1. Menguasai bahasa pemrograman tertentu
2. Mampu menejermahkan bussiness proses ke dalam alur program
3. Menguasai pengetahuan umum komputer
4. Mampu menjadi pimpinan dalam membangun suatu sistem yang besar
(Terintegrasi mulai dari operasional sampai dengan keuangan dan accounting)
5. Menguasai Konsep Database
6. Menguasai Konsep Algoritma dan Alur Data

Sikap :
Untuk kemampuan manajerial syaratnya hampir sama dengan manajer bidang lain, hanya saja seorang manajer IT harus memahami psikologis programmer, technical support, analis system dan bawahannya yang lain.

Lowongan Programmer

2008-11-11T00:39:00.001-08:00

Sebuah Perusahaan swasta di Jakarta, membutuhkan 2 orang Programmer dengan syarat sebagai berikut :
1. Menguasai Delphi/PHP
2. Menguasai database mysql
3. Taat pada pimpinan

Lamaran segera ditujukan ke : hadikusyanto@gmail.com
paling lambat 30 November 2008

terima kasih

Standar Gaji Programmer

2008-11-11T00:31:00.000-08:00

Berikut Standar Gaji Programmer yang saya ketahui di Indonesia
(Jakarta dan kota lain yang biaya hidupnya setara)

Perusahaan Kecil
Junior Programmer : Rp. 1.200.000 s/d 2.000.000
Programmer : Rp. 2.000.000 - 2.900.000
Senior Programmer : Rp. 3.000.000 - 5.000.000

Perusahaan Menengah
Junior Programmer : Rp. 1.700.000 s/d 2.500.000
Programmer : Rp. 2.500.000 - 3.500.000
Senior Programmer : Rp. 3.500.000 - 6.000.000

Perusahaan Besar
Junior Programmer : Rp. 2.000.000 s/d 3.500.000
Programmer : Rp. 3.500.000 - 5.000.000
Senior Programmer : Rp. 5.000.000 - 10.000.000

Perusahaan Asing diatas rate tersebut.

Delphi

2008-11-10T20:01:00.001-08:00

Delphi merupakan bahasa kelanjutan Pascal