kk,,, aq da problem lg nich... aq mu buat kaya buku tamu gtu.. misalnya aq punya db_tamu yg di dlmnya da tb_bukutamu n fild nya jenisklmn n jumlah... yg mu nanya gmn caranya aq masukin proses auto inc dari delphi k databasenya aq pake delphi 7 n mysql.. misannya ada yang isi aplikasinya n dya pilih jnis klamin nya laki2,, trs d databasenya brubah..misalkan yang asalnya record laki2 jumlahnya 1 brubah jd laki2 jumlahnya 2.. help me plz....

pake koneksinya apa?

coba buat variabel global iJml : integer

var
 ..........................;
  iJml:integer;

pada saat even OnCreate milik Form kasih value nya jadi 0

iJml:=0;

pada saat OnClick nya Button Simpan Ketik kode berikut

Begin
{code mu}
inc(iJml)
end;

he..he..he, itu cuma sample aja selanjutnya... Terserah anda ....

[quote:289cd8b464=""] pada saat even OnCreate milik Form kasih value nya jadi 0

iJml:=0;

[/quote:289cd8b464] maaf..sy ralat

iJml:=1;

misannya ada yang isi aplikasinya n dya pilih jnis klamin nya laki2,, trs d databasenya brubah..misalkan yang asalnya record laki2 jumlahnya 1 brubah jd laki2 jumlahnya 2.. help me plz....

mksd saya tuch yang inc nya di databasenya kk.. bukan di programnya...

kalo gitu pake trigger aja.

kira2 ada g cara yang lebih familiar dri pke trigger ??

klo di databasenya (MySQL), ya pake trigger ato kalo gak store procedure...klo gak mau ya koding di delphinya.monggo silahkan pilih yang mana...

kalo aku sih pilih pake triger.....bang....

hmmmm......berarti di tb_bukutamu ada filed yang menampung jumlah laki2 dan perempuan tentunya....yap seperti kata master2 yang lain bisa ngoprek di databasenya atu di programmingnya. oks aq coba pke cara yang programming pertama buat fungsi untuk mendapatkan jumlah laki2 atw perempuan di tb_bukutamu

function TForm1.GetJumlah(aFieldData : string): Integer;
var
  sSQL: string;
begin
  sSQL := 'select ' + afielddata + ' from tb_bukutamu';
  with zQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add(sSQL);
    Open;
    if FieldByName(aFieldData).IsNull then
      Result := 0
    else
      Result := FieldByName(aFieldData).AsInteger;
  end;
end;

sebagai catatan aq pke koneksi zeos dengan ZQuery adalah TZQuery.... trus untuk aFieldData adalah nama field jumlah laki2 atw perempuan 1. seleksi tamunya laki2 atw perempuan waktu mau simpen data tamu kalo prempuan penggunaan fungsinya getjumlah('perempuan') kalo laki2 getjumlah('laki2') 2. simpen data tamu 3. update data di tb_bukutamu misal kalo tadi tamune perempuan maka statement sqlnya

'update tb_bukutamu set perempuan = ' + Inc(getjumlah('perempuan'))

trus kalo tamune cowo sqlnya

'update tb_bukutamu set laki2 = ' + inc(getjumlah('laki2'))

catatan : Inc -> adl fungsi untuk increment kalo mo pake di uses nya ditambahin Math semoga membantu