Mecari selisih antara tanggal sekarang dan seblumnya menggunakan delphi

untuk mengetahui selisih hari sebelumnya dengan sekarang dalam borland delphi sangat mudah kita lakuakan, sorce kode yang kita gunakan tidak terlalu banyak serta cuma membutuhkan beberapa komponenen. (maaf ini saya posting untuk pemula saja, jika ada diantara teman-teman yang sudah mahir dan menganggap ini jadul silahkan ditinggalkan saja, tapi kalau ingin membaca juga gak apa-apa.) oke kita langsung saja.  
1. buka borland delphi teman-teman melalui start=> programf files=>borland delphi 
2. buat form baru 
3. masukkan beberapa komponen seperti: 
     a. 3 edit box (propertiesnya biarkan saja setandar) 
     b. 3 label (ganti bagian propertiesnya pada bagian caption seperti gambar)
     c. 2 button (ganti bagian propertiesnya pada bagian caption seperti gambar) 
     d. 2 datetimepicker (propertiesnya biarkan saja setandar) 

screenshoot program 

untuk sorce codenya:

 - pada datetimepicker1 double klick onchange pada tab even di properties dan masukkan kode dibawah

 procedure TForm1.DateTimePicker1Change(Sender: TObject); begin edit1.Text:=datetostr(datetimepicker1.Date); 
 end; 

 - pada datetimepicker1 double klick onchange pada tab even di properties pada datetimepicker2 double klick dan masukkan kode dibawah 

procedure TForm1.DateTimePicker2Change(Sender: TObject); begin edit2.Text:=datetostr(datetimepicker2.Date); 
end;

 - pada button lihat selisih tambahkan code dibawah  

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
if (edit1.Text = '') or (edit2.Text = '') then 
begin 
showmessage('Jangan Ada Kekosongan di antara kita'); 
edit1.Clear; 
edit2.Clear; 
end 
else 
begin 
try 
edit3.Text:= 'Selisih Hari Kedua Tanggal tsb adalah '+ floattostr(strtodate(edit1.Text)-strtodate(edit2.Text))+' Hari';  
except 
exit; 
end; 
end; 
end; 
- pada button keluar masukkan source kode dibawah procedure 
TForm1.Button1Click(Sender: TObject); 
begin 
close; 
end; 


SELAMAT MENCOBA...

Read More

Membuat Form Login Pada Visual Basic

Setelah Bosan dengan Disegn - disegn pada VB, pasti kita ingin membuat form untuk login atau masuk ke form yang sudah kita buat tersebut, (maaf sebelumnya ya, karena ini husus saya posting untuk para programmer pemula pada vb, dan untuk anda yang merasa post ini udah jadul silahkan di close kemudian tinggalkan, karena saya yakin ini sangat tidak bermamfaat bagi anda.)
oke sekarang kita langsung aja pada pokok pembicaraan kita ya.
untuk membuat form login kita harus membuat,
pertama, database dari form tsb (pada kali ini kita menggunakan database Ms.accsess)
kedua, design formnya (tergantung kekereatifan kita)
ketiga, masukkan kodenya,
ke empat, selesai
jika ada diantara anda yang ingin mencoba membuat form login di bawah saya sudah menyiapkan kodenya jika anda malas ngetik silahkan di copy paste
kita mulai ya.
1. buka ms.accsess nya
2. buat database dengan nama terserah anda( dalam kode di bawah ini saya menggunakan nama "db", tapi jika anda ingin menggantinya silahkan di edit pada codenya nanti sesuai dengan nama data base yang anda buat
3. buat tabel untuk penyimpanan username dan password

   

4.masukan username dan password yang anda inginkan pada tabel tersebut
5.save database yang anda buat tsb
6.buka program vb anda
7.design formnya dengan 2 buah label, 2 text, dan 2 command button seperti gammbar di bawah ini










8. kalau udah jadi formnya silahkan copy paste code di bawah ini

'***********************************************************
'untuk contoh, pada database sudah saya isi dengan data sbb:
'Username :adam
'password :chand
'********************potong disini*****************************

Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String

Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"

If con.State = adStateOpen Then
  con.Close
  Set con = New ADODB.Connection
  con.Open strconn
Else
  con.Open strconn
End If
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdLogin_Click()
On Error Resume Next

Static i As Integer

If txtUser.Text = "" Then
  GoSub noacc
  MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
  txtUser.SetFocus
ElseIf txtPass.Text = "" Then
  GoSub noacc
  MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
  txtPass.SetFocus
Else
  sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
  Set rst = con.Execute(sql)
  If rst.EOF Then
    GoSub noacc
    MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
    txtUser.SetFocus
 
  ElseIf txtPass.Text <> rst("pass") Then
    GoSub noacc
    MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
    txtUser.SetFocus
 
  Else
    MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
    Unload Me
  End If
End If
Exit Sub

noacc:
i = i + 1
If i = 3 Then
  MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
  End
Else
  Return
End If

End Sub

Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub
***************************potong disini****************************
silahkan di coba, selamat berkreasi,semoga bermamfaat.

Read More