Rizq Technology - Exploring Your iDea. » Visual Basic http://rizqtech.net All about My Experiences, Knowledge and Thoughts. Sat, 14 Jan 2012 17:20:57 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Aplikasi Sederhana ODBC Visual Basic (Part 3). http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-3/ http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-3/#comments Tue, 09 Feb 2010 08:23:01 +0000 Rizky http://rizqtech.net/?p=751 17. Now we can create report and fill command “print”

Private Sub Command5_Click()
DataReport1.Show
End Sub

18. Add data enviroment.

19. Configuring properties and connection

20. Add Data report and configuring properties.

21. And you are DONE, running your application(F5) and Click print to see the result.

Violaa…. Thanks for your time

;)

Related Post

]]> http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-3/feed/ 2 Aplikasi Sederhana ODBC Visual Basic (Part 2). http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-2/ http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-2/#comments Tue, 09 Feb 2010 06:41:45 +0000 Rizky http://rizqtech.net/?p=743 8. Kembali pada project1.vbp pada program VB dan design form seperti di bawah ini.

9. Buatlah sebuah sample data di dalam tabel user.

10.  Don’t forget to pointing DataSource for DataGrid1 and choose Adodc1.

11. Double Click Command and fill with Command Script

Private Sub Command1_Click() 'Add Command
Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click() 'Edit Command
Adodc1.Recordset.Update
End Sub

Private Sub Command3_Click()'Save Command
Adodc1.Recordset.Save
End Sub

Private Sub Command4_Click()'Delete Command
Adodc1.Recordset.Delete
End Sub

Private Sub Command6_Click()'Close Command
End
End Sub

12.  And running your application(F5).

13.  Click Add to adding record

14. Select record, Click Edit to Update record and then Save.

15. Select record, Click Delete to trash record.

16.  Lalu berlanjut pada part 3 untuk membuat report-nya.

Related Post

]]> http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-2/feed/ 1 Aplikasi Sederhana ODBC Visual Basic (Part 1). http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-1/ http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-1/#comments Tue, 09 Feb 2010 04:30:12 +0000 Rizky http://rizqtech.net/?p=736 Tutorial seri ini saya akan coba sharing mengenai bagaimana membuat aplikasi sederhana yang terkoneksi dengan database dan menyajikan report dengan menggunakan VB6.

Tutorial Details

  • Language: Visual Basic
  • Difficulty: Beginner
  • Estimated Completion Time: 1 Hour
  • Required : Visual Basic 6

1. Pertama siapkan terlebih dahulu “Data Sources (ODBC)”

Dalam tutorial ini saya menggunakan Windows XP

Start -> Control Panel -> Administrative Tools -> Data Sources(ODBC) -> Tab UserDSN -> Klik Add -> Pilih “Driver do Microsoft Access(*.mdb)” -> Finish

2. Setup your ODBC source

3. Sampai di sini kita belum menentukan “Select Database” yang ingin kita gunakan dan database tersebut akan kita create terlebih dahulu di aplikasi VB-nya.

4. Sekarang buka VB6 and (CTRL-N) untuk buka project baru lalu Save Project, Save Form1.frm di directory yang anda tentukan.

5. Klik Add-Ins -> Visual Data Manager

6. Kita balik lagi pada langkah Pertama untuk configure ulang select database yang akan kita gunakan nanti.

7. Sampai di sini kita siap untuk membuat aplikasi di program VB-nya dengan database standar dari visual basic dan berlanjut pada PART 2

Related Post

]]> http://rizqtech.net/2010/02/09/aplikasi-sederhana-odbc-visual-basic-part-1/feed/ 1 Visual Basic#5 http://rizqtech.net/2009/05/16/visual-basic5/ http://rizqtech.net/2009/05/16/visual-basic5/#comments Sat, 16 May 2009 12:13:49 +0000 Rizky http://rizqtech.net/?p=678 This scenario like previoust post – i guessed you’ve something about it.

Source Code 1 :


Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Enabled = False
Form3.Visible = False

End Sub

Source Code 2 :


Private Sub Command1_Click()
If Text1.Text = "rizky" And Text2.Text = "passwordgue" Then
        Text1.Enabled = False
        Text2.Enabled = False
        Form3.Show
        Form1.Enabled = False
        Form2.Enabled = False
        Command1.Enabled = False

    ElseIf Text1.Text = "rizky" And Text2.Text <> "passwordgue" Then

        Text1.Enabled = False
        Text2.Text = ""
        Command1.Enabled = True
        MsgBox "Username Anda Benar, Password Anda SALAH"
    ElseIf Text1.Text <> "rizky" And Text2.Text = "passwordgue" Then

        Text1.Text = ""
        Text2.Enabled = True
        Command1.Enabled = True
        MsgBox "Username Anda SALAH Tetapi, Password Anda Benar"

    Else
        MsgBox "Username dan Passwordnya anda SALAH !"
        Text1.Text = ""
        Text2.Text = ""

    End If
End Sub

Private Sub Command2_Click()
Form1.Show
Form1.Enabled = True

End Sub

Source Code 3 :

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Finished_Click()
End
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
End Sub

Private Sub Option10_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <> var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 <= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option12_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
hasil = Not (var1)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option13_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var1 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 Or var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
var1 = IIf(Text1.Text = "True", -1, 0)
var1 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option2_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 * var2
Label3.Caption = hasil
End Sub

Private Sub Option3_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub

Private Sub Option4_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 - var2
Label3.Caption = hasil
End Sub

Private Sub Option5_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 / var2
Label3.Caption = hasil
End Sub

Private Sub Option6_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 = var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 >= var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 < var2)
Label3.Caption = Format(hasil, "True/False")
End Sub

SCREENSHOOT BELOW :

login1

login2

apps-operator

Source Code Download Here and Again, i hope u Enjoy !

Random Posts

]]> http://rizqtech.net/2009/05/16/visual-basic5/feed/ 0 Visual Basic#4 http://rizqtech.net/2009/05/16/visual-basic4/ http://rizqtech.net/2009/05/16/visual-basic4/#comments Sat, 16 May 2009 02:01:02 +0000 Rizky http://rizqtech.net/?p=668 Today we can create a scenario to sharpen our skills.

-Create a form for login. if user click LOGIN, it will be redirect to another form called form2, if they’re click EXIT and program will be terminate.

-Create form2 containing login credentials to authorize users, if users success they will be redirect to another form, called form3 containing CORE Applications. if not valid, users will back in form2 to authorize them.

-Create form3, containing program to calculate triangles and squares. and give a little condition.

Source Code Form1.

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Form2.Show
Form1.Enabled = False
Form3.Visible = False

End Sub

Source Code Form2.

Private Sub Command1_Click()
If Text1.Text = "99999999" And Text2.Text = "rizq" And Text3.Text = "basic" Then
        Text1.Enabled = False
        Text2.Enabled = False
        Text3.Enabled = False
        Form3.Show
        Form1.Enabled = False
        Form2.Enabled = False
        Command1.Enabled = False

    ElseIf Text1.Text = "99999999" And Text2.Text = "rizq" And Text3.Text <> "basic" Then

        Text1.Enabled = False
        Text2.Enabled = False
        Command1.Enabled = False
        MsgBox "User dan NIM Anda Benar, Password Anda salah"
    ElseIf Text1.Text <> "99999999" And Text2.Text = "rizq" And Text3.Text = "basic" Then

        Text1.Enabled = False
        Text2.Enabled = False
        Command1.Enabled = False
        MsgBox "User dan Password Anda Benar, NIM Anda salah"

    ElseIf Text1.Text = "99999999" And Text2.Text <> "rizq" And Text3.Text = "basic" Then

        Text1.Enabled = False
        Text2.Enabled = False
        Command1.Enabled = False
        MsgBox "User dan Password Anda Benar, USER Anda salah"
    Else
        MsgBox "User,NIM dan Passwordnya Salah !"
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""

    End If
End Sub

Private Sub Command2_Click()
Form1.Show
Form1.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

Source Code Form3.


Dim var1 As Single
Dim var2 As Single
Dim var4 As Single
Dim var5 As Single
Dim hasil1 As Single
Dim hasil2 As Single

Private Sub Command1_Click()

var1 = Text1.Text
var2 = Text2.Text
var3 = 2
kali = var1 * var2
hasil1 = kali / 2
Text3.Text = hasil1

If hasil1 < 10 Then
       MsgBox "SEGITIGA KECIL"

    End If

End Sub

Private Sub Command2_Click()

var4 = Text4.Text
var5 = Text5.Text
hasil2 = var4 * var5
Text6.Text = hasil2

 If hasil2 < 15 Then
        MsgBox "PERSEGI KECIL"

     End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

SCREENSHOOT BELOW :

login-auth
apps-form3
apps-2-form3
apps-3-form3

Source code download here

That's all, I Hope you learn something about it.

Random Posts

]]> http://rizqtech.net/2009/05/16/visual-basic4/feed/ 1