Delphi Find syntax

16 06 2008

begin
with DataModule1.ADOQuery1 do
begin
SQL.Clear;
Active := False;
strSQL := ‘select id_pegawai,nm_pegawai,alamat,telp,jns_kelamin from pegawai where id_pegawai=’;
strSQL := strSQL + QuotedStr(Edit1.Text);
SQL.Text := strSQL;
ExecSQL;
Active := true;
if Not eof then
begin
Edit2.Text := Fields[1].AsString;
Edit3.Text := Fields[2].AsString;
Edit4.Text := Fields[3].AsString;
cmb_1.Items.Add(Fields[4].AsString);
btn_save.Enabled:=false;
btn_update.Enabled := true;
btn_delete.Enabled := true;
btn_clean.Enabled:=true;
endx
else
begin
btn_save.Enabled := True;
btn_update.Enabled := false;
btn_delete.Enabled := False;
btn_clean.Enabled:=true;
end;
end;

Iklan




PSG Pertamaku

5 06 2008

Hari Pertama,

Hari pertama PSG, Aku mempunyai perasaan nggak enak, pikiranku sudah membayangkan hal2 yang tidak aku sukai, tapi ternyata itu semua tidak seperti yang Aku pikirkan, saattiba di lokasi Aku sempat berpikir apakah Aku akan terbiasa disini, dan dapat dengan cepat menyesuakan terhadap lingkungan disini, tapi lama – lama kelamaan semua itu Aku jalanin dengan sepenuh hati, Aku sudah mulai bisa menyesuaikan diri dengan keadaan, ternyata semua yang Aku pikirkan sebelum Aku menjalaninya hanya bayangan semata, orang – orang disini semuanya ramah nggak seperti yang Aku bayangkan.

Aku PSG dengan empat temanku yang lain, Kami selalu mempunyai hal – hal yang baru yang akan Kami lakukan untuk hari ini dan hari esok, Kami serasa sudah satu keluarga, Bercanda, Bermain, dan melakukan hal – hal yang lain. Baca entri selengkapnya »