Basic and Advance Programming Tutorial and Tips, Software Info and Free e-books

SpeedConnect Internet Accelerator 7.5

2009-01-03T13:18:00.009+08:00

Top internet accelerator (according to PC Magazine), a network settings optimizer to speed up your existing Dial-Up Modem, DSL, Cable, Wireless, LAN, High-speed internet connections.

SpeedConnect Internet Accelerator is a powerful Windows application designed to optimize your network connection and speed up all your internet activities. This translates into a faster internet connection, faster browsing and email, faster downloads, faster online gaming, improved Skype connection.

The speed of your network connection doesn't just depend on the speed of your hardware. Windows is an operating system that is designed to work on a variety of different hardware and network setups. Because of the abstract nature of the operating system, it cannot be optimized for user-specific hardware setups.

Depending on the type of network connection you have, you might be able to tweak your connection so that the speed of your Internet, as well as your local area network, will be faster. By changing the System Registry and optimizing the TCP/IP parameters, SpeedConnect can fine-tune the values to take advantage of more reliable, faster Internet connections.

Benefits:
• FASTER internet connection
• Browse FASTER
• Send and receive e-mail FASTER
• Download and upload files FASTER
• Play Online Game FASTER
• Improve Skype connection
• No Adware, NO hardware installation
• NO service subscription, NO monthly fees
• NO new hardware installation

FEATURES
• Optimizes all internet connection types
• User friendly
• Quick Optimizer option
• Advanced Customization
• Tool and Wizards
• Load/Save Settings
• Optimization Report
• Connection Analyzer

Download :
http://rapidshare.com/files/160323359/SC.7.5.rar
http://w14.easy-share.com/1702255073.html

Interface Cantik dengan Skin Component Gratis

2008-08-07T13:35:00.007+08:00

Tidak banyak Skin Component gratis yang tersebar di internet
apalagi yang cukup professional untuk mempercantik Aplikasi yang kita buat. Ada satu website yang menyediakan Skin Component package gratis untuk kamu download dan gunakan. Di artikel ini saya akan mengulas sedikit tentang Delphi Skin Component gratis ini beserta screenshot Demo aplikasi yang telah ditambahkan Skin Component diatas.

AlphaControls Lite Edition v.5

AlphaControls Lite Edition v.5 adalah versi gratis dari AlphaControls Component Package dari www.alphaskins.com AlphaControls Lite Edition berisi 13 Component yaitu : TsSkinManager, TsSkinProvider, TsEdit, TsCheckBox, TsPanel, TsButton, TsScrollBar, TsLabel, TsWebLabel, TsBitBtn, TsComboBox, TsListBox and TsGauge. semua komponen diatas bisa kamu download dan kamu gunakan dalam aplikasi yang kamu buat baik itu yang freeware ataupun aplikasi yang komersial tanpa dipungut biaya alias free. Di halaman download website resminya Alpha Controls www.alphaskins.com/dwnld.php, terdapat lebih dari 30 skin dan beberapa tool diantaranya Skin Editor dan project converter yang bisa kamu download secara gratis.

Masih ga percaya, nih deskripsi dari publishernya :
AlphaControls Lite edition (Free for using in any projects!)
Package contains 13 absolutely free and fully-functional components from the AlphaControls package (TsSkinManager, TsSkinProvider, TsEdit, TsCheckBox, TsPanel, TsButton, TsScrollBar, TsLabel, TsWebLabel, TsBitBtn, TsComboBox, TsListBox and TsGauge). Skinning of most standard edit controls by the TsSkinProvider component is available also. By using these components you can see the basic ideas behind AlphaControls which distinguish these components from similar packages. Supported Delphi 5/6/7/2005/2006. Small compiled demo with sources included in this package.

Setelah kamu install, Skin Component ini sangat mudah untuk diaplikasikan ke program yang kamu buat. Kamu tinggal tambahkan komponen TsSkinManager dan TsSkinProvider ke dalam form lalu atur properties dari TsSkinManager sebagai berikut :

SkinDirectory : arahkan ke folder yang berisi skin dari komponen AlphaControls (ada 3 buah skin yang disertakan dalam paket downloadnya yang terdapat di folder ASLDemo)
SkinName : pilih nama skin yang akan kamu pakai misalnya WMP11
Active : True

dibawah ini adalah screenshot contoh aplikasi dalam artikel saya sebelumnya yang sudah di-skinned :

Download AlphaControls Lite Edition disini (2935 kb)

Menyisipkan Judul Report didalam Statement SQL

2008-08-06T12:55:00.009+08:00

Inti dari tutorial ini adalah menunjukan bagaimana caranya menyisipkan string reguler didalam statement SQL. String reguler disini maksudnya adalah string yang bukan nilai dari sebuah table di dalam Database. Contoh :

SELECT 'Daftar Produk (Seluruh)' AS Judul, ProductID,ProductName
FROM Products

Judul         ProductID   ProductName
------------- ----------- ----------------------------------------
Daftar Produk          17 Alice Mutton
Daftar Produk           3 Aniseed Syrup
Daftar Produk          40 Boston Crab Meat
Daftar Produk          60 Camembert Pierrot
Daftar Produk          18 Carnarvon Tigers
Daftar Produk           1 Chai
. . . .
. . . .

77 rows selected

Statement SQL diatas akan menambahkan kolom JUDUL yang berisi nilai yang sama pada output query nya. nilai-nilai yang ada dibawah kolom JUDUL bukan merupakan nilai-nilai yang ada di table PRODUCTS, melainkan string biasa yang kita sertakan dalam Statement SQL nya. dibawah ini saya akan memperlihatkan contoh bagaimana metode ini dipakai untuk menyisipkan judul laporan yang berbeda kedalam SQL Statement menggunakan hanya satu komponen FastReport di Delphi.

Cara ini biasa saya gunakan untuk menghasilkan judul report berdasarkan parameter yang saya inputkan. misalnya saya akan menampilkan laporan daftar produk per supplier dan ingin agar judul report sesuai dengan nama supplier yang ingin saya cetak misalnya judul report nya ingin seperti ini : 'Daftar Produk Supplier : PT. ABC', 'Daftar Produk Supplier : PT. XYZ' dst dengan catatan struktur kolom dari report tersebut sama. Jadi parameternya saya sisipkan kedalam SQL Statement yang digunakan untuk pengambilan datanya. Sebagai contoh dibawah ini saya perlihatkan bagaimana caranya menyisipkan judul untuk report kedalam sebuah SQL statement menggunakan komponen FastReport dan ADOQuery di Delphi.

procedure TForm1.Button1Click(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('SELECT ');
   adoquery1.SQL.Add('''Daftar Produk Supplier : ''+a.CompanyName as Judul,');
   adoquery1.SQL.Add('B.ProductID,A.CompanyName,b.ProductName,');
   adoquery1.SQL.Add('b.QuantityPerUnit,b.UnitPrice,b.UnitsInStock ');
   adoquery1.SQL.Add('FROM suppliers a, Products b ');
   adoquery1.SQL.Add('where a.SupplierID=b.SupplierID ');
   adoquery1.SQL.Add('AND a.CompanyName = :CN');
   adoquery1.Parameters[0].Value := combobox1.Text;
   adoquery1.Prepared := true;
   adoquery1.Open;

   //kalau data ada
   if adoquery1.RecordCount > 0 then
   frxReport1.ShowReport();

end;

kamu bisa lihat didalam Statement SQL diatas saya sisipkan string 'Daftar Produk Supplier :' yang digabung dengan nilai CompanyName dari table Suppliers yang kemudian dialiaskan sebagai kolom/field Judul yang nantinya field/kolom Judul ini akan saya tempatkan di report sebagai judul report. agar lebih jelas kamu bisa lihat gambar dibawah ini :

Report Design

Application Runtime

Report Runtime

Dengan metode ini kamu bisa memberikan judul report yang lebih detail tanpa harus memboroskan pemakaian komponen untuk mencetak berbagai report yang mempunyai struktur kolom yang sama.

Download Source Code Aplikasi ini disini.

Combobox dengan Dua Kolom (Field)

2008-07-25T10:19:00.005+08:00

Menampilkan nilai dari dua field atau lebih dalam satu combobox.

di dalam artikel ini saya akan sharing tips ringan pemrograman Delphi untuk menampilkan nilai dari dua kolom/field dari sebuah table di database menggunakan komponen DBLookupComboBox. disini saya akan menggunakan sebuah database yang dibuat dengan Microsoft Access.

Buat Project baru dan tambahkan sebuah komponen ADOConnection, ADOTable, dan sebuah DataSource ke dalam form. Hubungkan komponen ADOConnection di atas dengan table di database yang kamu pilih. Setelah koneksi dengan Database Microsoft Access sukses, langkah selanjutnya adalah menghubungkan komponen ADOTable ke komponen ADOConnection dan hubungkan juga komponen DataSource ke ADOTable.

Tambahkan komponen DBLookupComboBox (Tab DataControls) ke dalam form. set properties ListSource ke komponen DataSource dan KeyField ke salah satu field dari table yang kamu pakai. Untuk menampilkan dua field atau lebih dalam DBLookupComboBox kamu ketik manual nama-nama field yang ingin kamu tampilkan dalam komponen DBLookupComboBox - setiap field dipisahkan dengan titik koma (;) misalnya : productid;descriptions.

Application Design Time

DBLookupComboBox Properties

Application Run Time

SQL : Using subquery to resolving query problems

2008-07-13T14:41:00.003+08:00

When working with databases and records sometimes we find difficulties in displaying data from many tables using SQL join. For example you wish to include some aggregate columns from three tables below :

the structure of the products table :

ProductID text(15),
VendorID text(15),
Descriptions text(50),
UnitsInStock integer,
Price integer

Data in the products table :


ProductID  VendorID Descriptions                               UnitsInStock
---------- -------- ------------------------------------------ ------------
SDB0001    V0001    MS SQL Server Database 2005                           5
SDB0002    V0002    Oracle Database 10g Enterprise                        6
SDB0003    V0003    MySQL 5.0 Enterprise Edition                          8
SDBA0001   V0004    Navicat For MySQL Administration                      6
SDBA0002   V0005    Dreamcoder 4.1 For MySQL Enterprise                   4
SDBA0003   V0005    Dreamcoder 4.1 For MySQL Profesional                  8
SDBA0004   V0005    Dreamcoder 4.1 For MS SQL Server Database             4

the structure of the Purchasing table :

ProductID text(15),
VendorID text(15),
PurchaseDate date,
Quantity integer

Data in the Purchasing table :


ProductID  PurchaseDate Quantity
---------- ------------ --------
SDB0001    7/1/2008           10
SDB0002    7/1/2008           12
SDB0003    7/1/2008           12
SDBA0001   7/1/2008            8
SDBA0002   7/1/2008            3
SDBA0003   7/1/2008            8
SDBA0004   7/1/2008            8
SDB0001    7/2/2008            7
SDB0002    7/2/2008            9
SDB0003    7/2/2008            7
SDBA0001   7/2/2008            7
SDBA0002   7/2/2008            3
SDBA0003   7/2/2008            7
SDBA0004   7/2/2008            7

the structure of the sales table :

ProductID text(15),
VendorID text(15),
SalesDate date,
Quantity integer

Data in the sales table :


ProductID  SalesDate    Quantity
---------- ------------ --------
SDB0001     7/1/2008           8
SDB0002     7/1/2008           8
SDB0003     7/1/2008           9
SDBA0001    7/1/2008           4
SDBA0002    7/1/2008           1
SDBA0003    7/1/2008           2
SDBA0004    7/1/2008           5
SDB0001     7/2/2008           4
SDB0002     7/2/2008           7
SDB0003     7/2/2008           2
SDBA0001    7/2/2008           5
SDBA0002    7/2/2008           1
SDBA0003    7/2/2008           5
SDBA0004    7/2/2008           6

there is two productid that have the same values in each of sales and purchasing table. Now you want to display how many quantity bought, quantity sold, and quantity available now by joining three tables above so that query output give you the clear information concerning all products.

I will show you how this can confusing when its done by a query especially for SQL newbies. below is an example of wrong SQL statement that will give you incorrect information about the data :

SELECT a.productid, a.descriptions,
sum(b.quantity) AS prchqty,
sum(c.quantity) as salesqty, a.unitsinstock
FROM products AS a, purchasing AS b, sales c
WHERE a.productid=b.productid
and a.productid=c.productid
GROUP BY a.productid, a.descriptions, a.unitsinstock

query output:


productid descriptions                               prchqty salesqty unitsinstock
--------- ------------------------------------------ ------- -------- ------------
SDB0001   MS SQL Server Database 2005                     34       24            5
SDB0002   Oracle Database 10g Enterprise                  42       30            6
SDB0003   MySQL 5.0 Enterprise Edition                    38       22            8
SDBA0001  Navicat For MySQL Administration                30       18            6
SDBA0002  Dreamcoder 4.1 For MySQL Enterprise             12        4            4
SDBA0003  Dreamcoder 4.1 For MySQL Profesional            30       14            8
SDBA0004  Dreamcoder 4.1 For MS SQL Server Database       30       22            4

the query output above giving incorrect information for the prchqty and salesqty column. it is caused by there are more than one productid which have the same values in each of the purchasing table and the sales table so that when you join the tables using productid column the query output will display the column quantity become twice from real quantity.

to resolving this problem you can use a view and or a subquery but in this tutorial I will only show how to use subqueries to resolving the problem. below is the right SQL statement which will give a correct information about the data (note : this query will not working in previous version of MySQL 6, paradox database, and interbase 6) :

SELECT a.productid, a.descriptions,
sum(b.quantity) AS prchqty, c.salesqty,a.unitsinstock
FROM products AS a, purchasing AS b,
(select productid,sum(quantity) as salesqty
from sales
group by productid) AS c
WHERE a.productid=b.productid
and a.productid=c.productid
GROUP BY a.productid, a.descriptions,
c.salesqty, a.unitsinstock

query output :


productid descriptions                               prchqty salesqty unitsinstock
--------- ------------------------------------------ ------- -------- ------------
SDB0001   MS SQL Server Database 2005                     17       12            5
SDB0002   Oracle Database 10g Enterprise                  21       15            6
SDB0003   MySQL 5.0 Enterprise Edition                    19       11            8
SDBA0001  Navicat For MySQL Administration                15        9            6
SDBA0002  Dreamcoder 4.1 For MySQL Enterprise              6        2            4
SDBA0003  Dreamcoder 4.1 For MySQL Profesional            15        7            8
SDBA0004  Dreamcoder 4.1 For MS SQL Server Database       15       11            4

in the above query, string which in bold is subquery or which I call inline view. the subquery above will produce productid column and salesqty column which the data is taken from the sales table which then aliased as table C, so that each productid from the products table (A) will be joined to one productid in the purchasing table (B) and sales table (C).

Delphi Tips : Displaying Image in DBGrid Columns

2008-07-13T14:14:00.006+08:00

In this tutorial I will share tips about how to displaying image in the DBGrid columns. You can use this method to mark rows that meet certain conditions matching with the conditions you specified. The components which I use is a TDBGrid, a TDatasource, and it is of course a TADOTable which is connected to a table in a Microsoft Access database. Set each of the component properties so that the components is connected to each other.

The following example show how images is used to mark the records base on value on the UnitsInStock column.

condition :

the product which its UnitsInStock value greater or equal to 10 is marked with a checklist image (checklist.bmp) and product which its UnitsInStock less than 10 is marked with a warning image (warning.bmp).

The Code

procedure TForm1.DBGrid1DrawColumnCell
(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn;
State: TGridDrawState);

var
  Image : TBitMap;
begin
  Image := TBitmap.Create;

   try
    with Image do begin
      Transparent := True;
      TransParentColor := Image.Canvas.Brush.Color;
      TransparentMode := tmAuto;
    end;

{ Image will only displayed if the table is not empty }
if DataSource1.DataSet.RecNo > 0 then
begin
    if Column.Title.Caption = 'Stock OK' then
    begin
      { if the quantity > 10 }
      if (ADOTable1.FieldValues['unitsinstock'] > 10) then
      begin
      Image.LoadFromFile
      (ExtractFilePath(Application.ExeName)+'\good.bmp');
      DBGrid1.Canvas.Draw(rect.Left + 2,Rect.Top,Image);
      end;

      { if the quantity > 0 and <= 10 }
      if (ADOTable1.FieldValues['unitsinstock'] > 0)
      and (ADOTable1.FieldValues['unitsinstock'] <= 10) then
      begin
      Image.LoadFromFile
      (ExtractFilePath(Application.ExeName)+'\warning.bmp');
      DBGrid1.Canvas.Draw(rect.Left + 2,Rect.Top,Image);
      end;

    end;
end;

  finally
    Image.Free;
  end;

end;

You can download the source code here

Delphi How To: Creating Calculation Field

2008-06-11T16:54:00.007+08:00

In this Delphi Tutorial i will explain how to create a calculation field on Delphi DBAware component and show it on the DBGrid. Calculation Field is an additional field that we can create to do automatic calculation at OnCalcFields event.

For example you have a table called SalesDetail that have the following structure :

if you want your Application to do automatic calculation for the total price (UnitPrice * Quantity) as you insert or edit Data, you can follow this steps :

1. Creating Calculation Field On TADOTable Component

Add TADOTable Component to a Form

Set its ConnectionString and TableName properties so its connected to your Database

Right click on the TADOTable component and choose Fields Editor... the Fields Editor will appear

Right click on the Fields Editor and choose Add All Fields to include all field in the Table

Right Click on Fields Editor and choose New Field... the New Field Dialog will appear

Enter a name for this new field in the Name textbox for example CTotal

Choose Number Data Type (Integer, Float, Largeint, etc depend on posible value range you will need) on Type combobox

Choose Calculated in the Field Type Section and then click the OK button

Now you have created a calculation Field called CTotal

2. Adding Code to your Application to do Automatic Calculation

Add a DataSource component to the form and connect it to your TTable or TADOTable Component.

Add a DBGrid component to the form and connect it to your DataSource Component

set the AutoCalcFields Properties of TADOTable Component to True.

To do automatic calculation as you insert or edit Data, add this code on OnCalcFields event of TADOTable component

AdoTable1.FieldValues['CTotal'] := AdoTable1.FieldValues['UnitPrice'] * AdoTable1.FieldValues['Qty'];

Designtime

Runtime

Download Sourcode here

SQL BETWEEN: Searching Between Two Specified Values (Range)

2008-06-09T10:23:00.004+08:00

Syntax

expression [ NOT ] BETWEEN lower_value AND higher_value

The SQL BETWEEN Operator are used to display rows between two specified values. The lower value are placed before AND operator and the higher value are placed after AND operator.

For Example you have a table called Articles that contain the following Data:


ArticleID Title                     PageView    PublishDate
--------- ------------------------- ----------- -------------------
1         SQL JOIN Example                   43 2008-06-04 15:18:00
2         SQL BETWEEN Example                84 2008-06-07 15:23:00
3         SQL Where Example                   0 2008-06-07 15:27:00
4         SQL: Find Duplicate Values        102 2008-05-29 15:30:00
5         SQL HAVING Example                 50 2008-03-19 15:33:00

Using SQL Between on Numeric Data Type Field

The following SQL Statement example will return Articles that having PageView Between 50 and 100:

Select ArticleID,Title,PageView,PublishDate from Articles where PageView Between 50 and 100

Query Result:


ArticleID Title                     PageView    PublishDate
--------- ------------------------- ----------- -------------------
2         SQL BETWEEN Example                84 2008-06-07 15:23:00
5         SQL HAVING Example                 50 2008-03-19 15:33:00

Using SQL Between on Date Data Type Field

The following SQL Statement example will return Articles published between 29th May 2008 and 8th June 2008 :

Select ArticleID,Title,PageView,PublishDate from articles where PublishDate between '29-may-2008' and '08-jun-2008'

Query Result


ArticleID Title                     PageView    PublishDate
--------- ------------------------- ----------- -------------------
1         SQL JOIN Example                   43 2008-06-04 15:18:00
2         SQL BETWEEN Example                84 2008-06-07 15:23:00
3         SQL Where Example                   0 2008-06-07 15:27:00
4         SQL: Find Duplicate Values        102 2008-05-29 15:30:00

you can use SQL Statement bellow if you work with a MS Access Database. it will produce the same result

Select ArticleID,Title,PageView,PublishDate from articles where PublishDate between #01/06/2008# and #08/06/2008#

To display rows outside the range you specified, you must omits NOT operator before BETWEEN operator. Example :

Select ArticleID,Title,PageView,PublishDate from Articles where PageView Not Between 50 and 100

Query Result


ArticleID Title                     PageView    PublishDate
--------- ------------------------- ----------- -------------------
1         SQL JOIN Example                   43 2008-06-04 15:18:00
3         SQL Where Example                   0 2008-06-07 15:27:00
4         SQL: Find Duplicate Values        102 2008-05-29 15:30:00

Using SQL Outer Join

2008-06-09T10:21:00.002+08:00

When you use SQL JOIN/INNER JOIN, the result are rows that only matches in both table based on Join condition you specified in the FROM clause. If you need to display all rows from at least one of the tables mentioned in the FROM clause, you can use SQL OUTER JOIN statement. There are 3 types of SQL Outer Join. Outer joins are specified with one of the following sets of keywords when they are specified in the FROM clause:

LEFT JOIN or LEFT OUTER JOIN : Left Outer Join includes all the rows from the left table specified in the LEFT OUTER clause, not just the ones in which the joined columns match. When a row in the left table has no matching rows in the right table, the associated result set row contains null values for all select list columns coming from the right table.

RIGHT JOIN or RIGHT OUTER JOIN : A right outer join will return All rows from the right table and Null values are returned when there are no matching row in the left table.

FULL JOIN or FULL OUTER JOIN : A full outer join returns all rows in both the left and right tables. Null values given for any rows that has no match in both tables.

For example you have the following tables and data in your database:

Data in the Vendors table:


VendorID  VendorName
--------- ------------------------------
V0001     Microsoft Corporation
V0002     Oracle Corporation
V0003     MySQL AB
V0004     PremiumSoft CyberTech Ltd.
V0005     Mentat Technologies
V0006     FastReport Inc.
V0007     CoreLab

Data in the Products table:


ProductID  VendorID  Description
---------- --------- -----------------------------------------
SDB0001    V0001     MS SQL Server Database 2005
SDB0002    V0002     Oracle Database 10g Enterprise
SDB0003    V0003     MySQL 5.0 Enterprise Edition
SDBA0001   V0004     Navicat For MySQL Administration
SDBA0002   V0005     Dreamcoder 4.1 For MySQL Enterprise
SDBA0003   V0005     Dreamcoder 4.1 For MySQL Profesional
SDBA0004   V0005     Dreamcoder 4.1 For MS SQL Server Database
SDBA0005   V0008     PostgreSQL Maestro
SDBA0006   V0008     Firebird Maestro
SDBA0007   V0008     SQLite Maestro

You noticed that Vendor V0008 doesn't exist in the Poducts table and V0006, V0007 doesn't exist in the Vendors Table. This rows will not be displayed if you use a regular SQL JOIN/INNER JOIN (where Vendors.VendorID=Products.VendorID). How to display all rows from the Vendors table although it doesnt exist on the Products table or the reverse?.

Left Join or Left Outer Join Example:

The Following SQL Statement will display all rows from the Vendors table and will display only rows from the Products table that match to the Vendors table based on VendorID field.

select Vendors.VendorID,products.ProductID,products.Description from vendors LEFT JOIN products on vendors.vendorid=products.vendorid

Query Result:


VendorID  ProductID  Description
--------- ---------- -----------------------------------------
V0001     SDB0001    MS SQL Server Database 2005
V0002     SDB0002    Oracle Database 10g Enterprise
V0003     SDB0003    MySQL 5.0 Enterprise Edition
V0004     SDBA0001   Navicat For MySQL Administration
V0005     SDBA0002   Dreamcoder 4.1 For MySQL Enterprise
V0005     SDBA0003   Dreamcoder 4.1 For MySQL Profesional
V0005     SDBA0004   Dreamcoder 4.1 For MS SQL Server Database
V0006     NULL       NULL
V0007     NULL       NULL

Right Join or Right Outer Join Example::

The Following SQL Statement will display all rows from the Products table and display only rows from the Vendors table that match to the Products table based on VendorID field.

select Vendors.VendorID,products.ProductID,products.Description from vendors RIGHT JOIN products on vendors.vendorid=products.vendorid

Query Result:


VendorID  ProductID  Description
--------- ---------- -----------------------------------------
V0001     SDB0001    MS SQL Server Database 2005
V0002     SDB0002    Oracle Database 10g Enterprise
V0003     SDB0003    MySQL 5.0 Enterprise Edition
V0004     SDBA0001   Navicat For MySQL Administration
V0005     SDBA0002   Dreamcoder 4.1 For MySQL Enterprise
V0005     SDBA0003   Dreamcoder 4.1 For MySQL Profesional
V0005     SDBA0004   Dreamcoder 4.1 For MS SQL Server Database
NULL      SDBA0005   PostgreSQL Maestro
NULL      SDBA0006   Firebird Maestro
NULL      SDBA0007   SQLite Maestro

Full Join or Full Outer Join Example::

The Following SQL Statement will display all rows from both Vendors and Products table.

select Vendors.VendorID,products.ProductID,products.Description from vendors FULL JOIN products on vendors.vendorid=products.vendorid

Query Result:


VendorID  ProductID  Description
--------- ---------- -----------------------------------------
V0001     SDB0001    MS SQL Server Database 2005
V0002     SDB0002    Oracle Database 10g Enterprise
V0003     SDB0003    MySQL 5.0 Enterprise Edition
V0004     SDBA0001   Navicat For MySQL Administration
V0005     SDBA0002   Dreamcoder 4.1 For MySQL Enterprise
V0005     SDBA0003   Dreamcoder 4.1 For MySQL Profesional
V0005     SDBA0004   Dreamcoder 4.1 For MS SQL Server Database
NULL      SDBA0005   PostgreSQL Maestro
NULL      SDBA0006   Firebird Maestro
NULL      SDBA0007   SQLite Maestro

SQL JOIN : Retrieving Data from many Tables

2008-06-09T10:17:00.002+08:00

Joins are created when we display Data in queries that using more than one tables. we can connect a row in one table to another row in other table using the same value of both rows. Usualy this relation represented as Primary Key and Foreign Key relationship.

Joins allow an association between a field in one table or view with a field of the same data type in another table or view. Joins show how the data in one table relates to the data in another table. By using joins, data from two or more tables or queries based on logical relationships among the tables can be retrieved. Joins can be added, edited, or deleted to retrieve the data from the database.

For Example you have two tables called Products and Vendors that contain the following Data:

Data in table Vendors:


VendorID  VendorName                  URL
--------- --------------------------- --------------------------
V0001     Microsoft Corporation       http://www.microsoft.com
V0002     Oracle Corporation          http://www.oracle.com
V0003     MySQL AB                    http://www.mysql.com
V0004     PremiumSoft CyberTech Ltd.  http://www.navicat.com
V0005     Mentat Technologies         http://www.mentattech.com

Data in table Products:


ProductID  VendorID  Description
---------- --------- -----------------------------------------
SDB0001    V0001     MS SQL Server Database 2005
SDB0002    V0002     Oracle Database 10g Enterprise
SDB0003    V0003     MySQL 5.0 Enterprise Edition
SDBA0001   V0004     Navicat For MySQL Administration
SDBA0002   V0005     Dreamcoder 4.1 For MySQL Enterprise
SDBA0003   V0005     Dreamcoder 4.1 For MySQL Profesional
SDBA0004   V0005     Dreamcoder 4.1 For MS SQL Server Database

Bellow is SQL JOIN Statement example to display ProductID, VendorName, and Description by Joining two tables above

select products.ProductID,vendors.VendorName,products.Description from vendors, products where vendors.vendorid=products.vendorid

Query Result:


ProductID  VendorName                 Description
---------- -------------------------- -----------------------------------------
SDB0001    Microsoft Corporation      MS SQL Server Database 2005
SDB0002    Oracle Corporation         Oracle Database 10g Enterprise
SDB0003    MySQL AB                   MySQL 5.0 Enterprise Edition
SDBA0001   PremiumSoft CyberTech Ltd. Navicat For MySQL Administration
SDBA0002   Mentat Technologies        Dreamcoder 4.1 For MySQL Enterprise
SDBA0003   Mentat Technologies        Dreamcoder 4.1 For MySQL Profesional
SDBA0004   Mentat Technologies        Dreamcoder 4.1 For MS SQL Server Database

Or you can use this form of SQL JOIN, will produce the same result

select products.ProductID,vendors.VendorName,products.Description from vendors inner join products on vendors.vendorid=products.vendorid

Query Result:


ProductID  VendorName                  Description
---------- --------------------------- -----------------------------------------
SDB0001    Microsoft Corporation       MS SQL Server Database 2005
SDB0002    Oracle Corporation          Oracle Database 10g Enterprise
SDB0003    MySQL AB                    MySQL 5.0 Enterprise Edition
SDBA0001   PremiumSoft CyberTech Ltd.  Navicat For MySQL Administration
SDBA0002   Mentat Technologies         Dreamcoder 4.1 For MySQL Enterprise
SDBA0003   Mentat Technologies         Dreamcoder 4.1 For MySQL Profesional
SDBA0004   Mentat Technologies         Dreamcoder 4.1 For MS SQL Server Database

MySQL Connector Download

2008-06-03T13:51:00.000+08:00

MySQL provide standard database driver connectivity for using MySQL with applications and tools that are compatible with industry standards ODBC and JDBC. This enables MySQL to work easily with standard development tools on Windows, Linux, Macintosh and Unix platforms. Any system that works with ODBC or JDBC can use MySQL.

Connector/ODBC: Standardized database driver Windows, Linux, Mac OS X, and Unix platforms.

Connector/J: Standardized database driver for Java platforms and development.

Connector/Net: Standardized database driver for .NET platforms and development.

Connector/MXJ: MBean for embedding the MySQL server in Java applications.

MySQL native driver for PHP - mysqlnd: The MySQL native driver for PHP is an additional, alternative way to connect from PHP 6 to the MySQL Server 4.1 or newer.

MySQL Connector/ODBC 5.1

Version 5.1 of the MyODBC driver is now released by MySQL AB and available for download. An ODBC (Open Database Connectivity) driver enables client programs to access a database or data source. The new version 5.1 MySQL ODBC driver is a greatly enhanced successor version to the existing MyODBC 3.51, rewritten to follow the ODBC 5.1x specifications. It provides complete and up-to-date ODBC functionality when accessing any MySQL database. This latest version is available under the GPL license as well as under commercial license.

MySQL Connector/Net 5.1

Connector/Net 5.1 is the most exciting release of MySQL's fully managed ADO.Net provider to date. Some of the most user-requested features have been included. For example:

Support for fully commented stored procedures.

Support for Compact Framework 2.0.

Support for ASP.Net 2.0 Membership and Role systems.

This release also represents a change in the product packaging. In the past, MySQL AB provided separate downloads for MySQL AB Visual Studio integration product. this product has been merge into a single installer For a better "out of box" experience.

NOTE: By downloading the software from this page, you acknowledge that the software available from here is licensed under the GPL. We advise that you review the GPL before downloading. If you need commercial, non-GPL, licenses, you can order them online.

MySQL Connector/J 5.1

MySQL Connector/J is the official JDBC driver for MySQL. Connector/J 5.1 includes support for JDBC-4.0 functionality, including:

Ease-of-development features including auto-registration with the DriverManager via the service provider mechanism, standardized Connection validity checks and categorized SQLExceptions based on recoverability/retry-ability and class of the underlying error.

Unwrapping to interfaces that include vendor extensions

Support for XML processing via JAXP interfaces to DOM, SAX and StAX

Support for setting per-connection client information (which can be viewed in the comments section of a query via "SHOW PROCESSLIST" on a MySQL server, or can be extended to support custom persistence of the information via a public interface)

Support for JDBC-4.0 NCHAR, NVARCHAR and NCLOB types

MySQL native driver for PHP - mysqlnd

The MySQL native driver for PHP is an additional, alternative way to connect from PHP 5 and PHP 6 to the MySQL Server 4.1 or newer. It is a replacement for the libmysql, the MySQL Client Library. From now on you can use ext/mysqli either together with libmysql as you did in the past or with mysqlnd.

MySQL AB have no plans to remove libmysql support from ext/mysqli, which would break existing applications. They just add a new, superior alternative to their PHP offerings.

MySQL Visual Studio Plugin 1.02

MySQL Tools for Visual Studio is a package that integrates seamlessly into Visual Studio 2005. This package is currently available under a commercial, no-charge binary license but we are planning to release the source code under an approved open source license within the next few weeks.

The package provides the following features:

DDEX capability

Database object manipulation (tables, stored procedures, etc)

Publisher : MySQL AB

Download MySQL Connector/ODBC 5.1 (Windows MSI Installer) : Here (4.1 MB)

Download MySQL Connector/ODBC 5.1 (Linux non RPM packages) : Here (4.3 MB)

Download MySQL Connector/Net 5.1 (sources): Here (3.7 MB)

Download Connector/J 5.1 (ZIP): Here (8.4 MB)

Download MySQL native driver for PHP - mysqlnd Sourcode (tar.gz): Here

Download MySQL Visual Studio Plugin 1.02 (ZIP): Here (650 KB)

Delphi Programming: Restricting User's Input Characters

2008-05-30T17:03:00.003+08:00

For Client-Server Application or Application that Access sensitive Data it is commonly use an Authentication through a login form. you can enhance the security by restricting user to input certain characters in the login form. for example you can restrict user to input only Alphanumeric characters (A-Z,a-z,0-9) for both Username and Password Text. The advantage of this method is to minimize security hole that your application has or minimize the risk of SQL Injection. But the consequences of this method is all registered User must have their Username and Password in Alphanumeric value.

In this Tutorial i will share Delphi Script to restrict certain input characters in a Edit textbox. you must add this code on OnKeyPress Event of an Edit Component. for this tutorial you can add a TEdit(Edit1) and a label (label1).

Code for Restricting character other than Alphanumeric (A-Z,a-z,0-9) :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var SelSt: Integer; TmpStr: string; begin if not (key in ['a'..'z','A'..'Z','0'..'9',Chr(vk_Back)]) then with (Sender as TEdit) do begin SelSt := SelStart; if (Key = Chr(vk_Back)) and (SelLength <> 0) then begin TmpStr := Copy(Text,1,SelStart)+Copy(Text,SelLength+SelStart+1,255); label1.Caption := 'You try to Input : '+tmpstr; end else if Key = Chr(vk_Back) then begin TmpStr := Copy(Text,1,SelStart-1)+Copy(Text,SelStart+1,255); label1.Caption := 'You try to Input : '+tmpstr; end else begin TmpStr := Copy(Text,1,SelStart)+Key+Copy(Text,SelLength+SelStart+1,255); label1.Caption := 'You try to Input : '+tmpstr; end; if TmpStr = '' then Exit; if (Key = Chr(vk_Back)) and (SelSt > 0) then Dec(SelSt) else if Key <> Chr(vk_Back) then Inc(SelSt); Key := #0; if SelSt = 0 then begin Text:= ''; Exit; end; end; end;

Designtime

Runtime

Enterprise Free, OpenSource Database Servers,Database Engines and Database Software

2008-05-26T16:23:00.004+08:00

This list of Free Database Server,Database Engines and Database Software you can use it for free or free for non commercial use.

Ingres

Ingres is a proven, high-performance open source relational database solution that offers the scalability, integration and flexibility to leverage information resources across a wide range of platforms, including Linux, UNIX, Windows and OpenVMS.

ScimoreDB

ScimoreDB Distributed SQL database is free shared-nothing clustered database system . The Database server have been designed to take advantage of parallelization over multiple servers, achieving a near linear scalability for OLTP applications. Supporting up to 512 PC's in a single database cluster, ScimoreDB offers value in terms of speed, functionality and cost.TScimoreDB Server is an extremely reliable Enterprise Database. With features such as ACID with full commit, rollback, crash recovery and row level locking, it allows you to build secure, bussiness-critical application. Support T-SQL language enable you to create your own custom and potentially intricate bussiness logic.

Perst

Perst is an object-oriented embedded database for applications that need to deal with persistent data. There are two implementations of Perst - pure Java and pure C# (C Sharp).

H2

H2 is a SQL database engine. Available as Java library and as native executable (using GCJ). Clustering, embedded and server mode, disk based or in-memory operation. JDBC and (partially) ODBC APIs are supported. Support for transactions, referential integrity, triggers, subqueries, views, and encryption. A browser based console application is included. H2 stands for 'Hypersonic 2' and is written by original author of Hypersonic SQL.

HSQLDB

HSQLDB is the leading SQL relational database engine written in Java. It has a JDBC driver and supports a rich subset of ANSI-92 SQL (BNF tree format) plus SQL 99 and 2003 enhancements. It offers a small, fast database engine which offers both in-memory and disk-based tables and supports embedded and server modes. Additionally, it includes tools such as a minimal web server, in-memory query and management tools and a number of demonstration examples.

Microsoft SQL Server 2005 Express Edition

SQL Server Express is a version of SQL Server 2005 designed to helps developers build robust and reliable applications by providing a powerful database that is also free and easy to use.

db4o

db4o (database for objects) is the open source object database for Java and .NET. It is free software available under the GPL and also under a commercial license. It can persist any native object with a single line of code and allows you to experience true object-orientation. Features include: ACID transactions, query-by-example, S.O.D.A. query API and automatic class schema recognition, small footprint.

Sybase ASE Express Edition for Linux

ASE Express Edition is limited to use of one CPU, 5GB of data storage and 2GB of RAM.

IBM Cloudscape V10.0

IBM Cloudscape V10.0 is a pure, open source-based Java relational database management system that can be embedded in Java programs and used for online transaction processing (OLTP).

SQLite

SQLite is a small C library that implements a self-contained, embeddable, zero-configuration SQL database engine

SimpleSQL

SimpleSQL is designed to be a simple to use relational database, for Java, C++, JDBC, PHP, ActiveX, etc.

AidAim SQLMemTabl

SQLMemTable is a fast in-memory database system. Key features: no BDE, no dlls required, SQL support, BLOB compression, fast indexes, import/export, Unicode, comprehensive help. SQLMemTable Personal is free for personal use. Any company must order SQLMemTable Com, Pro, Team4, Team8 or Enterprise to use it in its projects

Berkeley DB

Berkeley DB is an open-source database system made by Sleepycat Software. It is available in several different distributions including a java beta version. You can use them freely if the the complete source code for your application is available and freely redistributable under reasonable conditions. Otherwise you can purchase a license. See the website for licensing information.

Firebird

Firebird is an OpenSource database environment formerly known as Borland Interbase Version 6. Features include full SQL compliancy, stored procedures, and other advance database features.

ObjectDB for Java/JDO

ObjectDB for Java/JDO is a powerful Object Database for Java. It is specially designed to handle efficiently databases of various sizes, from a few KBs to hundreds of GBs, in both embedded database mode and client server mode. As a pure Java Database, ObjectDB for Java/JDO is written entirely in Java, and it is compliant with the new Java Data Objects (JDO) standard.

MySQL database server and standard clients

MySQL is available for many platforms and you can download the server and client software as well as a MySQL ODBC diver and a bunch of other MySQL tools from this page.

postgresql

PostgreSQL is an open source relational database management system and runs on many platforms. You can download the latest release as well as a conversion utility (MySQL to PostgreSQL) from this page.

Hypersonic SQL

hsqldb is a relational database engine written in Java, with a JDBC driver, supporting a rich subset of ANSI-92 SQL (BNF tree format). It offers a small (less than 160k), fast database engine which offers both in memory and disk based tables. Embedded and server modes are available. Additionally, it includes tools such as a minimal web server, in-memory query and management tools (can be run as applets) and a number of demonstration examples. (100% Java Database)

GNU SQL Server

SQL Server is a free portable multiuser relatational database management system. It supports the full SQL89 dialect and has some extensions from SQL92. It provides multiuser access and transaction isolation based on predicative locks. The working OS: UNIX. The working language: C . It also uses RPC, shared memory and message queues.

Mariposa

The Mariposa distributed database management system is an ongoing research project at the University of California at Berkeley. It allows DBMSs which are far apart and under different administrative domains to work together to process queries. Runs on Digital Equipment Alpha running DEC OSF/1 3.2 (with gcc and cc).

Dxstore Database System

The Dxstore Database System is a database management system for Linux, FreeBSD, and other operating systems. In the tradition of dbm/ndbm, it is distributed as an embeddable C or C++ library and shares with them the model of a database as a collection of key/value pairs

DiamondBase

DiamondBase is a C++ database engine which is available for free non commercial use, and is negotiable for commercial use.

InstallCreator 2.0 Free Application Installer

2008-05-24T16:35:00.003+08:00

InstallCreator Freeware Version is a Software for Creating Application Installer Package

This Freeware Version of InstallCreator contain full feature with some Advertisement Page for ClickTeam on each Installer when the installation is complete, with a button to connect to ClickTeam web site. There are absolutely no limitations in the functionality, and none of those annoying "nag screens" in the software.

Install Creator And Install Creator Pro Feature List

Everything in one compressed distributable executable file

Follows the standards seen in all installation programs

Full-featured dialog box editor to customize your installer's screen

Every text is customizable

Creates icons and folder in Window's start menu

Automatic floppy disk spanning

Automatic installation of Fonts

Automatic installation of ActiveX controls

Automatic installation of screen-savers

Handle DLL installation and de-installation counters

Optional icon on the desktop

Display a text or web page at the end of an installation

Launch other programs at the end of an installation

Complete de-installer

Ability to remove keys from the registry

Multilingual templates and you can make your own language translations

For Install Creator and Install Creator Pro

Windows 95 OSR-2 / 98 / Me / NT 4 / 2000 / XP / Vista or above, with Internet Explorer 4 or above installed

32 Mb RAM

hard disk with 4 Mb of free disk space

For the install programs created with Install Creator or Install Creator Pro

Windows 95 / 98 / Me / NT 4 / 2000 / XP / Vista or above

16 Mb RAM

What makes this Software Different from other Installers Software

Small footprint of the executable

An empty installer is only 100Kb. We cram the complete professional installation program and the complete de-installer in 100kb! Compare that with other installer programs: minimums of 500Kb. We feel it is inexcusable to have a 500Kb installer!

A simple and easily understood interface

There's no complex scripting language, you simply select a directory that contains the files to install and set options for any special individual files and that's it, you're done.

Easy step by step wizard - it's a cinch!

When the project is done, just save the settings and you can recover the project later and update it at your will.

Complete customization

You can change all the texts, choose any bitmaps, customize each screen of your installer - you can preview the look of the install process at anytime during the creation process.

Fully functional freeware version

The freeware version is fully and completely operational. You will not find a better installer at 10 times the price. You have nothing to lose test it out today. All these features sound obvious and standard - don't they? So why do we still find programs on the Internet that decompress the data files onto the desktop (isn't that annoying?). Then there are the programs without proper de-installation routines, and products that create a directory at the root of your C drive instead of directing the files where you want them.

Publisher : www.clickteam.com

Download Link : Download (2.35 MB)

SXSkinComponents Free for Delphi Freeware Project

2008-05-24T12:56:00.004+08:00

SXSkinComponents is a set of visual components. but it's not a usual package of controls. Using this Component Using SXSkinComponents you can easily create An interface with buttons, checkboxes, edits and other controls, design of which is changed like Windows XP Themes and A fully graphical interface with custom images instead of buttons and other controls.

Features:

100% alpha channel support in components drawing.

Every skin is describen in a separate skin.ini file.

A skin file contains a set of skin styles: genearal and special ones.

A general skin style is a set of elements (images or geometrical figures).

JPEG, PNG-8 and PNG-24 (with 8-bit transparency) graphic file formats are supported.

These figures can be drawn as skin style elements: rectangles, rounded rectangles, circles, polygons and lines.

All figures can be drawn with a translucent border and a gradient fill.

Using a BoxTile element you can freely design buttons and other controls.

Optimized for processors with MMX instructions support.

Support Delphi 6, Delphi 7, Delphi 2005, Delphi 2006, C++Builder 6 and C++Builder 2006.

Designed for operating systems Windows 98/ME/NT/2000/XP/2003.

Full source code is 100% open.

Project License

SXSkinComponents source code can be freely distributed by anyone but with no modifications made.

Freeware Projects. You can freely use SXSkinComponents in your freeware projects (and not only opensource).

Shareware and Commercial Projects. To use SXSkinComponents in your shareware and commercial projects you have to purchase one of these licenses: a Project License or a Company License.

Skins (skin.ini files and image files) are totally free and can not be sold by their authors.

Installation Instruction:

Download SXSkinComponents distrubution package (choose Full or Source Only). Follow the DOWNLOADS page to do this.

Extract contents of the downloaded zip-file to the Delphi (C++Builder) installation folder.

Start Delphi (C++Builder) application. Install Delphi (C++Builder) package from Graphics32-1-8-SX2\Packages folder (it is named GR32_DSGN_BDSxxxx, GR32_DSGN_Dx or GR32_DSGN_CBx).

Install package from SXSkinComponents\Packages folder (it is named SXSkin_BDSxxxx_D, SXSkin_Dx_D or SXSkin_CBx_D).

Ensure that Graphics32-1-8-SX2 and SXSkinComponents folders were added to the Delphi (C++Builder) Library path.

How to Start

To start with SXSkinComponents try to create a simple skinnable application. To do this start Delphi (C++Builder) and open a project from the Template directory of SXSkinComponents distribution package. Then copy the folder Skins to the folder Template. After that follow steps, described on the form.

Pulisher : www.saarixx.info

Download Page : Download

400 Free PNG Icon For Your Application

2008-05-23T20:42:00.004+08:00

Enhance Your Application with this 400 Free Icon.

Over 400 Free Icon in 10x10 and 16x16 pixel size ready to enchance your Application Interface. you can use this icon for any personal or commercial purpose/projects - absolutely free.

Publisher: www.pinvoke.com

Download Here (291 KB)

Membuat Aplikasi Database Berbasis Table XML Dengan Delphi 2007

2008-05-20T21:18:00.007+08:00

Umumnya setiap Aplikasi Database menggunakan File Database dengan format umum seperti Microsoft Access, Paradox, DBase atau jika Aplikasi Database Client-Server akan menggunakan Database Software seperti SQL Server, Oracle dan lain sebagainya. nah Pada tutorial pemrograman Delphi kali ini saya akan sharing cara membuat aplikasi Database dengan Table berbasis file XML. Aplikasi ini cocok untuk Aplikasi Database Desktop single user misalnya seperti aplikasi untuk me-manage daftar situs web penting/favorit kamu atau bisa juga untuk me-manage koleksi film DVD yang kamu punya, dan lain2. ini adalah contoh Aplikasi Database berbasis XML sederhana, namun tujuannya dari artikel ini adalah sharing pengetahuan kepada kamu yang mungkin belum mengetahui cara melakukan manipulasi data ke dalam file format XML yang mencakup Retrieve/Find (Select), Append (Insert), Edit (Update), dan Delete Data.

Disini kita akan membuat aplikasi dengan Delphi 2007 untuk me-manage koleksi website favorit kita misalnya. Field-field Data yang kita butuhkan adalah SiteID, SiteURL, dan SiteDesc. Field SiteID adalah ID unik untuk setiap situs, SiteURL adalah alamat URL website dan terakhir SiteDesc adalah deskripsi dari situs ini bisa kita tambahkan sebagai informasi tambahan isi/tema sebuah website.

Dibawah ini adalah table komponen-komponen yang kita butuhkan berserta nilai beberapa propertiesnya:

Komponen	Properties	Value
Form1	Name	Fmain
	Caption	Katalog Web
ClientDataSet	Name	CDS
	FieldDefs	0 - SiteID, DataType: ftInteger, Size: 0 1 - SiteURL, DataType: ftString, Size: 50 2 - SiteDesc, DataType: ftString, Size: 255 Setelah itu klik kanan CDS, kemudian pilih Create Dataset. untuk membentuk struktur dataset diatas
	FileName	KatalogWeb.xml
DataSource1	Name	DS
	DataSet	CDS
GroupBox1	Name	GBsiteList
	Caption	Website List
Edit1	Name	ECari
ListBox1	Name	LBSiteList
GroupBox2	Name	GBNew
	Caption	Data Baru
Edit2	Name	ESiteID
Edit3	Name	ESiteURL
Memo1	Name	MSiteDesc
Button1	Name	BtnOK
	Caption	OK
Button2	Name	BtnCancel
	Caption	Cancel
GroupBox3	Name	GBDetail
	Caption	Website Details
DBEdit1	Name	DBESiteID
	DataSource	DS
	DataField	SiteID
DBEdit2	Name	DBESiteURL
	DataSource	DS
	DataField	SiteURL
DBMemo1	Name	DBMSiteDesc
	DataSource	DS
	DataField	SiteDesc
BitBtn1	Name	BtnDel
BitBtn	Name	BtnEdit
Form2	Name	FEdit
	Caption	Edit Website
Edit4	Name	ESiteID
GroupBox4	Name	GBEdit
	Caption	Detail Website
	Enable	False
Edit5	Name	ESiteURL
Memo2	Name	MSiteDesc
Button3	Name	BtnOK
	Caption	OK
Button4	Name	BtnCancel
	Caption	Cancel
	ModalResult	mrCancel

Application Interface

Tambahkan beberapa label kemudian Atur komponen-komponen diatas sehingga Interface nya menjadi seperti gambar di bawah ini :

Coding

File KatalogWeb.xml akan kita tempatkan satu folder dengan file exe aplikasi ini. Kita akan menambahkan kode Program untuk membuat file KatalogWeb.xml pada saat aplikasi pertama dijalankan untuk itu kita perlu menambahkan kode Program pada event OnCreate Form1 caranya dobel klik Form1 kemudian tambahkan kode Program dibawah ini :

procedure TFMain.FormCreate(Sender: TObject); var namafile : string; begin CDS.Close; //mendapatkan path absolute file KatalogWeb.xml namafile := extractfilepath(application.ExeName)+cds.filename; if not FileExists(namafile) then CDS.CreateDataSet; CDS.Open; //mengosongkan item pada SiteList LBSiteList.Clear; LBSiteList.Items.BeginUpdate; //membuka dan menampilkan recordset CDS.First; while not CDS.Eof do begin LBSiteList.Items.Add(CDS.FieldByName('SiteURL').AsString); CDS.Next; end; LBSiteList.Items.EndUpdate; ESiteID.Text := IntToStr(Succ(LBSiteList.Items.Count)); end;

Variabel NamaFile digunakan untuk menampung path lengkap (absolute path) nama file dari file XML yang akan kita gunakan sebagai tempat penyimpanan data aplikasi ini. function ExtractFilePath(application.ExeName) akan mendapatkan path lengkap dimana file .exe aplikasi ini berada. jadi jika kamu menempatkan aplikasi ini pada folder C:\Programming\Delphi\Database\Katalog Web\WebCatalog.exe misalnya, maka function ini akan menghasilkan string C:\Programming\Delphi\Database\Katalog Web\. Sehingga kode program extractfilepath(application.ExeName)+CDS.filename akan menghasilkan string path lengkap ke file KatalogWeb.xml dalam contoh saya adalah C:\Programming\Delphi\Database\Katalog Web\KatalogWeb.xml.

Menambahkan Data

Dobel klik BtnOK pada form FMain kemudian tambahkan kode Program berikut

procedure TFMain.BtnOKClick(Sender: TObject); begin CDS.AppendRecord([StrToInt(ESiteID.Text), ESiteURL.Text, MSiteDesc.Text]); ECari.Clear; // refresh listbox daftar web LBSiteList.Clear; LBSiteList.Items.BeginUpdate; //membuka dan menampilkan recordset pada LBSiteList CDS.First; while not CDS.Eof do begin LBSiteList.Items.Add(CDS.FieldByName('SiteURL').AsString); CDS.Next; end; LBSiteList.Items.EndUpdate; ESiteID.Text := IntToStr(Succ(LBSiteList.Items.Count)); ESiteURL.Clear; msitedesc.clear; ESiteURL.SetFocus; end;

Mencari Data

masukan kode Program berikut pada event OnChange komponen ECari

procedure TFMain.ECariChange(Sender: TObject); const SUBSTRING = 'Substring(SiteURL, 1, %d) = ''%s'''; var URLPilih: string; begin CDS.Filter := Format(SUBSTRING, [Length(ECari.Text), ECari.Text]); //mem-filter dataset jika teks ECari tidak kosong CDS.Filtered := ECari.Text <> ''; LBSiteList.Clear; LBSiteList.Items.BeginUpdate; //membuka dan menampilkan recordset CDS.First; while not CDS.Eof do begin LBSiteList.Items.Add(CDS.FieldByName('SiteURL').AsString); CDS.Next; end; LBSiteList.Items.EndUpdate; //mendapatkan nilai SiteID selanjutnya (Successor) //berdasarkan jumlah item yg ada di LBSiteList ESiteID.Text := IntToStr(Succ(LBSiteList.Items.Count)); URLPilih := CDS.FieldByName('SiteURL').AsString; LBSiteList.ItemIndex := LBSiteList.Items.IndexOf(URLPilih); end;

Menampilkan Detail Data Website ketika item di LBSiteList diklik

Dobel klik LBSiteList, masukan kode Program berikut

if LBSiteList.ItemIndex <> -1 then CDS.Locate('SiteURL', LBSiteList.Items[LBSiteList.ItemIndex], []);

Mengedit Data

Karena Aplikasi ini akan memanggil Form FEdit dari FMain, maka terlebih dahulu deklarasikan unit UEdit di Unit Umain. caranya ketikan Uses UEdit; di bawah implementation pada unit Umain. Setelah itu dobel klik BtnEdit kemudian masukan kode Program berikut pada Unit UMain.pas (Fmain)

with TFEdit.Create(Self) do begin ESiteID.Text := cds.FieldByName('SiteID').AsString; ESiteURL.Text := cds.FieldByName('SiteURL').AsString; MSiteDesc.Text := cds.FieldByName('SiteDesc').AsString; ShowModal; if ModalResult = mrOK then begin CDS.Edit; cds.Fields[1].Value := ESiteURL.Text; cds.Fields[2].Value := MSiteDesc.Text; cds.Post; ECari.Clear; LBSiteList.Clear; LBSiteList.Items.BeginUpdate; CDS.First; LBSiteList.Clear; while not CDS.Eof do begin LBSiteList.Items.Add(CDS.FieldByName('SiteURL').AsString); CDS.Next; end; LBSiteList.Items.EndUpdate; end; Free; end;

dan kode Program berikut pada unit UEdit.pas (FEdit)

procedure TFEdit.BtnOKClick(Sender: TObject); const valid: array[Boolean] of TModalResult = (mrNone, mrOK); begin //modalResult = mrOK jika ESiteURL dan MSiteDesc diisi //selain dari itu modalResult = mrNone ModalResult := valid[(ESiteURL.Text <> '') and (MSiteDesc.Text <> '')]; if ModalResult = mrNone then MessageDlg('URL dan deskripsi situs harus diisi', mtInformation, [mbOK], 0); end;

Menghapus Data

Dobel klik button btnDel kemudian tambahkan kode Program berikut

const konfirmasi = 'Anda akan menghapus alamat URL :'#13; begin //konfirmasi hapus Record if MessageDlg(konfirmasi + LBSiteList.Items[LBSiteList.ItemIndex] + #13'Lanjutkan?', mtConfirmation, mbYesNo, 0) = mrYes then begin CDS.Delete; LBSiteList.Clear; LBSiteList.Items.BeginUpdate; //membuka dan menampilkan recordset CDS.First; while not CDS.Eof do begin LBSiteList.Items.Add(CDS.FieldByName('SiteURL').AsString); CDS.Next; end; LBSiteList.Items.EndUpdate; ESiteID.Text := IntToStr(Succ(LBSiteList.Items.Count)); end; end;

selengkapnya kamu bisa download Source Code Aplikasi ini disini.

MySQL Database Administration Tools Gratis:DreamCoder for MySQL 4.1.1.5

2008-05-14T21:01:00.007+08:00

Seperti DreamCoder for Oracle, DreamCoder for MySQL free edition adalah sebuah Database Admin tool gratis dari Mentat Technologies yang bisa digunakan untuk Administrasi dan Development Database MySQL. Meskipun feature untuk free edition ini tidak selengkap dengan yang versi komersialnya, namun software ini mempunyai feature yang sangat berguna untuk Administrasi Database sederhana seperti Create Table, Create User, Create Database, Generate Table SQL dan lain-lain. Selain sebagai SQL Editor, tool ini juga menyediakan kemudahan dalam Administrasi Database seperti User Management (Create, Drop User), Database Object Management (Create Database, Create Table, Create Function, Index) dan berbagai feature lain. Selengkapnya kamu bisa baca deskripsi dari publishernya dibawah ini, atau kunjungi langsung home page publishernya diatas.

DreamCoder for MySQL Description :

DreamCoder for MySQL is a powerful software solution for MySQL Database administration and development. Our very intuitive interface will save you time and money.

DreamCoder for MySQL works with all MySQL versions from 3.23 to 6.0 and supports all MySQL features including tables, views, procedures, functions, triggers, InnoDB Tables, foreign keys , UDFS, BLOB Types, etc. It also includes the most advanced options for data manipulation, build queries visually, execute queries, script execution, reports generation, database monitoring and export and import data to/from most popular file formats.

DreamCoder for MySQL replace the popular MySQL Turbo Manager. DreamCoder for MySQL is a professional database tool for both expert and inexperienced MySQL users.

Principal features

SSH Tunnel connection

Characterset Encodings (UTF8, GB2312, BIG5, Hebrew, Greek, etc.)

SSL connection

Administration of project

MDI Interface - Microsoft Office Style

User Manager

Report Designer - build powerful reports visually

HTML Report Generator

Master Detail Table Browser

Database Reports

SQL Formatter

Database Data Synchronization

Database Structure Synchronization

Advanced Query Builder

Object Description

List Value for foreing keys

SQL History

Powerful PHP code editor

Powerful HTML code editor

Powerful Java code editor

Powerful XML code editor

PHP Highlighter

Java Highlighter

HTML Highlighter

XML Highlighter

Procedure Evaluator

UDF Manager

BLob Viewer

Database Transfer

Clone Object

Export Manager

Connection manager

Graphical TABLE status

Graphical databases status

Generate Table SQL

SQL Autocomplete

Constraint Manager

Index Manager

Graphical Session Monitor

Foreign key support for InnoDB tables

System requirements

DreamCoder for MySQL will run on Windows 95, 98, NT4, 2000, 2003 and XP. The supported MySQL Server versions are 3.23, 4.0, 4.1 and 6.0 or higher on any platform. To connect to an MySQL database, DreamCoder for MySQL only requires TCP/IP.

Download : Disini (10.03 MB)

Database Admin Tool Gratis: DreamCoder for Oracle 2.1.1.0 Free Edition

2008-05-14T20:28:00.006+08:00

DreamCoder for Oracle adalah salah satu SQL Editor sekaligus Database Administration Tool untuk Oracle Developer/Oracle SQL Developer dari Mentat Technologies. DreamCoder for Oracle ini terdiri dari 5 versi yaitu versi DBA, Enterprise, Profesional, Standard, dan versi free. nah yang sedang saya bicarakan ini adalah yang versi free. Meskipun free tapi featurenya lumayan diantaranya syntax highlighting, integrated SQL Plus Console, Advance query Builder, Object Browser dan lain-lain. Selain itu juga Software ini menyertakan File help yang cukup membantu yang berisi Penjelasan tentang error code di Oracle, beberapa Syntax SQL Oracle dan beberapa Function SQL Oracle umum.

dibawah ini adalah dan Feature dan deskripsi DreamCoder dari sang publisher:

DreamCoder for Oracle Description:

DreamCoder for Oracle is a powerful Integrated Development Environment (IDE) for Oracle Databases. Using the intuitive DreamCoder's GUI will increase your code quality and reduce the development process time.

DreamCoder for Oracle easily enables you to build and execute queries, build and execute scripts, compile and debug SQL and PL/SQL code, create and modify database objects, import and export data, enable user session monitoring and database monitoring among other features.

DreamCoder for Oracle offers powerful visual tools to increase your productivity such as a SQL editor, procedure builder, master detail table browser, parameter manager, code inspector, describe objects, SQL Formatter, SQL Plus Console, Lov Viewer, object extractor, database reports and more.

Principal features

Powerful PL/SQL Editor

Procedure Builder

Master detail Table browser

Parameter Manager

Value List for foreign keys

Code Inspector

Procedure Evaluator

Synonym Manager

Describe all objects (F4)

SQL and PL/SQL Code Formatter(Only Enterprise Edition)

Database system monitor (Only Professional Edition)

SQL Plus Console

Lov Viewer

CLOB support

Database Session monitor

SQL Window

Administration of project

Object Browser

Non-PL/SQL Objects

Template List

Compare User Objects

Export User Objects

Advanced Query Builder

Describe Object

Object Finder

Filter of Objects

Recycle bin (10g)

Object extractor

SQL History

Database reports

Object compiler assistant

Support partition tables and partition indexes

DML code generator

Integrated Debugger (requires Oracle 7.3.4 or later)

Direct connection without SQL*Net.

Account Password Encryption.

MDI Interface - Microsoft Office Style

Workgroup development

Dockable environment

Easy installation

System requirements:

DreamCoder will run on Windows 95, 98, NT4, 2000, 2003 and XP. The supported Oracle Server versions are 8i, 9i and 10g on any platform. To connect to an Oracle database, DreamCoder only requires a 32-bit SQL*Net or Net 8 or Net 9 version to debugger.

Download Disini (12.0 MB)

Info Software: MySQL 6.0 Database - Alpha Release

2008-05-10T20:56:00.007+08:00

Open Source Database Populer

Deskripsi dari Publisher

NOTE: This alpha release, as any other pre-production release, should not be installed on production level systems or systems with critical data. It is good practice to back up your data before installing any new version of software. Although MySQL has worked very hard to ensure a high level of quality, protect your data by making a backup as you would for any other software beta release. MySQL generally recommends that you dump and reload your tables from any previous version to upgrade to 6.0.

The new Falcon transactional storage engine ("The Falcon Storage Engine")

Optimizer enhancements for faster subqueries and joins, including batched index access of table rows for sequences of disjoint ranges by the MyISAM and InnoDB storage engines

Support for additional Unicode character sets: utf16, utf32, and 4-byte utf8. These character sets support supplementary Unicode characters; that is, characters outside the Basic Multilingual Plane (BMP).

RESET SLAVE no longer changes replication connection parameters; previously, it reset them to the values specified on the command line

Enhancements to XML functionality, including a new LOAD XML statement

Replication conflict detection and resolution

Online ADD COLUMN, ADD INDEX, and DROP INDEX operations

Replication heartbeats, which enable real-time detection of replication failures and real-time failover

Publisher : dev.mysql.com

Download Disini

Info Software: Access Database Recovery Software - Gratis

2008-05-10T20:27:00.008+08:00

Software ini bisa digunakan untuk memperbaiki file ms Access yang corrupt

Deskripsi dari publisher:

Access Database Mechanic is a free tool from aadconsulting.com. this tool will automaticaly attempt to recover a corrupt MS Access database, using three operations: compact & repair, decompile, and complete rebuild of an .mdb. The applet also features a fail-safe mechanism that creates a uniquely named back-up copy of the .mdb before any recovery operation is attempted. This Versions Works on Access2000/2002/2003.

Version 1.1 adds:

Support for the Microsoft JET Compact Repair Utility

Now features rebuild for addtional objects: Import/Export Specifications, References, and Custom CommandBars

File download is one-fifth the size of v1.0 with a new and faster Install set.

Publisher : www.aadconsulting.com

Download disini

Database Application Using SQL Statement in Visual Basic 6

2008-05-09T17:54:00.011+08:00

Pada tutorial kali ini saya akan menjelaskan bagaimana cara memanipulasi data menggunakan SQL Statement di Visual Basic. Tujuan tutorial ini adalah agar pembaca bisa memahami bagaimana cara menggunakan SQL Statement untuk memanipulasi data di Visual Basic oleh karena itu tutorial ini dibuat se-jelas dan se-sederhana mungkin tetapi tidak mengesampingkan pemahaman pokok tentang operasi DML dengan SQL Statement.

Buat sebuah File Database menggunakan Microsoft Access, simpan di c:\Sample dengan nama DBSample.mdb

Buat sebuah table dengan nama Products dengan struktur sebagai berikut :

ProductID Text(20)

Description Text(50)

Price number(Double)

Masuk ke Visual Basic, buat sebuah project Standard.EXE simpan di c:\Sample dengan nama SQLDML.vbp

Tambahkan tiga buah Textbox : txtPid, txtDesc, dan txtPrice

Tambahkan tiga buah Label : lblPid, lblDesc, dan lblPrice

Tambahkan tiga buah Button : cmdSave, cmdUpdate, cmdDelete, cmdSearch

Tambahkan lagi empat buah button untuk navigasi record : cmdFirst, cmdPrev, cmdNext, cmdLast

Koneksi dengan Database MS Access

Masuk code editor, deklarasikan dua buah variabel untuk koneksi Database dan Recordset

Dim AccessConn As New ADODB.Connection Dim rsProduct As New ADODB.Recordset

Dobel klik Form1, tambahkan kode program berikut :

Set AccessConn = New ADODB.Connection AccessConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\DBSample.mdb;Persist Security Info=False" 'kode program App.Path akan menghasilkan path dari file .exe aplikasi ini 'yaitu C:\Sample 'buka koneksi AccessConn.Open SQLStr = "select * from products" Set rsProduct = New ADODB.Recordset rsProduct.Open SQLStr, AccessConn, adOpenDynamic, adLockOptimistic, adCmdText

Menambah Data dengan SQL Insert Statement

Dobel klik button cmdSave, tambahkan kode program berikut :

Dim SQLStr As String 'deklarasi variabel SQLStr 'yang nantinya akan digunakan untuk perintah SQL SQLStr = "insert into products (productid,description,price) " & _ "values('" & txtPid & "','" & txtDesc & "','" & txtPrice & "')" 'Execute SQL Command AccessConn.Execute SQLStr, , cmdtypetext 'tampilkan pesan MsgBox "Data telah tersimpan", vbInformation, "Informasi" 'refresh dataset rsproduct agar record baru langsung terlihat rsProduct.Requery 'clear textbox txtPid = "" txtDesc = "" txtPrice = "" txtPid.SetFocus

Mencari Data dengan SQL Select Statement

Karena SQL Select Statement menghasilkan/mengembalikan satu atau lebih record maka perlu dideklarasikan sebuah variabel recordset baru yaitu rsproductsCari untuk menampung recordset hasil query pencarian

Dobel klik button cmdSearch, tambahkan kode Program berikut :

Dim SQLStr As String Dim rsproductsCari As New ADODB.Recordset 'mencari product berdasarkan productid SQLStr = "select * from products where productid = '" & txtPid & "'" Set rsproductsCari = New ADODB.Recordset rsproductsCari.Open SQLStr, AccessConn, adOpenDynamic, adLockOptimistic, adCmdText If Not rsproductsCari.BOF And Not rsproductsCari.EOF Then 'jika data ada, tampilkan record pada textbox txtPid = rsproductsCari!productid txtDesc = rsproductsCari!Description txtPrice = rsproductsCari!price Else 'jika tidak ada, tampilkan pesan MsgBox "Data tidak ditemukan", vbInformation, "Informasi" 'clear textbox txtPid = "" txtDesc = "" txtPrice = "" txtPid.SetFocus End If

Mengedit Data dengan SQL Update Statement

Dobel klik button cmdUpdate, tambahkan kode Program berikut :

Dim SQLStr As String SQLStr = "update products set description='" & txtDesc & "'," & _ "price='" & txtPrice & "' where productid='" & txtPid & "'" Set rsProduct = AccessConn.Execute(SQLStr, , cmdtypetext) 'refresh dataset rsproduct agar record baru langsung terlihat rsProduct.Requery 'tampilkan pesan MsgBox "Perubahan telah tersimpan", vbInformation, "Informasi" 'clear textbox txtPid = "" txtDesc = "" txtPrice = "" txtPid.SetFocus

Menghapus Data dengan SQL Delete Statement

Dobel klik button cmdDelete, tambahkan kode Program berikut :

Dim SQLStr As String Dim msgresult As Byte 'deklarasi variabel msgresult 'digunakan untuk menangkap result dari pesan konfirmasi delete msgresult = MsgBox("Hapus Data produk " & txtPid, vbYesNo + vbQuestion, "Confirm") If msgresult = vbYes Then SQLStr = "delete from products where productid='" & txtPid & "'" Set rsProduct = AccessConn.Execute(SQLStr, , cmdtypetext) 'refresh dataset rsproduct agar record baru langsung terlihat rsProduct.Requery 'clear textbox txtPid = "" txtDesc = "" txtPrice = "" txtPid.SetFocus End If

Navigasi Record Dengan Kode Program

Ini adalah kode Program untuk navigasi record ke posisi record pertama.

Dobel klik button cmdFirst, tambahkan kode Program berikut :

On Error Resume Next rsProduct.MoveFirst 'menampilkan data txtPid = rsProduct!productid txtDesc = rsProduct!Description txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record sebelumnya. jika record sudah di posisi record pertama, maka pointer tetap akan diarahkan ke record pertama. kamu bisa ganti kode Program rsproduct.MoveFirst dengan rsproduct.MoveLast agar navigasi kembali ke record terakhir setelah berada pada record pertama.

Dobel klik button cmdPrev, tambahkan kode Program berikut :

On Error Resume Next rsProduct.MovePrevious If rsProduct.BOF Then rsProduct.MoveFirst End If 'menampilkan data txtPid = rsProduct!productid txtDesc = rsProduct!Description txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record berikutnya. jika record sudah di posisi record terakhir, maka pointer tetap akan diarahkan ke record terakhir. kamu bisa ganti kode Program rsproduct.MoveLast dengan rsproduct.MoveFirst agar navigasi kembali ke record pertama setelah berada pada record terakhir.

Dobel klik button cmdNext, tambahkan kode Program berikut :

On Error Resume Next rsProduct.MoveNext If rsProduct.EOF Then rsProduct.MoveLast End If 'menampilkan data txtPid = rsProduct!productid txtDesc = rsProduct!Description txtPrice = rsProduct!price

Kode Program untuk navigasi record ke posisi record terakhir.

Dobel klik button cmdLast, tambahkan kode Program berikut :

On Error Resume Next rsProduct.MoveLast 'menampilkan data txtPid = rsProduct!productid txtDesc = rsProduct!Description txtPrice = rsProduct!price

Kamu bisa Download Source Code Aplikasi ini disini. Semoga bermanfaat

Tips Pemrograman Delphi: Pengaturan Layout Control Dengan Anchors

2008-05-05T18:38:00.009+08:00

Mungkin ini adalah tips Delphi sederhana, tetapi banyak para Delphiers pemula belum mengetahui fungsi dari properties Anchors ini. Properties Anchors ini dimiliki oleh hampir semua komponen yang bisa dilihat pada saat Runtime di Delphi seperti komponen Edit, DBGrid, Combobox, Listbox, Memo dan lain-lain.

Fungsi dari Properties Anchors ini adalah untuk menjaga posisi ujung (edge) sebuah Control terhadap sebuah ujung parent nya. dengan begitu sebuah control/komponen akan mempunyai posisi yang relative terhadap parent nya meskipun Window parent nya di Resize atau di Maximize. Sebagai contoh jika Sebuah control di set properties Anchors left dan Right nya, maka lebar control tersebut akan mengikuti ukuran parent nya ketika parent tersebut di-Resize atau di-Maximize, begitu pula jika diset properties Anchors Top dan Bottom nya maka, sebuah komponen Control akan mengikuti ukuran tinggi dari parent nya.

Agar lebih jelas kamu bisa ikuti langkah-langkah berikut ini :

Buat sebuah Project Baru tambahkan sebuah Memo dan Button sehingga Interface nya seperti gambar dibawah ini

Set Properties Anchors Left dan Right komponen Memo menjadi True dan Set Propeties Anchors Right dan Buttom komponen Button menjadi True

Run Program

Sekarang coba kamu resize window Form1

Kamu bisa lihat lebar komponen Memo1 mengikuti parent nya yaitu Form1 ketika di resize atau di maximize dan sisi kiri dan kanan komponen Memo1 mempunyai jarak yang tetap dengan sisi kiri dan kanan Form1 seperti pada saat Design. sedangkan ujung atas dan bawah komponen Memo1 tidak. Sedangkan komponen Button1 hanya menjaga jarak sisi kanan dan bawahnya saja karena kita tadi hanya men-set properties Anchors Right dan Bottom saja, sehingga Button1 tidak ikut Stretch ketika Form1 di Resize atau di Maximize.

Kamu bisa set Properties Anchors Top dan Bottom komponen Memo1 menjadi True agar semua sisinya mengikuti Parent nya sehingga posisinya relative terhadap parent nya.

Beberapa Cara Untuk Menghubungkan Visual Basic Dengan Database MS SQL Server

2008-05-05T17:55:00.012+08:00

Ada beberapa metode untuk menghubungkan Visual Basic dengan Database MS SQL Server saya akan memberikan penjelasan 2 metode diantaranya yaitu koneksi dengan menggunakan komponen DataEnvironment dan koneksi dengan menggunakan kode Program. untuk tutorial ini saya menggunakan Visual Basic 6 dan MS SQL Server 2000.

1. Koneksi menggunakan DataEnvironment

Buat Project Standard EXE

Klik menu Project | Add Data Environment, maka akan ditampilkan jendela Data Environment seperti ini :

Untuk membangun koneksi dengan Database SQL Server, Klik kanan objek Connection1 kemudian pilih Properties maka akan muncul jendela Data Link Properties.

Pada jendela Data Link Properties pilih driver untuk koneksi ke MS SQL Server, yaitu Microsoft OLE DB Provider for SQL Server. kemudian klik Next

Isi dengan nama server MS SQL Server kamu pada textbox "Select or enter a server name" (nama server adalah nama komputer kamu)

Pilih radio button "use a specific username and password" pada bagian 2.Enter information to log on to the server.

pada textbox username dan password isi dengan username dan password yang terdaftar di Database SQL Server kamu misalnya "sa" (user sa defaultnya tidak memiliki password). pada contoh ini saya menggunakan username 'yanadoe' dengan password 'bebas'.

sebagai tambahan, user sa adalah user yang mempunyai kewenangan penuh terhadap system di MS SQL Server atau disebut system administrator. user ini dibuat secara otomatis oleh MS SQL Server ketika proses instalasi.

setelah kamu lakukan langkah diatas, centang Checkbox "Allow saving password" agar kamu tidak perlu menginputkan lagi username dan password setiap kali aplikasi akan dijalankan.

Pilih database Northwind pada textbox "Select the database on the server". klik tombol Test Connection untuk mengetahui apakah koneksi sudah berhasil atau tidak jika sukses klik tombol OK untuk menutup window dialog Data Link Properties

Setelah tahap diatas, koneksi dari Visual Basic ke Database MS SQL Server sudah terbentuk selanjutnya untuk mengambil data dari sebuah table di Database pertama kamu harus menambahkan sebuah Command pada DataEnvironment, Caranya sebagai berikut :

Mengambil Data dari Database

Klik kanan pada jendela DataEnvironment, pilih Add Command. maka akan dibuat sebuah object dengan nama Command1

Klik kanan Command1, pilih Properties. setelah muncul jendela Command1 Properties, pilih Table pada bagian Database Object, dan pilih sebuah table pada bagian Object Name misalnya table Customers. kemudian klik OK

Menampilkan Data dengan DataGrid

Pertama kamu harus menambahkan komponen DataGrid pada ToolBox caranya : klik menu Project | Components, pada jendela Components pilih Microsoft DataGrid Control 6.0

Setelah objek DataGrid ditambahkan pada Toolbox, klik komponen DataGrid tersebut kemudian Click and Drag pada Form1.

Set Properties DataSource menjadi DataEnvironment1, dan Properties DataMember menjadi Command1

Klik kanan pada DataGrid, pilih Retrieve Fields klik OK pada Message Dialog yang muncul

Data pada table tidak akan langsung ditampilkan pada saat Design, untuk melihat datanya kamu harus Run Program dengan menekan F5.

2. Koneksi Menggunakan Kode Program

Pada metode yang kedua ini kita tidak akan menggunakan Komponen Visual untuk mengakses Database SQL Server dari Visual Basic. kita akan menggunakan kode program untuk melakukannya. inilah langkah-langkahnya :

Masuk ke Code Editor

Deklarasikan variabel untuk koneksi ke Database SQL Server

Public SQLServerConn As ADODB.Connection

Karena koneksi ke Database harus sudah tersedia ketika aplikasi akan dijalankan, maka kita harus menambahkan kode Program pada event OnLoad Form1. Caranya dobel klik Form1, kemudian tambahkan kode Program dibawah ini :

Set variable SQLServerConn sebagai sebuah ADO Database Connection.

Set SQLServerConn = New ADODB.Connection

Set Parameter String Koneksi variable SQLServerConn agar terhubung dengan Database SQL Server

SQLServerConn.ConnectionString = "Provider=SQLOLEDB.1;" & _ "Password=bebas;Persist Security Info=false;" & _ "User ID=yanadoe;Initial Catalog=Northwind;Data Source=siberat"

Buka koneksi

SQLServerConn.Open

Coba kamu Stop Service Database SQL Server menggunakan SQL Server Service Manager, dan Run Porgram, maka akan tampil Error message seperti ini :

Kita akan menambahkan kode program untuk memeriksa status Service Database SQL Server apakah berjalan atau tidak. jika tidak maka akan ditampilkan error message versi kita jika service Database SQL Server tidak berjalan. untuk melakukannya, gunakan kode program dibawah ini :

On Error Resume Next 'memeriksa status Database 'pesan error yang akan muncul jika Database SQL Server 'dalam keadaan mati (service dalam status stop) If Err.Number = -2147467259 Then MsgBox "Tidak dapat menghubungi Database SQL Server." & vbCrLf & _ "Pastikan Service Database SQL Server sudah berjalan", vbCritical , "Koneksi Gagal" End 'Tutup Aplikasi End If

Tips : Kamu bisa gunakan komponen ADODC untuk mendapatkan parameter ConnectionString seperti diatas, caranya sebagai berikut:

tempatkan sebuah komponen ADODC pada form

Klik kanan, pilih ADODC Properties, Klik Build, akan muncul jendela Property Pages.

Lakukan langkah 4 s/d langkah 10 pada Koneksi menggunakan DataEnvironment diatas. setelah itu Copy string koneksi yang ada bagian "Use Connection String" jendela Property Pages. metode ini bisa juga digunakan untuk mendapatkan parameter ConnectionString untuk jenis Database yang lain

Itulah Tutorial singkat Pemrograman Visual Basic untuk menghubungkan Visual Basic dengan Database SQL Server. Semoga bermanfaat.

Tip dan Trik Windows : Tunning Windows XP Menu Speed

2008-04-26T09:41:00.003+08:00

Tunning Menu Speed

Ini adalah tips buat kamu yang belum mengetahui bagaimana caranya mempercepat tampilan menu di Windows XP.

Biar perbedaannya terlihat coba deh kamu klik Start Menu kemudian arahkan Cursor Mouse ke salah satu menu. Windows akan menunda beberapa saat sebelum menampilkan sebuah menu atau sub menu penundaan ini disebut juga dengan Menu Delay. Defaultnya Windows XP memberikan nilai 400 milisecond untuk Menu Delay ini. kamu bisa mempercepat tampilan menu dengan sedikit modifikasi di Registry menggunakan Registry Editor.

masuk ke registry editor : klik Start Menu | Run kemudian ketik Regedit.

Arahkah ke HKEY_CURRENT_USER\Control Panel\Desktop

kemudian di jendela sebelah kanan cari key dengan nama MenuShowDelay

Dobel klik key tersebut, pada text box value data ganti dengan nilai yang lebih kecil misalnya 10.

Setelah kamu ubah nilai tersebut, tutup Registry Editor dan reboot komputermu.

Setelah masuk windows coba kamu lihat perbedaannya dengan mengklik Start Menu dan mengarahkan Cursor Mouse ke sebuah Menu atau Sub Menu. menu tampil lebih cepat bukan

Tunning ini berlaku untuk semua menu yang ada di Windows baik itu di Start Menu ataupun menu-menu lain yang ada pada sebuah Window. semoga bermanfaat :).

Tutorial Pemrograman Delphi : Membuat Menu ber-Icon

2008-04-17T20:13:00.009+08:00

Ini adalah tutorial singkat pemrograman Delphi untuk membuat menu dengan icon disampingnya. Sebagai contoh saya akan membuat menu dengan struktur menu seperti ini :

untuk membuat menu ber-Icon seperti diatas, inilah langkah-langkahnya :

Buat Project Baru di Delphi

Tambahkan komponen ActionManager , ActionMainMenuBar yang ada di tab Additional

Tambahkan komponen ImageList yang ada di tab win32

Dobel klik komponen ActionManager, akan muncul Form Editing ActionManager

klik pada icon New Icon atau tekan tombol Insert pada keyboard untuk menambahkan sebuah Action

Untuk merubah judul menu, klik sebuah Action kemudian rubah properties Caption pada Object Inspector.

Untuk mengelompokan sebuah Action atau beberapa Action sekaligus kedalam sebuah menu : Klik Action tersebut, atau beberapa Action sekaligus kemudian rubah properties Category nya menjadi nama menu misalnya dalam contoh ini adalah "Master Data".

Masukkan Icon yang akan digunakan kedalam komponen ImageList caranya : dobel klik komponen ImageList, pada dialog yang muncul klik tombol add. pilih file icon (*.ico) atau file bitmap image (*.bmp) yang akan kamu pergunakan sebagai icon disamping menu tersebut kemudian klik ok.

Set properties Image komponen ActionManager menjadi ImageList1 untuk "memberitahu" komponen ActionManager bahwa kita akan menggunakan image yang ada padi komponen ImageList.

Assign Icon untuk setiap menu caranya : dobel klik komponen ActionManager1, dibawah Listbox Categories pilih category yang telah kita buat tadi yaitu "Master Data" kemudian di Listbox sebelah kanan (Actions) klik sebuah Action, pada object inspector set properties ImageIndex menjadi index image yang ada di ImageList misalnya 0 (index dimulai dari 0).

untuk menampilkan menu kedalam form caranya : dobel klik ActionManager1, drag and drop category "Master Data" kedalam komponen ActionMainMenuBar1.

Run Aplikasi, disana terlihat bahwa menu belum aktif, untuk mengaktifkan menu kamu harus tambahkan kode program ke masing menu-menu tersebut. sebagai contoh kamu bisa tambahkan kode program berikut ke masing-masing menu tersebut :


messagedlg('Test Iconic Menu With ActionManager Component',mtinformation,[mbok],0);

Itulah tutorial dan Tips pemrogramman Delphi untuk membuat menu ber-icon, mudah-mudahan bisa bermanfaat.

Membuat Aplikasi FastReport Stand Alone dengan Delphi dan FastReport Component

2008-04-08T16:59:00.005+08:00

sebagai Delphi Developer atau Delphi Programmer anda pasti tahu dengan FastReport. FastReport adalah sebuah komponen atau reporting tool untuk mencetak laporan-laporan. Sebenarnya FastReport ini ada dua versi (koreksi kalau saya salah) yaitu FastReport Studio yang bisa Stand Alone (Stand Alone Application) atau bisa berdiri sendiri (seperti Crystal Report), dan FastReport Component For Delphi. FastReport Component for Delphi ini hanya bisa diinstall di Compiler Delphi IDE, sedangkan FastReport Studio Stand Alone bisa diakses oleh Compiler lain seperti Visual Basic melalui ActiveX Object.

Kebetulan di tempat kerja sering diminta laporan yang ga ada di aplikasi perusahaan, jadi saya buat deh aplikasi FastReport Studio versi saya ini dan saya sebut "My Report Studio" : ). pada tutorial Delphi kali ini saya akan memandu kamu untuk membuat aplikasi FastReport Stand Alone agar bisa dijalankan tanpa menggunakan Delphi IDE namun aplikasi ini tidak dapat di akses dari visual basic seperti versi FastReport Studio dari FastReport Inc. Aplikasi ini memanfaatkan fasilitas dan fungsi yang disediakan oleh FastReport Component for Delphi, jadi aplikasi ini mutlak membutuhkan FastReport Component for Delphi. saya anggap kamu sudah mempunyai FastReport Component for Delphi ~~kalau belum cari sendiri di google~~ dan telah di install di Delphi IDE. saya menggunakan FastReport Component versi 3.0

Fitur Aplikasi My Report Studio ini (promosi dikit) :

Bisa mengakses Database seperti Paradox, MS Access, MS SQL Server, MySQL, Oracle, dan semua jenis Database yang bisa diakses via ODBC

Eksport laporan ke jenis file : .pdf, .xls, .doc, .xml, .html, .rtf, .bmp, .jpg, .txt, dan .csv

Kita akan membuat splash screen untuk mempercantik aplikasi ini. form yang akan dijadikan splash screen adalah Form1. jadi idenya adalah ketika aplikasi ini di jalankan, Form1 yang jadi Splash Screen, akan ditampilkan dahulu selama 5 detik, setelah itu baru masuk ke workspace My Report Studio ini. Untuk itu diperlukan sebuah komponen Timer untuk melakukan hal tersebut.

inilah langkah-langkahnya :

Buat sebuah project baru di Delphi

tambahkan sebuah komponen Timer (ada di Tab System), set properties Interval menjadi 5000 agar splash screen ditampilkan selama 5 detik.

tambahkan komponen-komponen berikut :

frxReport1, frxDesigner1, frxADOComponents1, frxBDEComponents1, frxDBXComponents1, frxDBXComponents, frxIBXComponents1 (ada di tab FastReport 3.0).

frxPDFExport1, frxHTMLExport1, frxXLSExport1, frxXMLExport1, frxRTFExport1, frxBMPExport1, TfrxBMPExport, frxJPEGExport1, frxSimpleTextExport1, frxCSVExport1, frxTXTExport1 (ada di tab FastReport 3 Exports).

Sehingga tampilan saat design nya seperti :

Dobel klik komponen timer kemudian tambahkan kode perintah berikut ini :


form1.Hide;

timer1.Enabled := false;

frxReport1.DesignReport;

application.Terminate;

Run Program dengan menekan tombol F9, maka akan ditampilkan splash screen seperti ini, sebelum masuk ke My Report Studio :

dan ini adalah screenshot workspace My Report Studio :

Itulah tutorial delphi untuk membuat aplikasi My Report Studio ini. Sangat sederhana bukan.
Kamu bisa download Source Code dan aplikasinya disini. Mudah-mudahan bisa bermanfaat.

Membuat Aplikasi Grafik Penjualan dengan Delphi dan Database SQL Server - Part 1

2008-04-06T21:54:00.005+08:00

Tutorial Delphi ini berisi panduan untuk membuat aplikasi sederhana untuk menampilkan grafik penjualan sebuah produk per periode tertentu menggunakan Delphi. Tujuan tutorial Delphi ini adalah untuk memberikan panduan atau gambaran tentang bagaimana cara menggunakan komponen DBChart di Delphi. karena tulisan artikel ini cukup panjang dan mengandung banyak screenshoot, maka saya membaginya menjadi 3 bagian yaitu Persiapan, Koneksi DBChart ke Database SQL Server, dan Coding supaya tidak membingungkan dan loading halaman tidak terlalu lama.

Aplikasi ini akan menampilkan grafik penjualan sebuah produk tertentu dan per periode tanggal tertentu berdasarkan inputan dari user yang berupa nama produk dan periode penjualan. Agar lebih mudah maka untuk tutorial Delphi kali ini saya menggunakan tiga buah table di MS SQL Server 2000 yaitu table Orders, Order Details, dan table Products. Untuk koneksi ke database SQL Server saya menggunakan koneksi dengan ADO (Active Data Object). semua operasi DML (Data Manipulation Language) menggunakan SQL Statement jadi diperlukan pengetahuan dasar tentang SQL Statement.

Persiapan

Inilah langkah-langkahnya :

Masuk ke Delphi, tambahkan sebuah komponen ADOConnection yang ada di tab ADO, agar lebih deskriptif ubah property Name ADOConnection1 menjadi SQLServerConn

Dobel klik SQLServerConn, pada dialog yang muncul klik tombol Build kemudian akan muncul window dialog Data Link Properties, pilih Microsoft OLE DB Provider for SQL Server, kemudian klik tombol Next

Isi dengan nama server MS SQL Server kamu pada textbox "Select or enter a server name" (nama server adalah nama komputer kamu)

pada textbox username dan password isi dengan username dan password yang terdaftar di Database SQL Server kamu, pada contoh ini saya menggunakan username 'yanadoe' dengan password 'bebas'. kemudian centang Checkbox "Allow saving password".

Pilih database Northwind pada textbox "Select the database on the server". klik tombol Test Connection untuk mengetahui apakah koneksi sudah berhasil atau tidak jika sukses klik tombol OK untuk menutup window dialog Data Link Properties

Ubah properties Login Prompt SQLServerConn menjadi False agar tidak ditampilkan login prompt ketika kita akan menjalankan aplikasi.

Tambahkan dua buah komponen ADODataset masing-masing beri nama ADSPenjualan dan ADSProduk. ADSProduk digunakan untuk mendapatkan semua nama produk dari table Products di database Northwind

Tambahkan sebuah komponen DBChart yang ada pada tab Data Controls, sebuah ComboBox, dua buah DateTimePicker (ada di tab Win32), sebuah Button beri nama BGenerate dan beberapa Label sehingga tampilannya seperti ini :

Part 2 - Koneksi DBChart ke Database SQL Server >>

Membuat Aplikasi Grafik Penjualan dengan Delphi dan Database SQL Server - Part 2

2008-04-06T21:47:00.006+08:00

Setelah tahap persiapan sudah selesai, tahap selanjutnya adalah menghubungkan ADSPenjualan, ADSProduk ke Database SQL Server melalul komponen ADOConnection dan kemudian menghubungkan DBChart1 ke ADSPenjualan.

Ubah properties Connection ADSPenjualan dan ADSProduk menjadi SQLServerConn agar kedua komponen ini bisa terhubung dengan Database SQL Server. sebagai tambahan kamu juga bisa menggunakan properties Connection String masing-masing komponen ADSPenjualan dan ADSProduk untuk koneksi ke Database, tetapi untuk menghemat koneksi ke-server maka saya menggunakan sebuah komponen ADOConnection sehingga jika ada komponen DBAware yang lain yang akan menggunakan koneksi yang sama, cukup kita hubungkan dengan komponen ADOConnection ini.

masukan sql statement berikut pada properties CommandText ADSPenjualan :


select b.orderdate,sum(a.quantity) jml

from [order details] a, orders b, products c

where a.orderid=b.orderid

and a.productid=c.productid

and c.productname=:pn

and b.orderdate between :tglawal and :tglakhir

group by b.orderdate

order by b.orderdate

pada sql statement diatas terdapat 3 parameter yaitu pn, tglawal, dan tglakhir ketiga parameter tesebut digunakan untuk menampung inputan dari user yaitu nama produk, tanggal awal dan tanggal akhir.

Dobel klik DBChart1, pada window dialog Editing DBChart1, tekan tombol Add kemudian pilih tipe chart yang kamu inginkan, disini saya menggunakan chart tipe Batang (Bar). kalau sudah, tekan tombol OK

Masih di window dialog Editing DBChart1, klik tab Series disebelah kanan tab Chart disana terdapat 4 tab lainnya, klik tab Data Souce, pada combobox dibawahnya pilih Dataset karena kita akan menampilkan Grafik berdasarkan nilai yang diterima dari sebuah Dataset.

Pilih ADSPenjualan pada combobox Dataset.

Pilih Orderdate pada combobox Labels dan pilih JML pada combobox Bar

Masih di window dialog Editing DBChart1 | tab Series, klik tab Marks pada pilihan Style disebelah kanan pilih Value.

Supaya masing-masing grafik batang tidak terlalu berdekatan maka kita harus membatasi jumlah grafik batang perhalamannya dengan cara : klik Tab Chart, klik tab Paging, disana kamu bisa spesifikasikan jumlah batang per halamannya. Saya isi dengan angka 5. jika sudah klik tombol Close.

Untuk menampilkan deskipsi/judul tiap sumbu : masih pada tab Chart, klik tab Axis | tab Title, pada Textbox Title isi dengan Quantity. tadi adalah judul untuk sumbu Y, untuk memberikan judul pada sumbu X, klik tab Titles (disebelah kanan tab Axis), pada combobox pilih Foot, kemudian isikan judul untuk sumbu X pada textbox yang ada dibawahnya

<< Part 1 - Persiapan Part 3 - Coding >>

Membuat Aplikasi Grafik Penjualan dengan Delphi dan Database SQL Server - Part 3

2008-04-06T21:36:00.005+08:00

Coding

Setelah Tahap persiapan dan menghubungkan DBChart ke komponen ADODataset dan Database SQL Server selesai, sekarang kita akan menuju tahap penulisan kode Program (Coding).

Kita akan mengambil data nama produk dari table Products, kemudian akan kita masukkan ke komponen Combobox1 ketika aplikasi pertama kali dijalankan. Untuk itu kita perlu menambahkan beberapa baris perintah pada event OnCreate Form1. Caranya dobel klik Form1 kemudian tambahkan kode perintah berikut ini kedalam Code Editor :


if not sqlserverconn.Connected then

sqlserverconn.Open;

ADSProduk.Close;

ADSProduk.CommandText := 'select productname from products group by productname';

ADSProduk.Open;



while not ADSProduk.Eof do

begin

  combobox1.Items.Add(ADSProduk.FieldValues['productname']);

  ADSProduk.Next;

end;

ADSProduk.Close;

Proses Generate Grafik akan dihandle oleh button BGenerate, Dobel klik Button BGenerate kemudian tambahkan baris perintah berikut pada Code Editor :


ADSpenjualan.Close;

ADSPenjualan.Prepared := true;

ADSPenjualan.Parameters[0].Value := Combobox1.Text;

ADSPenjualan.Parameters[1].Value := DateTimePicker1.Date;

ADSPenjualan.Parameters[2].Value := DateTimePicker2.Date;

ADSPenjualan.Open;



if ADSPenjualan.RecordCount < 1 then

Showmessage('Data Tidak Ada');

Untuk menampilkan judul dibagian atas grafik berdasarkan nama produk yang dipilih, tambahkan kode perintah berikut ini :

dbchart1.Title.Text.Clear;

dbchart1.Title.Text.Add('Grafik Penjualan: '+ combobox1.text);

karena kita tadi membatasi jumlah grafik batang menjadi 5 buah perhalamannya, maka dibutuhkan sebuah kode program untuk menampilkan halaman berikutnya jika jumlah record lebih dari 5. caranya tambahkan dua buah Button masing-masing dengan Caption "<< Sebelumnya" dan "Selanjutnya >>", dobel klik Button dengan Caption ""<< Sebelumnya", kemudian tambahkan kode perintah berikut ini :

dbchart1.PreviousPage;

dan untuk Button "Selanjutnya >>", tambahkan kode perintah berikut ini :

dbchart1.NextPage;

untuk mengetahui halaman saat ini dan jumlah total halaman, pertama kamu tambahkan dulu sebuah label beri nama LHalaman, kemudian gunakan kode perintah berikut ini pada masing masing button BGenerate, Button "<< Sebelumnya", dan button "Selanjutnya >>" :


lhalaman.Caption := 'Halaman : '+inttostr(dbchart1.Page)+'/'+inttostr(dbchart1.NumPages);

Final Screenshot :

Itulah tutorial Delphi tentang dasar cara penggunaan komponen DBChart di Delphi, kamu bisa menambahkan fitur yang lainnya sesuai kebutuhan kamu seperti untuk mencetak grafiknya, menambahkan jenis grafiknya, atau kamu bisa menambahkan grafik penjualan berdasarkan rupiahnya dan lain-lain. Semoga bermanfaat.

Google Desktop: Great Software From Google for Your Desktop Computer

2008-04-01T21:56:00.008+08:00

Google Desktop akan memberikan kemudahan dalam mencari e-mail, file musik, foto, dan file lainnya yang ada di hard drive komputermu seperti halnya kamu melakukan searching segala sesuatu di web. hasil yang diberikan lebih cepat jika dibanding dengan menggunakan fasilitas search yang ada di OS Windows. dan yang paling bermanfaat buatku adalah software ini bisa mencari teks didalam sebuah dokumen mulai dari dokumen teks microsoft word, excel, html dan dan dokumen lainnya wajar kalo proses indexing nya memakan waktu cukup lama tapi kamu ga usah khawatir karena google desktop akan bekerja di background jadi ga akan mengganggu aktivitasmu.

Software ini gratis dari google, kamu hanya tinggal Download di website resminya Google Desktop trus install. setelah selesai install, Google Desktop akan melakukan One Time Indexing file-file yang ada di hard drive komputermu. Sekali proses indexing selesai kamu bisa mencari file-file dengan cepat (kalau dikomputerku biasanya kurang dari 1 detik padahal komputerku komputer JaDul alias Jaman Dulu).

Google desktop juga akan melakukan indexing pada file-file yang ada di flash drive jadi meskipun flash drive kamu ga tertancap di komputer saat melakukan searching file, Google Desktop tetap akan menampilkannya dalam Search Result. Jika ada file baru masuk ke hard drive komputer mu software ini akan otomatis mengindex file tersebut. Dalam paket software ini juga disertakan sidebar yang memberikan informasi dari web seperti informasi email baru, cuaca, photo, berita, dan infomasi lainnya.

Google Desktop Aditional features :

Better Security : added a feature to make your search experience safer and easier by helping to combat both phishing and malicious software websites. Whether you're clicking on links from documents, IMs and e-mails on your desktop or browsing the web itself, you may receive a warning when you're about to visit a site that might be trying to steal your personal information or install malicious software on your computer, so you can decide if you want to use the site.

Lock Search : Mengunci atau menonaktifkan Desktop search untuk sementara untuk mencegah seseorang yang tidak anda inginkan melakukan desktop search di komputer anda.

Improved! Outlook Integration : mengintegrasikan toolbar Desktop search kedalam Microsoft Outlook untuk memudahkan dan menambah kenyamanan dalam pencarian email.

Info: desktop.google.com

Tukeran Link dengan Blog ini

2008-04-01T21:45:00.004+08:00

Buat blogger yang mau tukeran link dengan blog ini silahkan copy dan paste kode html pada form dibawah ini.

Programming Tutorial

mohon konfirmasikan komentar pada form Post Comment yang disebelah kanan anda jika anda sudah menempatkan link ke blog ini di blog anda.

Sorting Data Using SQL Like Operator

2008-03-27T17:28:00.001+08:00

Operator Like digunakan dalam sebuah SQL Statement untuk mencari sebuah nilai dalam sebuah table yang mempunyai pola string atau karakter tertentu. operator Like ini ditempatkan setelah klausa where dalam sebuah SQL Statement. perbedaan antara operator Like dengan operator '=' adalah, operator '=' tidak bisa digunakan untuk mencari sebuah nilai yang tidak kita ketahui sebelumnya.

Operator Like ini biasa digunakan bersama dengan karakter '%' (Percent), '*' (Asterisk), '_' (Underscore), '?' (Quatation Marks),'#' (Number Sign),'-' (Hyphen),'[]' (Brackets) dan karakter '!' (Exclamation Point). Disini saya hanya akan membahas penggunaan Operator Like bersama dengan karakter '%', '*', '_' dan karakter '?'. Adapun fungsi dari pengunaan masing-masing karakter tersebut adalah sebagai berikut :

Karakter '*' (di Microsoft Access) atau Karakter '%' artinya adalah semua karakter. Jadi jika anda menuliskan 'SQL Like%' atau 'SQL Like*', itu berarti semua yang mengandung string SQL Like didepannya dan jika anda menuliskan '%SQL Like' berarti semua yang mengandung string 'SQL Like' di belakangnya.

Contoh penggunaan karakter % dalam statement SQL :


Select JudulBuku from Buku

Where JudulBuku like '%SQL Like%'

Contoh penggunaan karakter * dalam statement SQL untuk Microsoft Access :


Select JudulBuku from Buku

Where JudulBuku like '*SQL Like*'

SQL Statement diatas akan menghasilkan semua Data buku yang mengandung string 'SQL Like' didalam judulnya karena anda menambahkan karakter '%' atau '*' sebelum dan sesudah string 'SQL Like' setelah operator Like. Hasil Output SQL Statement Diatas bisa seperti dibawah ini :


JudulBuku

-----------------------------

Using SQL Like Operator

Penggunaan Operator SQL Like

Karakter '?' (di Microsoft Access) atau karakter '_' artinya adalah satu karakter. Sebagai contoh anda ingin menampilkan data buku yang karakter ke dua dalam judulnya adalah huruf 'S' anda bisa menuliskan Statement SQL nya sebagai berikut :

Contoh penggunaan karakter _ dalam statement SQL :


Select JudulBuku from Buku

Where JudulBuku like '_S%'

Contoh penggunaan karakter ? dalam statement SQL untuk Microsoft Access :


Select JudulBuku from Buku

Where JudulBuku like '?S*'

Perlu diperhatikan bahwa beberapa Database Software (RDBMS) seperti Oracle menerapkan aturan Case Sensitive (memperhatikan penggunaan huruf besar dan huruf kecil) terhadap nilai-nilai yang ada didalam table-nya jadi jika anda menyimpan data didalam table dengan nilai 'USING SQL LIKE OPERATOR' maka ketika mencarinya dengan menggunakan pola '%SQL Like%' dalam operator SQL Like maka query tidak akan menghasilkan kembalian judul buku seperti 'USING SQL LIKE OPERATOR
', 'PENGGUNAAN OPERATOR SQL LIKE' dan sebagainya, karena data disimpan dalam huruf kapital sedangkan string pencarian anda adalah huruf besar dan huruf kecil ('SQL Like'). Mudah-mudahan artikel ini bisa menambah wawasan anda tentang Syntax dasar statement SQL.

Spelling Money Amount using Visual Basic Script

2008-03-22T01:34:00.009+08:00

Scroll To English Version

Membilang Nominal Uang Menggunakan Script Visual Basic

Untuk aplikasi yang menangani penjumlahan uang seperti aplikasi accounting, aplikasi penjualan dan sebagainya akan lebih menarik jika ditambahkan 'fitur' untuk mengeja nilai nominal uang misalnya untuk jumlah uang 1525500 aplikasi akan mengeja-nya sebagai berikut :


"Satu Juta Lima Ratus Dua Puluh Lima Ribu Lima Ratus"

Disini aku akan sharing sebuah script visual basic untuk melakukan hal tersebut. biar lebih jelas aku akan buat sebuah aplikasi sederhana dengan Visual Basic, berikut ini langkah-langkahnya :

Masuk ke Visual Basic, buat sebuah project standar.EXE

tambahkan sebuah komponen CommandButton, sebuah TextBox dan beberapa label, sehingga tampilannya seperti gambar berikut ini :

buat sebuah function dengan nama SpellAmount(), sebagai berikut :


Function SpellAmount(Amount As Currency) As String

Dim satuan As Variant

satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")



Select Case Amount

Case 0 To 11

SpellAmount = " " & satuan(Fix(Amount))

Case 12 To 19

SpellAmount = SpellAmount(Amount Mod 10) & " Belas"

Case 20 To 99

SpellAmount = SpellAmount(Fix(Amount / 10)) & " Puluh" + SpellAmount(Amount Mod 10)



Case 100 To 199

SpellAmount = " Seratus" & SpellAmount(Amount - 100)

Case 200 To 999

SpellAmount = SpellAmount(Fix(Amount / 100)) & " Ratus" + SpellAmount(Amount Mod 100)



Case 1000 To 1999

SpellAmount = " Seribu" & SpellAmount(Amount - 1000)

Case 2000 To 999999

SpellAmount = SpellAmount(Fix(Amount / 1000)) & " Ribu" + SpellAmount(Amount Mod 1000)



Case 1000000 To 999999999

SpellAmount = SpellAmount(Fix(Amount / 1000000)) & " Juta" & SpellAmount(Amount Mod 1000000)

Case 1000000000 To 2147482999

SpellAmount = SpellAmount(Fix(Amount / 1000000000)) & " Milyar" + SpellAmount(Amount Mod 1000000000)


Case Else

SpellAmount = "Tidak dapat menghitung"

End Select



End Function

dobel klik komponen CommandButton, tambahkan kode perintah berikut :


Private Sub Command1_Click()

Dim value As Variant



value = SpellAmount(Text1.Text)

Label1.Caption = "Terbilang : " & Chr(10) & value



End Sub

Tampilan pada saat Runtime :

Function ini akan mengeja/membilang nilai nominal dengan range 1 - 2147482999. Untuk kondisi Amount > 2147482999, aku gunakan string kalimat "Tidak dapat membilang" karena jika tidak aplikasi akan mengalami Error karena terjadi overflow (nilai diluar jangkauan dari tipe data yang digunakan). tetapi walaupun begitu menurutku script ini sudah cukup untuk disertakan dalam sebuah aplikasi penjualan. semoga bermanfaat.

Scroll To Indonesia Version

For application that handle arithmetic operation (for money) such as accounting application, sales application would be more interesting if you add 'Spelling feature' for Amount of money. For example for the amounts of moneys of 1525500 the application will spell it as follows :


"One Million Five Hundreds Twenty Five Thousands Five Hundreds"

Here I will share a visual basic script to do that. to be clearer I will make a simple application with Visual Basic, following is the steps :

Make a new Standar.EXE Project in Visual Basic

Add a CommandButton, TextBox and some label, so the appearance will be like this :

Create a function SpellAmount(), as follows :


Function SpellAmount(Amount As Currency) As String

Dim unit As Variant

unit = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", _

"Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", _

"Sixteen", "Seventeen", "Eighteen", "Nineteen", "Twenty")



Select Case Amount


Case 0 To 20

SpellAmount = " " & unit(Fix(Amount))



Case 21 To 29

SpellAmount = " Twenty" & SpellAmount(Amount Mod 10)



Case 30 To 30

SpellAmount = " Thirty"



Case 31 To 39

SpellAmount = " Thirty" & SpellAmount(Amount Mod 10)



Case 40 To 49

SpellAmount = " Fourty" & SpellAmount(Amount Mod 10)



Case 50 To 50

SpellAmount = " Fifty"



Case 51 To 59

SpellAmount = " Fifty" & SpellAmount(Amount Mod 10)


Case 60 To 79

SpellAmount = SpellAmount(Fix(Amount / 10)) & "ty" & SpellAmount(Amount Mod 10)



Case 80 To 89

SpellAmount = SpellAmount(Fix(Amount / 10)) & "y" & SpellAmount(Amount Mod 10)



Case 90 To 99

SpellAmount = SpellAmount(Fix(Amount / 10)) & "ty" & SpellAmount(Amount Mod 10)




Case 100 To 999

SpellAmount = SpellAmount(Fix(Amount / 100)) & " Hundreds" & SpellAmount(Amount Mod 100)



Case 1000 To 999999

SpellAmount = SpellAmount(Fix(Amount / 1000)) & " Thousand" & SpellAmount(Amount Mod 1000)



Case 1000000 To 999999999

SpellAmount = SpellAmount(Fix(Amount / 1000000)) & " Million" & SpellAmount(Amount Mod 1000000)



Case 1000000000 To 2147482999

SpellAmount = SpellAmount(Fix(Amount / 1000000000)) & " Billion" & SpellAmount(Amount Mod 1000000000)



Case Else

SpellAmount = "Cannot Spelling"

End Select



End Function

Double Click on CommandButton component, add the following code :


Private Sub Command1_Click()

Dim value As Variant



value = SpellAmount(Text1.Text)

Label1.Caption = "Amount : " & Chr(10) & value



End Sub

Runtime Screenshot :

This function will spell the value within range 1 - 2147482999. For the condition of Amount more than 2147482999, i use "Cannot Spelling" string
for the return of the function because if i don't use it, the application will experience an
overflow Error (value out of reach). Although it was so, but i think this
script is powerfull enough to use in a sales application software or accounting
aplication.

SQL: Summed Up Null Values in Oracle and SQL Server 2000

2008-03-16T10:34:00.006+08:00

Jika anda sering menggunakan SQL statement pasti anda pernah melakukan operasi perhitungan matematika terhadap field-field dalam table anda. tapi pernahkah anda bingung mendapatkan perhitungan yang tidak sesuai terhadap field yang bernilai NOT NULL dengan field yang bernilai NULL. misalnya field A bernilai 4 dan field B bernilai NULL, jika anda lakukan penjulahan dengan SUM(fieldA+fieldB) maka hasilnya akan NULL. untuk itu anda perlu menggunakan sebuah fungsi untuk menggantikan nilai NULL tadi dengan sebuah bilangan/angka agar bisa dilakukan operasi matematika terhadap field yang bernilai null tadi.

untuk tutorial ini saya menggunakan table di database Oracle dengan nama EMP yang ada di schema SCOTT dan saya transfer table ini ke database SQL Server jadi saya menggunakan table yang mempunyai data yang sama. meskipun begitu saya juga akan memberikan contoh untuk anda yang menggunakan Microsoft SQL Server 2000 sebagai Database Software anda. jika anda belum tahu struktur dari table EMP, ini dia strukturnya :

EMPNO NUMBER(4) NOT NULL, ENAME VARCHAR2(10), JOB VARCHAR2(9), MGR NUMBER(4), HIREDATE DATE, SAL NUMBER(7,2), COMM NUMBER(7,2), DEPTNO NUMBER(2)

dan ini datanya :

Saya akan menghitung Salary + Commision masing-masing pegawai dengan SQL Statement berikut ini :

SELECT EMPNO, ENAME, JOB, SAL, COMM, SUM(SAL+COMM) TOTAL_SALARY FROM EMP GROUP BY EMPNO, ENAME, JOB, SAL, COMM

SQL Output :

Maka salary pegawai yang tidak mempunyai komisi (komisi = NULL) tidak akan terhitung. untuk itu anda perlu menggunakan fungsi NVL() di Oracle atau fungsi ISNULL() jika anda menggunakan Database Software Microsoft SQL Server.

Syntax fungsi NVL() di Oracle :

NVL(input_value,replace_value_if_null)

Syntax fungsi ISNULL() di SQL Server 2000 :
ISNULL (input_value , replace_value_if_null)

fungsi NVL() atau fungsi ISNULL() akan menggantikan nilai NULL dengan nilai lainnya yang kita definiskan pada parameter kedua (replace_value_if_null) dengan catatan input_value dan replace_value_if_null mempunyai tipe data yang sama. anda akan mendapatkan pesan error jika anda menggunakan tipe data yang berbeda untuk dua parameter tersebut. sekarang saya akan merubah SQL Statement nya dengan menyertakan fungsi NVL() dan fungsi ISNULL() :

Dengan Fungsi NVL () :

SELECT EMPNO, ENAME, JOB, SAL, COMM, SUM(nvl(SAL,0)+nvl(COMM,0)) TOTAL_SALARY FROM EMP GROUP BY EMPNO, ENAME, JOB, SAL, COMM

SQL Output :

Dengan Fungsi ISNULL () :

SELECT EMPNO, ENAME, JOB, SAL, COMM, SUM(ISNULL(SAL,0)+ISNULL(COMM,0)) TOTAL_SALARY FROM EMP GROUP BY EMPNO, ENAME, JOB, SAL, COMM

SQL Output :

dengan SQL Statement diatas maka pegawai yang tidak mempunyai komisi pun dapat terhitung salary-nya. Semoga bermanfaat.

Oracle SQL: Encrypt Strings using TRANSLATE Function

2008-03-16T10:16:00.006+08:00

Scroll To Indonesia Version

If you are using Oracle as your Database Software to manage your datas, did you know that Oracle have a function to do simple string encryption. Although it was simple but the result is prety powerfull to encrypt any input string. in fact it can be used to encrypt any number data types. below i will give you an example how to encrypt a password that have a string data type and stored in a table called LOGIN that contain users login records to login to the application that you made for example. this table have the following structure :

USERID NUMBER,

USERNAME VARCHAR2(30),

PASSWORD VARCHAR2(30),

PROFILE VARCHAR2(15)

Syntax :
TRANSLATE(input_string,pattern_string1,pattern_string2)

Using TRANSLATE Function in SQL Insert Statement

for example you have 'Database Administrator' as your application login password. you can change the SQL statement for validate, inserting, or updating users login data in your application source code or you can add this SQL Statement to your application source code to encrypt the password before you store it on your application login table. this is how to use TRANSLATE function in the SQL Insert Statement :

INSERT INTO login VALUES( 111,'ADMINISTRATOR', TRANSLATE( 'Database Administrator', 'ZXCVBNMLKJHGFDSAQWERTYUIOP0987654321 zxcvbnmlkjhgfdsaqwertyuiop', '~!@#$%^&*()_+|+_)(*&^*%#@!%%*&&)(*&!%#@$#_ )@*$^@%@$#!@#!@#_)(*'),'DBA')

Each character in string 'Database Administrator' will be looked in pattern_string1
then this function will look for character in pattern_string2 which it's position is equal to the character in pattern_string1. in the example of SQL Statement above, character 'D' in string 'Database Administrator' have 14th position at pattern_string1 so the function will look for the character that have the 14th position at pattern_string2 so the result is character '|', and so on.

Using TRANSLATE Function in SQL Select Statement

This is used to retrieving data from LOGIN table. in this example is for checking user login data.

SELECT * FROM login WHERE username='ADMINISTRATOR' AND PASSWORD = TRANSLATE( 'Database Administrator', 'ZXCVBNMLKJHGFDSAQWERTYUIOP0987654321 zxcvbnmlkjhgfdsaqwertyuiop', '~!@#$%^&*()_+|+_)(*&^*%#@!%%*&&)(*&!%#@$#_ )@*$^@%@$#!@#!@#_)(*')

SQL Output :

you must use the same pattern_string as you use in SQL insert statement before.

Using TRANSLATE Function in SQL Update Statement

You may want to update your login password, for that purpose you need to update the record using SQL update statement. this is how to use TRANSLATE function in the SQL Update Statement :

UPDATE login SET password=TRANSLATE( 'oracle dba', 'ZXCVBNMLKJHGFDSAQWERTYUIOP0987654321 zxcvbnmlkjhgfdsaqwertyuiop', '~!@#$%^&*()_+|+_)(*&^*%#@!%%*&&)(*&!%#@$#_ )@*$^@%@$#!@#!@#_)(*') WHERE userid=111

Result :

this way anyone who accidentally see your login table will never know what your really password is. there is no harm to be wary. i hope this article will be usefull.

Scroll To English Version

Oracle SQL: Enkripsi Strings menggunakan Fungsi TRANSLATE

Jika anda menggunakan Oracle sebagai Database Software untuk me-manage data-data anda, tahukah anda bahwa oracle mempunyai sebuah function untuk melakukan enkripsi string sederhana. meskipun begitu function ini cukup powerfull dalam meng-encrypt sebuah inputan string bahkan bisa juga digunakan untuk meng-encrypt inputan yang mempunyai tipe data number. dibawah ini adalah contoh sederhana untuk meng-encrypt password bertipe string yang akan disimpan di dalam sebuah table bernama LOGIN yang berisi data login user ke aplikasi. misalnya table ini mempunyai struktur sebagai berikut :

USERID NUMBER,

USERNAME VARCHAR2(30),

PASSWORD VARCHAR2(30),

PROFILE VARCHAR2(15)

Syntax :
TRANSLATE(input_string,pattern_string1,pattern_string2)

Using TRANSLATE Function in SQL Insert Statement

Misalnya password anda adalah 'Database Administrator'. anda bisa merubah atau menambahkan SQL Statement berikut ke source code aplikasi anda untuk melakukan validasi login user, insert user baru, atau update password user lama. berikut ini contoh penggunaan fungsi TRANSLATE di dalam SQL Insert Statement :

setiap karakter dalam string 'Database Administrator' akan dicari pada pattern_string1 kemudian fungsi ini akan mencari karakter pada pattern_string2 yang posisi/letak karakternya sama dengan karakter pada pattern_string1. pada contoh SQL Statement diatas karakter 'D' pada string 'Database Administrator' mempunyai urutan/posisi ke-14 pada pattern_string1 kemudian fungsi akan mencari karakter yang mempunyai posisi ke-14 pada pattern_string2 sehingga hasilnya adalah karakter '|', dan seterusnya.

Using TRANSLATE Function in SQL Select Statement

sql statement ini digunakan untuk mendapatkan data dari table LOGIN. dalam contoh ini adalah untuk memeriksa data login user.

SQL Output :

pattern_string harus sama dengan pattern_string yang anda gunakan ketika anda melakukan insert data dengan SQL Insert.

Using TRANSLATE Function in SQL Update Statement

Misalnya anda akan merubah password login anda, untuk itu dibutuhkan SQL Update Statement. berikut ini contoh penggunaan fungsi TRANSLATE di dalam SQL Update Statement :

Result :

Dengan cara melakukan enkripsi seperti ini, orang lain yang secara tidak sengaja melihat table login anda, dia tidak akan tahu password anda sebenarnya. tidak ada salahnya lho untuk tetap berhati-hati. semoga artikel saya ini bermanfaat.

Delphi: Data Manipulation Using SQL Statement

2008-03-11T17:44:00.005+08:00

Scroll to English Version

Manipulasi Data Menggunakan SQL Statement di Delphi

Aku menggunakan sebuah table di Microsoft Access dengan nama poducts pada database tutorial.mdb dan disimpan di C:\DelphiTutorial\sqldml. tutorial ini menjelaskan bagaimana cara melakukan manipulasi data menggunakan sql statement dengan komponen ADOCommand di delphi 7. hal ini mencakup statement sql select,sql insert, sql update dan sql delete. berikut ini struktur dari table products :

productid text(10), description text(50), price number(long integer)

Masuk ke Delphi 7.
Buat sebuah project baru, simpan di C:\DelphiTutorial\sqldml dengan nama
sqldml.dpr.
tambahkan sebuah komponen ADOConnection (ada di tab ADO) set property
ConnectionStringnya menjadi :

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tutorial.mdb;Persist Security Info=False

tambahkan sebuah komponen ADOCommand (ada di tab ADO) set property Connectionnya menjadi ADOConnection1.

SQL Insert statement

Pertama-tama saya akan mengisi table products dengan beberapa record agar perubahan data didalam table karena manipulasi data dapat terlihat.

tambahkan tiga buah komponen Edit masing-masing beri nama eproductid, edescription, dan eprice dan sebuah komponen Button biarkan komponen button dengan nama defaultnya.

set property Caption Button1 menjadi 'Save'.

dobel klik button1, kemudian tambahkan kode perintah berikut pada code editor delphi :

with ADOCommand1 do begin CommandText := 'insert into products values(:a,:b,:c)'; Parameters[0].Value := eproductid.Text; Parameters[1].Value := edescription.Text; Parameters[2].Value := eprice.Text; Execute; end; application.messagebox('Data berhasil disimpan','Informasi',mb_ok);

run applikasi dengan menekan F9, kemudian isikan beberapa record ke dalam table.

SQL Select Statement

Sebenarnya fungsi utama ADOCommand ini adalah untuk mengeksekusi statement sql yang tidak mengembalikan hasil (result sets) seperti statement SQL insert,SQL update, SQL delete dan statement DDL (Data Definition language) misalnya statement Create Table, Create Procedure, dll. sedangkan contoh statement sql yang mengembalikan hasil (result sets) adalah statement sql select.

kita akan melakukan pencarian record pada table products berdasarkan field description. Untuk menerima hasil kembalian (result sets) dari statement sql ini kita akan menggunakan komponen ADODataSet.

tambahkan sebuah komponen edit, beri nama esearch dan sebuah komponen button dan beri nama bsearch.

Ubah property caption dari button bsearch menjadi 'Search'.

dobel klik tombol bsearch, kemudian tambahkan kode perintah berikut pada code editor delphi :

with ADOCommand1 do begin CommandText := 'select * from products where description = :desc'; Parameters[0].Value := ecari.Text; ADODataset1.Recordset := execute; end; MessageDlg('Ditemukan '+ inttostr(ADODataset1.recordcount) + ' Record(s)', mtInformation, [mbOk], 0);

Coba lakukan pencarian data barang yang telah dientri sebelumnya dengan cara menginputkan deskripsi barang tersebut pada kotak edit esearch dan tekan tombol Search.

SQL Update Statement

Idenya begini : saya akan menambahkan fitur pencarian sebelum input data dan menambahkan fitur update pada tombol button1.

klik edit eproductid, pada object inspector klik tab Events, cari event OnKeyDown, dobel klik, kemudian tambahkan kode perintah berikut ini :

if key = vk_return then begin with ADOCommand1 do begin CommandText := 'select * from products where productid = :pid'; Parameters[0].Value := eproductid.Text; ADODataset1.Recordset := execute; end; if ADODataset1.RecordCount > 0 then if messagedlg('Data produk dengan id '''+eproductid.Text +''' sudah ada'+chr(10) +'apakah anda akan merubah data tersebut',mtconfirmation,[mbok,mbcancel],1) = mrok then begin edescription.Text := ADODataset1.FieldValues['description']; eprice.Text := ADODataset1.FieldValues['price']; edescription.SetFocus; button1.Caption := 'Update'; { bdelete.Enabled := true; } end else begin { button1.Caption := 'Save'; } eproductid.SelectAll; exit; end else if ADODataset1.RecordCount < 1 then begin { bdelete.Enabled := false; } button1.Caption := 'Save'; edescription.clear; eprice.clear; end; edescription.SetFocus; end;

Pada listing kode diatas ada perintah untuk merubah caption dari tombol button1 yaitu kode perintah dengan teks yang saya tebalkan. caption tersebut akan menetukan mode manipulasi data yang akan dilakukan. biar lebih jelas ubah dulu listing kode perintah pada button1 menjadi seperti dibawah ini :

if button1.Caption='Save' then begin with ADOCommand1 do begin CommandText := 'insert into products values(:a,:b,:c)'; Parameters[0].Value := eproductid.Text; Parameters[1].Value := edescription.Text; Parameters[2].Value := eprice.Text; Execute; end; application.messagebox('Data berhasil disimpan','informasi',mb_ok); end else if button1.Caption='Update' then with ADOCommand1 do begin CommandText := 'update products set description = :a, price = :b where productid = :c'; Parameters[0].Value := edescription.Text; Parameters[1].Value := eprice.Text; Parameters[2].Value := eproductid.Text; execute; application.messagebox('Perubahan berhasil disimpan','informasi',mb_ok); end; eproductid.Clear; edescription.Clear; eprice.Clear; eproductid.SetFocus;

run aplikasi, coba masukkan kode produk yang telah disimpan sebelumnya, maka akan ditampilkan messagebox yang berisi konfirmasi untuk update record atau tidak.

SQL Delete Statement

tambahkan sebuah komponen button, beri nama bdelete dan ubah Captionnya menjadi 'Delete'.

ubah property Enable button bdelete menjadi False

dobel klik tombol bdelete, kemudian tambahkan kode perintah berikut pada code editor delphi :

if messagedlg('Hapus data barang '''+eproductid.Text +'''',mtconfirmation,[mbok,mbcancel],1) = mrok then begin with ADOCommand1 do begin CommandText := 'delete from products '+ 'where productid = :pid'; Parameters[0].Value := eproductid.Text; execute; end; eproductid.Clear; edescription.Clear; eprice.Clear; button1.Caption := 'Save'; bdelete.Enabled := false; eproductid.SetFocus; end;

setelah anda menginputkan kode ini pada code editor delphi, selanjutnya anda hilangkan semua tanda '{' dan '}' (blok komentar) pada listing kode program Event OnKeyDown edit eproductid agar tombol bdelete bisa aktif pada saat mode update record dan non aktif pada saat mode insert record. Semoga bermanfaat.

Scroll to Indonesian Version

I use a table in Microsoft Access called products in a file called tutorial.mdb and saved in c:\DelphiTutorial\sqldml. this tutorial is about how to manipulate data using sql statement with ADOCommand component in Delphi 7. this is included sql select statement, sql insert statement, sql update statement and sql delete statement. lets get started.

the following is data structure from products table :

productid text(10), description text(50), price number(long integer)

Run Delphi.
Create new project then save as sqldmp.dpr in c:\DelphiTutorial\sqldml.
Add an ADOConnection component, set its ConnectionString Property to :

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tutorial.mdb;Persist Security Info=False

Add an ADOCommand component, set its Connection property to ADOConnection1.

SQL Insert statement

First of all i will fill the table with some data so we can see the changes that sql statement do to the table's data.

Add three Edit component eproductid, edescription, and eprice and a Button component, Button1.

Change Button1 Caption property to 'Save'.

double klick Button1, then add the following code to the Delphi's code editor :

Run application, fill the table with some data by pressing Button1.

SQL Select Statement

Actually the main purpose of ADOCommand component is to execute sql statements that don't return a result sets including SQL Insert statement, SQL Update statement, SQL delete statement and DDL statement (Data Definition Language) like Create Table, Create Procedure, etc.

To retrieve data using sql select statement i use an ADODataSet component along with ADOCommand component.

Add an Edit Component, esearch and a Button component, bsearch.

Change the Caption of bsearch button to 'Search'.

Double click bsearch, then add the following code to the Delphi's code editor :

with ADOCommand1 do begin CommandText := 'select * from products where description = :desc'; Parameters[0].Value := ecari.Text; ADODataset1.Recordset := execute; end; MessageDlg('Found '+ inttostr(ADODataset1.recordcount) + ' Record(s)', mtInformation, [mbOk], 0);

After writing the code above, run application then try searching specific record in the Products table by entering product description in the Edit text box esearch then press 'Search' button.

SQL Update Statement

the idea is : i will add searching record feature before entering the data and add updating feature on button1(Save button) button.

klick eproductid, in the object inspector klick Events tab, look for OnKeyDown event, double klick, then add the following code :

if key = vk_return then begin with ADOCommand1 do begin CommandText := 'select * from products where productid = :pid'; Parameters[0].Value := eproductid.Text; ADODataset1.Recordset := execute; end; if ADODataset1.RecordCount > 0 then if messagedlg('Product with id '''+eproductid.Text +''' already exist'+chr(10) +'do you want to change the data ',mtconfirmation,[mbok,mbcancel],1) = mrok then begin edescription.Text := ADODataset1.FieldValues['description']; eprice.Text := ADODataset1.FieldValues['price']; edescription.SetFocus; button1.Caption := 'Update'; { bdelete.Enabled := true; } end else begin { button1.Caption := 'Save'; } eproductid.SelectAll; exit; end else if ADODataset1.RecordCount < 1 then begin { bdelete.Enabled := false; } button1.Caption := 'Save'; edescription.clear; eprice.clear; end; edescription.SetFocus; end;

in the code listing above there are a command (the bold one) to change the caption of button1. that caption will determine manipulation mode to the data that will be perform. for more clearly, change the code listing in the button1 as follow :

if button1.Caption='Save' then begin with ADOCommand1 do begin CommandText := 'insert into products values(:a,:b,:c)'; Parameters[0].Value := eproductid.Text; Parameters[1].Value := edescription.Text; Parameters[2].Value := eprice.Text; Execute; end; application.messagebox('Data saved successfully','informasi',mb_ok); end else if button1.Caption='Update' then with ADOCommand1 do begin CommandText := 'update products set description = :a, price = :b where productid = :c'; Parameters[0].Value := edescription.Text; Parameters[1].Value := eprice.Text; Parameters[2].Value := eproductid.Text; execute; application.messagebox('Changes saved successfully','informasi',mb_ok); end; eproductid.Clear; edescription.Clear; eprice.Clear; eproductid.SetFocus;

run application, try to input product id that have entered earlier, then a message box will appear displaying confirmation to update the record or no.

SQL Delete Statement

Add a button, bdelete and change the Caption to 'Delete'.

change Enable to False

double klick bdelete button, then add the following code to the Delphi's code editor :

if messagedlg('Delete products '''+eproductid.Text +''' data',mtconfirmation,[mbok,mbcancel],1) = mrok then begin with ADOCommand1 do begin CommandText := 'delete from products '+ 'where productid = :pid'; Parameters[0].Value := eproductid.Text; execute; end; eproductid.Clear; edescription.Clear; eprice.Clear; button1.Caption := 'Save'; bdelete.Enabled := false; eproductid.SetFocus; end;

After writing that code above in delphi's code editor, next, remove
the '{' and '}' sign (comment block)
in OnKeyDown event eproductid code listing in order to activate bdelete button on update record mode and deactivate it on insert record mode.

SQL : Using Column Alias to Clarify Field Header

2008-03-07T02:29:00.009+08:00

Scroll to English Version

SQL: Menggunakan Column Alias untuk memperjelas Field Header

Jika table anda mempunyai field yang kurang deskripstip anda mungkin akan
mempertimbangkan untuk menggunakan tips yang akan saya berikan ini. sebenarnya tips ini untuk anda yang sering atau terbiasa menggunakan sql editor/ atau DBA (Database Administration) Tools untuk melakukan query data. Misalnya anda mempunyai sebuah table bernama Persons dengan struktur sebagai berikut (saya gunakan struktur di Oracle) :

FNAME VARCHAR2(15), LNAME VARCHAR2(15), GENDER CHAR(1), BIRTHDATE DATE

dan table tersebut mempunyai data sebagai berikut :


FNAME           LNAME           GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

coba anda gunakan SQL statement dibawah ini :

select fname,lname,gender,birthdate from persons

maka hasilnya adalah :


SQL> select fname,lname,gender,birthdate from persons;

FNAME           LNAME           GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

disitu terlihat bahwa kolom FNAME dan LNAME kurang deskriptip. agar lebih jelas dalam output query anda bisa menggunakan column alias. berikut ini contoh syntax statement sql di beberapa database SQL.

SQL statement in Oracle, MySQL, Paradox

select fname "First Name", lname "Last Name",gender,birthdate from persons

output query-nya :



SQL>  select fname "First Name",
  2   lname "Last Name", gender, birthdate
  3   from persons;

First Name      Last Name       GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

SQL statement in Microsoft Access and Microsoft SQL Server

select fname as [First Name], lname as [Last Name],gender,birthdate from persons

Maka output query-nya akan sama dengan output sql yang saya gunakan di oracle, MySQL dan Paradox sebelumnya.

Scroll to Indonesian Version

If you have tables that the field are less descriptive, you may want to consider this tips that i will explain below. actually this tips is for you who often use sql editor or DBA (Database Administration) Tools to do queries. for example you have a table called Persons with the following structure (i use a structure in oracle database) :

FNAME VARCHAR2(15), LNAME VARCHAR2(15), GENDER CHAR(1), BIRTHDATE DATE

and this table have the following data :


FNAME           LNAME           GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

try use this SQL Statement below :

select fname,lname,gender,birthdate from persons

The SQL statement result output are :


SQL> select fname,lname,
  2  gender,birthdate from persons;

FNAME           LNAME           GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

in the sql statement result output above we can see that FNAME and LNAME column are less descriptive. for more clearly column header in the query output you can use a column aliases. the following is an example of sql statement syntax for using column aliases in several sql database engine.

SQL statement in Oracle, MySQL, Paradox

select fname "First Name", lname "Last Name", gender,birthdate from persons

The SQL statement result output :



SQL>  select fname "First Name",

  2   lname "Last Name", gender, birthdate
  3   from persons;

First Name      Last Name       GENDER     BIRTHDATE
--------------- --------------- ---------- ---------
KURT            COBAIN          M          20-FEB-67
IGOR            CAVALERA        M          04-SEP-70
AMY             LEE             F          13-DEC-81
COREY           TAYLOR          M          18-DEC-73

SQL statement syntax in Microsoft Access and Microsoft SQL Server

select fname as [First Name], lname as [Last Name],gender,birthdate from persons

sql statement above will bring the same result output as sql statement that we use in Oracle, MySQL and paradox previously.

Delphi - Menambahkan Nomor Record Pada DBGrid

2008-02-26T16:19:00.003+08:00

Jika anda menggunakan komponen DBGrid pada Delphi untuk menampilkan data dari sebuah table,
anda bisa menambahkan/menampilkan nomor record tersebut pada komponen DBGrid di Delphi. Caranya sebagai berikut :

Saya menggunakan sebuah table bernama TBarang di database MySQL yang pernah saya buat
sebelumnya.

Buat sebuah project baru di Delphi. Tambahkan sebuah komponen ADOTable, sebuah DataSource, dan sebuah komponen DBGrid.

Hubungkan komponen ADOTable dengan database MySQL dengan cara men-set property ConnectionString-nya ke datasource database MySQL. Jika anda belum tahu caranya, klik disini.

Kemudian set property TableName ADOTable1 menjadi TBarang.

Dobel klik ADOTable1, pada kotak Field Editor yang muncul klik kanan kemudian pilih Add all fields

Set property DataSource1 menjadi ADOTable1.

Set property DBGrid1 menjadi DataSource1.

Dobel klik DBGrid1, pada kotak Colection Editor yang muncul klik kanan kemudian pilih Add all fields

Tambahkan sebuah field baru pada DBGrid1 untuk nomor record, dengan cara klik kanan pada kotak Colection Editor kemudian pilih Add kemudian drag field baru tersebut ke posisi teratas pada kotak Colection Editor. set property Title ==> Caption-nya menjadi No.

Tambahkan kode perintah berikut ini pada event OnCreate komponen Form1 di code editor delphi :

if not adotable1.Active then adotable1.Open;

dan kode perintah berikut ini pada event OnDrawColumnCell komponen DBGrid1 di code editor delphi :

if DataSource1.DataSet.RecNo > 0 then begin if Column.Title.Caption = 'No' then DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo)); end;

Jalankan program dengan menekan F9. disana akan terlihat nomor record dikolom paling kiri pada komponen DBGrid.

Delphi - Menampilkan Tanggal dan Waktu secara Realtime

2008-02-26T16:12:00.003+08:00

Untuk menampilkan tanggal atau waktu atau keduanya di delphi secara real time
anda bisa menggunakan Komponen Timer pada event OnTimer.
berikut ini tutorial singkatnya (saya menggunakan delphi 7) :

Buat sebuah project baru di delphi. tambahkan sebuah komponen Label dan
sebuah komponen Timer (ada di tab System)

Set property Interval komponen Timer
menjadi 100 atau berapa saja (satuan dalam milli second) lebih kecil interval yang diberikan,
lebih cepat event OnTimer dieksekusi

Tambahkan perintah berikut pada Event OnTimer komponen Timer

label1.Caption := formatdatetime('"Tanggal : "dd/mm/yyyy',now)+chr(10)+ formatdatetime('"Pukul : "hh:nn:ss',now); label1.Refresh;

Kode perintah di atas akan menghasilkan output tanggal seperti
25/02/2008 dan waktu seperti 14:15:15.
Anda bisa merubah format tampilan tanggal dan waktu sesuai dengan keinginan atau kebutuhan anda
dengan cara merubah parameter format tanggal atau waktu (tulisan yang ditebalkan) pada function formatdatetime diatas.
Untuk mengetahui format tanggal dan waktu yang bisa anda gunakan di delphi anda bisa melihatnya di
artikel saya
Format Tanggal dan Waktu di Deplhi

Delphi - Date/Time Format

2008-02-26T16:08:00.002+08:00

Daftar format tanggal dan waktu yang bisa digunakan di Borland Delphi
(sumber : dari Borland Delphi help manualnya lho) :

String Format	Deskripsi
d	Menampilkan hari berupa digit angka tanpa leading zero (1-31).
dd	Menampilkan hari berupa digit angka dengan leading zero (01-31).
ddd	Menampilkan nama hari yang disingkat menjadi 3 huruf (Sun-Sat / tergantung regional setting yang dipakai).
dddd	Menampilkan nama hari (Sunday-Saturday / tergantung regional setting yang dipakai).
m	Menampilkan bulan sebagai angka satu digit tanpa leading zero (1-12) tetapi jika 'm' dicantumkan setelah h atau hh, maka yang ditampilkan bukan digit bulan tetapi digit menit.
mm	Menampilkan bulan sebagai angka dua digit dengan leading zero (01-12) tetapi jika 'mm' dicantumkan setelah h atau hh, maka yang ditampilkan bukan digit bulan tetapi digit menit.
mmm	Menampilkan tiga huruf nama bulan (Jan-Dec).
mmmm	Menampilkan nama lengkap bulan (January-December).
yy	Menampilkan tahun sebagai angka dua digit (00-99).
yyyy	Menampilkan tahun sebagai angka empat digit (0000-9999).
h	Menampilkan jam tanpa leading zero (0-23).
hh	Menampilkan jam dengan leading zero (00-23).
n	Menampilkan menit tanpa leading zero (0-59).
nn	Menampilkan menit dengan leading zero (00-59).
s	Menampilkan detik tanpa leading zero (0-59).
ss	Menampilkan detik dengan leading zero (00-59).
z	Menampilkan mili detik tanpa leading zero (0-999).
zzz	Menampilkan mili detik dengan leading zero (000-999).
am/pm	Menampilkan jam dengan format 12 jam dan menampilkan 'am' untuk jam 00:00:00 s/d 11:59:59 atau 'pm' untuk jam 12:00:00 s/d 23:59:59. Huruf am/pm bisa menggunakan huruf besar, huruf kecil atau dua-duanya.
a/p	Menampilkan jam dengan format 12 jam dan menampilkan 'a' untuk jam 00:00:00 s/d 11:59:59 atau 'p' untuk jam 12:00:00 s/d 23:59:59. Huruf a/p bisa menggunakan huruf besar, huruf kecil atau dua-duanya.
ampm	Sama dengan am/pm tetapi tanda am atau pm-nya dalam huruf kapital.

Tips Merubah Lokasi Direktori Spesial di Windows

2008-02-19T16:23:00.002+08:00

Anda bisa merubah lokasi direktori special di windows seperti direktori :

My Documents

My Pictures

Temporary Internet Files

Favorites

Caranya sebagai berikut :

Masuk ke Registry Editor dengan cara klik Start | Run kemudian ketik regedit

Arahkan ke HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders

Di window sebelah kanan jendela Registry Editor terdapat banyak nama key beserta tipe dan datanya.

Dobel klik key yang ingin anda rubah direktorinya.

Setelah muncul kotak dialog Edit String, isi dengan path ke direktori yang anda inginkan pada kotak edit Value Data.

Mengembalikan File Yang Terhapus

2008-02-19T15:23:00.003+08:00

Jika anda mempunyai data yang banyak di harddisk anda, saya yakin anda pernah menghapus sebuah file penting tanpa disengaja. Jika anda ingin data anda yang sudah terhapus kembali lagi walaupun sudah dihapus di Recycle Bin, anda bisa mencoba satu software data recovery yang pernah saya gunakan dan hasilnya cukup baik yaitu Recover4all Profesional 2.26. Jika anda belum punya software ini anda bisa mendownload versi trialnya di
www.recover4all.com

Berikut ini tutorial singkatnya :

Install Recover4all Profesional, kemudian jalankan program tersebut.

Setelah masuk ke program tersebut, di jendela sebelah kiri terdapat daftar Drive di komputer anda.

Klik tanda plus di samping nama drive dimana file anda terhapus.

Software ini akan melakukan scan file-file yang terhapus pada drive tersebut. Tunggu hingga selesai.

Setelah selesai scan, software ini akan menampilkan nama file dan folder yang terhapus/berisi file yang terhapus beserta peluang Recoverynya (…,fair, Good,..).

Jika Recovery Chancesnya Good, maka kemungkinan besar file anda dapat di kembalikan seperti semula.

Untuk merecovery sebuah file, klik pada nama file kemudian klik tombol Recover yang ada di pojok kiri atas dibawah menu utama.

kemudian simpan ke folder yang anda inginkan.

Software ini sangat baik digunakan pada file yang baru terhapus dari harddisk, namun jika digunakan untuk me-recovery data dari USB drive walaupun filenya baru terhapus hasil recoverynya kurang bagus. Jadi saran saya gunakan software ini begitu file anda terhapus, jadi recovery chancesnya bagus juga hasil recoverynya bias optimal.

PHP – Membuat Warna Baris yang Berbeda pada Tabel

2008-02-19T15:11:00.009+08:00

Dalam menampilkan data dalam bentuk sebuah table di sebuah halaman web, akan lebih mudah dibaca jika setiap baris data tersebut ditampilkan dengan warna yang berbeda.

Misalnya anda mempunyai sebuah table bernama TBarang di database MySQL bernama Latihan dengan struktur table sebagai berikut :

kodeitem int(10),

deskripsi varchar(50),

harga int(10)

Berikut ini contoh script PHP untuk menampilkan warna baris dalam table agar berbeda :

<? $conn=mysql_connect("localhost","root",""); $db=mysql_select_db("latihan",$conn); echo"<table border='0' cellpadding='5' cellspacing='0'>"; $qstr=mysql_query("select * from tbarang", $conn); $i=0; while($qrslt=mysql_fetch_array($qstr)) { Echo"<tr bgcolor=#".($i % 2 ? "FCFCFD" : "EBF5FF")."> <td>$qrslt[deskripsi]</td> <td>$qrslt[harga]</td> </tr>"; $i=$i+1; } echo"</table>"; ?>

Visual Basic - Menulis data ke Fixed Width Text File

2008-02-18T13:32:00.004+08:00

scroll to Indonesian Version

Fixed-Width text file sometimes we needed as temporary media for transfering data from one database type to another. For example you wish to transfer data from MySQL database at your office computer to your Microsoft Access database at your home PC for back up or certain purpose. before you tranfering the data to microsoft access database, first you need to export it to text file format with Fixed-Width type and then import it from your microsoft access database.

the reason why i choose this type of text file is because it is not only more simple, but Fixed-Width text file are will be more easy if we will export it to other file format for example to microsoft excel file format.

the following is a short tutorial about how to writing data to fixed-width text file in visual basic 6 :

Create a database in Microsoft access named sales.mdb and create a table inside em named tbarang and fill the table with data like in my Belajar syntax dasar statement sql article.

Step into Visual Basic, create a new project with Standard EXE type.

Add a CommandButton, and a Label component.

Change Caption property of Command1 component (CommandButton component) to "Export to Fixed Width text File", and AutoSize propery of label1 component to True.

Step into Code Editor by clicking View and then select Code menu. empty the text in the Code Editor if any, then add the following line of code :

Dim koneksi As New ADODB.Connection Dim rsteks As New ADODB.Recordset Private Sub Form_Load() Set koneksi = New ADODB.Connection koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=; & _ Persist Security Info=True;User ID=Admin;Data Source=" & app.path & "\sales.mdb" koneksi.Open End Sub Private Sub Command1_Click() Dim strsql As String Dim i As Integer Set rsteks = New ADODB.Recordset strsql = "select * from tbarang" rsteks.Open strsql, koneksi, adOpenDynamic, adLockOptimistic i = 0 Label1.Caption = CStr(rsteks.RecordCount) Label1.Refresh Open App.Path & "\tes.txt" For Output As #1 If Not rsteks.BOF Then rsteks.MoveFirst While Not rsteks.EOF i = i + 1 Label1.Caption = "Writing data no " & CStr(i) Label1.Refresh Print #1,rsteks!kodeitem; Tab(11); rsteks!deskripsi; 'if the field data type is number 'then the values must be converted to string type using cstr() function Tab(61); CStr(rsteks!harga); Tab(71); rsteks!kategori; Tab(77); CStr(rsteks!diskon); Tab(79); rsteks!statusjual rsteks.MoveNext Wend End If Close #1 Exit Sub End Sub

scroll to English Version

Fixed-Width text file atau file teks yang mempunyai ukuran kolom/field yang tetap, terkadang dibutuhkan sebagai media sementara jika kita akan melakukan transfer data dari satu jenis database ke jenis database yang lain. Misalnya anda ingin mentransfer data dari database MySQL di kantor anda ke database Microsoft Access di komputer di rumah anda untuk keperluan tertentu atau untuk keperluan backup data. Sebelum anda mentransfernya ke microsoft access anda terlebih dahulu mengeksportnya ke format file teks dengan tipe Fixed-Width kemudian baru mentransfernya ke microsoft access.

Saya memilih tipe file teks jenis ini karena selain lebih simpel, fixed-width text file ini akan lebih mudah jika kita akan mengekspornya ke format file yang lain misalnya ke format file microsoft excel.

berikut ini adalah tutorial singkat tentang cara menulis data ke file teks fixed-width di visual basic 6 :

Buat sebuah database di microsoft access dengan nama penjualan.mdb dan sebuah tabel didalamnya dengan nama tbarang dan isi datanya seperti pada artikel Belajar syntax dasar statement sql.

Masuk ke Visual Basic, buat project baru dengan tipe Standard EXE.

Tambahkan sebuah komponen CommandButton, dan sebuah label.

Set property Caption dari komponen Command1 (komponen CommandButton) menjadi "Export Ke Fixed Width text File", dan propery AutoSize dari komponen label1 menjadi True.

Masuk ke Code Editor dengan cara klik menu View kemudian pilih Code kosongkan teks dalam Code Editor, kemudian tambahkan baris perintah berikut ini :

Dim koneksi As New ADODB.Connection Dim rsteks As New ADODB.Recordset Private Sub Form_Load() Set koneksi = New ADODB.Connection koneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=; & _ Persist Security Info=True;User ID=Admin;Data Source=" & app.path & "\penjualan.mdb" koneksi.Open End Sub Private Sub Command1_Click() Dim strsql As String Dim i As Integer Set rsteks = New ADODB.Recordset strsql = "select * from tbarang" rsteks.Open strsql, koneksi, adOpenDynamic, adLockOptimistic i = 0 Label1.Caption = CStr(rsteks.RecordCount) Label1.Refresh Open App.Path & "\tes.txt" For Output As #1 If Not rsteks.BOF Then rsteks.MoveFirst While Not rsteks.EOF i = i + 1 Label1.Caption = "Menulis data ke " & CStr(i) Label1.Refresh Print #1,rsteks!kodeitem; Tab(11); rsteks!deskripsi; 'jika tipe data fieldnya adalah number 'maka nilai harus dikonversi dahulu ke string dengan fungsi cstr() Tab(61); CStr(rsteks!harga); Tab(71); rsteks!kategori; Tab(77); CStr(rsteks!diskon); Tab(79); rsteks!statusjual rsteks.MoveNext Wend End If Close #1 Exit Sub End Sub

MySQL - Langkah Pembuatan ODBC Data Source

2008-02-18T13:11:00.005+08:00

Salah satu cara untuk mengakses database MySQL dari program aplikasi seperti Delphi atau Visual Basic adalah melalui ODBC (Open Database Connectivity). Meskipun banyak software yang berbentuk ActiveX Control dan VCL Component yang tersebar di internet untuk mengakses database MySQL dari Delphi atau Visual Basic, tetapi kebanyak komponen ini tidak gratis dan mahal.

Untungnya MySQL menyediakan sebuah software driver ODBC untuk menjembatani koneksi antara software aplikasi dengan database MySQL.Software ini adalah khusus untuk driver ODBC untuk MySQL. Berikut ini adalah langkah pembuatan data source ODBC untuk MySQL dengan menggunakan MySQL ODBC/Connector.

Download MySQL Connector/ODBC di http://dev.mysql.com/downloads/connector/odbc/ jika belum punya.

Install MySQL Connector/ODBC.

Setelah selesai menginstall MySQL Connector/ODBC, kemudian masuk ke Control Panel. Start | Settings | Control Panel | Administrative Tools | dobel klik Data Sources (ODBC).

Setelah muncul window ODBC Data Source Administrator klik tab User DSN, kemudian klik tombol Add.

di window Create New Data Source pilih MySQL ODBC nomor_versi Driver (nomor_versi adalah versi dari Driver Connector MySQL misalnya 3.51). Klik tombol Finish

Kemudian akan muncul window Connector / ODBC. Klik pada tab Login.

Pada text box Data Source Name isi dengan nama Data Source, misalnya MySQLDS.

Pada text box description isi dengan deskripsi koneksi (optional).

Pada text box server isi dengan localhost atau IP 127.0.0.1 jika anda menginstall Database MySQL di komputer anda sendiri.

Pada text box User isi dengan nama user misalnya root (root adalah user yang mempunyai kewenangan penuh terhadap database atau disebut juga Administrator).

Pada Text box Password isi dengan password root (defaultnya user root tidak mempunyai password).

klik tombol Test untuk mengetes koneksi.

Jika sudah sukses klik tombol Finish.

Menampilkan Dua Baris Pesan pada Messagebox di Delphi dan Visual Basic

2008-02-15T09:41:00.003+08:00

Terkadang kita ingin agar teks dalam sebuah messagebox atau message dialog dalam aplikasi kita menjadi beberapa baris karena teks yang akan kita tampilkan cukup panjang dan kurang indah jika pesan tersebut ditempatkan dalam satu baris.

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Delphi :

application.MessageBox('Ini adalah baris pertama pesan'+chr(10)+ 'Ini adalah baris kedua pesan','Informasi',mb_ok)

Berikut ini adalah cara menampilkan teks dua baris pada messagebox di Visual Basic :

MsgBox "Ini adalah baris pertama pesan" & Chr(10) & "Ini adalah baris kedua pesan", vbOKOnly, "Informasi"

Membuat Menu Popup dengan Delphi

2008-02-15T09:35:00.003+08:00

Buat sebuah Project baru tambahkan sebuah komponen Memo yang ada pada tab Standard.

Drag komponen Memo tersebut hingga lebarnya memenuhi form.

Tambahkan baris program berikut pada event OnMouseUp komponen Memo :

var TitikClient,TitikLayar: TPoint; begin if Memo1.SelLength>0 then begin TitikClient.X := X; TitikClient.Y := Y; TitikLayar := ClientToScreen (TitikClient); PopupMenu1.Popup (TitikLayar.X, TitikLayar.Y); end; end;

Menghubungkan Delphi dengan Database MySQL

2008-02-15T09:10:00.002+08:00

Berikut ini beberapa metode untuk menghubungkan Delphi dengan database MySQL berikut penjelasannya :

Koneksi menggunakan MySQL Connector/ODBC

Download MySQL Connector/ODBC di http://dev.mysql.com/downloads/connector/odbc/ jika belum punya.

Install MySQL Connector/ODBC.

Setelah selesai menginstall MySQL Connector/ODBC, kemudian masuk ke Control Panel. Start | Settings | Control Panel | Administrative Tools | dobel klik Data Sources (ODBC).

Setelah muncul window ODBC Data Source Administrator klik tab User DSN, kemudian klik tombol Add.

di window Create New Data Source pilih MySQL ODBC nomor_versi Driver (nomor_versi adalah versi dari Driver Connector MySQL misalnya 3.51). Klik tombol Finish

Kemudian akan muncul window Connector / ODBC. Klik pada tab Login.

Pada text box Data Source Name isi dengan nama Data Source, misalnya MySQLDS.

Pada text box description isi dengan deskripsi koneksi (optional).

Pada text box server isi dengan localhost atau IP 127.0.0.1 jika anda menginstall Database MySQL di komputer anda sendiri.

Pada text box User isi dengan nama user misalnya root (root adalah user yang mempunyai kewenangan penuh terhadap database atau disebut juga Administrator).

Pada Text box Password isi dengan password root (defaultnya user root tidak mempunyai password).

klik tombol Test untuk mengetes koneksi.

Jika sudah sukses klik tombol Finish.

Masuk ke Delphi, buat sebuah project baru lalu tambahkan sebuah komponen ADOConnection.

Dobel klik komponen ADOConnection. Klik tombol Build.

di window Data Link Properties klik tab Provider kemudian pilih Microsoft OLE DB Provider for ODBC Drivers klik tombol Next

Pada Tab Connection, Pilih radio button use data source name kemudian pada combobox di bawahnya pilih nama data source yang tadi anda buat yaitu MySQLDS.

Isi root pada textbox User name dan passwordnya pada textbox Password. Klik tombol Test Connection. Jika sukses, klik tombol OK.

Set Property LoginPrompt menjadi false agar aplikasi tidak menampilkan form Database Login ketika anda akan menjalankan aplikasi.

Set Property Connected menjadi true.

Setelah tahap diatas, koneksi ke database MySQL sudah terbentuk. Selanjutnya untuk mengakses data pada sebuah table di database MySQL anda bisa menggunakan komponen ADOTable atau ADOQuery yang dihubungkan dengan komponen ADOConnection dengan cara men-set property Connectionnya menjadi ADOConnection1.

Koneksi menggunakan MySQLDAC

Download MicroOlap MySQL Direct Access Component versi trial di http://www.microolap.com/products/connectivity/mysqldac/download/.

Install MicroOlap MySQL Direct Access Component seperti biasa.

Setelah selesai installasi, di tab component delphi akan muncul tab baru yaitu DAC for MySQL

Buat Project baru di Delphi, klik pada tab DAC for MySQL kemudian tambahkan sebuah komponen mySQLDatabase.

Dobel klik komponen tersebut, setelah itu muncul window dialog TMySQLDatabase Editor.

Isi text box Database Name dengan nama database anda.

Isi text box User ID dengan username anda misalnya root.

Isi text box Password password user yang digunakan.

Isi text box Host Name / IP dengan localhost atau 127.0.0.1 jika anda menginstall database MySQL di komputer anda sendiri.

Isi text box Server Port dengan nomor port yang digunakan MySQL database (defaultnya 3306).

Dari dua metode diatas, koneksi dengan menggunakan MySQL Direct Access Component adalah yang paling baik karena memberikan peforma akses/query ke database yang lebih cepat dibandingkan koneksi dengan menggunakan MySQL Connector/ODBC hanya saja komponen ini tidak gratis

Menampilkan Record Duplikat dengan SQL

2008-02-10T19:55:00.003+08:00

scroll to Indonesian Version

Search for duplicate records sometimes we needed in work in an IT area. Although duplication is impossible to happen at the tables that have good referential integrity and constraint, but in our IT reality sometimes we make our table contain duplicated records.

the SQL Syntax to search for duplicate record in MySQL, Microsoft Access, Oracle, SQL Server and others much the same to or is same precisely because SQL syntax i will mention under this is a standard SQL statement syntax.

For example i use a table named Employees in MySQL database and the table have the following structure : employee_id varchar (10), name varchar (30), and the table have the following data :

employee_id	name
8105048BR	Yana
8205049BR	Yana
8015052BR	Denny
8005043BR	Denny
8105047BR	Adi F
8005050BR	Sody S

At the example above we notice that there are four employees having the same name. To display the duplicated name using SQL statement in MySQL, Microsoft Access, Oracle, SQL Server and others, the SQL statement is as follows :

select name, count(*) from employees group by name having count(*) > 1

the SQL statement above will display the list of Name that having count greater than one record. In this example is Yana and Denny. below are the output from the SQL statement above :

name	count(*)
Denny	2
Yana	2

scroll to English Version

Mencari record duplikat terkadang kita butuhkan dalam pekerjaan di bidang IT. Walaupun duplikasi tidak mungkin terjadi pada tabel yang mempunyai referential integrity dan constraint yang baik, namun dalam kenyataannya kita sering membuat tabel yang berisi data-data duplikat.

Syntax SQL untuk mencari record duplikat di MySQL, Microsoft Access, Oracle, SQL Server dan lain-lain hampir sama atau sama persis karena syntax SQL yang akan saya sebutkan dibawah ini adalah syntax statement SQL standar.

Sebagai contoh saya menggunakan sebuah tabel bernama Karyawan di MySQL strukturnya sebagai berikut : nik varchar(10), nama varchar(30), dan mempunyai data-data sebagai berikut di :

nik	nama
8105048BR	Yana
8205049BR	Yana
8015052BR	Denny
8005043BR	Denny
8105047BR	Adi F
8005050BR	Sody S

Pada contoh diatas terdapat empat record yang mempunyai nama yang sama. Untuk menampilkan row duplikat tersebut dengan SQL di MySQL, Microsoft Access, Oracle, SQL Server dan lain-lain, statement SQL-nya sebagai berikut :

select nama, count(*) from karyawan group by nama having count(*) > 1

Statement SQL diatas akan menampilkan daftar Nama yang jumlahnya lebih dari satu, dalam contoh ini adalah Yana dan Denny. dibawah ini adalah output dari statement SQL diatas :

nama	count(*)
Denny	2
Yana	2

Belajar Syntax Dasar Statement SQL

2008-02-10T19:43:00.003+08:00

Setelah melihat-lihat ke beberapa forum Programming, banyak thread yang menanyakan tentang syntax statement SQL dasar.
Untuk itu saya mencoba menulis tutorial singkat ini mudah-mudahan temen-temen sesama penghobi programming bisa mendapat tambahan pengetahuan di SQL programming.

Semua statement SQL ini bisa berfungsi di semua DBMS/RDBMS karena ini adalah syntax statement SQL standar.
Untuk tutorial ini saya menggunakan sebuah table di Microsoft Access dan MySQL dengan nama Tbarang dan struktur datanya sebagai berikut :

Struktur table Tbarang di Microsoft Access :

kodeitem text(10), deskripsi text(50), harga number(10), kategori text(6), diskon number(2), statusjual text(1)

Struktur table Tbarang di MySQL :

kodeitem varchar(10), deskripsi varchar(50), harga integer(10), kategori varchar(6), diskon int(2), statusjual char(1)

dan datanya sebagai berikut :

kodeitem	deskripsi	harga	kategori	Diskon	StatusJual
EBVB2001	Visual Basic 6 Black Book	735000	SWEB	0	Y
EBBD1001	Mastering Delphi 7 E-Book	850000	SWEB	0	Y
SW2001	Microsoft Visual Basic.Net 2006	3200000	SW	0	Y
SW1001	Borland Delphi 7 Enterprise Edition	3000000	SW	0	Y
SW5001	Dreamcoder for MySQL Administration Enterprise	2100000	DBA	0	Y
SW6002	FastReport Studio 3.23 Enterprise Edition	3200000	UTL	0	Y
SW1002	Borland Delphi 2006 Enterprise Edition	3600000	SW	0	Y
SW2002	Microsoft Office 2007	3200000	SW	0	Y

Select Statement

Statement Select digunakan untuk menampilkan data dari satu atau beberapa tabel.

Contoh syntax SQL untuk menampilkan seluruh data yang ada di table barang :

select * from Tbarang

Contoh syntax SQL untuk menampilkan seluruh data yang mempunyai kategori SWEB (Software E-Book) :

select * from Tbarang where kategori = 'SWEB'

Contoh syntax SQL untuk menampilkan deskripsi dan harga barang dengan kategori SW (Software).

select deskripsi,harga from Tbarang where kategori = 'SW'

Contoh syntax SQL untuk menampilkan Deskripsi dan Harga dengan Kategori SW (Software) dan mempunyai Harga lebih dari tiga juta.

select deskripsi,harga from Tbarang where kategori = 'SW' and harga > 3000000

Insert Statement

Statement Insert digunakan untuk Menambah data kedalam sebuah tabel.

Contoh syntax SQL untuk menambah data kedalam table Tbarang dengan menyebutkan nama field.
Jumlah nilai (values) harus sesuai dengan jumlah dan tipe data dari urutan nama field yang disebutkan.

insert into tbarang (kodeitem, deskripsi, harga, kategori, diskon, statusjual) values('SW3001','PHP Designer 2008',2000000,'UTL',0,'Y')

Contoh syntax SQL untuk menambah data kedalam table Tbarang tanpa menyebutkan nama field :

insert into tbarang values('SW1003','Borland Delphi 6 Enterprise Edition',2800000,'SW',0,'Y')

Contoh syntax SQL untuk menambah data kedalam field kodeitem dan deskripsi di table Tbarang :

insert into tbarang (kodeitem, deskripsi) values('SW2003','Microsoft Visual Studio.Net 2006')

Data dari table Tbarang setelah statement Insert :

kodeitem	deskripsi	harga	kategori	Diskon	StatusJual
EBVB2001	Visual Basic 6 Black Book	735000	SWEB	0	Y
EBBD1001	Mastering Delphi 7 E-Book	850000	SWEB	0	Y
SW2001	Microsoft Visual Basic.Net 2006	3200000	SW	0	Y
SW1001	Borland Delphi 7 Enterprise Edition	3000000	SW	0	Y
SW5001	Dreamcoder for MySQL Administration Enterprise	2100000	DBA	0	Y
SW6002	FastReport Studio 3.23 Enterprise Edition	3200000	UTL	0	Y
SW1002	Borland Delphi 2006 Enterprise Edition	3600000	SW	0	Y
SW2002	Microsoft Office 2007	3200000	SW	0	Y
SW2003	Microsoft Visual Studio.Net 2006
SW3001	PHP Designer 2008	2000000	UTL	0	Y
SW1003	Borland Delphi 6 Enterprise Edition	2800000	SW	0	Y

Update Statement

Statement Update digunakan untuk merubah nilai satu atau beberapa field dari sebuah table.

Contoh syntax SQL untuk merubah seluruh diskon dari table Tbarang (update seluruh data / tanpa kondisi) :

Update tbarang set diskon=5

Contoh syntax SQL untuk merubah nilai diskon barang yang mempunyai harga lebih dari tiga juta (update satu field dengan menggunakan satu kondisi) :

Update tbarang set diskon=10 where harga > 3000000

Contoh syntax SQL untuk merubah nilai diskon,dan statusjual barang yang mempunyai harga lebih dari tiga juta (update lebih dari satu field dengan menggunakan satu kondisi) :

Update tbarang set diskon=0,statusjual='T' where harga > 3000000

Data dari table Tbarang setelah statement Update :

kodeitem	deskripsi	harga	kategori	Diskon	StatusJual
EBVB2001	Visual Basic 6 Black Book	735000	SWEB	5	Y
EBBD1001	Mastering Delphi 7 E-Book	850000	SWEB	5	Y
SW2001	Microsoft Visual Basic.Net 2006	3200000	SW	0	T
SW1001	Borland Delphi 7 Enterprise Edition	3000000	SW	5	Y
SW5001	Dreamcoder for MySQL Administration Enterprise	2100000	DBA	5	Y
SW6002	FastReport Studio 3.23 Enterprise Edition	3200000	UTL	0	T
SW1002	Borland Delphi 2006 Enterprise Edition	3600000	SW	0	T
SW2002	Microsoft Office 2007	3200000	SW	0	T
SW2003	Microsoft Visual Studio.Net 2006			5
SW3001	PHP Designer 2008	2000000	UTL	5	Y
SW1003	Borland Delphi 6 Enterprise Edition	2800000	SW	5	Y

Delete Statement

Statement Delete digunakan untuk menghapus record dari sebuah table.

Contoh syntax SQL untuk Menghapus data barang yang sudah tidak dijual lagi (statusjual ='T') :

delete from tbarang where statusjual='T'

Data dari table Tbarang setelah statement Delete :

kodeitem	deskripsi	harga	kategori	Diskon	StatusJual
EBVB2001	Visual Basic 6 Black Book	735000	SWEB	5	Y
EBBD1001	Mastering Delphi 7 E-Book	850000	SWEB	5	Y
SW1001	Borland Delphi 7 Enterprise Edition	3000000	SW	5	Y
SW5001	Dreamcoder for MySQL Administration Enterprise	2100000	DBA	5	Y
SW3001	PHP Designer 2008	2000000	UTL	5	Y
SW1003	Borland Delphi 6 Enterprise Edition	2800000	SW	5	Y
SW2003	Microsoft Visual Studio.Net 2006			5

Membuat Validasi Login User Berbasis Database di Borland Delphi

2008-02-09T03:51:00.006+08:00

Jika Anda membuat aplikasi untuk beberapa user group atau user level. Misalnya aplikasi anda digunakan untuk mengolah data penjualan suatu barang dan di aplikasi anda tersebut misalnya terdapat beberapa modul/menu diantaranya input data barang, input data penjualan, input data pembelian, laporan barang masuk, laporan barang keluar, laporan rugi laba, administrasi user dan lain sebagainya.

Nah tidak semua orang/user tentunya mempunyai hak untuk mengakses semua modul/menu tersebut. Misalnya ada dua level user yaitu Administrator dan operator. Operator hanya bertugas untuk menginput data barang, input data pembelian, input data penjualan, laporan barang masuk dan laporan barang keluar. Untuk Laporan Keuangan Rugi Laba dan administrasi user hanya boleh diakses oleh Administrator yang mempunyai kewenangan penuh terhadap seluruh aplikasi. Untuk itu tentunya aplikasi anda membutuhkan sebuah validasi user yaitu lewat sebuah proses login.

berikut ini saya akan memberikan sebuah contoh pembuatan aplikasi untuk validasi login user berbasis databases di borland delphi. Disini saya menggunakan borland delphi versi 7.

Sebelum mulai dengan Delphi anda harus membuat dahulu sebuah database misalnya kita gunakan database Microsoft Access.

Masuk ke Microsoft Access buat database baru : File | New | Blank Database. Simpan di folder C:\APP\Login dengan nama DelphiTutorial.mdb.

Buat table baru : Insert | Table. Pada kotak dialog yang muncul pilih Design View klik ok.

Buat struktur tabel seperti dibawah ini :

Filed Name	Data Type	Size
Username	Text	30
Password	Text	50
Status	Text	1

Field Status digunakan untuk pengenalan level user (0 untuk operator dan 1 untuk administrator). Berikan primary key pada field Username dan simpan table dengan nama Login. Kemudian isikan beberapa data, contoh :

Username	Password	Status
yana	belajar	0
yanadoe	delphi tutor	1

Buat sebuah project baru di Delphi : File | New | Aplication

Tambahkan dua buah komponen Edit dan dua buah komponen Button dan dua buah komponen Label

Tambahkan sebuah form lagi : File | New | Form.

Set property tiap komponen sebagai berikut :

Nama Komponen	Nama Property	Nilai
- Form1	Name	FLogin
- Form2	Name	FMenu
- Label1	Name	Label1
	Caption	Username
- Label2	Name	Label2
	Caption	Password
- Edit1	Name	EUsername
- Edit2	Name	EPassword
	PasswordChar	*
- Button1	Name	BtnOk
	Caption	Login
- Button2	Name	BtnCancel
	Caption	Batal

Sehingga tampilannya seperti ini

Simpan project di C:\APP\Login dengan nama PLogin.dpr.
Klik Flogin, tambahkan sebuah komponen AdoQuery (ada di tab ADO)

Set Property Namenya : AQLogin

Set Property ConnectionString : Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DelphiTutorial.mdb;Persist Security Info=False

klik form Fmenu kemudian tambahkan komponen MainMenu.

Dobel klik komponen MainMenu dan tambahkan satu menu dan beberapa submenu sehingga tampilannya seperti dibawah ini :

dobel klik komponen BtnOk di form FLogin kemudian isikan kode berikut :



aqlogin.Close;
aqlogin.SQL.Text := 'select * from login where username = :un and password = :pw';
aqlogin.Prepared := true;
aqlogin.Parameters[0].Value := EUsername.Text;
aqlogin.Parameters[1].Value := EPassword.Text;
aqlogin.Open;

  if aqlogin.RecordCount < 1 then // jika data tidak ada, tampilkan pesan error
  Messagedlg('Username tidak dikenal',mterror,[mbok],0)
  else if aqlogin.RecordCount > 0 then  // jika data ada, cek status
  begin
    if aqlogin.FieldValues['status'] = '0' then // jika status 0, maka menu administrator disembunyikan
    begin
    fMenu.caption := 'Anda login sebagai Operator';
    fmenu.Administrator1.visible := false;
    end
    else if aqlogin.FieldValues['status'] = '1' then
    fMenu.caption := 'Anda login sebagai Administrator'
    else
    begin
    Messagedlg('User level tidak jelas, login gagal',mterror,[mbok],0);
    exit;
    end;
  end;

flogin.Hide;
fMenu.show;

Dobel klik komponen BtnCancel, kemudian tambahkan kode berikut :

application.Terminate;

Kode pada BtnOk akan memeriksa username dan password dengan data yang ada di tabel login. Jika data ada (login sukses) maka akan ditampilkan form FMenu. Main Form untuk project ini adalah Flogin jadi meskipun anda sudah menutup form FMenu dan seolah-olah aplikasi sudah tertutup, padahal sebenarnya aplikasi tersebut masih berjalan dikarenakan Flogin yang jadi Main Form belum tertutup. Untuk membuktikannya, klik kanan di taskbar dan pilih Task Manager. Klik pada tab Proses kemudian cari entry dengan nama Plogin.exe.

Untuk mengatasi masalah tersebut, klik di FMenu kemudian pada Object Inspector klik tab Events kemudian dobel klik pada event OnClose, lalu tambahkan kode berikut :

application.Terminate;

Dengan demikian aplikasi akan di terminate ketika anda menutup form Fmenu

Membuat Validasi Login User Berbasis Database dengan Borland Delphi

2008-02-09T03:51:00.005+08:00

berikut ini saya akan memberikan sebuah contoh pembuatan aplikasi untuk validasi login user berbasis databases di borland delphi. Disini saya menggunakan borland delphi versi 7.

Sebelum mulai dengan Delphi anda harus membuat dahulu sebuah database misalnya kita gunakan database Microsoft Access.

Masuk ke Microsoft Access buat database baru : File | New | Blank Database. Simpan di folder C:\APP\Login dengan nama DelphiTutorial.mdb.

Buat table baru : Insert | Table. Pada kotak dialog yang muncul pilih Design View klik ok.

Buat struktur tabel seperti dibawah ini :

Filed Name	Data Type	Size
Username	Text	30
Password	Text	50
Status	Text	1

Username	Password	Status
yana	belajar	0
yanadoe	delphi tutor	1

Buat sebuah project baru di Delphi : File | New | Aplication

Tambahkan dua buah komponen Edit dan dua buah komponen Button dan dua buah komponen Label

Tambahkan sebuah form lagi : File | New | Form.

Set property tiap komponen sebagai berikut :

Nama Komponen	Nama Property	Nilai
- Form1	Name	FLogin
- Form2	Name	FMenu
- Label1	Name	Label1
	Caption	Username
- Label2	Name	Label2
	Caption	Password
- Edit1	Name	EUsername
- Edit2	Name	EPassword
	PasswordChar	*
- Button1	Name	BtnOk
	Caption	Login
- Button2	Name	BtnCancel
	Caption	Batal

Sehingga tampilannya seperti ini :

Simpan project di C:\APP\Login dengan nama PLogin.dpr.
Klik Flogin, tambahkan sebuah komponen AdoQuery (ada di tab ADO)

Set Property Namenya : AQLogin

Set Property ConnectionString : Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DelphiTutorial.mdb;Persist Security Info=False

klik form Fmenu kemudian tambahkan komponen MainMenu.

Dobel klik komponen MainMenu dan tambahkan satu menu dan beberapa submenu sehingga tampilannya seperti dibawah ini :

dobel klik komponen BtnOk di form FLogin kemudian isikan kode berikut :

aqlogin.Close; aqlogin.SQL.Text := 'select * from login where username = :un and password = :pw'; aqlogin.Prepared := true; aqlogin.Parameters[0].Value := EUsername.Text; aqlogin.Parameters[1].Value := EPassword.Text; aqlogin.Open; if aqlogin.RecordCount < 1 then // jika data tidak ada, tampilkan pesan error begin Messagedlg('Username tidak dikenal',mterror,[mbok],0); Exit; end else if aqlogin.RecordCount > 0 then // jika data ada, cek status begin if aqlogin.FieldValues['status'] = '0' then // jika status 0, maka menu administrator disembunyikan begin fMenu.caption := 'Contoh Database Login ...on ['+ uppercase(aqlogin.FieldValues['username'])+'] as Operator'; fmenu.Administrator1.visible := false; end else if aqlogin.FieldValues['status'] = '1' then fMenu.caption := 'Contoh Database Login ...on ['+ uppercase(aqlogin.FieldValues['username'])+'] as Administrator'; else begin Messagedlg('User level tidak jelas, login gagal',mterror,[mbok],0); exit; end; end; flogin.Hide; fMenu.show;

Dobel klik komponen BtnCancel, kemudian tambahkan kode berikut :

application.Terminate;

Kode pada BtnOk akan memeriksa username dan password dengan data yang ada di tabel login. Jika data ada aplikasi kemudian akan memeriksa status user. Jika status user tersebut "0" maka yang menu yang ditampilkan di form FMenu hanya menu untuk operator saja dan apabila status user "1" maka semua menu di form FMenu akan ditampilkan.

Main Form untuk project ini adalah Flogin jadi jika anda menutup form FMenu, maka seolah-olah aplikasi sudah tertutup, padahal sebenarnya aplikasi tersebut masih berjalan di background, karena Flogin yang jadi Main Form belum tertutup. Untuk membuktikannya, klik kanan di taskbar dan pilih Task Manager. Klik pada tab Proses kemudian cari entry dengan nama Plogin.exe.

Untuk mengatasi masalah tersebut, klik di FMenu kemudian pada Object Inspector klik tab Events kemudian dobel klik pada event OnClose, lalu tambahkan kode berikut :

application.Terminate;

Dengan demikian aplikasi akan di terminate ketika anda menutup form Fmenu

Tips Untuk Path Database dan File di Visual Basic dan Delphi

2008-02-07T15:22:00.001+08:00

Jika aplikasi mengalami masalah pada saat dirubah nama foldernya atau pada saat
dipindahkan ke folder lain, mungkin itu karena anda memberikan path absolute
ke file-file atau database yang digunakannya.

Untuk menghindari masalah seperti yang saya sebutkan diatas, anda harus
membuat path ke file-file yang digunakannya menjadi path relative. Misalnya anda mempunyai aplikasi yang disimpan di
"F:\APP\VB\PathRelative\Contoh.exe" dan databasenya disimpan di "F:\APP\VB\PathRelative\Sample.mdb".

Visual Basic Syntax

Berdasarkan contoh diatas, berikut ini syntax Visual Basic agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=" & app.path & "\sample.mdb;Persist Security Info=True"

Property Path dari App.path digunakan untuk menghasilkan path ke aplikasi .exe berada.
pada contoh diatas aplikasi .exe anda berada di "F:\APP\VB\PathRelative", sehingga kode app.path & "\sample.mdb" akan menghasilkan
"F:\APP\VB\PathRelative\sample.mdb".

Delphi Syntax

dan dibawah ini adalah syntax Delphi agar path ke database "Sample.mdb" menjadi relative :

koneksi_ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source=sample.mdb;Persist Security Info=True"

Apabila anda menggunakan komponen seperti Adodc di Visual Basic atau Adoconnection di Delphi
untuk koneksi ke database, maka setting Data Sourcenya adalah seperti gambar dibawah ini :

Path yang tadinya adalah path lengkap (absolute) => "F:\APP\VB\PathRelative\sample.mdb"

anda rubah menjadi => "sample.mdb"

Dengan cara seperti ini maka, aplikasi akan mencari file-file yang telah dideklarasikan sebelumnya
di folder manapun aplikasi tersebut ditempatkan.

SQL Dinamis Dengan Parameter Di Microsoft Access

2008-02-07T15:16:00.001+08:00

Jika anda sering menggunakan SQL di Microsoft Access anda mungkin pernah merasa malas, capek (dsb..)
untuk masuk ke menu Query Design untuk merubah statement SQL objek Query anda.

Misalkan anda ingin menampilkan data barang-barang dari vendor tertentu di tabel Barang
berdasarkan kode vendor yang anda cantumkan setelah klausa where di dalam
statement SQL anda. Misalnya statement SQL anda seperti ini :

Select * from barang where vendor_id='V0001'

Anda bisa menampilkan data barang-barang dari vendor yang lain tanpa harus melakukan modifikasi
SQL dengan cara menggunakan parameter sebagai inputan untuk kondisi pencarian setelah klausa where.
Di bawah ini adalah contoh statement SQL dengan satu parameter yang diberi nama vid.

Select * from barang where vendor_id=:vid

Ketika Query tersebut dijalankan Microsoft Acess akan menampilkan kotak dialog Parameter, anda hanya
perlu menginputkan kode vendor pada kotak dialog tersebut.

Menggabung Beberapa Teks Di Microsoft Excel

2008-02-05T06:25:00.002+08:00

Dalam Membuat sebuah laporan dengan menggunakan Microsoft Excel
mungkin anda pernah menginginkan agar data atau teks dari beberapa cell bisa
digabung menjadi satu. sebagai contoh, misalnya anda mempunyai data sebagai berikut :

Berikut ini adalah caranya :

Ketik formula dibawah ini di cell yang anda ingin agar data tersebut ditampilkan

=CONCATENATE(C3;"-";D3)

Hasilnya :

Mengeksport Data ke MS Excel Dengan Visual Basic - Part 4

2008-02-03T10:31:00.004+08:00

Coding

Klik kanan pada DataGrid1 pilih Retrieve Fileds untuk memasukan
field-field dari tabel karyawan ke komponen DataGrid1 secara otomatis.
Sehingga tampilannya akan seperti gambar dibawah ini :

Langkah selanjutnya adalah mengisikan kode program ke dalam masing-masing komponen.
klik di sembarang tempat di pada komponen Form1 kemudian tekan tombol F7
ini akan memunculkan "Code Window".
Isikan beberapa baris kode program berikut pada bagian paling atas sebelum kode Private Sub Form_Load().

Option Explicit Dim koneksi_ado As ADODB.Connection Dim rskaryawan As ADODB.Recordset

Kode diatas mendeklarasikan variabel koneksi_ado sebagai adodb conection dan rskaryawan sebagai adodb recordset.
Dobel Klik Komponen Form1, kemudian ketik kode berikut :

Dim SQLStr As String Set koneksi_ado = New ADODB.Connection Set rskaryawan = New ADODB.Recordset koneksi_ado.ConnectionString= & _ "Provider=Microsoft.Jet.OLEDB.4.0; & _ Password=;Data Source=" & App.Path & "\sample.mdb" & _ ";Persist Security Info=True" koneksi_ado.Open Adodc1.Enabled = True SQLStr = "select * from karyawan order by nama" rskaryawan.Open SQLStr, koneksi_ado, adOpenDynamic, adLockOptimistic DataGrid1.Refresh Label1.Caption = "Status :"

Kode diatas akan dieksekusi pada event form_load sehingga kode diatas akan dieksekusi ketika sebuah aplikasi pertama dijalankan.

Langkah selanjutnya, mengisikan kode program utama yang akan di picu oleh komponen CommandButton1. Dobel klik CommandButton1, kemudian ketik kode berikut :

Dim EXCELAPPKU As Excel.Application Dim excelbookku As Excel.Workbook Dim excelsheetku As Excel.Worksheet Dim baris, datake As Integer Label1.Caption = "Status : Prosesing Data...." Set EXCELAPPKU = New Excel.Application Set excelbookku = EXCELAPPKU.Workbooks.Add With EXCELAPPKU .StandardFontSize = "10" End With EXCELAPPKU.Visible = True Set excelsheetku = excelbookku.Worksheets(1) excelsheetku.Select Range("A1:C1").Select Selection.MergeCells = True Selection.HorizontalAlignment = xlCenter ActiveCell.FormulaR1C1 = UCase("Data Karyawan") Selection.Font.Bold = True Selection.Font.Name = "Verdana" With excelsheetku .Cells(2, 1).Value = "NIK" .Cells(2, 2).Value = "Nama" .Cells(2, 3).Value = "Jabatan" Label1.Caption = "Status : Prosesing Data..." baris = 3 datake = 0 If Not rskaryawan.BOF Then rskaryawan.MoveFirst While Not rskaryawan.EOF Label1.Caption = "Status : Exporting Data ke " & datake Label1.Refresh datake = datake + 1 .Cells(1, 5).Value = "Fetching data ke " & datake .Cells(baris, 1) = rskaryawan![NIK] .Cells(baris, 2) = rskaryawan![nama] .Cells(baris, 3) = rskaryawan![jabatan] baris = baris + 1 rskaryawan.MoveNext Wend End If .Cells(1, 5).ClearContents .Columns("A:A").EntireColumn.AutoFit .Columns("B:B").EntireColumn.AutoFit .Columns("C:C").EntireColumn.AutoFit End With rskaryawan.Close Label1.Caption = "Status : Selesai." On Error GoTo 0 Set excelsheetku = Nothing Set excelbookku = Nothing EXCELAPPKU.Quit MsgBox "Export data selesai", vbInformation, "Informasi"

Sekarang anda pilih menu Run | Start untuk menjalankan aplikasi. Tekan tombol "Eksport" untuk melihat outputnya.

Berikut ini gambar aplikasi pada saat runtime :

Dan gambar dibawah ini adalah gambar hasil outputnya :

<< Interface Aplikasi dan Database Path (Part 3)

Mengeksport Data ke MS Excel Dengan Visual Basic - Part 3

2008-02-01T18:16:00.001+08:00

Interface Aplikasi

Sekarang kita mulai dengan interface. Tambahkan sebuah CommandButton, DataGrid, Adodc dan sebuah label. Set nilai property masing-masing komponen sesuai dengan gambar dibawah ini :

Sehingga tampilannya seperti gambar dibawah ini :

Setting Database Path

Dalam men-set ConnectionString pada komponen adodc kita menggunakan path relative sebagai berikut :

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=sample.mdb;Persist Security Info=False" . tidak menggunakan path absolute sebagai berikut :
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ToExcel\sample.mdb;Persist Security Info=False".
Cara pertama (dengan path relative) akan membuat aplikasi lebih fleksibel. Maksudnya, meskipun aplikasi ini dipindahkan ke folder lain asalkan databasenya (.mdb) juga ditempatkan di folder yang sama dengan aplikasi (.exe) tersebut, aplikasi ini tidak akan mengalami error dan tidak perlu merubah source code dari aplikasi tersebut.

<< Pembuatan Aplikasi (Part 2)
Coding (Part 4) >>

Mengeksport Data ke MS Excel Dengan Visual Basic - Part 2

2008-02-01T14:49:00.001+08:00

Pembuatan Aplikasi

Jalankan MS Visual Basic : klik Start Menu | Program | Microsoft Visual Basic 6.0 | Microsoft Visual Basic 6.0. Setelah masuk ke Visual Basic IDE, kita akan melihat window yang mempunyai tiga tab dengan title "New Project".

Pilih "Standard EXE", kemudian akan muncul Project1 – Form1. klik menu File | Save Project As untuk menyimpan project ini. Simpan Form dengan nama FtoExcel.frm dan dengan projectnya dengan nama ExcelExport.vbp.

Agar visual basic dapat menggunakan library untuk microsoft excel, maka kita harus mengaktifkan Library microsoft excel ini dengan cara : klik menu Project | References. Ini akan memunculkan window "References – Project1". Di dalam window ini terdapat banyak object library yang bisa digunakan untuk visual basic IDE. Kemudian centang object library yang berlabel "Microsoft Excel 11.0 Object Library" atau library "Microsoft Excel 10.0 Object Library" untuk pengguna Microsoft Office 2000 dan "Microsoft Excel 12.0 Object Library" untuk pengguna Microsoft Office 2007.

Ini akan memberitahukan kepada visual basic bahwa kita akan menggunakan object library dari Microsoft Office Excel 11.0 atau versi microsoft office excel yang anda gunakan.

<< Persiapan (Part 1)
Interface dan Setting Database Path (Part 3) >>

Mengeksport Data ke MS Excel Dengan Visual Basic - Part 1

2008-02-01T13:40:00.001+08:00

Bagi anda para software developer baik itu yang menggunakan database seperti MS Access ataupun database RDBMS seperti MS SQL Server, Oracle, MySQL dll, tentu anda pernah menginginkan agar data anda bisa dieksport ke format MS Excell untuk tujuan lainnya seperti ingin mempercantik format tampilan, sebagai bahan pembuatan laporan dan lain sebagainya. Walaupun ada banyak tool yang tersedia di internet untuk melakukan hal ini, tetapi mungkin saja anda ingin mengintegrasikan kemampuan ini dalam aplikasi yang anda buat.

dalam artikel ini saya akan sharing salah satu cara untuk mengeksport data ke MS Excel dengan menggunakan kode program di Visual Basic. Adapun versi Visual Basic yang saya gunakan adalah Visual Basic versi 6.0 dan microsoft office yang saya gunakan adalah Microsoft Office 2003 (MS Office 11).

Persiapan

Aplikasi ini akan kita gunakan untuk mengeksport data dari database microsoft access. Buat sebuah folder baru di drive C dan beri nama "ToExcel". Kemudian kita akan membuat sebuah database microsoft access langkahnya sebagai berikut : Klik Start Menu | Program | Microsoft Office Access 2003. Setelah masuk ke IDE microsoft access, klik menu File | New. Di menubar sebelah kanan pilih "Blank Database". Kemudian sebuah kotak dialog "File New Database" akan muncul. Simpan file tersebut di folder "ToExcel" yang telah kita buat tadi dan beri nama sample.mdb.

Buat sebuah tabel dengan struktur data seperti dibawah ini :

NIK text(10),Nama text(50),Jabatan text(30). Simpan tabel tersebut dan beri nama Karyawan. Kemudian isi beberapa data kedalam table tersebut.

Pembuatan Aplikasi (Part 2) >>