Urutan menghitung record pada IBOConsole di DElphi 7 :

Aku coba2 programming dengan Delphi, syntax ini aku post di sini buat backup pembelajaran aku aja :p

Syntax :

IBQProses.Close;
IBQProses.SQL.Text:='select * from produksi_nasional order by tahun';
IBQProses.Open;
IBQProses.Last;
if (IBQProses.IsEmpty)then exit;

SetLength(prod, IBQProses.RecordCount); //menentukan besar array prod

IBQProses.First;
while not(IBQProses.Eof) do
begin
prod[IBQProses.RecNo-1]:= IBQProses.fieldbyname('produksi').AsFloat;
IBQProses.Next;
end;
ShowMessage('Mean:'+FloatToStr(Mean(prod)));
ShowMessage('StdDev:'+FloatToStr(StdDev(prod)));

--->prod adalah variabel array

di form yg ada Syntax di atas hrs ada
o IBDatabase (mis. diberi nama IBDPRoses) = propertinya pada databaseName diset ke databasenya IBOConsole
0 IBTransaction (mis. diberi nama IBTrProses) = propertinya pada default database diisi IBDPRoses
o IBQuery (mis. nama IBQProses) = properti pada Transaction diisi IBTrProses

Data Tabel produksi_nasional di IBOCOnsole:

tahun produksi
1999 12
2000 67
2001 11
2002 33

dicari rata2 dan standard deviasi untuk data diatas.

urutannya :

1.Query ditutup dulu
2.Isi SQL nya ==> pilih semua record dari tabel produksi_nasional dan diurutkan berdasarkan tahun
3.Buka Querynya ---> posisi ada direcord pertama
4.Arahkan ke record terakhir.
===> dari no 3 dan 4 recordnya dihitung dengan perintah IBQProses.RecordCount
Jika Record kosong maka program keluar;
5.hasil dari perintah IBQProses.RecordCount ditampung di variabel baru (mis. prod) untuk menentukan besar array prod -->SetLength(prod, IBQProses.RecordCount);
6.arahkan record ke posisi pertama, karena tadi ada di posisi terakhir.
7.perulangan,selama record bukan yg terakhir maka melakukan menampung data yg ada di kolom produksi ke variabel prod sesuai indexnya
IBQProses.RecNo-1 ---> menentukan urutan record - 1, karena index data di record harus dimulai dari 0

IBQProses.RecNo index data =IBQProses.RecNo-1 tahun produksi
hasil: 1 0 1999 12
2 1 2000 67
3 2 2001 11
4 3 2002 33
record diarahkan ke record selanjutnya setelah datanya ditampung ke variabel prod --->IBQProses.Next; Klo tidak maka selama perulangan data yang diambil hanya di record pertama terus tidak habis2

hasil no 7 :
prod[0]=12
prod[1]=67
prod[2]=11
prod[3]=33

mencari rata2 gunakan fungsi Mean(variabel array)
mencari Standar deviasi gunakan fungsi StdDev(variabel array)