Ngulik……yuk

Lagi-lagi posting tentang generate code, mudah-mudahan tidak bosan ya  , tetapi generate code yang satu ini berbeda dengan generate code yang sebelumnya langsung aja deh liat scriptnya :

<?php
function kdauto($tabel, $inisial){
$struktur	= mysql_query("SELECT * FROM $tabel");
$field		= mysql_field_name($struktur,0);
$panjang	= mysql_field_len($struktur,0);
$qry	= mysql_query("SELECT max(".$field.") FROM ".$tabel);
$row	= mysql_fetch_array($qry);
if ($row[0]=="") {
$angka=0;
}
else {
$angka		= substr($row[0], strlen($inisial));
}
$angka++;
$angka	=strval($angka);
$tmp	="";
for($i=1; $i<=($panjang-strlen($inisial)-strlen($angka)); $i++) {
$tmp=$tmp."0";
}
return $inisial.$tmp.$angka;
}
?>

Simpan script diatas dalam satu file php saja. Script diatas adalah fungsi untuk membuat generate code/no urut, jadi jika Anda ingin menggunakannya tinggal panggil file dengan menggunakan perintah include/require pada PHP. Contohnya seperti ini :

include_once "generate.php";

Nah untuk menjalankan fungsi tinggal panggil saja fungsi kdauto, seperti berikut :

$kode = kdauto("member","MID");

Pada pemangilan fungsi diatas kode yang dihasilkan akan disimpan di variabel $kode. Untuk parameter didalam fungsi kdauto terdapat 2 parameter, yang pertama nama tabel, dan yang ke-2 yaitu, inisial depan dari no urut. Panjangnya no urut disesuaikan dengan field pada saat Anda membuat tabel, misalkan saat Anda membuat field dengan nama “no_urut” dengan tipe “varchar” dan length “6“, maka kode yang dihasilkan menjadi MID001.

admin PHP Generate Code, no urut 167 views

Sesuai judul diatas saya ingin menambahkan program kode generate untuk delphi. Sebenernya pada posting sebelumnya sudah ada, namun hanya no urut berdasarkan jumlah record dan diawali dengan sebuah karakter. Untuk Generate Code bag 2 ini hanya saja ditambahkan digit untuk tanggal, bulan dan tahun, baru kemudian no urut data. Untuk lebih jelas liat kode program berikut. Read more…

admin Delphi Generate Code 136 views

Pengenalan PHP
Tutorial yang saya tulis kali ini berhubungan dunia website yang menggunakan bahasa PHP. Sebelum masuk ke tips dan trik PHP, saya ingin berbagi sekilas tentang PHP. Ada beberapa pengertian tentang PHP. Akan tetapi, kurang lebih PHP dapat diartikan sebagai PHP Hypertext Preeprocesor. Ini merupakan bahasa yang hanya dapat berjalan pada server yang hasilnya dapat ditampilkan pada klien. Interpreter PHP dalam mengeksekusi kode PHP pada sisi server (server-side) berbeda dengan mesin maya java yang mengeksekusi program pada sisi klien (client-side).
Oke deh langsung ke tutor aja, lebih lengkap bisa di googling aja, ntar malah pada kabur he3x, ini adalah contoh script php. Read more…

admin PHP PHP Security 599 views

Database adalah merupakan kumpulan data yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat dan mudah. Dalam hal pemrograman database sudah menjadi bagian yang sangat penting dalam menyimpan data. Bermacam-macam cara yang dapat dilakukan agar database dapat ditampilkan didalam pemrograman. Salah satunya menggunakan DBGrid, Listview, ataupun komponen lainnya. Saya akan berbagi bagaimana menampilkan teks dari database yang ditampilkan ke Listview. Saya pilih listview karena mungkin DBGrid sudah umum banyak dipakai dan menurut saya tampilannya kurang begitu bagus. Read more…

admin Delphi listview, show text in listview 149 views

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

 
var kd,st,newKd:string;
i,n:integer;
....
ADOTable1.Last;
if not(ADOTable1.eof and ADOTable1.Bof) then
begin
kd:=ADOTable1.FieldByName('kode').AsString;
// auto generate
for i:=1 to 2 do
st:=st+kd[i+1];
n:=strtoint(st)+1;
case length(inttostr(n)) of
1 : newKd:='K0'+inttostr(n);
2 : newKd:='K'+inttostr(n);
end;
end
else newKd:='K01';
Edit1.Text:=newKd;

admin Delphi Generate Code 125 views

Saya punya code buat mengaktifkan mouse wheel pada DBGrid delphi 7, karena default nya mouse wheel untuk DBGrid tidak bisa berfungsi. Kok bisa ya….   mungkin lupa kali pabrikannya buat code nya  . Kalau tidak salah code ini juga bisa berfungsi untuk mengaktifkan mouse wheel report (quick report). Silahkan coba.

1.  Tambahkan komponen TApplicationEvent pada tab Additional.
2.  Klik pada event onMessage
3.  Tambahkan kode sehingga seperti berikut :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
i: SmallInt;
begin
{Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;

admin Delphi Mouse wheel 62 views