home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / FDEMO09.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-12-01  |  3.9 KB  |  154 lines
  1. unit Fdemo09;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, Buttons, PrnWin, DBTables, Grids,
  8.   Mask, ExtCtrls, Printers,  FuncsDB, CB_Types, DBPrnWin, CB_MFunc;
  9.  
  10. type
  11.   TForm09 = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     Label1: TLabel;
  14.     EditCustNo: TDBEdit;
  15.     Label2: TLabel;
  16.     EditCompany: TDBEdit;
  17.     Label3: TLabel;
  18.     EditAddr: TDBEdit;
  19.     Label4: TLabel;
  20.     EditAddr2: TDBEdit;
  21.     Label5: TLabel;
  22.     EditCity: TDBEdit;
  23.     Label6: TLabel;
  24.     EditState: TDBEdit;
  25.     Label7: TLabel;
  26.     EditZip: TDBEdit;
  27.     Label8: TLabel;
  28.     EditCountry: TDBEdit;
  29.     Label9: TLabel;
  30.     EditPhone: TDBEdit;
  31.     Label10: TLabel;
  32.     EditFAX: TDBEdit;
  33.     Label11: TLabel;
  34.     EditTaxRate: TDBEdit;
  35.     Label12: TLabel;
  36.     EditContact: TDBEdit;
  37.     Label13: TLabel;
  38.     EditLastInvoiceDate: TDBEdit;
  39.     DBGrid1: TDBGrid;
  40.     DBNavigator: TDBNavigator;
  41.     Panel1: TPanel;
  42.     DataSource1: TDataSource;
  43.     Panel2: TPanel;
  44.     Panel3: TPanel;
  45.     Table1: TTable;
  46.     Table2: TTable;
  47.     DataSource2: TDataSource;
  48.     Table2OrderNo: TFloatField;
  49.     Table2CustNo: TFloatField;
  50.     Table2SaleDate: TDateTimeField;
  51.     Table2ShipDate: TDateTimeField;
  52.     Table2ShipVIA: TStringField;
  53.     Table2Terms: TStringField;
  54.     Table2PaymentMethod: TStringField;
  55.     Table2ItemsTotal: TCurrencyField;
  56.     Table2AmountPaid: TCurrencyField;
  57.     Preview: TBitBtn;
  58.     Print: TBitBtn;
  59.     Exit: TBitBtn;
  60.     DBPrintWin1: TDBPrintWin;
  61.     procedure FormCreate(Sender: TObject);
  62.     procedure PreviewClick(Sender: TObject);
  63.     procedure PrintClick(Sender: TObject);
  64.   private
  65.       procedure DoShow;
  66.   public
  67.   end;
  68.  
  69. var
  70.   Form09: TForm09;
  71.  
  72. implementation
  73.  
  74. {$R *.DFM}
  75.  
  76. procedure TForm09.FormCreate(Sender: TObject);
  77. begin
  78.   Table1.Open;
  79.   Table2.Open;
  80. end;
  81.  
  82. procedure TForm09.PreviewClick(Sender: TObject);
  83. begin
  84.   DBPrintWin1.OutputTo := poViewer;
  85.     DoShow;
  86. end;
  87.  
  88. procedure TForm09.PrintClick(Sender: TObject);
  89. begin
  90.   DBPrintWin1.OutputTo := poPrinter;
  91.     DoShow;
  92. end;
  93.  
  94.  
  95. procedure TForm09.DoShow;
  96. var
  97.     y: Integer;
  98. begin
  99.    DBPrintWin1.BeginPrint;
  100. {   DBPrintWin1.SelectSolidBrush (RGB(128,255,255));}
  101.    DBPrintWin1.NewFont ('Arial',20,True,True,True);
  102.    DBPrintWin1.SetTheTextColor (RGB(255,0,0));
  103.    DBPrintWin1.DrawText( 1.0,poCenter,'The Customer');
  104.  
  105.         DBPrintWin1.NewFont ('Arial',16,False,False,False);
  106.    DBPrintWin1.SetTheTextColor (RGB(0,0,255));
  107.    DBPrintWin1.DrawWindow( 1.6,poCenter,ScrollBox);
  108.  
  109.  
  110.    y := DBPrintWin1.GetWindowBottom( 180,500,ScrollBox ) + 50;
  111.  
  112.    DBPrintWin1.SelectPen (2, RGB(255,0,0));
  113.  
  114.    DBPrintWin1.NewFont ('Arial',20,True,True,True);
  115.    DBPrintWin1.SetTheTextColor (RGB(255,0,0));
  116.    DBPrintWin1.DrawText( 4.5,poCenter,'The Orders');
  117.    Y := y+150;
  118.    DBPrintWin1.SetFrameStyle(frThinThick);
  119.  
  120.         DBPrintWin1.NewFont ('Arial',16,False,True,False);
  121.    DBPrintWin1.SetTheTextColor (RGB(0,0,255));
  122.    DBPrintWin1.DrawWindow( 5,poCenter, DBGrid1);
  123.  
  124.  
  125.    DBPrintWin1.SelectSolidBrush (RGB(255,0,0));
  126.    DBPrintWin1.SelectHatchedBrush ( RGB(255,255,0), HS_CROSS);
  127.    DBPrintWin1.DrawEllipse( 0.6, 8.3, 2.6, 9.3);
  128.  
  129.  
  130.    DBPrintWin1.SelectPen (2, RGB(0,0,0));
  131.    DBPrintWin1.DrawArc( 3.3, 8.3, 5.6, 9.3 ,4.0, 8.6, 5.0, 9.0 );
  132.  
  133.    DBPrintWin1.NewFont ('Arial',16,True,True,True);
  134.    DBPrintWin1.SetTheTextColor (RGB(0,0,255));
  135.    DBPrintWin1.DrawText( 8,poLeft,'Left Aligned');
  136.    DBPrintWin1.DrawText( 8,poCenter,'Centered');
  137.    DBPrintWin1.DrawText( 8,poRight,'Right Aligned');
  138.  
  139.    DBPrintWin1.SetFrameStyle(frThickThin);
  140.    DBPrintWin1.DrawRect( 6.8, 7.6, poLeft,1);
  141.  
  142.    DBPrintWin1.SelectHatchedBrush ( RGB(255,255,0), HS_DIAGCROSS);
  143.    DBPrintWin1.DrawRect( 6.8, 7.6, poCenter,1);
  144.  
  145.    DBPrintWin1.SelectSolidBrush ( RGB(255,0,255));
  146.    DBPrintWin1.DrawRect( 6.8, 7.6, poRight,1);
  147.  
  148.    DBPrintWin1.EndPrint;
  149. end;
  150.  
  151.  
  152.  
  153. end.
  154.