home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
cbsuite.lzh
/
SU1SRC.ZIP
/
FDEMO08.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-11-23
|
3KB
|
109 lines
unit Fdemo08;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Printers,
PrnWin, Buttons, CB_Types, DBPrnWin, CB_MFunc;
type
TForm08 = class(TForm)
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Panel3: TPanel;
Table1: TTable;
Table2: TTable;
DataSource2: TDataSource;
Label9: TLabel;
Table1CustNo: TFloatField;
Table1Company: TStringField;
Table1Contact: TStringField;
Table1LastInvoiceDate: TDateTimeField;
Table2OrderNo: TFloatField;
Table2CustNo: TFloatField;
Table2SaleDate: TDateTimeField;
Table2ShipDate: TDateTimeField;
Table2ItemsTotal: TCurrencyField;
Table2AmountPaid: TCurrencyField;
Preview: TBitBtn;
Exit: TBitBtn;
DBPrintWin1: TDBPrintWin;
procedure FormCreate(Sender: TObject);
procedure PreviewClick(Sender: TObject);
procedure ExitClick(Sender: TObject);
private
{ private declarations }
public
end;
var
Form08: TForm08;
implementation
{$R *.DFM}
procedure TForm08.FormCreate(Sender: TObject);
begin
Table1.Open;
Table2.Open;
end;
procedure TForm08.PreviewClick(Sender: TObject);
var
y: Integer;
Str: String;
begin
DBPrintWin1.BeginPrint;
DBPrintWin1.NewFont ('Arial',20,True,True,True);
DBPrintWin1.SetTheTextColor (RGB(255,0,0));
DBPrintWin1.DrawText( 1.5,poCenter,'The Customer');
DBPrintWin1.NewFont ('Arial',14,False,False,False);
DBPrintWin1.SetTheTextColor (RGB(0,0,0));
Str := Table1.FieldByName('CustNo').AsString;
{ Tell the table to do only the current record }
with Table1 do
begin
SetRangeStart; { Set the beginning key }
FieldByName('CustNo').AsString := Str;
SetRangeEnd; { Set the ending key }
FieldByName('CustNo').AsString := Str;
ApplyRange; { Tell the dataset to establish the range }
end;
DBPrintWin1.DrawWindow( 2.1,poCenter, DBGrid1);
Table1.CancelRange;
DBPrintWin1.SelectPen (2, RGB(255,0,0));
DBPrintWin1.NewFont ('Arial',20,True,True,True);
DBPrintWin1.SetTheTextColor (RGB(255,0,0));
DBPrintWin1.DrawText( 4.0,poCenter,'The Orders');
DBPrintWin1.SetFrameStyle(frThinThick);
DBPrintWin1.NewFont ('Arial',14,False,True,False);
DBPrintWin1.SetTheTextColor (RGB(0,0,0));
DBPrintWin1.DrawWindow( 4.6,poCenter, DBGrid2);
DBPrintWin1.EndPrint;
end;
procedure TForm08.ExitClick(Sender: TObject);
begin
Close;
end;
end.