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