Listing
Sumber : http://cakcaknaplok.wordpress.com
------------------------------------------------------------------------
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
Tabel : Kendaraan | Field | Type | Size | Key |
| Kd_kendaraan | A | 5 | * |
| Jenis | A | 20 | |
| Harga | N |
Isi Data sebagai berikut: | Kd_kendaraan | Jenis | Harga |
| KM001 | Mobil | 1500000 |
| KM002 | Motor | 800000 |
Tabel: 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 |
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
| Field | Type | Size | Key |
| Kdkary | A | 5 | * |
| Nmkary | A | 20 | |
| Jabatan | A | 20 | |
| Gapok | N |
| Kdkery | Nmkary | Jabatan | Gapok |
| K0001 | Ratih | Instruktur | 1000000 |
| K0002 | Deni Indrawan | TS | 900000 |
| K003 | Citra Angelin | Assistent Lab | 800000 |
| Field | Type | Size | Key |
| Noslip | A | 6 | * |
| Tgl | D | ||
| Kdkary | A | 5 | |
| Tunjangan | N | ||
| PPH | N | ||
| Gaber | N |
unit PENGGAJIAN;Buat download source code nya klik gambar dibawah
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.
Download
, publicBerikut adalah Code Implementasi dari Unit2/Form Login
path:string;
class function Execute : word;
end;
implementationCode pada Unit1/Main Form
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.
Pada Unit DataModule karena ini sederhana tidak diperlukan coding.
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.
BeginJalankan program.Jika ada pertanyaan silahkan trace sendiri
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.
.
| 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 |
Download 
