G Tau

Gemetar tubuh ini hanya untuk menahan air mata

Meski ku coba pertahankan

Bulir-bulir itu tak mampu ku bendung lagi

Tahukah kamu aku mengkhawatirkanmu?

Tahukah kamu bila sampai saat ini aku masih sayang kamu?

Kenapa kau seperti acuh?

Tersayat-sayat hati ini mendengar kata-katamu

Sayang...

Dimana kamu sekarang?

Salahkah bila aku hanya ingin kamu menjadi lebih baik?

Aku tak mampu berkata apa-apa lagi

Kau telah bisukan hati ini oleh prinsipmu

Kau telah butakan hati ini juga karena egomu

Kenapa hadirmu berpengaruh dalam hidupku?

Maaf jika ku terlalu berharap padamu

Sungguh aku seperti ini karena aku sayang kamu...

»»  BACA SELENGKAPNYA...

Aplikasi Login Dengan Delphi 7

Yang satu ini aplikasi login yang saya buat kemaren, semoga bermanfaat, eh iya, databasenya pake SQL yog ya bisa di download disini aplikasinya. Untuk database disini yang saya isikan adalah username, password dan hak akses.

Berikut listing programnya:
procedure TForm1.BtLoginClick(Sender: TObject);
begin
with DM.QryLogin do
  begin
  Active:=False;
  Close;
  SQL.Clear;
  SQL.Text:='select * from tb_admin where username='+QuotedStr(edtUsername.Text);
  Open;
  end;

if DM.QryLogin.RecordCount = 0 then
begin
 MessageDlg('Username tidak ada!'+#13+ 'Silahkan Ulangi.',mtWarning, [mbOK], 0);
 edtUsername.Text:=' ';
 edtPass.Text:=' ';
 edtUsername.SetFocus;
 end

else
if DM.QryLogin.FieldByName('password').AsString <> edtPass.Text then

begin
 MessageDlg('Username atau Password Salah'+#13+ 'Silahkan Ulangi.',mtWarning, [mbOK], 0 );
 edtUsername.Text:=' ';
 edtPass.Text:=' ';
 edtUsername.SetFocus;
 end

else
  begin
    MessageDlg('Login Berhasil!' +#13+ 'Jangan Lupa Lougout Setelah selesai.',mtInformation, [mbOK], 0);

 if
DM.QryLogin.FieldByName('level').AsString='ADMIN' then
   begin
   form2.show;//kosongkan

   end
   else
if
DM.QryLogin.FieldByName('level').AsString='TATA USAHA' then
  begin
  form2.show;//kosongkan
   form2.Master1.Visible:=False;
    Form2.File1.Visible:=False;
  end
   else
if
DM.QryLogin.FieldByName('level').AsString='KEPSEK' then
  begin
  form2.show;//kosongkan
       form2.Master1.Visible:=False;
    Form2.transaksi1.Visible:=False;
    Form2.File1.Visible:=False;
  end
  else
if
DM.QryLogin.FieldByName('level').AsString='SISWA' then
  begin
  form2.show//kosongkan

  end

end;
end;

procedure TForm1.BtCancelClick(Sender: TObject);
begin
MessageDlg('SAMPAI JUMPA',mtInformation,[mbOK],0);
close;
end;

end.

Nah untuk koneksi ke databasenya koneksinya peke mydac bisa di download di footer link blog ini, dikoneksiin seperti biasa aja, pakenya MyConection,MyQuery dan MyDataSource..

Untuk pertanyaan lebih lanjut mengenai program ini silahkan komentar pada kolom komentar ya.. :)

»»  BACA SELENGKAPNYA...

Tips Atasi Pilek

Cuaca tak menentu seperti yang terjadi akhir-akhir ini, tak jarang membuat tubuh cenderung rentan terhadap pilek. Terlebih jika Anda tengah melakukan aktivitas padat.

Berbagai faktor seperti kecapaian, virus dan stres merupakan faktor yang paling sering menimbulkan infeksi pada tenggorakan dan hidung yang berakibat munculnya gejala pilek seperti hidung mampet, tenggorakan serak dan kepala terasa pusing.

Tentu saja hal itu dapat mengganggu aktivitas sehari-hari, terutama bagi Anda yang memiliki jadwal yang padat. Namun, janganlah khawatir, Anda bisa memanfaatkan beberapa hal sederhana untuk mengembalikan vitalitas tubuh. Salah satu kuncinya yaitu dengan memanfaatkan waktu libur. Menurut Penulis Buku Air Penyembuh Ajaib, Herminia De Guzman-Ladion, ketika Anda sudah terserang pilek, usahakan Anda tinggal dirumah dan beristirahat. karena bekerja ketika pilek akan mengakibatkan menambah parah derita bagi anda. Lagipula teman Anda akan lebih menghargai Anda untuk membatasi penyebaran virus.

Setelah Anda dipastikan tinggal dirumah, maka langkah selanjutnya, Anda benar-benar memanfaatkan waktu yang untuk tidur secara maksimal. Sehingga tubuh akan mendapat energi baru. Semacam penebusan atas kerja tubuh yang berlebih.

Namun perlu diingat, ketika Anda memtuskan beristirahat, jangan sentuh makanan yang mengandung gula seperti kue, es krim dan lainnya. Kandungan gula dalam darah akan menurunkan daya tahan tubuh anda terhadap infeksi. Justru anda disarankan untuk mengkonsumsi buah-buahan, sari buah atau jus.

Selain itu, perbanyak konsumsi air putih. Jika dalam kondisi normal Anda mengkonsumsi 6 hingga 8 gelas sehari maka ketika pilek maka sebaiknya Anda meningkatkan konsumsi air hingga 10 gelas. Air dapat menghanyutkan virus dari tubuh Anda dalam berbagai bentuk seperti keringat dan air seni.

Pilek merupakan gejala penyakit yang mempunyai tahapan yaitu tenggorokan, kepala dan dada. Namun tahapan itu tidaklah berurutan. Bisa saja Anda terkena terlebih dahulu pada bagian kepala atau tenggorokan.

Jika Anda terlebih dahulu terkena pada tenggorokan, maka Anda dapat berkumur dengan larutan garam panas untuk meringankan gejalanya. Anda hanya siapkan segela air panas (80 derajat Celsius) dan setengah sendok teh garam. Kemudian larutan garam tersebut pada air panas dan berkumurlah selama lima menit. Sesudah itu Anda disarankan jangan minum air dingin. Lakukan 3 kali sehari.

Jika Anda sudah berkumur larutan garam, kemudian Anda siapkan sapu tangan yang telah dibasahi air dingin kemudian taruh dalam kain flanel kemudian lilitkan pada leher seperti saat mengompres kepala.

Namun, jika pilek yang anda derita berawal dari sakit kepala yang tak kalah menyiksa, yang Anda perlu lakukan hanyalah merendam kaki dengan menggunakan air panas. Dengan begitu darah akan lancar ke kepala sehingga bisa menghilangkan rasa sesak.

Selain itu, cara lain yang dapat digunakan yakni menghirup uap panas. yang perlu anda siapkan antara lain, kertas koran atau karton, kemudian masaklah air dengan menggunakan panci atau teko. Kemudian dekatkan lipatan kertas yang membentuk pipa tersebut dengan panci atau teko. Dengan menghirup uap air panas, hidung yang tersumbat akan hilang. Cara itu bisa dilakukan sehabis merendam kaki.

Jika Anda kurang beruntung terkena gejala pilek pada dada disertai batuk dan demam. Maka penggunaan panas pada dada akan menolong anda. Caranya cukup mudah, lakukan seperti yang Anda lakukan pada tenggorokan.

Pertama basuh kain dengan air panas, kemudian siapkan handuk untuk menutupi dada Anda. Kemudian taruh kain yang telah dibasuh air tadi keatas dada kemudian tutup dengan handuk tersebut. Biarkan hingga panas hilang. Jika perlu lakukan hal ini tiga kali sebelum tidur. Setelah selesai, bilas dengan handuk. Kemudian disarankan untuk segera tidur.

Namun dalam sepekan Anda belum juga sembuh. Kemudian timbul gejala-gejala lain yang perlu dicurigai maka segera hubungi dokter

sumber:http://anekatipsmenarik.blogspot.com/2009/01/tips-atasi-pilek-tanpa-obat.html 

»»  BACA SELENGKAPNYA...