Space Iklan :085296206269

Responsive Ads Here

Jumat, 19 Februari 2016

Contoh Perancangan Splash Form/ Welcome Form & Perancangan Form Koneksi Beserta Kodenya


Contoh Perancangan Splash Form/ Welcome Form
Tambahkan 1 form baru dengan cara klik Menu Project àAdd Form à Tampil kotak dialog Add Form klik Open.
Splash form/ welcome Form bersifat opsional, tergantung keinginan programmer. Form ini berfungsi sebagai form pembuka ketika aplikasi pertama kali dijalankan, yang sekaligus berfungsi untuk memperindah aplikasi. Untuk mendesign splash form dapat dilihat pada gambar di bawah ini:

Pengaturan Properties :
No
Object
Properties
Value
1
Form
Name
FrmWelcome
BorderStyle
0 - None
2
Timer1
Interval
1


Kode Program :
1
Option Explicit
Dim a As Integer

Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
MakeTransparent Me.hWnd, 0
Timer1.Enabled = True
a = 0
End Sub


Private Sub Timer1_Timer()
    a = a + 5
    If a <= 300 Then
        MakeTransparent Me.hWnd, a
    Else
        MakeTransparent Me.hWnd, 255
        Timer1.Enabled = False
        Unload Me
          FrmKoneksi.Show
    End If
End Sub











Contoh Kasus Perancangan Form Koneksi

Sebuah sistem informasi yang memiliki banyak user (multi user) yang aktif secara bersamaan membutuhkan sebuah layar yang dapat memilih lokasi database pada komputer lain ataupun lokasi server. Untuk mendesign form koneksi dapat dilihat pada gambar di bawah ini:




Pengaturan Properties :
No
Object
Properties
Value
1
Form
Name
FrmKoneksi
Caption
Koneksi Database
BorderStyle
3 – Fixed Dialog
2
Combo Box
Name
cboServerName
3
TextBox
Name
txtDatabaseName
4
CheckBox
Name
ChkAutentik
Caption
Autentikasi NT
5
Command Button
Name
CmdCariDatabase
6
Command Button
Name
CmdConnect
7
Command Button
Name
CmdCancel
8
TextBox
Name
TxtUserName
9
TextBox
Name
TxtPassword
10
CommonDialog
Name
CdKoneksi
11
Label
Caption
Sesuai Di Form
Kode Program :
1
Private oSQLServerDMOApp As SQLDMO.Application
Public WithEvents oSQLServer As SQLDMO.SQLServer
2
Private Sub Form_Load()
 On Error Resume Next
 Call AturSkin(SkinFramework, Me)
 Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  chkAutentik.Value = vbChecked
 
  Dim i As Integer
  Set oSQLServerDMOApp = New SQLDMO.Application
 
  Dim namX As NameList
  Set namX = oSQLServerDMOApp.ListAvailableSQLServers
  cboServerName.AddItem "(local)"
  For i = 1 To namX.Count
    cboServerName.AddItem namX.Item(i)
  Next
  cboServerName.ListIndex = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
  If Not oSQLServer Is Nothing Then
    oSQLServer.Disconnect
  End If
  Set oSQLServer = Nothing
  Set oSQLServerDMOApp = Nothing
End Sub
3
Private Sub cboServerName_Change()
  If cboServerName.Text = "(local)" Then
    chkAutentik.Value = vbChecked
    Exit Sub
  End If
  chkAutentik.Value = vbUnchecked
End Sub

Private Sub cboServerName_Click()
  Call cboServerName_Change
End Sub

Private Sub chkAutentik_Click()
  If chkAutentik.Value = vbChecked Then
    txtPassword.Enabled = False
    txtUsername.Enabled = False
    chkAutentik.ForeColor = vbRed
  Else
    txtPassword.Enabled = True
    txtUsername.Enabled = True
    chkAutentik.ForeColor = vbWhite
  End If
End Sub
4
Private Sub cmdCariDatabase_Click()
  On Error Resume Next
  cdKoneksi.Filter = "SQL, Access (*.mdf);(*.mdb)|*.mdf;*.mdb"
  cdKoneksi.ShowOpen
  txtDatabaseName.Text = Left(cdKoneksi.FileTitle, Len(cdKoneksi.FileTitle) - 4)
End Sub

Private Sub cmdConnect_Click()
Me.Caption = "Koneksi sedang proses, mohon tunggu...!"
objServer = Trim(cboServerName.Text)
objDatabase = Trim(txtDatabaseName.Text)
objUserName = Trim(txtUsername.Text)
objPassword = Trim(txtPassword.Text)

On Error GoTo err_login
  Set conn = New ADODB.Connection
  If chkAutentik.Value = vbChecked Then
    strConnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
                "Persist Security Info=False;Initial Catalog=" & objDatabase
    conn.Open strConnect
  Else
  strConnect = "Provider=SQLOLEDB.1;Password=" & objPassword & " ;Persist Security Info=False;User ID=" & objUserName & _
  ";Initial Catalog=" & objDatabase & ";Data Source=" & objServer
    conn.Open strConnect
  End If
  Unload Me
  FrmLogin.Show
  Exit Sub
 
err_login:
If Err.Number = -2147467259 Then
Me.Caption = "Koneksi gagal..."
MsgBox "Komputer atas nama : '" & cboServerName.Text & "' tidak aktif" & Chr(13) & _
    "Aktifkan komputer tujuan terlebih dahulu.." & vbCrLf & _
    "Terimakasih..", vbInformation, "Koneksi gagal"
  End If
End Sub

Private Sub cmdCancel_Click()
  End
End Sub
 Catatan:
  1. Jalankan program dengan mengklik menu Run - Start atau klik ikon         pada toolbar atau tekan F5
  2. Jika berhasil tidak akan terjadi error (debug) dan sebaliknya.

Tidak ada komentar:

Posting Komentar