VB6 Programming

Now we will discuss a bit about visual basic programming, To the knowledge it gains do not quickly disappear from our memory space.


Button Simpan

Private Sub cmdSimpan_Click()

Set rs = New Recordset

rs.Open "dosen", db, adOpenStatic, adLockOptimistic

rs.AddNew

rs.Fields("nip") = txtNIP.Text

rs.Fields("nama") = txtNama.Text

rs.Fields("tempat_lahir") = txtTempatLahir.Text

rs.Fields("tanggal_lahir") = dTglLahir.Value

rs.Fields("lulusan") = txtLulusan.Text

rs.Fields("jabatan") = txtJabatan.Text

If Option1.Value = True Then

    rs.Fields("jekel") = "Laki-laki"

ElseIf Option2.Value = True Then

    rs.Fields("jekel") = "Perempuan"

End If

rs.Update

MsgBox "Data Sudah Disimpan", vbOKOnly, "Info"

Set rs = Nothing

End Sub

Button Keluar

Private Sub cmdKeluar_Click()

Unload Me

End Sub

Hiren's BootCD + XP + Windows 7 / Vista In A Flash Disk

Multy purpose PC user for the boot is very much help, to incorporate it into the USB flash it takes a special way. To merge the Hiren's BootCD, Windows XP, and Windows Vista / 7 in a flash disk, follow these steps:

That need to be prepared:

A. Hiren's BootCD (version 9.7 and above recommended)
2. CD Installer Windows XP (SP3 recommendation)
3. Windows Installer DVD Vista/Windows7
4. USB_MultiBoot_10
5. grub4dos

Integration of Windows XP
 
-Ektsrak USB multiboot 10 to the hard drive (eg C: \ USB_MultiBoot_10 \). Insert the Windows XP CD into the CD / DVD drive or mount with PowerISO or daemontools.
 -Plug the USB FD USB_MultiBoot_10 then from the folder, run the file USB_MultiBoot_10.cmd.
-Windows will prompt window appears, press any key to begin (Press any key to continue ...).
-Next is to format the USB flash disk. There are two tools which are provided to format the flash disk:
     -PeToUSB: masimal 2GB flash disk with FAT file system.
     -HP USB Disk Storage Format Tool: Flash disks over 2GB with FAT & NTFS file system.
Select the type tool to its FD format (I use the HP USB Disk Storage) and press the "H" and press ENTER.
-Make sure the name of the USB Flash disk has been stamped on the box Device HP USB Disk Storage Format and select NTFS file system so that the installation process is much faster than FD. When ready, press the Start button. Press Yes to the question of message-box of the HP USB tool.
-When the formatting process is complete, click the "Close" and you will be transferred to the following window:
-Press the number "1" on the keyboard and then press ENTER. Select the location of the Windows XP drive.
-Click the Yes button on the box Install Unattended? - XP Setup UserData winnt.sif and $ OEM in $ that appears. Further information please fill in user name, organization, XP product key, computer name, password, and so the same as doing a normal installation of XP CD installer. So, I'll no longer need to fill the data when installing XP installation from the Flash disk.
-Then press the number "2" then ENTER. Select locations FD drive. 
-Type the number "3" and then press ENTER to start copying the files into the XP installation FD. Read the question boxes that appear and do not we just.
-Stages of manufacture USB XP installation is complete, press "Q" to close USB_MultiBoot_10.cmd. 

Integration Hiren's BootCD

- Insert / mount CD / ISO Hiren's the CD / DVD-ROM.
- Copy HBCD folder and file autorun.inf from the drive into Hiren's BootCD FD. 
- Extract the downloaded file grub4dos.zip, then copy the file and the file menu gldr. copy of the results of the extraction into the FD.
- Now, the FD has to be USB multiboot with Windows XP and Hiren's BootCD therein. Live set BIOS PC / laptop that can boot from USB FD. 

Integration of Windows 7/Vista

-Copy all the contents of DVD into the Windows 7/Vista FD. Open the file menu.lst in the FD with notepad and add the following line in it: 

Code:
      

title Windows 7 
root (hd0,0) 
chainloader /bootmgr

Done! 

May be useful.