linux,cisco,delphi

vehicle insurance

2010-04-27T14:33:00.000+07:00

Life insurance and vehicle insurance is one way to manage risk. Therefore, prior to deciding to take life insurance adira insurance, it helps you to understand the family needs and tailor-making carinsurancerates with an offer from the insurance provider.

People need carinsurancerates with an insurance program carinsurancerates because this is one way to manage risk. Risk can not be denied, but has some method of risk management to anticipate them. The objective of risk management is to reduce the impact of financial losses that may occur.

Unfortunately, some people buy insurance policies for the program carinsurancerates the sum assured under the requirement (underinsured). This is because they are not able to determine exactly how much protection is needed.

Life Insurance At Aussie.Com

2010-04-24T13:51:00.002+07:00

Now you can have not only Life Insurance but also funeral insurance for you and for your family too. Without having intention to wish you dying soon, or so ever, this program is trying to help you to prepare everything that will be happened in future. The death is something that every body would go through any way, soon or later and we never know when is our turn would come. Either tomorrow, next year or perhaps until we are 100 years old. But that must be happened anyway. So you better prepare this life insurance and funeral insurance from now.

The reason why you need this life insurance and Funeral Insurance so that you will not burden your family with funeral process, administration fee, tax and so on when you die. The insurance would take good care everything needed for this funeral process. The same thing if this happened to the member of your family, if they also join this funeral insurance, you will not have problem to go through the process since everything would be taken care by the insurance.

Get a Life Insurance Quotes from this site for your reference now. get the best offer they give and you better not to delay for having this life insurance and funeral insurance, since we never know what will happened in the next minute

Life Insurance

2010-04-16T13:43:00.002+07:00

Insurance was created to save those who will most likely be dropped when the financial condition of a breadwinner, or a key person in the family or the backbone to get a risk (illness, total permanent disability or death).

A family where the father usually gives USD. 5 jt / month to his wife to run each month, which is used for everyday purposes, the children's school finance and car payment. Do not forget to also set aside for savings amounting to (say) 1 jt / month that can be enjoyed during the age pension arrived later (age 65 years). But alas the age of 45 the father (breadwinner) is called of God. Instead of going to enjoy retirement age, with comfortable, the wife just lost USD. 5 jt / month and will inevitably have to take the money savings as the breadwinner. please contact us for news about life insurances

Let us count. Each month provide Rp 5 jt father or the father is usually a year living 60 60 jt jt this time has been lost. The wife / family had lost the opportunity to earn 1.2 billion (up to age 65 years husband).

Different case when the wife wanted to set aside a small portion of husband's income to buy insurance. The aim is to protect the husband's income or to provide protection for the husband's income potential. So the main purpose of insurance is to protect the revenue account. so you must take life insurance quote
and Funeral Insurance
If only the family has a policy valued at 1.2 Billion Sum only, then the family is safe from the stress of financial problems, at least there is a solution to financial problems After the death of a breadwinner.

Direct- TV- Package

2010-03-01T08:16:00.001+07:00

Why pay more for TV? BLOG television channel has the best selection at the best price in the market. There is something for everyone on television BLOG! Programming for all ages, lifestyles, hobbie and interest. BLOG television and HD DVR has the latest technology, including a FREE HD DVR, DVR or HD receiver upgrade.
Check the list of packages below and contact us BLOG television to find the best TV package options for your home.

Blog Televison has several Direct TV Packages, called the Direct TTV package, among other
1. Package priemer
2. Plus HD DVR Package
3. Plus DVR Package
4. Choice Extra Package
5. Package Choice
6. Package family

To more clearly biased contact us at direct TV Package

Shopping Online

2009-09-06T07:15:00.005+07:00

In the world more market online which give you offer electronic,clothes, gadget.
If you want to shopping online comfortable and secure, he wants to visit the best site for you is the store Shopwiki.com. There are many different types of products are offered, such as clothing, electronics, accessories, food and entertainment.

I have an interesting exercise, but I found an article I found on the market shopwiki.com, the property knowing it is a tape, of course, if you like this store, you are welcome to search for specific items.

The more needs you, many women who have the products you want, how to find clothes, shoes, clothes and cosmetics, all with good quality and many advantages when you shop online, shopwiki.com, visit this site, Dies is the place to shop online, which is very popular, it's time for another shopping needs on this site

Setup Cricket Wireless A600 Broadband Modem in Ubuntu

2009-06-13T04:59:00.000+07:00

Setup Cricket Wireless A600 Broadband Modem in Ubuntu
Download the .tar.gz file from here and extract the contents to your preferred directory using the following command

Open up terminal and enter the following command

tar xzvf Cricket_Mode_Switch.tar.gz

and use cd to change into the directory of the extracted files.

32 bit Users - Install usb_modeswitch with the following command:

sudo make install

64 bit Users - We need to recompile modeswitch to work on the 64bit platform. Run the following commands in terminal to do so

sudo apt-get install build-essential

sudo apt-get install libusb-dev

rm usb_modeswitch

make

sudo make install

Plug in your Cricket A600 to an open USB port, wait a moment for it to be detected as a CD drive/the auto play menu to pop up. Now we just need to execute the flipflop.sh, it is in the directory of files you extracted, by running the following command

sudo ./flipflop.sh

Please note you need to first make this file executable by running the following command

chmod +x flipflop.sh

After running the flipflop.sh you need to wait about 12 seconds and then poof! Your Cricket device should now appear in your network manager as a connection option.

Useful Notes

You will need to

sudo flipflop.sh

each time you attach the device for it to work.

Before this guide will work for you, you do need to load the device on a Windows/Mac system and install the software for the device and activate it.

reference : ubuntugeek

Ubuntu: Changing Your Computer’s Hostname

2009-06-10T10:29:00.000+07:00

So, your computer’s name, or hostname, isn’t what you want any longer. Possibly, you misspelled it during the installation process (trust me, I’ve done it). Whatever reason you have for changing it, it’s easier than you might think.
Do It The GUI way

You have two possible options. The first is through the network-admin desktop application. On 8.04 Hardy Heron, it’s installed by default. However, on 8.10 Intrepid Ibex, it is not. Use Synaptic to install gnome-network-admin or use sudo apt-get install gnome-network-admin at a command prompt.

To run the application, choose System > Administration > Network. On the following Network Settings window, click on the General tab.

screenshot-network_settings

There you’ll see the Host Settings. Click the Unlock button and enter your passphrase to authenticate yourself to change the Host name. To finish, click Close and you’ll see a warning about having to login again. Click on Change Host name, and click Close again. Once you’re done, give your machine a restart and you’re set to go.
No GUI? Do It On The CLI

Your second option is from a command line. There are two files that need to be changed: /etc/hostname and /etc/hosts . Use your favorite text editor (I use nano for these edits) and open each one. You’ll need to use sudo since you’re changing system files.

First we change the /etc/hosts file.
sudo nano /etc/hosts

This is what my server’s hosts file looks like.

adam@oracle:~$ cat /etc/hosts
127.0.0.1 localhost
127.0.1.1 oracle

# The following lines are desirable for IPv6 capable hosts
::1 ip6-localhost ip6-loopback
fe00::0 ip6-localnet
ff00::0 ip6-mcastprefix
ff02::1 ip6-allnodes
ff02::2 ip6-allrouters
ff02::3 ip6-allhosts

You can see my server’s name next to 127.0.1.1 as oracle. You should see your computer’s name at that same IP. Just replace it with your new choice. Save and close that file and open your /etc/hostname file.
sudo nano /etc/hostname

This one is very simple. All that should be there is your computer’s current name. Replace it with your new choice, save and close. Now, all that’s left is to reboot the machine.

For a temporary fix, you can use the hostname command.
sudo hostname your_new_hostname

I’ve also read elsewhere that you don’t need to reboot after changing the hostname as much as you just need to re-login. I feel it’s best to be safe and just reboot. You can choose whichever is best for you.

reference:rebelzero

How to convert an flv into a dvd iso image

2008-10-07T11:38:00.000+07:00

flv2dvd is a script that convert an flv into a dvd iso image. simple stick the (single flv file) into an empty directory, cd into it and type in (flv2dvd *) without the quates. The end result is a dvd iso that you can burn using your favorate cd burner.

Install flv2dvd in Ubuntu hardy

You need to edit the /etc/apt/sources.list file using the following command

sudo gedit /etc/apt/sources.list

Then add the fallowing line to the bottom

deb http://ubuntu.global-web.us/hardy binary/

Save and exit the file

Update the source list using the following comamnd

sudo apt-get update

Install flv2dvd using the following command

sudo apt-get install flv2dvd

Using flv2dvd

simple stick the (single flv file) into an empty directory, cd into it and type in (flv2dvd *) without the quates. The end result is a dvd iso that you can burn using your favorate cd burner.

mkdir flvtest

for example if you have music.flv file in flvtest directory

cd flvtest

flv2dvd *

Now you should be having dvd iso that you can burn using your favorate cd burner.

UPdate IP Addresses at dyndns.org

2008-05-29T10:22:00.000+07:00

If you are using zoneedit.com or dyndns.org for your DNS service so that you can access your server using a URL, then you might have to update your DNS record at the service periodically whenever the IP address of your computer changes.Now here is simple solution for this ddclient.

Update IP addresses at dynamic DNS services.A perl based client to update your dynamic IP address at DynDNS.com (or other dynamic DNS services such as Hammernode, Zoneedit or EasyDNS), thus allowing you and others to use a fixed hostname (myhost.dyndns.org) to access your machine. This client supports both the dynamic and (near) static services, MX setting, and alternative host. It caches the address, and only attempts the update if the address actually changes.

Install ddclient in ubuntu

sudo aptitude install ddclient

This will complete the installation

Configuring ddclient

If you want to reconfigure you seetings use the following command

dpkg-reconfigure ddclient

You want to make sure it runs as a service and monitors changes in ppp–something that the install wizard doesn’t cover.

Edit the configuration file /etc/ddclient.conf

sudo gedit /etc/ddclient.conf

# Configuration file for ddclient generated by debconf
#
# /etc/ddclient.conf
pid=/var/run/ddclient.pid
protocol=easydns
use=web
server=members.easydns.com
login=yournamehere
password=’password’
*.your.domain

If you can’t find the public IP address, then you can have ddclient check your public IP address from the web by editing /etc/ddclient.conf and making it use the web by saying

use=web

or

use=web, web=checkip.dyndns.org/, web-skip=’IP Address’

Save and exit the file

Restart ddclient service using the following command

sudo /etc/init.d/ddclient restart

Reference : http://ubuntugeek.com

How Install Webmin in Linux

2008-05-21T10:15:00.000+07:00

Webmin is a web-based interface for system administration for Unix. Using any browser that supports tables and forms (and Java for the File Manager module), you can setup user accounts, Apache, DNS, file sharing and so on.

Webmin consists of a simple web server, and a number of CGI programs which directly update system files like /etc/inetd.conf and /etc/passwd. The web server and all CGI programs are written in Perl version 5, and use no non-standard Perl modules.

Installing Webmin in Ubuntu

You can use the above procedure but if you want to install latest version you can download from webmin site download section

Prerequisites

Perl 5 interpreter and libnet-ssleay-perl

sudo apt-get install perl5 libnet-ssleay-perl

Now you need to download the latest webmin from the above downloadlink

Download ‘webmin-1.310.tar.gz’ (at the time of writing) to some location in your machine ex:- /usr/local/src

wget http://prdownloads.sourceforge.net/webadmin/webmin-1.310.tar.gz

cd /usr/local/src

sudo tar xzvf webmin-1.310.tar.gz

cd webmin-1.310

sudo sh setup.sh

This will start the installation and now it will prompt for several questions answer them as follows

Config file directory [/etc/webmin]:
Leave as default, or change as you wish

Log file directory [/var/webmin]:
Leave as default, or change as you wish

Full path to perl (default /usr/bin/perl):
Leave as default, or change as you wish

Operating system:
Enter ‘6′

Version:
Enter ‘6′

Web server port (default 10000):

This is where you can start to make webmin more secure then the standard install you get with apt-get, Synaptic, or RPM. Leave as default or change it to what ever port you want.

Login name (default admin):

It is ‘admin’, so you can leave it as that, or put in any name that you like.

Login password:

By creating the user above and giving it a password, you have now made it so you will not need to log into webmin with root.

Password again:

enter your password again

If you did not install ‘libnet-ssleay-perl’ you will get the following message:

‘The Perl SSLeay library is not installed. SSL not available.’ You can continue with the install, but it would be more secure if you install sslrelay.

Use SSL (y/n):y

Choose yes here

Start Webmin at boot time (y/n):y

select here y

At this point it is going to configure things, install things, and create things…

It will then tell you that you can log in to https://hostipaddress:10000 and to accept the certificate.

Webmin User Password Change

If you want to change root password in webmin use this included Perl script:

sudo /usr/share/webmin/changepass.pl /etc/webmin root

Installation MYSQL With PhpMyAdmin

2008-05-21T09:30:00.002+07:00

MySQL is a widely used and fast SQL database server. It is a client/server implementation that consists of a server daemon (mysqld) and many different client programs/libraries.

Installing Mysql database in Ubuntu

sudo aptitude install mysql-server mysql-client libmysqlclient15-dev

This will complete the installation of mysql server 5.0.45 in ubuntu gutsy.

Configuring Mysql in ubuntu

MySQL initially only allows connections from the localhost (127.0.0.1). We’ll need to remove that restriction if you wish to make it accessible to everyone on the internet. Open the file /etc/mysql/my.cnf

sudo gedit /etc/mysql/my.cnf

Find the line bind-address = 127.0.0.1 and comment it out
…
#bind-address = 127.0.0.1
…

You can check your configuration using the following command

#netstat -tap

Output Looks like below

tcp 0 0 *:mysql *:* LISTEN 4997/mysqld

MySQL comes with no root password as default. This is a huge security risk. You’ll need to set one. So that the local computer gets root access as well, you’ll need to set a password for that too. The local-machine-name is the name of the computer you’re working on. For more information see here

sudo mysqladmin -u root password your-new-password

sudo mysqladmin -h root@local-machine-name -u root -p password your-new-password

sudo /etc/init.d/mysql restart

Manage Mysql using Phpmyadmin

phpMyAdmin is a tool written in PHP intended to handle the administration of MySQL over the Web. Currently it can create and drop databases, create/drop/alter tables, delete/edit/add fields, execute any SQL statement, manage keys on fields, manage privileges,export data into various formats and is available in 54 languages. GPL License information.

Install phpmyadmin in ubuntu

sudo aptitude install phpmyadmin

This will complete the installation.

Now you need to goto http://serverip/phpmyadmin/

Login using your mysql root as username and password

Refrence: ubuntugeek.com

Database Tools by SQL Maestro Group

2008-05-09T14:17:00.001+07:00

Database Tools by SQL Maestro Group

SQL Maestro Group offers complete database administration and management tools for MySQL, Oracle, MS SQL Server, PostgreSQL, SQLite, Firebird and MaxDB providing the highest performance, scalability and reliability to meet the requirements of today's database applications.

Latest database servers versions support
State of the art user interface
Graphical database designer
Advanced SQL Editor
Visual Query Builder
Powerful data management
Feature-rich set of other admin/development tools.

Reference : http://torry.net

How to Patch Delphi's VCL

2008-05-09T14:00:00.000+07:00

How to Patch Delphi's VCL

From Delphi

Jump to: navigation, search

To create a VCL patch all that is required is that you copy the source file (*.pas file) from the Borland RTL or VCL source folder to your application's project folder. You can then freely modify the file and it will automatically be compiled into your application.

NOTE: This technique should only be used as an interim measure. When Borland releases fixes for the VCL that address the original issue it is recommended that you remove the patch file. Make sure you remove the respective *.dcu files as well.

WARNING: When you modify RTL/VCL files in interface section, and you are using third party components without sources you won't be able to rebuild your project!

Get the size of a file (more than 2 GB) With this function you can receive the size of a file, it still works correctly with sizes larger than 2 GB.

2008-05-09T13:53:00.000+07:00

Get the size of a file (more than 2 GB)

With this function you can receive the size of a file, it still works correctly with sizes larger than 2 GB.

uses SysUtils;

////////////////////////////////////////////////////////////////
// this function determines the size of a file in bytes, the size
// can be more than 2 GB.
function Sto_GetFileSize(const FileName: String): Int64;
var
myFile: THandle;
myFindData: TWin32FindData;
begin
// set default value
Result := 0;
// get the file handle.
myFile := FindFirstFile(PChar(FileName), myFindData);
if (myFile <> INVALID_HANDLE_VALUE) then
begin
Windows.FindClose(myFile);
Int64Rec(Result).Lo := myFindData.nFileSizeLow;
Int64Rec(Result).Hi := myFindData.nFileSizeHigh;
end;
end;

Reference: http://www.martinstoeckli.ch

2008-05-09T13:17:00.000+07:00

TADONETConnector: using ADO.NET in VCL for .NET
In this paper, I will demonstrate how to use the hardly documented TADONETConnector component to feed (ADO).NET DataSets to VCL for .NET clients, where you can show and work with the contents in regular data-aware controls from the VCL (for .NET).

Delphi VCL applications use VCL TDataSets - and so do Delphi VCL for .NET applications (they use VCL TDataSets). VCL Data Access technologies include the Borland Database Engine (BDE), dbExpress, dbGo for ADO and InterBase Express (IBX) among others.
The .NET Framework offers a different data access technology, called ADO.NET, with a .NET DataSet. The .NET DataSet is a bit similar to a VCL TClientDataSet in that it is disconnected and maintained in memory, but can be streamed to an XML file, and used to hold data resulting from an SQL Command on a database table. One difference is that the .NET DataSet can hold multiple DataTables, where the TClientDataSet can hold only one table (with the exception of nested tables, but these are all related to each other). Unfortunately, that's not the only difference, as their (internal) formats are also quite different: an XML file saved by a VCL TClientDataSet is not understood by a .NET DataSet - and vice versa. In fact, it's very hard to get a .NET DataSet and a VCL TDataSet working together. That's why I'm so surprised that the TADONETConnector of Delphi 2005 (and Delphi 8 for .NET) is so well-hidden...

TADONETConnector
TADONETConnector allows .NET DataTables to supply the content of VCL DataSets. TADONETConnector is a VCL TDataSet descendant, so VCL TDataSources can connect to it. TADONETConnector has a DataTable property, which can be assigned to a .NET DataTable. Brilliant, isn't it?
For some reason, the TADONETConnector component is not installed by default, and it's usage is also not well-documented (if you ask me), so allow me to demonstrate the power of this little gem.

Do File | New and create a new VCL Forms Application - Delphi for .NET project - save it. First, we have to make sure we can use the TADONETConnector component. The design-time registration can be found in the Borland.Vcl.Design.AdoNet.dll assembly, that we manually need to install using the Component | Install .NET Components... dialog. On the .NET VCL Components tab, you can click on the Add button and locate the Borland.Vcl.Design.AdoNet.dll assembly in the Borland\BDS\3.0\Bin directory.

Using Delphi 8 for .NET, this results in a TADONETConnector component being added to the Data Access category, but with Delphi 2005 I found a TListConnector component (and no TADONETConnector component).

It doesn’t really matter, as you can always create the component in source code, of course, but it's a bit strange that the TADONETConnector is becoming even more "hidden" in Delphi 2005 than it was in Delphi 8 for .NET.

Anyway, let's start using TADONETConnector now. According to the Delphi 2005 on-line help, you should use the CommandText property, but this property doesn't exist! Instead of the CommandText property, my experience tells me that we should simply assign a .NET DataTable to the DataTable property of the TADONETConnector.
How do we get a .NET DataTable? Well, like the TADONETConnector, we have to create the .NET DataSet, xxxConnection and xxxDataAdapter components by hand: in code.

In a VCL for .NET unit, you need to add a number of units to the uses clause, namely the System.Data (for DataSet), System.Data.SqlClient (for the sqlConnection etc.), as well as ADONETDb (for the TADONETConnector).

  unit Unit1;
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls, Borland.Vcl.Db,
   Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ExtCtrls,
   Borland.Vcl.DBCtrls,
   System.Data, // DataSet
   System.Data.SqlClient, // sqlXXX
   ADONETDb; // TADONETConnector

I place two TButtons on the Form: btnConnect and btnUpdate, as well as a TDBNavgiator, TDBGrid and TDataSource. The TDBNavigator and TDBGrid can be connected to the TDataSource already, but the actual data access stuff needs to be done in code, as mentioned before.

Note that in the class declaration below, I've included the connection string to the Northwind database on my NX03\NX3 instance of SQL Server.

  type
   TForm1 = class(TForm)
     btnConnect: TButton;
     btnUpdate: TButton;
     DBNavigator1: TDBNavigator;
     DBGrid1: TDBGrid;
     DataSource1: TDataSource;
     procedure FormCreate(Sender: TObject);
     procedure btnConnectClick(Sender: TObject);
     procedure btnUpdateClick(Sender: TObject);
   const
     ConnectionString = 'user id=sa;data source="NX03\NX3";'+
       'persist security info=True;initial catalog=Northwind;password=********';
   private
     { Private declarations }
     ADODataSet: TADONETConnector;
     SQLConn: sqlConnection;
     SQLAdap: sqlDataAdapter;
     Data: DataSet;
   end;

And as you can see, I've also declared a TADONETCOnnector, sqlConnection, sqlDataAdapter and .NET DataSet in the private section of my VCL Form.

Time to write some code. In the FormCreate method, I'll create instances for the four private components, without actually connecting to the database or retrieving any data, yet.

  procedure TForm1.FormCreate(Sender: TObject);
 begin
   SQLConn := sqlConnection.Create(ConnectionString);
   SQLAdap := sqlDataAdapter.Create('select * from Employees', SQLConn);
   Data := DataSet.Create;
   ADODataSet := TADONETConnector.Create(self)
 end;

A click on btnConnect will execute the Fill method of the sqlDataAdapter, and assign the resulting DataTable from the DataSet to the ADONETConnector's DataTable property. The TDataSource then also needs to be connected to the TADONETConnector component, and then we only need to activate the latter to get the data!

Note that we can now navigate, browse, edit and do anything with the data (originating from an ADO.NET DataSource) with VCL for .NET components. Not VCL for Win32, by the way, since TADONETConnector is a VCL for .NET component only!

  procedure TForm1.btnConnectClick(Sender: TObject);
 begin
   SQLConn.Open;
   try
     SQLAdap.Fill(Data, 'Employees');
     ADODataSet.DataTable := Data.Tables['Employees'];
     DataSource1.DataSet := ADODataSet;
     ADODataSet.Active := True
   finally
     SQLConn.Close
   end
 end;

Sending updates back to the ADO.NET database is a bit more complicated, but not much. We need to use a sqlCommandBuilder to generate Update, Insert and Delete statements for the sqlDataAdapter, and then call the TADONETConnector's ApplyUpdates method, passing the sqlDataAdapter as argument.

  procedure TForm1.btnUpdateClick(Sender: TObject);
 var
   SQLCB: sqlCommandBuilder;
 begin
   SQLCB := sqlCommandBuilder.Create(SQLAdap);
   SQLAdap.UpdateCommand := SQLCB.GetUpdateCommand;
   SQLAdap.InsertCommand := SQLCB.GetInsertCommand;
   SQLAdap.DeleteCommand := SQLCB.GetDeleteCommand;
   ADODataSet.ApplyUpdates(SQLAdap);
 end;

ASP.NET Web Service
Apart from building the connection yourself, this opens up an opportunity of connecting to an ASP.NET Web Service that returns ADO.NET DataSets (as described in Dr.Bob Examines #65 on Multi-tier/Distributed Database Applications in .NET). I've also done this in the past using the IBM DB2 UDB SAMPLE database as server, offering connection and data access as well as update abilities.
This time, I want to use the SQL Server Northwind database. So, start a new project, this time an ASP.NET Web Service Application - Delphi for .NET.

As the name for the new project, I've specified NorthwindWS, which results in a new virtual directory c:\inetpub\wwwroot\NorthwindWS on my machine.

I want to rename the WebService1.asmx file to Database.asmx, so I can reach the Web Service as http://localhost/NorthwindWS/Database.asmx.

Inside the Database.pas file, I now want to rename TWebService1 to a more descriptive name, such as TNorthwindWebService, so let's use Refactoring to do that!

When this is done, I always start by adding a namespace to the web service class definition, using the WebService attribute. I only want to work with the Employees table from the Northwind database, so there are only two methods that I need: GetEmployees and SetEmployees. Note the ConnectionString again, as const embedded in the class definition itself.

  type
   [WebService(Namespace='http://eBob42.org')]
   TNorthwindWebService = class(System.Web.Services.WebService)
     ...
   const
     ConnectionString = 'user id=sa;data source="NX03\NX3";'+
       'persist security info=True;initial catalog=Northwind;password=********';
     ...
   public
     constructor Create;

     [WebMethod]
     function GetEmployees: DataSet;
     [WebMethod]
     procedure SetEmployees(Changes: DataSet);
   end;

The implementation of the two web methods is relatively straightforward:

  function TNorthwindWebService.GetEmployees: DataSet;
 var
   SqlConn: sqlConnection;
   SqlAdap: sqlDataAdapter;
 begin
   SqlConn := sqlConnection.Create(ConnectionString);
   SqlConn.Open;
   try
     SqlAdap := sqlDataAdapter.Create('SELECT * FROM Employees',SqlConn);
     Result := DataSet.Create;
     SqlAdap.Fill(Result)
   finally
     SqlConn.Close
   end
 end;

 procedure TNorthwindWebService.SetEmployees(Changes: DataSet);
 var
   SqlConn: sqlConnection;
   SqlAdap: sqlDataAdapter;
   SqlCB: sqlCommandBuilder;
 begin
   SqlConn := sqlConnection.Create(ConnectionString);
   SqlConn.Open;
   try
     SqlAdap := sqlDataAdapter.Create('SELECT * FROM Employees',SqlConn);
     SqlCB := sqlCommandBuilder.Create(SqlAdap);
     SqlAdap.UpdateCommand := SqlCB.GetUpdateCommand;
     SqlAdap.InsertCommand := SqlCB.GetInsertCommand;
     SqlAdap.DeleteCommand := SqlCB.GetDeleteCommand;
     SqlAdap.Update(Changes)
   finally
     SqlConn.Close
   end
 end;

You can now compile and deploy the Web Service. Any application that needs to use this Web Service must add a Web Reference to this Web Service (the WSDL file or location).
Then we can modify the client application to connect to the Web Service instead of the local SQL Server database. Note that I've added some IFDEFs to make sure we can switch from local to Web Service database now.

  unit Unit1;
 {.$DEFINE WS}
 interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls, Borland.Vcl.Db,
   Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ExtCtrls,
   Borland.Vcl.DBCtrls,
   System.Data, // DataSet
   System.Data.SqlClient, // sqlXXX
   localhost.Database, // TNorthwindWebService
   ADONETDb; // TADONETConnector

 type
   TForm1 = class(TForm)
     btnConnect: TButton;
     btnUpdate: TButton;
     DBNavigator1: TDBNavigator;
     DBGrid1: TDBGrid;
     DataSource1: TDataSource;
     procedure FormCreate(Sender: TObject);
     procedure btnConnectClick(Sender: TObject);
     procedure btnUpdateClick(Sender: TObject);
   const
     ConnectionString = 'user id=sa;data source="NX03\NX3";'+
       'persist security info=True;initial catalog=Northwind;password=********';
   private
     { Private declarations }
     ADODataSet: TADONETConnector;
   {$IFDEF WS}
     WS: TNorthwindWebService;
   {$ELSE}
     SQLConn: sqlConnection;
     SQLAdap: sqlDataAdapter;
   {$ENDIF}
     Data: DataSet;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.nfm}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
 {$IFDEF WS}
   WS := TNorthwindWebService.Create;
 {$ELSE}
   SQLConn := sqlConnection.Create(ConnectionString);
   SQLAdap := sqlDataAdapter.Create('SELECT * FROM Employees', SQLConn);
 {$ENDIF}
   Data := DataSet.Create;
   ADODataSet := TADONETConnector.Create(self)
 end;

 procedure TForm1.btnConnectClick(Sender: TObject);
 begin
 {$IFDEF WS}
   Data := WS.GetEmployees;
 {$ELSE}
   SQLConn.Open;
   try
     SQLAdap.Fill(Data);
 {$ENDIF}
     ADODataSet.DataTable := Data.Tables[0];
     DataSource1.DataSet := ADODataSet;
     ADODataSet.Active := True
 {$IFNDEF WS}
   finally
     SQLConn.Close
   end
 {$ENDIF}
 end;

 procedure TForm1.btnUpdateClick(Sender: TObject);
 {$IFNEF WS}
 var
   SQLCB: sqlCommandBuilder;
 {$ENDIF}
 begin
 {$IFDEF WS}
   WS.SetEmployees(ADODataSet.DataTable.DataSet.GetChanges);
   ADODataSet.MergeChangeLog; // accept changes;
 {$ELSE}
   SQLCB := sqlCommandBuilder.Create(SQLAdap);
   SQLAdap.UpdateCommand := SQLCB.GetUpdateCommand;
   SQLAdap.InsertCommand := SQLCB.GetInsertCommand;
   SQLAdap.DeleteCommand := SQLCB.GetDeleteCommand;
   ADODataSet.ApplyUpdates(SQLAdap)
 {$ENDIF}
 end;

 end.

Note that we now have to call the ADODataSet.MergeChangeLog if the call to WS.SetEmployees was successful, since that won't accept the changes in the DataTable itself.

Summary
In this paper, I have shown how to use the TADONETConnector component to feed (ADO).NET DataSets to VCL for .NET clients, where we can work with the contents in regular data-aware controls from the VCL (for .NET). I've even shown that this can be used in multi-tier applications, where the DataSet is coming from an ASP.NET Web Service, for example. Obviously, .NET Remoting is another possibility.
See my Delphi Training Days for more information about ASP.NET Web Services and .NET Remoting with Delphi for .NET, or read Dr.Bob Examines #65 on Multi-tier/Distributed Database Applications in .NET.

Update: I just found out that Fabricio (Delphian) has posted an article based on this work that shows how to use a TClientDataSet (of VCL for .NET) in an ASP.NET Web Service.

Reference :http://www.drbob42.com

HUBackup - Backup application for Ubuntu Home Users

2008-05-07T14:44:00.001+07:00

HUBackup is short for Home User Backup System. As the name implies, this is a very simple, concise and easy to use backup application that uses the renowned and proven dar (Disk ARchive) to do the actual archiving. Emphasis has been on providing true and reliable progress indication throughout all operations, as well as the ability to cancel any operation at any given point. HUBackup mainly concerns with backing up your home folder data, allowing you to restore it in case of data loss.

Install hubackup in ubuntu

sudo aptitude install hubackup

This will complete the hubackup installation.

Backup Files

If you want to open hubackup goto System—>Administration—>Home User Backup

Once it opens you should see similar to the following screen

You need to select the Save Backup To Option

Once you selected the Save Backup To Option complete screen looks like below and click on backup

Backup is in progress

After completing the backup you can see two file as below

Restore Files

Restoring files from System—>Administration—>Home User Restore is not working for me i.e it is crashing for me in ubuntu gutsy so we need to use command line restore.

Home user backup application hubackup using the underlying archiver , DAR.

Usually after a typical run of hubackup you will have two resulting files

/home/backup/ruchi-master-archive.1.dar
/home/backup/ruchi-master-catalog.1.dar

To restore , which actually usually means extract in DAR’s language you need to do something like:

dar -x /home/backup/ruchi-master-archive -R TARGET_DIR

If there is more then one slice DAR knows how to switch between them properly.

Reference : ubuntugeek.com

Make ubuntu look such vista

2008-05-07T14:34:00.000+07:00

Gnome-look.org or here

Install the Beryl and GTK theme as usual

Icons

Download the nuoveXT-aero iconset

Download the nuoveXT-aero iconset from here

Panel

Change the gnome-panel size to 32px height.For this you need to Right-click on the gnome panel (the taskbar at the top of the screen) select properties

Change the size to 32 and click on close

Vista start-button screenlet

Download and install “Desktop Screenlets” and you can download from here

Install the “orb” screenlet (The orb screenlet is included in the .tar.gz from gnome-look.org) or from here .Place the orb screenlet above the main-menu button and lock the position.

Vista Wallpapers

If you want to make the experience complete download some Vista wallpapers for your desktop.

Download vista wallpapers from here or here or here

Install cursor to aero-drop

Download aero-drop (Aero Mouse Cursor with Drop Shadow) from here

Extract the archive and move the folder to ~/.icons/ .

Go to System—> Preferences—> Appearance—> Theme—> Customize—> Pointer—> aero-drop—> Close—> Close.

Then, go to ccsm (if you don’t have it install it with “sudo apt-get install compizconfig-settings-manager”).

General Options—> Cursor theme—> aero-drop

Close ccsm.
That’s it you are ready for vista look for your ubuntu desktop

Install linux to USB

2008-05-07T14:09:00.003+07:00

This tutorial describes how to install Ubuntu by copying the contents of the installation CD to an USB memory stick (aka flash drive) and making the stick bootable. This is handy for machines like ultra portable notebooks that do not have a CD drive but can boot from USB media.

In short here’s what you do:

Prepare the USB flash drive

Boot the computer from your USB flash drive.

Install Ubuntu as you would from a normal boot CD

Prerequisites

A running Ubuntu 8.04 or any ubuntu version installation

A USB device (stick, pen-drive, USB hard disk) that has already been formatted with FAT32 and has enough free space to hold your Ubuntu installation image

A Ubuntu CD image downloaded from the Ubuntu servers or mirrors (*.iso file) or from here
Step 1

On the root directory of your USB device, create a folder “install”
Copy the installer kernel and the initramdisk into this folder (Download source below.You need the files “vmlinux” and “initrd.gz”).

Download source for the installer kernel and initramdisk

For AMD64 Download from here
For i386 Download from here

You need to download the files “vmlinux” and “initrd.gz”.

Step 2

Note: You need to have the installer that fits the architecture of your Ubuntu version you want to install. In other words, you need a amd64 installer if you want to install an amd64 Ubuntu .iso image and the i386 installer for an i386 iso.

Step 3

From the installation iso image you downloaded, copy the folder “isolinux” to the root directory of your USB device (right-click on the .iso file, choose “extract here”). Rename “isolinux” into “syslinux”. Go inside the directroy “syslinux”. There, rename the file “isolinux.cfg” into “syslinux.cfg”.

Step 4

Make the stick bootable: Use fdisk to set the boot flag,

Install syslinux using the following command

sudo aptitude install syslinux

Now use syslinux to install a boot sector on your USB device

sudo syslinux /dev/sdbX

where sdbX is the device name and number of your USB device, check with “sudo mount”. A file called “ldlinux.sys” will be created in the root direcotry of the USB device.

Step 5

Copy the Ubuntu CD image in the root directory of your USB device (Contents of USB you can see as follows).If you are using i386 you need to copy the complete .iso image in to the root directory of your USB device.

Reference: ubuntugeek.com

How to remove an application button from the taskbar in Delphi?

2008-04-08T15:58:00.000+07:00

This is a question which each Delphi programmer ask himself at least once in his life. If you use Google or any other search engine you will easily find this solution:

1 procedure TForm1.CreateParams(var Params: TCreateParams);
2 begin
3   inherited CreateParams(Params);
4   with Params do begin
5     ExStyle := ExStyle or WS_EX_TOPMOST;
6     WndParent := GetDesktopwindow;
7   end;
8 end;

So now you definitely have a question: "If it is so easy to find a solution then why I am talking about this?" An answer is simple. I have merely encountered a situation when approach which has been shown above is not suitable and decided to share my solution of this case with you.

Well what is the intention of the problem? According to the MSDN if you add WS_EX_TOOLWINDOW to the window ExStyle then window will act like this:

WS_EX_TOOLWINDOW
Creates a tool window; that is, a window intended to be used as a floating toolbar. A tool window has a title bar that is shorter than a normal title bar, and the window title is drawn using a smaller font. A tool window does not appear in the taskbar or in the dialog that appears when the user presses ALT+TAB. If a tool window has a system menu, its icon is not displayed on the title bar. However, you can display the system menu by right-clicking or by typing ALT+SPACE.

But my client asked me to remove the button from the taskbar and leave the ability to see the window in the ALT+TAB dialog. Thus I had to refuse from above method and create my own. The solution in principle is not hard. Here is the list of steps you should do if you want to achieve an appropriate behavior:

Set FormStyle property of your form to fsStayOnTop (this helps us to hold our window on top of the rest windows of our application);
Write next piece of code:

 1 type
 2   TfrmSamples = class(TForm)
 3    { ... }
 4   public
 5     procedure FormDeactivate(Sender: TObject);
 6     { Public declarations }
 7   end;
 8 
 9   { ... }
10 
11 procedure TfrmSamples.FormCreate(Sender: TObject);
12 begin
13   { force floating window to be on top }
14   Application.OnDeactivate := FormDeactivate;
15 end;
16 
17 procedure TfrmSamples.FormShow(Sender: TObject);
18 begin
19   ShowWindow(Application.Handle, SW_HIDE);
20 end;
21 
22 procedure TfrmSamples.FormDeactivate;
23 begin
24   Application.BringToFront;
25 end;

According to the Borland help TApplication.OnDeactivate event occurs when an application becomes inactive therefore if we want to keep our window above all other applications (windows) then this is exec place to act.

That's all! Quick and easy.

If you have some other solution of this task please post them in the comments.

How to mounting windows in Ubuntu 6.x

2008-04-08T13:45:00.001+07:00

If you’re triple (or dual) booting Windows and Ubuntu, the Ars Geek web site’s got the lowdown on how to mount a read/write Windows NTFS drive.This approach uses an alternate method to the one Adam cited in his top 10 Ubuntu apps and hacks article. I’ve yet to build my Ubuntu workstation, so I wasn’t able to try this myself; also, NTFS support is still experimental so proceed with caution and a full-on working backup. — Gina Trapani

Ubuntu tricks - how to mount your Windows partition and make it read/writable

How To install Internet Gateway in Ubuntu with squid

2008-04-08T13:26:00.000+07:00

Use apt for instalation.user@server:~$ sudo apt-get install squid

please, backup file configuration (original)

user@server:~$ cp /etc/squid/squid.conf /etc/squid/squid.conf.backup

configuration file /etc/squid/squid.conf

user@server:~$ sudo nano /etc/squid/squid.conf

http_port 3128 /* listening port squid */

cache_dir ufs /var/spool/squid 5120 16 256 /*locate saving cache */

cache_mem 8 MB /* max memory for squid in memory cache*/

acl our_networks src 192.168.1.0/24 /* access list network client proxy is permitted */

http_access allow our_networks /* allow http access from network client */

cache_mgr webmaster /* configure cache manager */

visible_hostname proxy.network.net /* hostname in error message */

forwarded_for on /* configure transoarabt if anonymous proxy diset off */

another configuration is default. press Ctrl+O to saving, Ctrl+X for exit.

make directory cache with this command

user@server:~$ sudo squid -z

Restart Squid with comman

user@server:~$ sudo /etc/init.d/squid restart

how to connect your Delphi application to an Access database.

2008-04-08T12:45:00.000+07:00

Alright gang.  Here is my most straight forward explanation of how to
connect your Delphi application to an Access 2.0 database.  With this
method, I have connected to Access 2.0 databases, and been able to read and
write records to my hearts content.  NOTE: You MUST have the proper ODBC
drivers.  If you don't, this will not work!

REQUIRED DRIVERS:
     ODBCJT16.DLL 
     ODBCINST.DLL  
     ODBCCTL16.DLL 
     MSAJT200.DLL  
     MSJETERR.DLL 
     MSJETINT.DLL   

To the best of my knowledge, these are all of the drivers that are above and
beyond your base ODBC drivers.  You should be able to obtain these from MS
on their FTP/WWW site, however I do not know exact directories.  My company
is a MS Solutions Provider, and we obtained these drivers on one of the many
CDs we received from MS.

Now for the meat of this posting:

To access a database via ODBC, you must first create an ODBC connection to
the database.
  1) Open Control Panel, and then select ODBC.
  2) When the Data Sources dialog appears, select Add.
  3) If you have installed all of the drivers properly, you should see the
following Access drivers:
        Access Data (*.mdb)
        Access Files(*.mdb)
        Microsoft Access Driver (*.mdb)
  4) The one you MUST choose is the third one, Microsoft Access Driver. 
Choosing any of the others will not work.
  5) You will then be presented with the ODBC Microsoft Access 2.0 Setup
dialog.  Fill this in with the information regarding the database to which
you wish to connect.
  6) Save the settings and then exit all the way out of Control Panel.

After having made a proper connection to the database with ODBC, the rest is
quite simple.
  7) Open BDE Config.
  8) Choose New ODBC Driver.
  9) Give your SQL link a name
  10) From the Default ODBC Driver combo box, you must choose the Microsoft
Access Driver, just the same as you did in the ODBC setup.  Do not choose
Access Data/Files drivers.
  11) If everything is setup properly, the name of your database should
appear in the Default Data Source Name combo box.  Select it now.
  12) Select OK, you will be back to the main dialog for BDE Config. 
Select the aliases tab.
  13) Create a new alias, using the SQL link that you just created (it will
start with ODBC_) as your Alias Type.
  14) Now save and exit from BDE Config.

You should now be able to get to you Access 2.0 database with both read and
write instructions.

And finally...
I must say that having got to Access, via ODBC, you will probably wish you
hadn't.  It is sssllllooowww.  Anytime we start adding layers, it gets
slower and slower.  Normally, I would recommend staying away from VB like
the plague (I'm an old C++ hacker of many years, and the term BASIC makes me
shudder).  However, at this point in time, the best way to use Access
databases is through either Access or VB.  Microsoft is very close-mouthed
about the structure of Access databases, and there is no indication that
they are planning to change ("You either use VB/Access or we'll make you pay
through the ODBC monster!").  Sorry, I digress.  My recommendation, if you
absolutely MUST use Access, then use VB.  Otherwise, migrate your database
to a more open system (Paradox,dBase/FoxPro,anything you can get a native
engine), and use Delphi.

I hope this helps those who are still having problems accessing Access
databases via ODBC.  If I've left anything out, I would appreciate
commentary (no flames please...whine whine ;)

Good Luck!

Export DBrid 2 Excel Without OLE

2008-04-08T11:39:00.000+07:00

{
Exporting a DBGrid to excel without OLE

I develop software and about 95% of my work deals with databases.
I enjoied the advantages of using Microsoft Excel in my projects
in order to make reports but recently I decided to convert myself
to the free OpenOffice suite.
I faced with the problem of exporting data to Excel without having
Office installed on my computer.
The first solution was to create directly an Excel format compatible file:
this solution is about 50 times faster than the OLE solution but there
is a problem: the output file is not compatible with OpenOffice.
I wanted a solution which was compatible with each "DataSet";
at the same time I wanted to export only the dataset data present in
a DBGrid and not all the "DataSet".
Finally I obtained this solution which satisfied my requirements.
I hope that it will be usefull for you too.

First of all you must import the ADOX type library
which will be used to create the Excel file and its
internal structure: in the Delphi IDE:

1)Project->Import Type Library:
2)Select "Microsoft ADO Ext. for DDL and Security"
3)Uncheck "Generate component wrapper" at the bottom
4)Rename the class names (TTable, TColumn, TIndex, TKey, TGroup, TUser, TCatalog) in
(TXTable, TXColumn, TXIndex, TXKey, TXGroup, TXUser, TXCatalog)
in order to avoid conflicts with the already present TTable component.
5)Select the Unit dir name and press "Create Unit".
It will be created a file named AOX_TLB.
Include ADOX_TLB in the "uses" directive inside the file in which you want
to use ADOX functionality.

That is all. Let's go now with the implementation:
}

unit DBGridExportToExcel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, DB, IniFiles, Buttons, dbgrids, ADOX_TLB, ADODB;

type TScrollEvents = class
BeforeScroll_Event: TDataSetNotifyEvent;
AfterScroll_Event: TDataSetNotifyEvent;
AutoCalcFields_Property: Boolean;
end;

procedure DisableDependencies(DataSet: TDataSet; var ScrollEvents: TScrollEvents);
procedure EnableDependencies(DataSet: TDataSet; ScrollEvents: TScrollEvents);
procedure DBGridToExcelADO(DBGrid: TDBGrid; FileName: string; SheetName: string);

implementation

//Support procedures: I made that in order to increase speed in
//the process of scanning large amounts
//of records in a dataset

//we make a call to the "DisableControls" procedure and then disable the "BeforeScroll" and
//"AfterScroll" events and the "AutoCalcFields" property.
procedure DisableDependencies(DataSet: TDataSet; var ScrollEvents: TScrollEvents);
begin
with DataSet do
begin
DisableControls;
ScrollEvents := TScrollEvents.Create();
with ScrollEvents do
begin
BeforeScroll_Event := BeforeScroll;
AfterScroll_Event := AfterScroll;
AutoCalcFields_Property := AutoCalcFields;
BeforeScroll := nil;
AfterScroll := nil;
AutoCalcFields := False;
end;
end;
end;

//we make a call to the "EnableControls" procedure and then restore
// the "BeforeScroll" and "AfterScroll" events and the "AutoCalcFields" property.
procedure EnableDependencies(DataSet: TDataSet; ScrollEvents: TScrollEvents);
begin
with DataSet do
begin
EnableControls;
with ScrollEvents do
begin
BeforeScroll := BeforeScroll_Event;
AfterScroll := AfterScroll_Event;
AutoCalcFields := AutoCalcFields_Property;
end;
end;
end;

//This is the procedure which make the work:

procedure DBGridToExcelADO(DBGrid: TDBGrid; FileName: string; SheetName: string);
var
cat: _Catalog;
tbl: _Table;
col: _Column;
i: integer;
ADOConnection: TADOConnection;
ADOQuery: TADOQuery;
ScrollEvents: TScrollEvents;
SavePlace: TBookmark;
begin
//
//WorkBook creation (database)
cat := CoCatalog.Create;
cat._Set_ActiveConnection('Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + FileName + ';Extended Properties=Excel 8.0');
//WorkSheet creation (table)
tbl := CoTable.Create;
tbl.Set_Name(SheetName);
//Columns creation (fields)
DBGrid.DataSource.DataSet.First;
with DBGrid.Columns do
begin
for i := 0 to Count - 1 do
if Items[i].Visible then
begin
col := nil;
col := CoColumn.Create;
with col do
begin
Set_Name(Items[i].Title.Caption);
Set_Type_(adVarWChar);
end;
//add column to table
tbl.Columns.Append(col, adVarWChar, 20);
end;
end;
//add table to database
cat.Tables.Append(tbl);

col := nil;
tbl := nil;
cat := nil;

//exporting
ADOConnection := TADOConnection.Create(nil);
ADOConnection.LoginPrompt := False;
ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + FileName + ';Extended Properties=Excel 8.0';
ADOQuery := TADOQuery.Create(nil);
ADOQuery.Connection := ADOConnection;
ADOQuery.SQL.Text := 'Select * from [' + SheetName + '$]';
ADOQuery.Open;

DisableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);
SavePlace := DBGrid.DataSource.DataSet.GetBookmark;
try
with DBGrid.DataSource.DataSet do
begin
First;
while not Eof do
begin
ADOQuery.Append;
with DBGrid.Columns do
begin
ADOQuery.Edit;
for i := 0 to Count - 1 do
if Items[i].Visible then
begin
ADOQuery.FieldByName(Items[i].Title.Caption).AsString := FieldByName(Items[i].FieldName).AsString;
end;
ADOQuery.Post;
end;
Next;
end;
end;

finally
DBGrid.DataSource.DataSet.GotoBookmark(SavePlace);
DBGrid.DataSource.DataSet.FreeBookmark(SavePlace);
EnableDependencies(DBGrid.DataSource.DataSet, ScrollEvents);

ADOQuery.Close;
ADOConnection.Close;

ADOQuery.Free;
ADOConnection.Free;

end;

end;

end.

cCreates a database on a Interbase-Server at run-time.

2008-04-08T11:36:00.000+07:00

{
This unit creates a database on a Interbase-Server at run-time.
The IBConsole is no longer needed.
You can execute an SQL script to create tables.
Try it out!
}

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ZTransact, ZIbSqlTr, DB, ZQuery, ZIbSqlQuery,
ZConnect, ZIbSqlCon;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
ZIbSqlQuery1: TZIbSqlQuery;
ZIbSqlTransact1: TZIbSqlTransact;
ZIbSqlDatabase1: TZIbSqlDatabase;
Button3: TButton;
procedure Button1Click(Sender: TObject); // : Create Database
procedure Button2Click(Sender: TObject); // : SQL-Anweisung
procedure Button3Click(Sender: TObject); // : Drop Database
private

public

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

// Creating the database

//---------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '<>';// Path to Database
ZIbSqlDatabase1.Host := 'testserver';
ZIbSqlDatabase1.Password := 'masterkey';
ZIbSqlDatabase1.Login := 'SYSDBA';
ZIbSqlDatabase1.CreateDatabase('');
end;

// Execute the SQL-Script in the memo

//----------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '<>'; // Path to Database
ZIbSqlDatabase1.Host := 'testserver';
ZIbSqlDatabase1.Password := 'masterkey';
ZIbSqlDatabase1.Login := 'SYSDBA';
ZIbSqlQuery1.SQL.Clear;
ZIbSqlQuery1.SQL.AddStrings(memo1.Lines);
ZIbSqlQuery1.ExecSQL;
end;

//---------------------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '<>'; // Path to Database
ZIbSqlDatabase1.Host := 'testserver';
ZIbSqlDatabase1.Password := 'masterkey';
ZIbSqlDatabase1.Login := 'SYSDBA';
ZIbSqlDatabase1.DropDatabase;
end;

end.

Connection Database In SQL Server 2000

2008-04-08T10:42:00.000+07:00

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.ConnectionString := 'Server=Hostname;DataBase=DatabaseName';
ADOConnection1.Open('UserName', 'Password');
ADOConnection1.Connected := True;
end;

Add User Login in SQL Server 2000 with ADO

2008-04-08T10:29:00.000+07:00

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected := True;
ADOCommand1.CommandText := 'Exec SP_AddLogin ' + QuotedStr('UserName') +
',' + QuotedStr('Password') + ',' + QuotedStr('Database Name') + ',' +
QuotedStr('English') + ';';
ADOCommand1.Execute;
end;

Select a random data record

2008-04-08T09:16:00.000+07:00

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Table1.First;
Table1.MoveBy(Random(Table1.RecordCount));
end;

Create a table including an AutoInc field (ADO/MSSQL)

2008-04-08T09:10:00.000+07:00

D
uses AdoDB;
var
q: TAdoQuery;
db: TAdoConnection;
begin
q := TADOQuery.Create(nil);
q.Connection := db;
q.Close;
q.SQL.Clear;
q.SQL.Add('Create Table TABLENAME (ID COUNTER PRIMARY KEY, MYTEXT1 String, MYTEXT2 String);');
q.Prepared := True;
try
q.ExecSQL;
except
end;
q.Free;
end;

Select all Fields in a TDBGrid

2008-04-08T08:35:00.000+07:00

function GridSelectAll(Grid: TDBGrid): Longint;
begin
Result := 0;
Grid.SelectedRows.Clear;
with Grid.DataSource.DataSet do
begin
First;
DisableControls;
try
while not EOF do
begin
Grid.SelectedRows.CurrentRowSelected := True;
Inc(Result);
Next;
end;
finally
EnableControls;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GridSelectAll(DBGrid1);
end;

Create DBGrid with colored cells

2008-04-08T08:31:00.000+07:00

Use OnDrawColumnCell event of DBGrid component with the following code.
This example will paint each cell to green color, if these cells are odd.


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 HoldColor: TColor;
begin
 HoldColor:=DBGrid1.Canvas.Brush.Color;
 if Column.FieldName='EmpNo' then
   if (Column.Field.AsInteger mod 2 <> 0) then
   begin
     DBGrid1.Canvas.Brush.Color:=clGreen;
     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     DBGrid1.Canvas.Brush.Color:=HoldColor;
   end;
end;

Create DBGrid that shows images

2008-04-08T08:29:00.000+07:00

First of all set DefaultDrawing flag of the DBGrid to the False. Then add the following code to the DBGrid's OnDrawColumnCell event:


procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
 Field: TField; State: TGridDrawState);
var
 Bmp: TBitmap;
begin
 if Field is TGraphicField then
 begin
   try
     Bmp:=TBitmap.Create;
     Bmp.Assign(Field);
     DBGrid1.Canvas.StretchDraw(Rect, Bmp);
   finally
     Bmp.Free;
   end
 end
 else
   DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

Multiselection in DBGrid

2008-04-08T08:18:00.000+07:00

1.Set dgMultiSelect option of DBGrid to true and put next code to the Button.OnClick event:


procedure TForm1.Button1Click(Sender: TObject);
var
X: Word;
TempBookmark: TBookMark;
begin
with DBGrid1.DataSource.DataSet do
begin
 DisableControls;
 with DBGrid1.SelectedRows do
   if Count<&gt0 then
    begin
     TempBookmark:=GetBookmark;
       for X:=0 to Count-1 do
         begin 
          if IndexOf(Items[X])&gt-1 then
           begin
           Bookmark:=Items[X];
           ShowMessage(Fields[1].AsString);
           end;
          end;
    end;
  GotoBookmark(TempBookmark);
  FreeBookmark(TempBookmark);
 EnableControls;  end; end;

Add a Row Number in your DBGrid

2008-04-08T08:11:00.001+07:00

{
1. create new blank field in dbgrid
2. rename the title with 'No:'
3. put this code in OnDrawColumncell
4. Now your Grid has a row number
}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
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;
end;

Hello Word

2008-04-07T17:13:00.000+07:00

Hello Word
This is first Message from me
so wait for the next article...