Visual Basic

Visual Basic (VB) is a computer programming language for the database.
Programming language commands are understood by the computer to perform certain tasks.
Visual Basic programming language, developed by Microsoft since 1991, preceding the development of the programming language BASIC (Beginner's All-purpose Symbolic Instruction Code) was developed in the era of the 1950s.
Visual Basic is a development tool that is a tool to create a variety of computer programs, especially those using the Windows operating system.
Visual Basic is a computer programming language that supports object (Object Oriented Programming = oop).

Menu Bar, used to select specific tasks such as save the project, open the project, etc.
Main Toolbar, is used to perform certain tasks quickly.
Project window, this window contains a description of all the modules that are in your applications. You can use the Toggle Folders icon to display the modules in the window in the sequential group or by name. You can use Ctrl + R to display the project window, or use the Project Explorer icon.
Form Designer window, this window is the place for you to design the user interface of your applications. So, this window-like canvas for a painter.
Toolbox window, this window contains the components you can use to develop the user interface.
Code window, is the place for you to write koding. You can display this window by using the combination Shift-F7.
Properties window is a list of properties that are currently selected object. For example you can change the color of any posts (foreground) and background color (background). You can use F4 to display the properties window.
Color Palette window, is the facility to quickly change the color of an object.
Form Layout window, showing how the form will be displayed during runtime.

Password characters (*)

You already know that on certain applications that use the password, a text box used to always display the password character asterisk (*) if you type something into it. This of course is that other people can not read the actual characters you type. To create a text box in order to remove the * characters (or even the other characters) is very simple, namely to fill in the characters you want on the property PasswordChar text box control. After that if you type something into the text box, the characters that appear are the characters you enter in the property is PasswordChar.

Center Screen

Often, if your application is run, set the application form on the monitor screen does not settle. Sometimes in the top left, sometimes in the middle, sometimes at the bottom. For you who like the tidiness, may feel this will annoy. It's a simple trick that form the application is always located in the middle of screen if executed, is to change the properties StartUpPosition a 2 - CenterScreen, or right-click on the image form Form Layout window, select Startup Screen Position Center

Adding a Control Array When Run-Time

Generally, we add controls to the form at the time of designing the form (at design time), but Visual Basic also provides a facility to increase the number of control array at run-time using the Load statement.

Example:

Create a form and add a Command Button. Change Indexnya properties with the number 0.

In the Command Button to add the program code, such as listing 2.

Listing 2. Click on Command1 Event

Private Sub Command1_Click (Index As Integer)

Load Command1 (1)

Command1 (1). Left = Command1 (0). Left

Command1 (1). Top = Command1 (0). Top + Command1 (0). Height

Command1 (1). Caption = "New Command"

Command1 (1). Visible = True

End Sub

Note that the procedure Command1_Click there Index As Integer parameter that should be added.

Run the application. If the Command Button is clicked, it automatically added a new Command Button right below it.

Nah, that tips and tricks on help you make your application with Visual Basic.

Tips n Tricks

Simple Tricks protect CD Collection | Tips Making Weakness Program | Password characters (*)
| Center Screen | Adding a Control Array When Run-Time

Contact Us

To contact us, you can ask via e-mail at khairul.annas @ gmail.com, or on annas_khairul@yahoo.co.id. Or you can also ask questions via YM! in: annas_khairul@yahoo.co.id

Thanks
Khairul Anas

Auto SmartCase

Procedure to change the small letters into capital letters automatically in accordance with the rules of writing, for example, small letters at the beginning of the word, small letters after the space / point.

Rem// AUTHOR

Nandy Novrizal (Original Source Code)

Rem// INTRODUCTION



Procedure to change the small letters into capital letters automatically in accordance with the rules of writing,

such small letters at the beginning of the word, small letters after the space / point.

Rem// PUBLIC PROCEDURE

Sub goSmartCase(TextBoxName As Control, KeyAscii As Integer)
On Error Resume Next
If Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = " " Or _
Mid(TextBoxName.Text, TextBoxName.SelStart,1) = "." _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "" Or _
Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = "(" _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "{" Or _
Mid(TextBoxName.Text,TextBoxName.SelStart, 1) = "[" _
Or Mid(TextBoxName.Text, TextBoxName.SelStart, 1) = "/" Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Else
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End If
End Sub

Rem// HOW TO USE
Private Sub Text1_KeyPress(KeyAscii As Integer)
goSmartCase Text1, KeyAscii
End Sub

Article

Data Report | Visual Basic

Access the Database with the same time

Have all the partners when we access the database and other users also do same? akbitanya what? Perhaps in the Client-Server architecture sometimes have access to the database by accident at the same time (same time). even world-class drivers michael summacker I even print the score, but on different data packet that is sent does not like drivers, equality can occur when we menyelect databse.


Option Explicit

Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Private Sub Form_Load()
Set rs = New ADODB.Recordset
Set cn = New ADODB.Connection

With cn
.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\oks.mdb"
.CursorLocation = adUseClient
.Open
End With
With rs
.ActiveConnection = cn
.LockType = adLockPessimistic
.Open "select * from barang"
End With
rs.MoveLast
If rs.RecordCount = 0 Then
Exit Sub
End If

If cn.BeginTrans = True Then
cn.BeginTrans
End If
rs.MoveFirst
Do Until rs.EOF
If rs("kodebarang") = "2004" Then
rs("kodebarang") = "2005"
rs.Update
End If
rs.MoveNext
Loop
If MsgBox("Apakah Anda yakin untuk menyimpan-nya?", _
vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
cn.CommitTrans
Else
cn.RollbackTrans
End If
End Sub

Source Code VB

how to remove the Close X button in the menu | How to make animation star | Search for words in ListBox | Retrieving Data / Pictures | Tips And Trick & Animation Form | How To Find Files with VB | Access database with the same time | Auto Smartcase

how to remove the Close X button in the menu

The fire Code Required

Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
(ByVal hMenu As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" _
(ByVal hwnd As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long

'Constant value for the operation menubar
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&

Public Sub HideMenuX(Form As Form)
Dim hSysMenu As Long, nCnt As Long
hSysMenu = GetSystemMenu(Form.hwnd, False)
If hSysMenu Then
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then

'Basic Menu is the number of 0 (0, 1, 2, 3 ...) RemoveMenu hSysMenu, nCnt - 1, _
MF_BYPOSITION Or MF_REMOVE

'Remove the separator line before the close RemoveMenu hSysMenu, nCnt - 2, _
MF_BYPOSITION Or MF_REMOVE
DrawMenuBar Form.hwnd
End If
End If
End Sub

Private Sub Command1_Click()
'call function HideMenu
HideMenuX Me
End Sub

How to make animation star

Animated images are often used to embellish the view, in the form vb we can also touch up the look with the animation. Here I give examples of animation in vb

Create a form with some labels and a timer, with propertis masing2 as follows:
Form -> backcolor = select color black, borderstyle-0 = none, 2 = windowstate-maximized.
Label1 dst ... -> Backstyle-transparant = 0, l = caption, font = webdings (size = 72), here I use the 35 labels (label1 name = s / d label35).
Timer1 -> interval = 100.

source code for the following:

Private Sub Timer1_Timer ()
Label1.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label2.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label4.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label5.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label6.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label7.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label8.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label9.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label10.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label11.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label12. ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label13.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label14.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label15.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label16.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label17.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label18.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label19.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label20.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label21.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label22.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) = Label23.ForeColor RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label24.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label25.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label26.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label27.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label28.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label29.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label30.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label31.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label32.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label33.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255) Label34.ForeColor = RGB ( Rnd * 255, Rnd * 255, Rnd * 255) Label35.ForeColor = RGB (Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

Simple Tricks protect CD Collection

Perhaps for those of you that have a CD collection software, music, video, and others have studied kesel ama temen without the permission of your CD collection you borrow, if at Untung cd still restore the situation seprti but what if the cd is even goresannya add? that have puzzled even mo nyuruh change what I can change no loss ......?


Perhaps for those of you that have a CD collection software, music, video, and others have studied kesel ama temen without the permission of your CD collection you borrow, if at Untung cd still restore the situation seprti but what if the cd is even goresannya add? that have puzzled even mo nyuruh change what I can change no loss?

Well here I have a few tips for your users visual basic. Tips are only valid for the Windows operating system but for those of you who like utak especial use on other operating systems. The principle that I want to do is as follows:

1. CD can only be used for the computer that our recommendations only.
2. CD will be out of the cdrom if it is not appropriate that we would want.

Now for those of you who may often berkutat with VB I do not think will have a problem with the work to be done or even this is a job peas. Use of the CD can only be on the computer we have recommendations how this can be done! Perhaps each person will have a different way but here I will submit one of the ways that can be used. How will I do is by reading the serial Disk on the computer. So why do I use this? This is because I take each Disk serialnya different on each operating system. So even if a Disk in the Disk, but if there is some operating system then serialnya akan different.

To sourcenya is as follows:

Source Code Form
---------------->

Private Sub Form_Load ()
Dim buffer As String * 255
Dim d As Long
Dim Y
X = GetPrivateProfileString ( "SERIAL", "NO", "(error)", _
buffer, 255, "C: \ bowoCD.ini") 'Read file
Y = Left (buffer, X)
If Y = "(error)" Then
retvalue = mciSendString ( "set CDaudio door open", _
retrunString, 127, 0) 'Exit Cd
End
Else
If Y = sn ( "c:") & "-" & sn ( "d:") Then
MsgBox "Selamat cDNYa USING Bowo eKOWIDODo", _
vbInformation, "Bowo INFO" 'Show message
End
Else
retvalue = mciSendString ( "set CDaudio door open", retrunString, _
127, 0) 'Exit Cd
End
End If
End If
End Sub


Source Code Module
----------------------->
Public Declare Function GetPrivateProfileString lib "kernel32" _
Alias "GetPrivateProfileStringA" (_ ByVal lpApplicationName
As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Long, ByVal _
lpFileName As String) As Long

Public Declare Function mciSendString lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Public Declare Function GetVolumeInformation lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As
Long, lpVolumeSerialNumber As Long, _ lpMaximumComponentLength
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize
As Long) As Long

Sn Public Function (ByVal RootPatch As String) As String
As String Dim vollabel
As Long Dim volsize
Dim Serial As Long
As Long Dim MaxLen
Dim Flags As Long
Dim name As String
As Long Dim Namesize
Dim s As String

If GetVolumeInformation (RootPatch, vollabel, volsize, serial, _
MaxLen, Flags, name, Namesize) Then
s = Format (Hex (series), "00000000")
sn = Left (s, 4) + "-" + Right (s, 4)
Else
sn = "0000-0000"
End If
End Function


Well after so you can mengeceknya first run with the Run or press F5 if it is correct then your cdrom akan keluar.
If you like it then has to be able to make the application exe from the File -> Make ... . exe. And wait until the process is complete save the document in your folder. Rename the file for example I cekcd.exe

The next step is to create applications that run when the CD input. How can I do with the make autorun cd autorun file to create. Open your text editor such as notepad and input source such as this

/--------------------- \
Source Code Aotorun
[autorun]
OPEN = cekcd.exe
ICON = cekcd.exe
\ ---------------------/


Save with the name autorun.inf on the map where you store cekcd.exe.

You see more in the table Source Code to the Form 5

GetPrivateProfileString ( "SERIAL", "NO", "(error)", buffer, 255, "C: \ bowoCD.ini")

Well here is c: \ bowoCD.ini the source file is being read
bowoCD.ini on kandar C with the name of the key and the Serial No and if
akan value not found (error). For that you need to create more
this file and stored on kandar C: \. To name the file as you can
but also to change the name of reading paper. Sourceya as
following:

Source Code Aotorun
[SERIAL]
NO = XXXX-XXXX-XXXX-XXXX

Save with the name and input value bowoCD.ini XXXX-XXXX-XXXX-XXXX appropriate serial Disk you. Now you're ready to burn your CD collection and do not forget to input file autoran.inf and cekcd.exe that you have made on the CD without any input in the map. To medapatkan serial is on the letter XXXX-XXXX-XXXX-XXXX, you can create applications using the distinctive Module Source Code and Source Code form, especially on line 11. May be used if there is such a question can ask on this web forum or ask directly to me.

Author: Bowo Ekowidodo @! @ Img11
Web: http://www12.brinkster.com/indocel/

Search for words in ListBox

'Copyright by x-vb @ jhie
'http://www.vbbego.cjb.net
'Author: x-vb @ jhie - 7/19/2004

Option explicit
Private Declare Function SendMessage lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
wMsg As Integer, ByVal wParam As Integer, _ lParam
As Any) As Long
Const LB_FINDSTRING = & H18F

Private Sub Form_Load ()
With List1
. Clear
. AddItem "CPU"
. AddItem "RAM"
. AddItem "ROM"
. AddItem "Cache"
. AddItem "motherboard"
. AddItem "Hard Disk"
. AddItem "Floppy Disk"
End With
End Sub

Private Sub Text1_Change ()
List1.ListIndex = SendMessage (List1.hWnd, _
LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub
> swap

Retrieving Data / Pictures

GetData function is used to retrieve the contents of the clipboard
can be a text or image.

Basic syntax:
Clipboard.Getdata ([format clipboard])

Clipboard format consists of several types of

Constant value description
-------------------------------------------------- -----
vbCFBitmap 2 Bitmap (. bmp files)
vbCFMetafile 3 Metafile (. wmf files)
vbCFDIB 8-Device independent bitmap (DIB)
vbCFPalette 9 Color palette


Example:

Dim Msg
On Error Resume Next
Msg = "Choose OK to load bitmap into the clipboard."
MsgBox Msg
Clipboard.Clear 'Clear the Clipboard.

'Take a picture of the file and save it to the clipboard
Clipboard.SetData LoadPicture ( "C: \ vbBego.BMP")

MsgBox "Showing a picture from the clipboard"
Picture = Clipboard.GetData () 'Copy from Clipboard.

Tips And Trick & Animation Form

You can simply copy and paste the per-example to try to script this ...


Example 1:
Private Sub Form_Unload(Cancel As Integer)
Me.BackColor = vbWhite ' warna belakang putih
WindowState = 2 ' maximized-kan
DrawWidth = 4 '/ ketebalan
For i = 1 To 16000
Bawah = Bawah + 1
Kanan = Kanan + 1
PSet (Rnd * Kanan, Rnd * Bawah), QBColor(Rnd * 15)
Next i
End Sub


Example 2:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cepat = 150
While Left + Width < left =" Left" top =" Top">



Example 3:
Private Sub Timer1_Timer()
Dim LingkaranX, LingkaranY, Radius
ScaleMode = 3
LingkaranX = ScaleWidth / 2
LingkaranY = ScaleHeight / 2
For Radius = 0 To 100
Circle (LingkaranX + Radius / 2, LingkaranY), Radius, RGB(Rnd * 215, Rnd * 55, Rnd * 15)
Next Radius
End Sub


Example 4:
Private Sub Form_Load()
Me.AutoRedraw = True
BackColor = 0
For i = 1 To 500
CurrentX = i * 100
CurrentY = i * 100
h = h & i
ForeColor = i * 10000
Print h
Next i
End Sub

Example 5:
Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form_MouseMove 1, 0, X, Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = "PosisiX=" & X & " - " & "PosisiY=" & Y
If Button = 1 Then
PSet (X, Y), vbBlue
End If
End Sub

How To Find Files with VB

Private Declare Function SearchTreeForFile Lib "imagehlp" _
(ByVal RootPath As String, ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Form_Load()


Dim tempStr As String, Ret As Long
tempStr = String(MAX_PATH, 0)
Ret = SearchTreeForFile("c:", "calc.exe", tempStr)
If Ret <> 0 Then
MsgBox "Lokasi file di " + Left$(tempStr, _
InStr(1, tempStr, Chr$(0)) - 1)
Else
MsgBox "File tidak ditemukan!"
End If
End Sub

Tips Making Weakness Program

In fact to avoid the breakthrough software that we may be quite difficult to make, yes, but here we strive to protect our semampu results of the paper itself is one.

Itung-itung effort we make in the cracker in membongkarnya he .. he ..


Among the colleagues who may still have what I have not
avoid or minimize weaknesses that made the program,
not so easy to crack by other people.

In fact, to avoid may be slightly difficult, but we do try
semampu protect our own what works one. Itung-itung
efforts we make in the cracker in membongkarnya he .. he ..



Oke aja directly to our main discussion, we Kalo liat some local programmers in making the program often compare the situation
a process with an object or a caption.

As an example that I often find spt this:

If cmdSave.Enabled = False Then
......
Else
......
End IF

Or

If cmdSave.Caption = "OK" Then
......
Else
......
End IF


Or

If cmdSave.Visible = True Then
......
Else
......
End IF

Should avoid such a process, why should be avoided?
he ... he .. surely you can right now many tools that can be
Property modify the object during a Run-Time, such as the
return the object to disable, change a caption, to activate the menubar
dll that is not active ...

We recommend using a variable for a condition for the benchmark,
so that in the more difficult to crack. (This program does not mean we
can not dicrack, but make it as a step only)

For programs that are associated with the database, do not forget to include the function pemblokan a special character. ('),--, Such as quotation marks or a semicolon (;) depends on a database that is used.
This is intended to avoid the breach to the application or to a system using the techniques SQLInjection.

Although this technique may have been spelled out and the ancient classics, but that spt is often found in some program that is so.


While the program for use Winsock component, such as, should the data / packet must be sent in enskripsi first. To be protected from piracy or data packets that dibajak by the snifer. usually use the program packet sniffer to view.

Then use the initial connection, or in other words use a password to connect to the program that we create. So that other people can try to enter our disconnect automatically.


To compile a project, the stages become executable file, do not select the type of P-Code, as akan dicrack with easy to use program WKTVBDE (WKTVBDebugger) made Mr. Mr & Silver. Snow.
(To learn this, please get your information in the
http://vbdebug.cjb.net)

Try to compile the executable in the form of a Native-Code, hua .. but h. ..
too compile with this type can also still in use crack SmartCheck made NuMega. but do not worry more
difficult than Native-Code P-Code @! img1 @

The next step to protect the program you use programs
Compressor executable Detection and BreakPoint.
This is done to avoid permanent changes in the resource and
check the program debugger is active in memory, usually
debugger program that is widely used SoftICe.

In fact many programs that commercial Compressor such as:

- 32LITE v0.02d
- Six-Two-Four
- AinExe v2.23
- APack v0.99b
- APLib v0.20b
- AVPack v1.22
- Ax v2.2
- CauseWay Compressor
- Diet v1.45f
- EPACK 1.6
- LGLZ v1.04b
- LzExe v0.91
- Megalite v1.20a +
- PACK v2.01
- PKLite v2.01
- PK-Smart v1.0b
- PMODE / W v1.33
- Pro-Pack v2.19
- RJCRUSH 1:10
- RUCC/386 v1.01
- SYSPACK v0.1 1
- T-PACK v0.5
- Etc. ...

(to get the above software can be searched using google or the site can http://www.exetools.com)

you can use one of them. But I suggest that the search does not
popular or what you can create your own @! img16 @. Usually programs like Compressor popular programs have to return it
back to the original form of its executable, or in other words can be Decompress again.

In fact there have also use Compressor program, this can reduce the size of executable files and can change the structure of the exe which there plaintext characters to be strange:)

Such protection is more effective than lumayan no protection at all. And will make the new cracker, but how this will be easier in perforated by the old cracker.

Ok, I just think he is ... ... .. he may be among colleagues
I like, even laughing can view this article.
hik ... hik .. Yes it is fair, the articles I write for the set aside that have not been a newbie at all ... .. ops, I also still looking for and much to learn, .. so we end the course of writing this article ok bro?

Data Report

Data Report is a facilities program (module) that is included in the
applications Visual Basic (VB6) to make a report, in which
source data comes from the Data Environment Designer (DED).
While the Data Environment is an object of men -
specify the relationship to the data source (database) and men -
dekripsikan statements (criteria) of the data / records that you want to in -
get.
Indeed, the application program, Data Report is rarely used,
more general applications use Crystal Reports program. This
the specification (statements), which declared the DED
can not be modified through the program code so that the information
Data that is displayed through the Report seem rigid (not flexible),
not so many benefits.
Although the benefits of the Data Report is very minimal, no one
Data Report to learn as a way of
show the data / reports in a supplied preformatted form.
To the authors will guide you to see how the record
AlbumList shown from the table. Proceed with the case reports
transactions as sales illustration to show like -
which records from multiple tables together in a report.