home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO03.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-01-18  |  3.3 KB  |  135 lines
  1. unit demo03;
  2.  
  3. interface
  4.  
  5. uses
  6.   Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB, CBDetBan, StdCtrls, Mask, DBCtrls, Cb_lab, CBBand,
  8.   Cb_Types, CBReport, ExtCtrls, CB_Calc, CBSystem;
  9.  
  10. type
  11.   TFBDemo03 = class(TForm)
  12.     Panel1: TPanel;
  13.     DBNavigator: TDBNavigator;
  14.     Button1: TButton;
  15.     CBReport1: TCBReport;
  16.     Master: TCBBand;
  17.     Label35: TLabel;
  18.     Label36: TLabel;
  19.     Label37: TLabel;
  20.     Label38: TLabel;
  21.     Label39: TLabel;
  22.     Label40: TLabel;
  23.     Label41: TLabel;
  24.     Label42: TLabel;
  25.     Label43: TLabel;
  26.     Label44: TLabel;
  27.     Label45: TLabel;
  28.     Label46: TLabel;
  29.     Label47: TLabel;
  30.     DBEdit1: TDBEdit;
  31.     DBEdit2: TDBEdit;
  32.     DBEdit3: TDBEdit;
  33.     DBEdit4: TDBEdit;
  34.     DBEdit5: TDBEdit;
  35.     DBEdit6: TDBEdit;
  36.     DBEdit7: TDBEdit;
  37.     DBEdit8: TDBEdit;
  38.     DBEdit9: TDBEdit;
  39.     DBEdit10: TDBEdit;
  40.     DBEdit11: TDBEdit;
  41.     DBEdit12: TDBEdit;
  42.     DBEdit13: TDBEdit;
  43.     PageHeader: TCBBand;
  44.     CB_Label2: TCB_Label;
  45.     Title: TCBBand;
  46.     CB_Label1: TCB_Label;
  47.     CBDetailBand1: TCBDetailBand;
  48.     EditOrderNo: TDBEdit;
  49.     EditSaleDate: TDBEdit;
  50.     EditEmpNo: TDBEdit;
  51.     EditTerms: TDBEdit;
  52.     EditPaymentMethod: TDBEdit;
  53.     EditItemsTotal: TDBEdit;
  54.     EditTaxRate2: TDBEdit;
  55.     EditFreight: TDBEdit;
  56.     EditAmountPaid: TDBEdit;
  57.     DetailFooter: TCBBand;
  58.     DetailHeader: TCBBand;
  59.     Label2: TLabel;
  60.     Label3: TLabel;
  61.     Label4: TLabel;
  62.     Label5: TLabel;
  63.     Label6: TLabel;
  64.     Label7: TLabel;
  65.     Label8: TLabel;
  66.     Label9: TLabel;
  67.     Label10: TLabel;
  68.     CBCalc1: TCBCalc;
  69.     CBCalc2: TCBCalc;
  70.     CBCalc3: TCBCalc;
  71.     CBSystem2: TCBSystem;
  72.     DataSource1: TDataSource;
  73.     DataSource2: TDataSource;
  74.     Table1: TTable;
  75.     Table2: TTable;
  76.     Table1CustNo: TFloatField;
  77.     Table1Company: TStringField;
  78.     Table1Addr1: TStringField;
  79.     Table1Addr2: TStringField;
  80.     Table1City: TStringField;
  81.     Table1State: TStringField;
  82.     Table1Zip: TStringField;
  83.     Table1Country: TStringField;
  84.     Table1Phone: TStringField;
  85.     Table1FAX: TStringField;
  86.     Table1TaxRate: TFloatField;
  87.     Table1Contact: TStringField;
  88.     Table1LastInvoiceDate: TDateTimeField;
  89.     Table2OrderNo: TFloatField;
  90.     Table2CustNo: TFloatField;
  91.     Table2SaleDate: TDateTimeField;
  92.     Table2ShipDate: TDateTimeField;
  93.     Table2EmpNo: TIntegerField;
  94.     Table2ShipToContact: TStringField;
  95.     Table2ShipToAddr1: TStringField;
  96.     Table2ShipToAddr2: TStringField;
  97.     Table2ShipToCity: TStringField;
  98.     Table2ShipToState: TStringField;
  99.     Table2ShipToZip: TStringField;
  100.     Table2ShipToCountry: TStringField;
  101.     Table2ShipToPhone: TStringField;
  102.     Table2ShipVIA: TStringField;
  103.     Table2PO: TStringField;
  104.     Table2Terms: TStringField;
  105.     Table2PaymentMethod: TStringField;
  106.     Table2ItemsTotal: TCurrencyField;
  107.     Table2TaxRate: TFloatField;
  108.     Table2Freight: TCurrencyField;
  109.     Table2AmountPaid: TCurrencyField;
  110.     PageFooter: TCBBand;
  111.     CB_Label3: TCB_Label;
  112.     Label11: TLabel;
  113.     CBSystem3: TCBSystem;
  114.     CBSystem4: TCBSystem;
  115.     procedure Button1Click(Sender: TObject);
  116.   private
  117.     { Private declarations }
  118.   public
  119.     { Public declarations }
  120.   end;
  121.  
  122. var
  123.   FBDemo03: TFBDemo03;
  124.  
  125. implementation
  126.  
  127. {$R *.DFM}
  128.  
  129. procedure TFBDemo03.Button1Click(Sender: TObject);
  130. begin
  131.     CBReport1.Execute;
  132. end;
  133.  
  134. end.
  135.