A Simple Way To Print Or Save Database Data:

I have used the MastApp demo that you should find in the :\Delphi5\Demos\Db\Mastapp directory for this example.

Add a memo (Memo1) to a form (Form1) and align Memo1 to alBottom.

Add a button (Button1) to form1.

Double-click on Button1 and add this code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Sales Person =     ' + MastData.Orders.Fields[23].AsString);
  Memo1.Lines.Add('Order Number: =   ' + MastData.Orders.Fields[0].AsString);
  Memo1.Lines.Add(' ');
  Memo1.Lines.Add('Customer Number = ' + MastData.Orders.Fields[1].AsString);
end;'

Here is the result that you will see in the memo:
 

Sales Person =     Parker, Bill
Order Number: =   1003

Customer Number = 1351

All you need to do now is add some code to print or save the data that is shown in Memo1.

Here is how you can view database records and then save them to a text file.

First start a new project, save it in a new directory (folder).

Add a TTable component and a TDataSource component.

Set these properties in the Object Inspector:

Table1

DatabaseName = DBDEMOS
TableName = customer.db

Rename Table1 to Master, we changed the name from Table1 to show you that you can give meaningful names to your TTable components.

DataSource1

DataSet = Master

Next add a DBGrid component and then set its Align property in the Object Inspector to alBottom, then change its DataSource property to DataSource1.

Add a TMemo component and place it above the DBGrid, set the TMemo Align property to alBottom so it sits above DBGrid1.
Double-click to the right of the Lines property in the Object Inspector and delete any text in the String List Editor for Memo1. Click OK.

Set Master's Active property to True.

The Code:

Add a button, then double-click on the button (Button1) and then add this code:

procedure TForm1.Button1Click(Sender: TObject);
var S : String;
begin
     // Loop through the records
    while not Master.Eof do
        begin
            S := Master.FieldByName('CustNo').AsString + ' : ';
            S := S + Master.FieldByName('Company').AsString + ' , ';
            S := S + Master.FieldByName('Addr1').AsString + ' , ';
            S := S + Master.FieldByName('City').AsString + ' , ';
            S := S + Master.FieldByName('State').AsString + ' , ';
            S := S + Master.FieldByName('Zip').AsString + ' , ';
            S := S + Master.FieldByName('Phone').AsString + ' , ';
            S := S + Master.FieldByName('FAX').AsString;
            Memo1.Lines.Add(S);
            Master.Next;
       end;
  // Save to the text file
  Memo1.Lines.SaveToFile('mycustomers.txt');
  Button1.Enabled := True;
end;

You can add or remove any fields that you want.

Run the program and click on Button1.

Have a look in the programs directory and you should find a text file called 'mycustomers.txt'
and it should look like the example below.
 

Here is an example of the text file: