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:
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:
Jalankan program dengan mengklik menu Run - Start atau klik ikon pada toolbar atau tekan F5- Jika berhasil tidak akan terjadi error (debug) dan sebaliknya.
0 komentar