Skip to main content

Connection to the Database When Run-Time

I finally had a chance too for updates of this blog. This time I want to share about how to connect to the database (Ms. Access) at run-time information on Delphi programming. Run-time means when the program starts, not when the design (design time). The advantage that we make the program more dynamic and we can make changes to the connection when the program is running.
For example, create a database using Ms. Access course, and do not forget to add some sample data in it. To be more afdhol, add a password on that database. Then go to your Delphi and create a new palikasi. Make sure you keep a folder with the database program. To connect to the database, we will use ADO. Add the following components on your form. Are in parentheses is the name of the tab where the component is located.

ADOConnections (ADO)
ADOTable (ADO)
DataSource (Data Access)
DBGrid (Data Controls)
Property 'name' of each component do not need to be replaced, let alone the name of the default. Navigate property 'Connection' from ADOTable1 to 'ADOConnections1', then to select ADOTable1 DataSource1 component in the properties 'DataSet' and to DBGrid1 select DataSource1 on property 'DataSource'. Well now all components are connected to each other, but why the data has not yet appeared in DBGrid? Yes it is so because we do not connect to it with the database. The new connection will be made when the program starts. To this add the following script on the event 'onCreate' your form
TForm1.FormCreate procedure (Sender: TObject); const
db_name = 'data.mdb';
passdb ='';
table = 'tb_name'; begin
ADOConnection1.ConnectionString: =
'Provider = Microsoft.Jet.OLEDB.4.0;' +
'Data Source =' + ExtractFilePath (application.ExeName) +db_name + ';' +
'Persist Security Info = False;' +
'Jet OLEDB: Database Password =' ​​+ passdb;
ADOConnection1.LoginPrompt: = false;
ADOConnection1.Connected: = True;
ADOTable1.TableName: = table;
ADOTable1.Active: = true; end;
Notice in the script above there are three constants each 'namadb' is the name of your database, 'passdb' is the password database, and 'table' is the name of the table in the database. So you need to change its value according to your database.
Because the location of the database is a folder with the program, then in the data source to add the function 'ExtractFilePath (application.ExeName)' to generate the path of the program exe file is located. That way the program is placed anywhere as long as it is a folder with the database then the connection will still point to that database.
Try running your program. If the existing data in the database appear in the DBGrid it works ...

Popular posts from this blog

Login Form Delphi by Connecting to Ms Access Database.

this the step by step  to making application :

Login Form Delphi by Connecting Ms Access Database.

In making/ building application in Delphi, login Form is an important to protect application so that cannot be open by irresponsible person. This login Form is connected with database so that able to keep a lot of username data and password. Before make the application, please create a database as the picture below:
Picture :Login  form Delphi database Microsoft Access
Save the database in the folder which use to save the application

Next step is create the application

Enter the component and the source code as follows.

No Component NameProperties Value1Label1CaptionUsername2Label2CaptionPassword3Edit1Text -4Edit2Text -5Button1CaptionLogin6Adoconnection1--7AdoQuery1ConnectionADOConnection1

Arrange the component as the picture below:

Figure. Login Form Delphi design form

 Create new form

Form properties can be check in the table below
No Component NameProperties Value1Form1CaptionSuccess…

Step by step Accessing SMS With Delphi: Sending SMS Using Borland Delphi 7 Exploit Comport Component (Siemens))

In this example, will present the way how making SMS delivery program with Delphi, basically, data in data communication series between Delphi and mobile phone happen in Format Protocol Data Unit (PDU). The destination number of sending Message and message that will be sent through Delphi program that is made have to be changed into PDU Form first, next is the data will be sent through serial port to mobile phone. To make the send SMS Application , please enter the following component to Form 1.

No Component NameProperties ValueButton1CaptionConnectButton2CaptionDisConnectButton3CaptionConvert to PDUButton4CaptionSend to HPButton5CaptionClearButton6CaptionStart Send SMSButton7CaptionSet PortEdit1Text-Edit2Text<Type The SMS here>Edit3Text-Label1Caption1) Destination Number :Label2Caption2Label3CaptionPDU lengthLabel4CaptionLabel lengthComLed1--Memo1--Memo2--Comport1--Arrange the Component  in such away so that the visualization program is as follows:

Then type the follow…

The Example Using Chart In Borland Delphi 7

The Example Using Chart In Borland Delphi 7

In this writing will discuss about how to use the chart in Delphi 7. In the example that is made by using Delphi 7, chart will appear 2 data in the form of incremental data number, the first data named data 1 and the second data named data 2. Data 1 is incremental data 1 that is begun from 0 until 10; while data 2 is same. Yet, in the beginning condition of data 1 start from 0 while data 2 start from 1.

To make application as the explanation above, please enter the components in the table below into design form.

NoComponentPropertiesValueNote1Form1CaptionThe Chart of Data on Delphi 72GroupBox1CaptionThe Chart of Data on Delphi 73Label1CaptionData 14Label2CaptionData 25Edit1Text06Edit2Text07Button1CaptionShow to Chart8Button2CaptionClose9Timer1EnabledFalse10Chart--Check the NoteNote:

Double click on chart component, set the property of chart as below:

Click on  Add.. Button

Then the following chart gallery will be shown:

Choose the…