New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

Membuat program transfer data

permaslahan yang sering terjadi pada saat program sudah berjalan dalam jangka waktu yang lama adalah masalah penumpukan data, untuk itu kita harus tahu cara mengoptimalkan data agar tidak terjadi penumpukan, salah satu caranya yaitu Memindahkan data dari table master ke table histori…. Biasanya data yang dipindahkan adalah data yang kegunaanya sudah tidak terlalu dibutuhkan atau memasuki masa in-aktif. contoh skrip
struktur tabel tblmasuk


struktur tabel tblhistori

Rancangan Form

coding program
SELECT tblmasuk
if ! reccount()=0 && jika jumlah record tidak sama dengan 0
skip +1 && naik satu record
if eof() && jika di akhir record
go bottom && ke akhir record
*wait window “Akhir Record” nowait && tampilkan pesan nowait=tanpa penundaan waktu
endif
thisform.label4.Caption=+”"+”cek data pengirim”+” : “+ dari

ENDIF

Object : Form1 procedur : Load
CLOSE TABLES all
SET DATE ITALIAN
USE tblmasuk IN 0
USE tblhistori IN 0
Object : Command2 procedur : Click
thisform.label4.Visible= .T.
thisform.timer3.Enabled= .T.
Object : Command1 procedur : Click
thisform.label4.Visible= .F.
thisform.timer3.Enabled= .F.
LOCAL i,mn,n
i=0
n=99999
thisform.progress.Visible=.T.
thisform.label3.Visible= .T.
DO WHILE i 5
SELECT tblhistori
APPEND FROM ARRAY ar
thisform.grid1.Refresh
DELETE tblmasuk from tblhistori where tblmasuk.no_urut=tblhistori.no_urut
endif
ENDSCAN
thisform.grid2.Refresh

Object : Cmdkeluar procedur : Click
UNLOCK all
DO Menutup_Berputar

ketika dijalankan

download

Membuat program transfer dataSocialTwist Tell-a-Friend

0 komentar:

Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property