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