Tips Delphi by Eko Indriyawan ( ekoindri )

Discussion in 'Programming & Reverse Engineering' started by ekoindri, Feb 22, 2008.

  1. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Untuk menghindari banyak thread akibat jumlah artikel saya yang banyak
    akhirnya saya buat satu thread disini untuk menampung artikel2 saya..


    semoga bermanfaat

    salam,


    Eko Indriyawan
     
  2. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Tutorial untuk menggunakan komponen2 delphi yang dijual dipasaran

    Untuk mengetahui tutorial dari berbagai macam komponen yang dijual dipasaran
    silahkan anda kunjungi link dibawah ini

    http://ekoindri.wordpress.com/kategori-komponen/

    semoga bermanfaat
     
  3. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
  4. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Tips baru di blog delphi for delphier

    Jika temen-temen ingin mendapatkan contoh game beserta kode programnya
    silahkan temen-temen main ke link dibawah ini

    http://ekoindri.wordpress.com/kategori-game/

    Kemudian jika temen-temen ingin mendapatkan pembahasa tentang komponen silahkan masuk kesini

    http://ekoindri.wordpress.com/kategori-komponen/

    Dan berikuti ni beberapa pembahasa seputar NextDBGrid

    http://ekoindri.wordpress.com/tutorial-by-eko-indriyawan/nextdbgrid-cara-menggunakan-nextdbgrid/
    http://ekoindri.wordpress.com/tutorial-by-eko-indriyawan/nextdbgrid-membuat-kolom-saat-design-time/
    http://ekoindri.wordpress.com/tutorial-by-eko-indriyawan/nextdbgrid-selectfullrow/

    semoga bermanfaat
     
  5. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Pencarian menggunakan clausa LIKE ( Search )

    Tingkatan

    Pemula

    Kategori

    Database

    Sub Kategori

    MS Access

    Tujuan

    Mengajarkan kepada programmer pemula untuk menggunakan clausa LIKE didalam database MS Access untuk melakukan proses pencarian data.

    Overview

    Artikel ini akan menjelaskan kepada anda tentang langkah - langkah membuat program pencarian data di database MS Access dengan menggunakan clausa LIKE.

    Query dibuat di database engine yang dibaca oleh delphi sebagai stored procedure. Dengan demikian, didalam program kita tidak perlu lagi membuat query.

    Semoga dengan materi yang diberikan kali ini bisa memberikan wacana baru kepada para delphier untuk membuat program aplikasi yang efektif dan stabil.

    Selamat mencoba artikel ini dan semoga berhasil. Amin…

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Buat program aplikasi baru.

    Langkah 2

    Tambahkan beberapa object kedalam Form.

    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOStoredProc1: TADOStoredProc;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Button2: TButton;


    Langkah 3

    Atur desainnya seperti berikut ditampilkan pada gambar ini

    Langkah 4

    Silahkan anda setting koneksinya. Sebagai contoh silahkan lihat disini.

    Langkah 5

    Silahkan anda buka database MS Access.

    Langkah 6

    Buat query atau stored procedure didalam database engine tersebut dengan kode seperti berikut ini.



    Code:
        PARAMETERS inputan Text ( 255 );
        SELECT Data.TanggalMasuk, Data.Nama, Data.Status
        FROM Data
        WHERE (((Data.[nama]) Like ‘%’+[inputan]+’%'));
    Untuk membuat query atau stored procedure didalam database MS Access, silahkan anda baca tutorial ini.

    Langkah 7

    Fokuskan perhatian anda pada object ADOStoredProc1.

    Langkah 8

    Tentukan property pada bagian Connection-nya dengan data ADOConnection1.

    Langkah 9

    Selanjutkan silahkan anda tentukan property ProcedureName-nya dengan nama SP LIKE.

    Langkah 10

    Tambahkan parameter kedalam object tersebut dengan data sebagai berikut.


    Parameter Inputan


    DataType ftString
    Direction pdInput
    Name Inputan
    Size 50




    Langkah 11

    Selanjutnya, silahkan anda fokuskan perhatian anda kepada object DataSource1.

    Langkah 12

    Tentukan property untuk dataset-nya dengan nilai ADOStoredProc1.

    Langkah 13

    Setelah itu anda lanjutkan dengan memfokuskan perhatian anda ke object DBGrid1.

    Langkah 14

    Tentukan property untuk DataSource-nya dengan data DataSource1.

    Langkah 15

    Sekarang anda klik 2 pada tombol Tampilkan dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.



    Code:
        …
    
        …
    
        procedure TForm1.Button1Click(Sender: TObject);
        begin
    
        with ADOStoredProc1 do
          begin
    
          Parameters[0].Value := Edit1.Text;
          Close;
          Open;
    
          end;
    
        end;
    
        …
    
        …
    Langkah 16

    Setelah itu, silahkan anda compile program aplikasi anda dengan menekan tombol Ctrl + F9.

    Langkah 17

    Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap untuk dijalankan.

    Langkah 18

    Tekan tombol Tampilkan.

    Langkah 19

    Apabila program berhasil, maka akan ditampilkan seperti ini.

    Langkah 20

    Sekarang pada inputan cari anda kasih karakter huruf a. Lanjutkan dengan menekan tombol Tampilkan.

    Langkah 21

    Apabila berhasil, maka akan didapatkan tampilan seperti ini.

    Langkah 22

    Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar

    Semoga artikel ini bisa bermanfaat. Silahkan anda berikan informasi ini kepada teman - teman anda yang belum tahu.

    Mari kita wujudkan kemajuan IT Indonesia bersama dengan teman - teman yang lain dengan Delphi sebagai media pemupuk kebersamaan.

    Download
    Menggunakan clausa LIKE untuk pencarian

    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.

    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.

    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.

    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  6. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Membuat Stored Procedure di MS Access tanpa parameter

    Tingkatan

    Pemula

    Kategori

    Database

    Sub Kategori

    MS Access

    Judul

    Membuat Stored Procedure di database MS Access tanpa menggunakan parameter

    Referensi

    by Eko Indriyawan

    Tujuan

    Mengajarkan kepada para Delphier tentang bagaimana cara membuat query atau stored procedure didalam database MS Access dengan tidak menggunakan parameter.

    Overview

    Para delphier akan diajarkan cara membuat stored procedure dengan menggunakan program aplikasi yang dibuat dengan menggunakan delphi. Stored procedure yang akan dibuat kali ini tidak menggunakan parameter.


    Dengan adanya tutorial ini diharapkan mampu merubah kebiasaan delphier untuk menuliskan query di database engine, bukan di listing kode program aplikasi atau dedicated dengan dataset query.

    Tambahan

    Tutorial ini sudah disertakan file contoh database dengan nama Test.mdb. Didalam database tersebut sudah dibuatkan satu tabel dengan nama Data yang berisi field Nama dan Jenis Kelamin. Agar memudahkan dalam proses pengujian, didalam tabel tersebut sudah disediakan pula beberapa data nama beserta jenis kelaminnya.


    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Silahkan anda buka tools membuat query atau stored procedure. Untuk lebih jelasnya mengenai tools tersebut silahkan lihat tampilan berikut ini.

    [​IMG]

    Langkah 2

    Sekarang silahkan anda tekan tombol Ambil DB. Lanjutkan dengan memilih file database MS Access ( file ini bisa anda download dibagian link download ). Untuk lebih jelasnya silahkan anda lihat gambar dibawah ini.

    [​IMG]

    Langkah 3

    Lanjutkan dengan menekan tombol Open hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 4

    Silahkan anda lanjutkan dengan menuliskan syntax query seperti berikut ini.

    [​IMG]

    Langkah 5

    Lanjutkan dengan menekan tombol Eksekusi

    Langkah 6

    Setelah itu anda tutup program aplikasi anda.

    Langkah 7

    Jalankan aplikasi database MS Access anda.

    Langkah 8

    Apabila berhasil, maka query atau stored procedure tersebut akan terbentuk seperti terlihat pada potongan gambar dibawah ini.

    [​IMG]

    Langkah 9

    Silahkan anda coba untuk buat stored procedure yang lain.

    Download

    Membuat Query atau Stored Procedure ( dari delphi )

    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  7. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Membuat Stored Procedure di MS Access dgn parameter

    Tingkatan

    Pemula

    Kategori

    Database

    Sub Kategori

    MS Access

    Judul Membuat Stored Procedure di database MS Access menggunakan parameter

    Referensi

    by Eko Indriyawan

    Tujuan

    Mengajarkan kepada para Delphier tentang bagaimana cara membuat query atau stored procedure didalam database MS Access dengan menggunakan parameter.

    Overview

    Para delphier akan diajarkan cara membuat stored procedure dengan menggunakan program aplikasi yang dibuat dengan menggunakan delphi. Stored procedure yang akan dibuat kali ini menggunakan parameter.


    Dengan adanya tutorial ini diharapkan mampu merubah kebiasaan delphier untuk menuliskan query di database engine, bukan di listing kode program aplikasi atau dedicated dengan dataset query.

    Tambahan

    Tutorial ini sudah disertakan file contoh database dengan nama Test.mdb. Didalam database tersebut sudah dibuatkan satu tabel dengan nama Data yang berisi field Nama dan Jenis Kelamin. Agar memudahkan dalam proses pengujian, didalam tabel tersebut sudah disediakan pula beberapa data nama beserta jenis kelaminnya.


    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Silahkan anda buka tools membuat query atau stored procedure. Untuk lebih jelasnya mengenai tools tersebut silahkan lihat tampilan berikut ini.

    [​IMG]

    Langkah 2

    Sekarang silahkan anda tekan tombol Ambil DB. Lanjutkan dengan memilih file database MS Access ( file ini bisa anda download dibagian link download ). Untuk lebih jelasnya silahkan anda lihat gambar dibawah ini.

    [​IMG]

    Langkah 3

    Lanjutkan dengan menekan tombol Open hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 4

    Silahkan anda lanjutkan dengan menuliskan syntax query seperti berikut ini.

    [​IMG]

    Langkah 5

    Lanjutkan dengan menekan tombol Eksekusi

    Langkah 6

    Setelah itu anda tutup program aplikasi anda.


    Langkah 7

    Jalankan aplikasi database MS Access anda.


    Langkah 8

    Apabila berhasil, maka query atau stored procedure tersebut akan terbentuk seperti terlihat pada potongan gambar dibawah ini.

    [​IMG]

    Langkah 9

    Silahkan anda coba untuk buat stored procedure yang lain.

    Download

    Membuat Query atau Stored Procedure berparameter ( dari delphi )


    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  8. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Menambahkan data text kedalam Memo

    Tingkatan

    Pemula

    Kategori

    Dasar

    Sub Kategori

    Object

    Judul

    Menambahkan data text kedalam object Memo

    Referensi

    by Eko Indriyawan

    Tujuan

    Mengajarkan kepada para Delphier yang masih pemula tentang bagaimana cara menambahkan data Text kedalam object TMemo.

    Overview

    Tutorial ini akan membahas tentang materi penambahan data text kedalam object Memo. Semoga para Delphier yang masih pemula bisa mengikuti langkah-langkah yang diberikan dengan baik. Proses penambahan data text ini dilakukan dengan menggunakan prosedur Add.


    Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas.


    Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Buat program aplikasi baru.

    Langkah 2

    Tambahkan beberapa object kedalam form Form1.

    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Bevel1: TBevel;
    Label2: TLabel;
    Edit1: TEdit;

    Langkah 3

    Atur tampilannya hingga didapatkan tampilan seperti berikut ditunjukkan pada gambar ini.

    [​IMG]

    Langkah 4

    Lanjutkan dengan meng-klik 2x tombol Tambah Data dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Memo1.Lines.Add( Edit1.Text); 
    end; 
    ...
    ...
    Langkah 5

    Sekarang silahkan anda lanjutkan meng-compile program aplikasi anda dengan menekan tombol Ctrl + F9.

    Langkah 6

    Setelah itu silahkan anda tekan tombol F9 hingga program aplikasi siap untuk dijalankan.

    http://ekoindri.wordpress.com/files/2008/02/tmemo0000010.png

    Langkah 7

    Selanjutnya silahkan anda isikan data Eko Indriyawan seperti terlihat pada gambar dibawah ini.

    [​IMG]

    Langkah 8

    Setelah itu anda tekan tombol Tambah Data hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 9

    Silahkan anda lanjutkan dengan menentukan data Francisca Aure Liasie. Untuk lebih jelasnya silahkan anda lihat gambar dibawah ini.

    [​IMG]

    Langkah 10

    Lanjutkan dengan menekan tombol Tambah Data hingga didapatkan tampilan seperti ditunjukkan oleh gambar dibawah ini.

    [​IMG]

    Langkah 11

    Program sudah selesai, silahkan anda tutup.

    Download

    Menambahkan data text kedalam Memo


    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  9. it_plox btl

    it_plox btl New Member

    Messages:
    6
    Likes Received:
    1
    Trophy Points:
    0
    delphi u/ hp G mana

    bang klau itu sih udah tau, aku sih udah penah buat prog u/ akademik, RS dll. tapi aku mah belum pernah buat klau delphi u/ pemprogramaman ke HP/mobile piye acane konecsinya...?
    Klau VB bisa konecsi kalau delphi gemana.....?
    please help me..........................?
    Aku pengen delphi u/ pemrogramaman HP/mobile biar ...................good:focus:
     
  10. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Membuat tabel dengan menggunakan editor SQL

    Tingkatan

    Pemula

    Kategori

    Database

    Sub Kategori

    MS Excel

    Judul

    Membuat tabel dengan editor SQL

    Referensi

    by Eko Indriyawan

    Tujuan

    Mengajarkan kepada Delphier pemula untuk membuat tabel dengan menggunakan editor SQL.

    Overview

    Pada pembahasan materi kali ini akan diberikan tutorial mengenai cara pembuatan editor SQL dengan MS Excel sebagai database enginenya. Editor SQL ini nantinya akan sangat bermanfaat sekali, terutama dalam hal pengeditan object tabel seperti pembuatan tabel, penghapusan kolom dan lain sebagainya.


    Dengan adanya editor SQL ini pula, diharapkan para delphier akan terbantu dalam proses pembuatan program aplikasi. Keuntungan menggunakan editor SQL ini adalah lebih efisien dari kerja yang bertele-tele, namun kelemahan dari tool ini adalah sifatnya dalam pembentukan syntax query masih manual. Agar memudahkan untuk mengikuti petunjuk yang diberikan pada tutorial ini, dibagian file download sudah disertakan aplikasi editor SQL dan file excel dengan satu tabel bernama nama bulan.


    Selamat mencoba artikel ini dan semoga berhasil. Amin…

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Silahkan anda buka editor SQL atau lihat tutorial pembuatan editor di sini.

    Langkah 2

    Jika berhasil, makan akan ditunjukkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 3

    Lanjutkan memilih file excel dengan cara menekan tombol Pilih File. Sebagai contoh lihat tampilan berikut ini.

    [​IMG]

    Langkah 4

    Setelah itu anda teruskan dengan menekan tombol Open hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 5

    Kemudian anda tuliskan syntax query seperti berikut tampilan ini.

    [​IMG]

    Langkah 6

    Lanjutkan dengan menekan tombol Eksekusi.

    Langkah 7

    Setelah itu anda tutup program aplikasi itu dengan menekan tombol Keluar.

    Langkah 8

    Silahkan anda buka file excel yang anda akses tadi.

    Langkah 9

    Apabila berhasil, maka akan didapatkan tampilan seperti berikut ini.

    [​IMG]

    Download

    Membuat tabel dengan editor SQL


    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  11. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Menentukan extention grafik

    Tingkatan

    Menengah

    Kategori

    Grafik

    Sub Kategori

    TImage

    Judul

    Menentukan extention grafik

    Referensi

    oleh Eko Indriyawan

    Tujuan

    Mengajarkan kepada para Delphier tentang bagaimana cara memvalidasi data gambar pada TImage apakah kosong atau tidak.

    Overview

    Apabila anda ingin membuat program anda stabil dan terhindar dari error ketika mengakses data gambar pada TImage, maka lebih anda melakukan proses validasi sebelum mengaksesnya.


    Didalam artikel kali ini anda akan diajarkan tentang bagaimana cara melakukan proses validasi terhadap data gambar yang ada didalam object TImage.


    Apabila anda ingin menyimpan data gambar kedalam database, maka tips kalli ini akan sangat bermanfaat dan membuat program aplikasi anda tersebut makin stabil dan mantab.


    Untuk lebih jelasnya, silahkan anda baca artikel dibawah ini.

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1


    Buat program aplikasi baru.

    Langkah 2

    Tambahkan beberapa object kedalam Form

    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Image2: TImage;
    Button2: TButton;
    Image3: TImage;
    Button3: TButton;
    Image4: TImage;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Image5: TImage;
    Label5: TLabel;
    Button5: TButton;
    Edit5: TEdit;
    Bevel1: TBevel;
    Button6: TButton;

    Langkah 3

    Tambahkan gambar dengan format jpeg atau jpg kedalam object Image1.

    Langkah 4

    Tambahkan gambar dengan format bmp kedalam object Image2.

    Langkah 5

    Tambahkan gambar dengan format gif kedalam object Image3.

    Langkah 6

    Tambahkan gambar dengan format ico kedalam object Image4.

    Langkah 7

    Tambahkan gambar dengan format emf kedalam object Image5.

    Langkah 8

    Atur object-nya hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 6

    Klik 2x tombol Ext Gambar 1 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    edit1.Text := GraphicExtension(TGraphicClass(Image1.Picture.Graphic.ClassType));
    end;
    ...
    ... 
    Langkah 7

    Klik 2x tombol Ext Gambar 2 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    edit2.Text := GraphicExtension(TGraphicClass(Image2.Picture.Graphic.ClassType));
    end;
    ...
    ...
    Langkah 8

    Klik 2x tombol Ext Gambar 3 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    edit3.Text := GraphicExtension(TGraphicClass(Image3.Picture.Graphic.ClassType));
    end;
    ...
    ...
    Langkah 9

    Klik 2x tombol Ext Gambar 4 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button4Click(Sender: TObject);
    begin
    edit4.Text := GraphicExtension(TGraphicClass(Image4.Picture.Graphic.ClassType));
    end;
    ...
    ...
    Langkah 10

    Klik 2x tombol Ext Gambar 5 dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button5Click(Sender: TObject);
    begin
    edit5.Text := GraphicExtension(TGraphicClass(Image5.Picture.Graphic.ClassType));
    end;
    ...
    ...
    Langkah 11

    Silahkan anda compile program aplikasi tersebut dengan menekan tombol Ctrl + F9.

    Langkah 12

    Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.

    [​IMG]

    Langkah 13

    Silahkan anda tekan tombol Ext Gambar 1 hingga Ext Gambar 5 secara berurutan.

    Langkah 14

    Apabila berhasil, maka akan didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 15

    Program aplikasi sudah selesai dibuat, silahkan anda tekan tombol Keluar untuk menutup program aplikasi.

    Download

    Mendapatkan Extention TImage ( Grafik )


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  12. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Menyimpan data Memo kedalam file MS Word

    Tingkatan

    Pemula

    Kategori

    Dasar

    Sub Kategori

    Object

    Judul

    Menyimpan data Memo kedalam file MS Word

    Referensi

    http://delphi.about.com/cs/adptips2003/a/bltip0303_5.htm


    Tujuan

    Mengajarkan kepada para Delphier yang masih pemula tentang bagaimana cara menyimpan data yang ada didalam object Memo kedalam dokumen MS Word.

    Overview

    Tutorial ini sangat menarik untuk dipelajari, sebab disini kita akan menyimpan data didalam object Memo kedalam dokumen MS Word. Tips kali ini sebenarnya sangat sederhana sekali, meskipun demikian, secara teknis bagi saya masih susah untuk menjelaskannya. Namun secara lapangan intinya kita bisa melakukan proses penyimpanan ini dengan baik.


    Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas.


    Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat.

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Buat program aplikasi baru.

    Langkah 2

    Ambil beberapa object kedalam form dari komponen pallete.

    Button1: TButton;
    Memo1: TMemo;
    Bevel1: TBevel;
    Button2: TButton;

    Langkah 3

    Atur desainnya seperti terlihat gambar berikut.

    [​IMG]

    Langkah 4

    Silahkan anda tambahkan library ComObj pada bagian Uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.

    Code:
    ...
    ...
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
      Dialogs, StdCtrls, ComObj, ExtCtrls;
    ...
    ...
    Langkah 5

    Silahkan anda klik 2x pada tombol Simpan. Isikan kode program didalam event OnCLick dan untuk lebih jelasnya silahkan anda lihat potongan kode pogram dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    var
       WordApplication, 
       WordDocument: Variant;
    begin
       WordApplication := CreateOleObject('Word.Application') ;
       WordDocument := WordApplication.Documents.Add; 
       WordApplication.Selection.TypeText(Memo1.Text) ; 
       WordDocument.SaveAs(' E:\Doc.Doc',False) ;
       WordApplication.Quit(False) 
    end;
    ...
    ...
    Langkah 6

    Silahkan anda compile program aplikasi anda itu dengan menekan tombol Ctrl + F9.

    Langkah 7

    Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.

    [​IMG]

    Langkah 8

    Silahkan anda tekan tombol Simpan.

    Langkah 9

    Apabila berhasil maka akan didapatkan potongan tampilan gambar seperti berikut.

    [​IMG]

    Langkah 10

    Silahkan anda buka file dokumen tersebut hingga terlihat seperti gambar potongan dibawah ini.

    [​IMG]

    Download

    Menyimpan data kedalam dokumen MS Word


    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  13. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Tingkatan

    Pemula

    Kategori

    Dasar

    Sub Kategori

    Prosedur / Fungsi

    Judul

    StringToColor dan ColorToString

    Referensi


    by Eko Indriyawan

    Tujuan

    Mengajarkan kepada delphier pemula tentang cara menggunakan fungsi StringToColor dan ColorToString.

    Overview

    Pembahasan kali ini akan ditekankan pada penggunaaan fungsi StringToColor dan ColorToString. Didalam pembahasan kali ini akan diberikan dengan materi yang interaktif sehingga meskipun fungsi ini sangatlah sederhana namun bisa dibuat menjadi sebuah program yang interaktif dan menarik perhatian untuk dicoba.


    Fungsi ini akan sangat berguna jika dihubungkan dalam hal desain grafis atau dalam hal pembuatan game dan animasi. Oleh karena itu, semakin interaktif suatu desain dan semakin bagus sebuah animasi, maka hal ini akan secara langsung bisa memikat hati user yang menggunakan program aplikasi.


    Semoga tutorial yang sederhana ini bisa memberikan inspirasi buat para delphier dalam mengembangkan kreativitasnya dalam menciptakan produk-produk IT yang siap untuk bersaing dengan pasar global.

    Petunjuk :

    Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

    Langkah 1

    Buat program aplikasi baru.

    Langkah 2

    Tambahkan beberapa object kedalam Form

    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    Button3: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Bevel2: TBevel;
    Label2: TLabel;
    Panel2: TPanel;

    Langkah 3

    Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini

    [​IMG]

    Langkah 4

    Silahkan anda fokuskan perhatian pada object Panel2

    Langkah 5

    Tentukan nilai property untuk ParentBackGround dengan data False.

    Langkah 6

    Tambahkan data warna pada bagian property Items di object Combobx1 dengan data seperti berikut ini

    clScrollBar
    clBackground
    clActiveCaption
    clInactiveCaption
    clMenu
    clWindow
    clWindowFrame
    clMenuText
    clWindowText
    clCaptionText
    clActiveBorder
    clInactiveBorder
    clAppWorkSpace
    clHighlight
    clHighlightText
    clBtnFace
    clBtnShadow
    clGrayText
    clBtnText
    clInactiveCaptionText
    clBtnHighlight
    cl3DDkShadow
    cl3DLight
    clInfoText
    clInfoBk
    clHotLight
    clGradientActiveCaption
    clGradientInactiveCaption
    clMenuHighlight
    clMenuBar
    clBlack
    clMaroon
    clGreen
    clOlive
    clNavy
    clPurple
    clTeal
    clGray
    clSilver
    clRed
    clLime
    clYellow
    clBlue
    clFuchsia
    clAqua
    clLtGray
    clDkGray
    clWhite

    Langkah 7

    Silahkan anda klik 2x pada tombol ColorToString. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.

    Code:
    ...
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Edit1.Text := ColorToString(Panel1.Color);
    end;
    ...
    ...
    Langkah 8

    Silahkan anda klik 2x pada tombol StringToColor. Setelah itu anda lanjutkan dengan menuliskan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
    Code:
    ...
    ...
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    Panel2.Color := StringToColor(ComboBox1.Text);
    end;
    ...
    ...
    Langkah 9

    Kemudian anda lanjutkan compile program aplikasi tersebut dengan menggunakan tombol Ctrl + F9.

    Langkah 10

    Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.

    [​IMG]

    Langkah 11

    Silahkan anda tekan tombol ColorToString hingga didapatkan tampilan seperti gambar dibawah ini.

    [​IMG]

    Langkah 12

    Setelah itu anda lanjutkan dengan memilih warna dari daftar warna. Sebagai contoh silahkan anda lihat tampilan gambar berikut ini.

    [​IMG]

    Langkah 13

    Kemudian anda lanjutkan dengan menekan tombol StringToColor hingga didapatkan tampilan seperti berikut ini.

    [​IMG]

    Langkah 14

    Program sudah selesai anda buat. Sekarang silahkan anda tekan tombol Keluar.

    Download

    StringToColor dan ColorToString


    Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap.


    Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32.


    Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan.


    Atas perhatiannya, saya mengucapkan banyak terimakasih.
     
  14. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Tutorial menyimpan data di MS SQL Server dengan multi tipe data

    Kali ini saya akan memberikan tips kepada delphier yang masih atau sedang belajar menggunakan database MS SQL Server.

    Disini diberikan tutorial tentang bagaimana membuat tabel, stored procedure hingga proses implementasinya. Dan kali ini diimplementasikan untuk menyimpan data dengan beberapa tipe data seperti string, integer, money dan gambar.

    Semoga bermanfaat dan bisa memberikan inspirasi untuk membuat program aplikasi yang lebih baik dan lebih kompleks.

    Mengingat terlalu panjang tutorialnya, kali ini saya berikan dalam bentuk link.

    klik disini
     
  15. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Kali ini saya akan memberikan tips kepada delphier yang masih atau sedang belajar menggunakan database MS SQL Server.

    Disini diberikan tutorial tentang bagaimana membuat tabel, stored procedure hingga proses implementasinya. Dan kali ini diimplementasikan untuk menyimpan data dengan beberapa tipe data seperti string, integer, money dan gambar.

    Semoga bermanfaat dan bisa memberikan inspirasi untuk membuat program aplikasi yang lebih baik dan lebih kompleks.

    Mengingat terlalu panjang tutorialnya, kali ini saya berikan dalam bentuk link.

    klik disini
     
  16. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Tips Membuat Web Service dengan Turbo Delphi .NET

    Kali ini saya akan memberikan tutorial tentang pembuatan web service sederhana ( nanti akan dibuatkan juga web service yang sedikit kompleks ) dengan menggunakan
    Turbo Delphi .NET ( versi free.... :D tapi bisa jalan mulus... :) )

    Disini saya berikan petunjuk hingga mengatasi permasalahan saat proses compile dan register web sitenya.

    karena terlalu panjang, maka saya minta maaf kalau hanya kasih link-nya saja. Untuk lebih jelasnya silahkan klik disini

    semoga bisa bermanfaat.
     
  17. ekoindri

    ekoindri New Member

    Messages:
    38
    Likes Received:
    25
    Trophy Points:
    0
    Kali ini saya akan memberikan tutorial tentang pembuatan web service sederhana ( nanti akan dibuatkan juga web service yang sedikit kompleks ) dengan menggunakan
    Turbo Delphi .NET ( versi free.... :D tapi bisa jalan mulus... :) )

    Disini saya berikan petunjuk hingga mengatasi permasalahan saat proses compile dan register web sitenya.

    karena terlalu panjang, maka saya minta maaf kalau hanya kasih link-nya saja. Untuk lebih jelasnya silahkan klik disini

    semoga bisa bermanfaat.
     

Share This Page