Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Membuat Button Dengan Icon Glass (VB)



Pasti kawan2 ada yang suka mengalami saat menambahkan image di CommandButton ada icon yang ga kompatible,biasanya muncul pesan ERROR “Invalid Picture Format”
Nah disini ada sedikit pemecahan permasalahana dari error diatas,ketikan listing berikut di form:

Listing


Nah sekarang coba kalian tambahkan CommandButton di Form vb,dan Pilih Image yang Gloss atau Vista Style.Dan Ubah Style menjadi Grafis.
maka Hasilnya akan seperti gambar dibawah :
Sumber : http://cakcaknaplok.wordpress.com

Download
 ms_visual_studio

Error umum di VB



Perangkap error dapat terjadi ketika aplikasi Anda sedang dijalankan. Beberapa perangkap error juga dapat terjadi saat pengembangan atau ketika peng-compile-an suatu aplikasi yang Anda buat. Anda dapat mengetest dan menanggapi error yang terjadi menggunakan statement "On Error" dan object Err. Nomor error dalam range 1 sampai 1000 telah disediakan untuk digunakan di Visual Basic pada masa-masa selanjutnya.
Daftar perangkap error di bawah merupakan perangkap error yang umum terjadi di Visual Basic ditambah dengan error umum yang berhubungan dengan suatu object umum tertentu, sedangkan untuk beberapa object lainnya, seperti misalnya ADO, atau Datagrid, atau yang lainnya, memiliki daftar perangkap error tersendiri, terpisah dari daftar perangkap error di bawah ini.
------------------------------------------------------------------------
Code Message/Description
------------------------------------------------------------------------
3 Return without GoSub
5 Invalid procedure call
6 Overflow
7 Out of memory
9 Subscript out of range
10 This array is fixed or temporarily locked
11 Division by zero
13 Type mismatch
14 Out of string space
16 Expression too complex
17 Can't perform requested operation
18 User interrupt occurred
20 Resume without error
28 Out of stack space
35 Sub, Function, or Property not defined
47 Too many DLL application clients
48 Error in loading DLL
49 Bad DLL calling convention
51 Internal error
52 Bad file name or number
53 File not found
54 Bad file mode
55 File already open
57 Device I/O error
58 File already exists
59 Bad record length
61 Disk full
62 Input past end of file
63 Bad record number
67 Too many files
68 Device unavailable
70 Permission denied
71 Disk not ready
74 Can't rename with different drive
75 Path/File access error
76 Path not found
91 Object variable or With block variable not set
92 For loop not initialized
93 Invalid pattern string
94 Invalid use of Null
97 Can't call Friend procedure on an object that is not an
instance of the defining class
98 A property or method call cannot include a reference to
a private object, either as an argument or as a return value
260 No timer available
282 No foreign application responded to a DDE initiate
285 Foreign application won't perform DDE method or operation
286 Timeout while waiting for DDE response
287 User pressed Escape key during DDE operation
288 Destination is busy
290 Data in wrong format
293 DDE Method invoked with no channel open
294 Invalid DDE Link format
295 Message queue filled; DDE message lost
296 PasteLink already performed on this control
297 Can't set LinkMode; invalid LinkTopic
298 System DLL 'dll' could not be loaded
320 Can't use character device names in file names: 'item'
321 Invalid file format
322 Can’t create necessary temporary file
325 Invalid format in resource file
326 Resource with identifier 'item' not found
327 Data value named not found
328 Illegal parameter; can't write arrays
335 Could not access system registry
336 Component not correctly registered
337 Component not found
338 Component did not run correctly
339 Object server 'item' not correctly registered
or not found (Error 339)
340 Control array element 'item' doesn't exist
341 Invalid control array index
342 Not enough room to allocate control array 'item'
343 Object not an array
344 Must specify index for object array
345 Reached limit: cannot create any more controls on this form
360 Object already loaded
361 Can't load or unload this object
362 Can't unload controls created at design time
363 ActiveX control 'item' not found
364 Object was unloaded
365 Unable to unload within this context
366 No MDI form available to load
367 Can't load (or register) ActiveX control: 'item'
368 The file 'item' is out of date. This program requires
a newer version
369 Operation not valid in a DLL
370 The ActiveX Designer's Type Information does not match
what was saved. Unable to Load
371 The specified object can't be used as an owner form for Show()
378 'item' cannot be set while loading
379 You can't put a Default or Cancel button on a Property Page
380 Invalid property value
381 Invalid property array index
382 'Item' property cannot be set at run time
383 'Item' property is read-only
384 A form can't be moved or sized while minimized or maximized
385 Must specify index when using property array
387 'Item' property can't be set on this control
388 Can't set Visible property from a parent menu
389 Invalid key
393 'Item' property cannot be read at run time
394 'Item' property is write-only
395 Cannot use separator bar as menu name for this control
396 'Item' property cannot be set within a page
397 Can't load, unload, or set Visible property for
top level menus while they are merged
398 Client Site not available
399 You can't put a Default or Cancel button on a User Control
unless its DefaultCancel property is set
400 Form already displayed; can't show modally
401 Can't show non-modal form when modal form is displayed
402 Must close or hide topmost modal form first
403 MDI forms cannot be shown modally
404 MDI child forms cannot be shown modally
405 Unable to show modal form within this context
406 Non-modal forms cannot be displayed in this host application
from an ActiveX DLL
419 Permission to use object denied
422 Property not found
423 Property or method not found
424 Object required
425 Invalid object use
426 Only one MDI Form allowed
427 Invalid object type; Menu control required
428 Popup menu must have at least one submenu
429 License information for this component not found. You do not have
an appropriate license to use this functionality in the
design environment
430 Class doesn't support Automation
432 File name or class name not found during Automation operation
438 Object doesn't support this property or method
440 Automation error
442 Connection to type library or object library for remote process
has been lost
443 Automation object doesn't have a default value
444 Method not applicable in this context
445 Object doesn't support this action
446 Object doesn't support named arguments
447 Object doesn't support current locale setting
448 Named argument not found
449 Argument not optional or invalid property assignment
450 Wrong number of arguments or invalid property assignment
451 Object not a collection
452 Invalid ordinal
453 Specified not found
454 Code resource not found
455 Code resource lock error
457 This key is already associated with an element of this collection
458 Variable uses a type not supported in Visual Basic
459 This component doesn't support the set of events
460 Invalid Clipboard format
461 Method or data member not found
462 The remote server machine does not exist or is unavailable
463 Class not registered on local machine
480 Can't create AutoRedraw image
481 Invalid picture
482 Printer error
483 Printer driver does not support specified property
484 Problem getting printer information from the system.
Make sure the printer is set up correctly
485 Invalid picture type
486 Can't print form image to this type of printer
490 Top-level or invalid menu specified as PopupMenu default
520 Can't empty Clipboard
521 Can't open Clipboard
523 The data binding DLL, 'item', could not be loaded
524 'item'
525 Data Access Error
527 The given bookmark was invalid
536 Could not lock the database
537 Could not access the desired Column
541 Could not lock the database
542 The row has been deleted since the update was started
545 Unable to bind to field: 'item'
672 DataObject formats list may not be cleared or expanded
outside of the OLEStartDrag event
673 Expected at least one argument
674 Illegal recursive invocation of OLE drag and drop
675 Non-intrinsic OLE drag and drop formats used with
SetData require Byte array data. GetData may return
more bytes than were given to SetData
676 Requested data was not supplied to the DataObject
during the OLESetData event
688 Failure in AsyncRead
689 PropertyName parameter conflicts with the PropertyName
of an AsyncRead in progress
690 Can't find or load the required file urlmon.dll
693 An unknown protocol was specified in Target parameter
735 Can't save file to TEMP directory
744 Search text not found
746 Replacements too long
31001 Out of memory
31004 No object
31018 Class is not set
31027 Unable to activate object
31032 Unable to create embedded object
31036 Error saving to file
31037 Error loading from file





Sumber : Bang MasinoRight hug

Latihan Program Rental Kendaraan (delphi)



1. Buat Project : Pengembalian.dpr
2. Buat Tabel
StarTabel : Kendaraan
Field Type     Size    Key
Kd_kendaraan   A      5 *
Jenis   A     20
Harga   N
Left hugIsi Data sebagai berikut:
Kd_kendaraan Jenis Harga
KM001 Mobil 1500000
KM002 Motor 800000
StarTabel: Pengembalian
Field    Type     Size    Key
No_kembali     A 5 *
Tgl_kembali     D
Kd_kendaraan     A 5
Lama     N
Status     A 30
Denda     N
Biaya_status     N
Total_biaya     N
clip_image002
Buat Form: F_pengembalian.pass
3. Ketentuan
- Saat form running,semua editbox bersih dan non aktif,
- Klik ADD,maka no kembali dan tanggal kembali tampil.
- Input Kode kendaraan,saat di ENTER maka jenis dan harga tampil
- Jika Lama hari lebih dari 3 maka denda 1000 dikali dengan kelebihan hari
- Jika status Rusak,maka biaya status 350.000
- Status Hilang maka biaya status sebesar harga * 10
- Jika utuh maka biaya status 0.
4. Input uang bayar,saat di ENTER maka Uang Kembali tampil.
Listing :
unit FORM;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    eNoKem: TEdit;
    eTgl: TEdit;
    eKode: TEdit;
    cMobil: TCheckBox;
    cMotor: TCheckBox;
    eHarga: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    eLama: TEdit;
    rRusak: TRadioButton;
    rHilang: TRadioButton;
    rUtuh: TRadioButton;
    eSub: TEdit;
    eDenda: TEdit;
    eBy_status: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    eTotal: TEdit;
    eUbay: TEdit;
    eUkem: TEdit;
    bAdd: TButton;
    bSave: TButton;
    bExit: TButton;
    DBGrid1: TDBGrid;
    tb_kendaraan: TTable;
    tb_kembalian: TTable;
    ds_kendaraan: TDataSource;
    ds_Kembali: TDataSource;
    procedure FormActivate(Sender: TObject);
    procedure bAddClick(Sender: TObject);
    procedure eKodeKeyPress(Sender: TObject; var Key: Char);
    procedure eLamaKeyPress(Sender: TObject; var Key: Char);
    procedure rRusakClick(Sender: TObject);
    procedure rHilangClick(Sender: TObject);
    procedure rUtuhClick(Sender: TObject);
    procedure eUbayKeyPress(Sender: TObject; var Key: Char);
    procedure bSaveClick(Sender: TObject);
    procedure bExitClick(Sender: TObject);
  private
    { Private declarations }
  public
  procedure aktif;
  procedure nonaktif;
  procedure bersih;
  procedure tampil;
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure tform1.bersih;
begin
    eNoKem.clear;
    eTgl.clear;
    eKode.clear;
    cMobil.checked:=false;
    cMotor.checked:=false;
    eHarga.clear;
    eLama.clear;
    eSub.clear;
    eDenda.clear;
    eBy_status.clear;
    eTotal.clear;
    eUbay.clear;
    eUkem.clear;
    rRusak.checked:=false;
    rHilang.checked:=false;
    rUtuh.checked:=false;
end;
procedure tform1.aktif;
begin
    eNoKem.enabled:=true;
    eTgl.enabled:=true;
    eKode.enabled:=true;
    cMobil.enabled:=true;
    cMotor.enabled:=true;
    eHarga.enabled:=true;
    eLama.enabled:=true;
    eSub.enabled:=true;
    eDenda.enabled:=true;
    eBy_status.Enabled:=true;
    eTotal.Enabled:=true;
    eUbay.Enabled:=true;
    eUkem.Enabled:=true;
    rRusak.Enabled:=true;
    rHilang.Enabled:=true;
    rUtuh.Enabled:=true;
end;
procedure tform1.nonaktif;
begin
    eNoKem.enabled:=false;
    eTgl.enabled:=false;
    eKode.enabled:=false;
    cMobil.enabled:=false;
    cMotor.enabled:=false;
    eHarga.enabled:=false;
    eLama.enabled:=false;
    eSub.enabled:=false;
    eDenda.enabled:=false;
    eBy_status.Enabled:=false;
    eTotal.Enabled:=false;
    eUbay.Enabled:=false;
    eUkem.Enabled:=false;
    rRusak.Enabled:=false;
    rHilang.Enabled:=false;
    rUtuh.Enabled:=false;
end;
procedure tform1.tampil;
begin
eHarga.Text:=tb_kendaraan['harga'];
if tb_kendaraan['JENIS']='MOBIL' then
begin
  cMobil.Checked:=true;
  cMotor.Checked:=false;
end
else if tb_kendaraan['JENIS']='MOTOR' then
begin
  cMobil.Checked:=false;
  cMotor.Checked:=true;
end
else
begin
  cMobil.Checked:=false;
  cMotor.Checked:=false;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
bersih;
nonaktif;
end;
procedure TForm1.bAddClick(Sender: TObject);
var no:integer;
begin
no:=tb_kembalian.RecordCount+1;
eNoKem.Text:='DN' + '00'+(inttostr(no));
eTgl.Text:=datetostr(date);
ekode.Enabled:=true;
eKode.SetFocus;
end;
procedure TForm1.eKodeKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if tb_kendaraan.FindKey([eKode.Text]) then
begin
tampil;
elama.Enabled:=true;
eLama.SetFocus;
end
else
begin
ShowMessage('Kode Tidak Ada');
eKode.Clear;
eKode.SetFocus;
end;
end;
end;
procedure TForm1.eLamaKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if strtofloat(eLama.Text)>3 then
  eDenda.Text:=floattostr((StrToInt(elama.Text)-3)*1000)
else
  eDenda.Text:='0';
  rRusak.Enabled:=true;
  rHilang.Enabled:=true;
  rUtuh.Enabled:=true;
end;
end;
procedure TForm1.rRusakClick(Sender: TObject);
begin
eBy_status.Text:='350000';
esub.Text:=floattostr(strtofloat(eHarga.Text)*strtofloat(eLama.Text));
eTotal.Text:=floattostr(StrToFloat(eSub.Text)+strtofloat(edenda.Text)+strtofloat(eBy_status.Text));
eubay.Enabled:=true;
eubay.SetFocus;
end;
procedure TForm1.rHilangClick(Sender: TObject);
begin
eBy_status.Text:=floattostr(StrToFloat(eHarga.Text)*10);
esub.Text:=floattostr(strtofloat(eHarga.Text)*strtofloat(eLama.Text));
eTotal.Text:=floattostr(StrToFloat(eSub.Text)+strtofloat(edenda.Text)+strtofloat(eBy_status.Text));
eubay.Enabled:=true;
eubay.SetFocus;
end;
procedure TForm1.rUtuhClick(Sender: TObject);
begin
eBy_status.Text:='0';
esub.Text:=floattostr(strtofloat(eHarga.Text)*strtofloat(eLama.Text));
eTotal.Text:=floattostr(StrToFloat(eSub.Text)+strtofloat(edenda.Text)+strtofloat(eBy_status.Text));
eubay.Enabled:=true;
eubay.SetFocus;
end;
procedure TForm1.eUbayKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  eUkem.Text:=floattostr(StrToFloat(eUbay.Text)-StrToFloat(eTotal.Text));
end;
procedure TForm1.bSaveClick(Sender: TObject);
begin
tb_kembalian.Append;
tb_kembalian['no_kembali']:=eNoKem.Text;
tb_kembalian['tgl']:=date;
tb_kembalian['kd_kendaraan']:=eKode.Text;
tb_kembalian['lama']:=eLama.Text;
if rRusak.Checked=true then
    tb_kembalian['status']:='RUSAK'
else if rHilang.Checked=true then
    tb_kembalian['status']:='HILANG'
else
    tb_kembalian['status']:='UTUH';
tb_kembalian['denda']:=eDenda.Text;
tb_kembalian['by_status']:=eBy_status.Text;
tb_kembalian['totbay']:=eTotal.Text;
tb_kembalian.Post;
Application.MessageBox('Data Berhasil Disimpan','Simpan',MB_ICONINFORMATION);
bersih;
nonaktif;
end;
procedure TForm1.bExitClick(Sender: TObject);
begin
if (Application.MessageBox('Keluar aplikasi???','Pesan',MB_ICONQUESTION+MB_OKCANCEL)=idok)then
close;
end;
end.

Download Source code silahkan klik gambar dibawah
CP Right hug Download

Latihan Program PENGGAJIAN



1. Buat Tabel Karyawan
Field Type    Size   Key
Kdkary A 5 *
Nmkary     A 20
Jabatan A 20
Gapok N
* Isi Tabel Karyawan
Kdkery     Nmkary Jabatan Gapok
K0001     Ratih Instruktur 1000000
K0002          Deni Indrawan   TS 900000
K003     Citra Angelin Assistent Lab   800000
2. Buat Tabel Penggajian
Field    Type     Size    Key
Noslip     A      6 *
Tgl     D
Kdkary     A      5
Tunjangan     N
PPH     N
Gaber     N
  1. Buat Form : Penggajian.pass
clip_image001
  1. Ketentuan
- Klik Add editbox bersih, tanggal & No Slip tampil otomatis
- Kode Karyawan di input ketika di enter maka tampil nama karyawan, jabatan dan gaji pokok tampil, jika data karyawan tidak ada maka tampil pesan “data tidak ada”
- Tunjangan Di isi ketika di enter pph dan gaji bersih tampil
PPh 5% dari (gapok+tunjangan)
Gaji bersih=gapok+tunjangan-pph
- Click Save maka data akan tersimpan di tabel penggajian
- Klik Exit maka form akan tertutup
CODING
unit PENGGAJIAN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label10: TLabel;
Label11: TLabel;
Edit8: TEdit;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Table2: TTable;
procedure Button1Click(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
procedure bersih;
procedure aktif;
procedure nonaktif;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure tform1.aktif;
begin
edit1.Enabled:=true;
Edit2.Enabled:=true;
Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
Edit7.Enabled:=true;
Edit8.Enabled:=true;
end;
procedure tform1.nonaktif;
begin
edit1.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
Edit5.Enabled:=false;
Edit6.Enabled:=false;
Edit7.Enabled:=false;
Edit8.Enabled:=false;
end;
procedure tform1.bersih;
begin
edit1.text:='';
Edit2.text:='';
Edit3.text:='';
Edit4.text:='';
Edit5.text:='';
Edit6.text:='';
Edit7.text:='';
Edit8.text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
no:integer;
begin
no:=Table2.RecordCount+1;
Edit2.Text:=inttostr(no);
Edit1.Text:=datetostr(date);
aktif;
edit3.SetFocus;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if Table1.FindKey([Edit3.Text]) then
begin
Edit4.Text:=Table1['nmkary'];
if Table1['jabatan']='Instruktur' then
RadioButton1.Checked:=true
else
if Table1['jabatan']='Ts' then
RadioButton2.Checked:=true
else
RadioButton3.Checked:=true;
edit6.SetFocus;
Edit5.Text:=Table1['gapok'];
end
else
ShowMessage('Data Karyawan Tidak ada');
end;
end;
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
Edit7.Text:=floattostr(strtofloat(Edit6.Text)*5/100);
Edit8.Text:=FloatToStr((strtofloat(Edit5.Text)+strtofloat(Edit6.Text))-StrToFloat(Edit7.Text));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Table2.Append;
Table2['noslip']:=Edit2.Text;
Table2['tgl']:=date;
Table2['kdkary']:=Edit3.Text;
Table2['tunjangan']:=Edit6.Text;
Table2['pph']:=Edit7.Text;
Table2['gaber']:=Edit8.Text;
Table2.Post;
Application.MessageBox('Data Sudah Disimpan','Pesan',MB_ICONINFORMATION+mb_ok)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
bersih;
nonaktif;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Mau Keluar???','Pesan',MB_ICONQUESTION+MB_OKCANCEL)=idok then
close;
end;
end.
Buat download source code nya klik gambar dibawahRight hug
CP Download

Membuat Login dengan database



Bagaimana Membuat Form Login dengan username dan password dari database
Database yang digunakan dalam contoh ini adalah Ms.Access.
Sebenarnya logika sederhana nya adalah membandingkan input dari user dengan data yang tersimpan pada database jika sama maka form utama muncul,jika salah Form Login akan mereset.
karena dari logika itulah pengimplementasian coding pada program tergantung dari programmer masing-masing.
*Sebelumnya buat database di Ms.Access dengan tabel seperti berikut
  Nama Table: login
  username      password      status
admin              123456          admin
  operator           123456         operator
  user                 123456          user
  fajar                 delphi            admin
tambahkan berapapun record yang anda mau.
simpan dengan nama data.mdb letakan satu folder dengan file exe.
*Buatlah Desgin Form seperti berikut:

*Tambah kan sebuah Data Module kira2 seperti screen shoot berikut:

disini saya tidak akan menjelaskan masalah pengkoneksian karena saya asumsikan anda sudah mampu mengkoneksikan database.
{Properties name dari masing2 component adalah sama seperti screen shoot data modul.}
*Tambahkan sebuah Form baru dan design lah kira2 seperti berikut:
   Ubah status Form2 menjadi available form (Project Options/Shift+Ctrl+F11).

*Now Lets Coding,
Code pada Unit2/Form Login
tambahkan sebuah variable string dan sebuah class procedure:
public
path:string;
class function Execute : word;
end;
     Berikut adalah Code Implementasi dari Unit2/Form Login
implementation
uses modul, Unit1;//uses unit1(form utama dan unit data modul)
{$R *.dfm}
{ TForm2 }
class Function TForm2.Execute:word;
begin
  with TForm2.Create(nil) do
  result:=Showmodal;
end;
procedure TForm2.FormShow(Sender: TObject);
begin{pengkoneksian database}
dm.Con.LoginPrompt:=false;
dm.Con.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'data.mdb;Persist Security Info=False';
dm.Con.Connected:=true;
end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Form2:=nil;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin {bandingkan input user dengan data yang terdapat pada database}
with dm.Query do begin
    Close;
    SQL.Clear;
    SQL.Text:='select * from login where username='+quotedstr(edit1.Text);
    Open;
  end;{Jika Username ditemukan atau tidak}
  if dm.Query.RecordCount = 0 then //jika lenih dari 0 berarti username ditemukan
     showmessage('username tidak ada') //jika tidak ditemukan
  else begin{jika username ditemukan}
    if dm.Query.FieldByName('password').AsString <> edit2.Text
      then showmessage('pastikan username dan password benar')
  else close;
  end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Code pada Unit1/Main Form
langsung saja dari section implementation.

implementation
uses modul, Unit2;
{$R *.dfm}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin {selalu memutuskan koneksi setiap program ditutup}
dm.Con.Connected:=false;
end;
procedure TForm1.FormShow(Sender: TObject);
begin{gak usah dijelasin anda pasti paham kan}
label1.Caption:='WELCOME '+dm.Query.fieldbyname('status').AsString;
end;
end.
Pada Unit DataModule karena ini sederhana tidak diperlukan coding.
Belum selesai boss,ini langkah terakhir..dari Unit Project anda
Begin
Application.Initialize;
  Application.CreateForm(Tdm, dm);//unit datamodule dipindahkan ke atas
  TForm2.Execute;// Procedure dari class TForm2 tadi di eksekusi sblm main form create
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
Jalankan program.Jika ada pertanyaan silahkan trace sendiri .

Cara Membuat tampilan DBGrid warna warni



Secara default Dbgrid hanya dapat mengatur satu warna. Jika kita ingin dua warna seperti yang ditunjukkan di bawah ini, jadi kita perlu menambahkan coding ke Event tersebut.

Tambahkan perintah dalam Event GridDrawColumnCell


procedure TFrmLapJual.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (Qbrowse.RecNo mod 2)=0 then
Grid.Canvas.Brush.Color:=$00E1FFF9
else
Grid.Canvas.Brush.Color := $00FFEBDF;
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Note:
  • (Qbrowse.RecNo mod 2)adalah record dari dataset yang ada di dalam dbgrid

PEMBUATAN MENU UTAMA DAN REPORT (DELPHI)



Metari Menu da pembuatan Report di lab saya bahas disini deh buat baca dan nambah ilmu para pengunjung blog ini.. ..
Silahkan disimak ajah untuk langkah-langkahnya :
Ø Tambahkan 1 Form untuk pembuatan menu utama
clip_image002
Ø Tambahkan 4table(BDE), 4RvDataSetConnection(Rave), RvProject(Rave), Menu(aadtional)
Ø Double Click Menu
clip_image004
Ø Koneksikan Table dan RVDataSetConnection
Obejct Properties
Table 1 DatabaseName : Alias (penjualan_nim)
Table Name : buku
Active : true
Name : tb_buku
Table 2 DatabaseName : Alias (penjualan_nim)
Table Name : pelanggan
Active : true
Name : tb_pelanggan
Table 3 DatabaseName : Alias (penjualan_nim)
Table Name : trans
Active : true
Name : tb_trans
Table 4 DatabaseName : Alias (penjualan_nim)
Table Name : detail
Active : true
Name : tb_detail
RvDataSetConnection 1 Dataset : tb_buku
RvDataSetConnection 2 Dataset : tb_pelanggan
RvDataSetConnection 3 Dataset : tb_trans
RvDataSetConnection 4 Dataset : tb_detail
Ø Double Click RvProject
clip_image006
Ø Pilih File-New Data Object
clip_image008
Ø Pilih Direct Data View-Next
clip_image010
Ø Pilih RvDataSetConnection – Finish
Ø Pilih Tools-Report Wizard-Simple Table
clip_image012
Ø Pilih Next
clip_image014
Ø Ceklist Field- Next
clip_image016
Ø PIlih Next
clip_image018
Ø Pilih Next
clip_image020
Ø Pilih Generate
clip_image022
Ø Simpan dengan Nama: Laporan
procedure TForm5.BukuClick(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm5.PelangganClick(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm5.Exit1Click(Sender: TObject);
begin
if (Application.MessageBox('Anda Mau Keluar dari Program?','Pesan',MB_OKCANCEL+32)=idok) then
Application.Terminate;
end;
procedure TForm5.transaksiClick(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm5.LaporanBukuClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_buku.rav');
end;
procedure TForm5.LaporanPelangganClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_pelanggan.rav');
end;
procedure TForm5.LaporanJualClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_jual.rav');
end;
procedure TForm5.LaporanDetailClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_detail.rav');
end;

end.
Cukup segitu ajah langkah-langkahnya,Untuk download tutornya bisa klik gambar di bawah
Download



Cara Membuat installer di Visual Basic

Membuat sebuah Installer tentu saja sangat membantu supaya program yang Anda buat dapat berjalan di komputer yang tidak terdapat Visual Basic 6 di dalamnya. Ditambah lagi, Anda juga perlu menambahkan ActiveX-ActiveX pendukung program. Nah, ada sebuah program bawaan Visual Basic yang berfungsi untuk membuat file installer. File installer ini akan membuat paket yang berisi program Anda beserta paket ActiveX yang diperlukan untuk menjalankan program Anda.
Berikut langkah-langkahnya...

1. Klik Start > All Programs > Microsoft Visual Studio 6 > Micorosft Visual Studio 6 > Package & Deployment Wizard.

2. Akan muncul tampilan seperti berikut:

3. Klik browse, pilih lokasi Project yang akan Anda buat installernya. Lalu klik Package. Jika muncul pesan konfirmasi, klik Compile. Akan muncul tampilan seperti ini:

4. Pilih Standard Setup Package, lalu klik Next.  Akan muncul tampilan seperti berikut:

5. Pilih lokasi Anda untuk menyimpan file Installer. Klik Next. (jika muncul kotak dialog konfirmasi, klik saja OK). Akan muncul tampilan seperti ini:

6. Beri tanda cek pada semua file yang berhubungan dengan aplikasi Anda!! (saya sarankan, untuk mencek semuanya saja. Jika Anda menyertakan database dan tidak ada di list, klik saja tombol Add.) Klik Next. Selanjutnya akan muncul tampilan berikut:

7. Pilih saja Single Cab, lalu klik Next. Selanjutnya akan muncul tampilan seperti ini:

8. Ketik judul program Anda! Klik Next. Akan muncul tampilan seperti berikut ini.

9. Anda diminta untuk menentukan lokasi shortcut
10. pada Start Menu. Langsung saja klik next.

11. Klik next. Akan muncul tampilan seperti berikut:

12. Beri saja tanda cek. Klik Next.

13. Beri nama Script, lalu klik Finish.
14. Selesai! Klik saja Close!
Anda bisa melihat hasilnya...

Selamat Mencoba ;D