home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / cbsuite.lzh / SU1SRC.ZIP / DEMO04.PAS < prev    next >
Pascal/Delphi Source File  |  1997-01-18  |  3KB  |  111 lines
  1. unit demo04;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, CBSystem, CB_Calc, CBBand, CBDetBan,
  8.   Cb_Types, CBReport, DBTables, Mask, ExtCtrls;
  9.  
  10. type
  11.   TFBDemo04 = class(TForm)
  12.     Table1OrderNo: TFloatField;
  13.     Table1CustNo: TFloatField;
  14.     Table1SaleDate: TDateTimeField;
  15.     Table1ShipDate: TDateTimeField;
  16.     Table1EmpNo: TIntegerField;
  17.     Table1ShipToContact: TStringField;
  18.     Table1ShipToAddr1: TStringField;
  19.     Table1ShipToAddr2: TStringField;
  20.     Table1ShipToCity: TStringField;
  21.     Table1ShipToState: TStringField;
  22.     Table1ShipToZip: TStringField;
  23.     Table1ShipToCountry: TStringField;
  24.     Table1ShipToPhone: TStringField;
  25.     Table1ShipVIA: TStringField;
  26.     Table1PO: TStringField;
  27.     Table1Terms: TStringField;
  28.     Table1PaymentMethod: TStringField;
  29.     Table1ItemsTotal: TCurrencyField;
  30.     Table1TaxRate: TFloatField;
  31.     Table1Freight: TCurrencyField;
  32.     Table1AmountPaid: TCurrencyField;
  33.     ScrollBox: TScrollBox;
  34.     Label1: TLabel;
  35.     Label2: TLabel;
  36.     Label3: TLabel;
  37.     EditSaleDate: TDBEdit;
  38.     Label4: TLabel;
  39.     Label15: TLabel;
  40.     Label16: TLabel;
  41.     Label17: TLabel;
  42.     Label18: TLabel;
  43.     Label21: TLabel;
  44.     DBNavigator: TDBNavigator;
  45.     Panel1: TPanel;
  46.     DataSource1: TDataSource;
  47.     Panel2: TPanel;
  48.     Table1: TTable;
  49.     CBReport1: TCBReport;
  50.     Panel3: TPanel;
  51.     Label6: TLabel;
  52.     Label7: TLabel;
  53.     Label8: TLabel;
  54.     Label9: TLabel;
  55.     Label11: TLabel;
  56.     Label12: TLabel;
  57.     Label13: TLabel;
  58.     Label10: TLabel;
  59.     Detail: TCBDetailBand;
  60.     EditShipDate: TDBEdit;
  61.     EditCustNo: TDBEdit;
  62.     EditPO: TDBEdit;
  63.     EditTerms: TDBEdit;
  64.     EditPaymentMethod: TDBEdit;
  65.     EditItemsTotal: TDBEdit;
  66.     EditAmountPaid: TDBEdit;
  67.     DetailFooter: TCBBand;
  68.     CBCalc1: TCBCalc;
  69.     CBCalc2: TCBCalc;
  70.     Title: TCBBand;
  71.     Label5: TLabel;
  72.     DetailHeader: TCBBand;
  73.     Label14: TLabel;
  74.     Label19: TLabel;
  75.     Label20: TLabel;
  76.     Label22: TLabel;
  77.     Label23: TLabel;
  78.     Label24: TLabel;
  79.     Label25: TLabel;
  80.     Label26: TLabel;
  81.     Image1: TImage;
  82.     CBSystem2: TCBSystem;
  83.     Label27: TLabel;
  84.     PageFooter: TCBBand;
  85.     Image2: TImage;
  86.     Label29: TLabel;
  87.     DBText1: TDBText;
  88.     CBSystem1: TCBSystem;
  89.     Label28: TLabel;
  90.     Label30: TLabel;
  91.     Label31: TLabel;
  92.     procedure FormCreate(Sender: TObject);
  93.   private
  94.     { private declarations }
  95.   public
  96.     { public declarations }
  97.   end;
  98.  
  99. var
  100.   FBDemo04: TFBDemo04;
  101.  
  102. implementation
  103.  
  104. {$R *.DFM}
  105.  
  106. procedure TFBDemo04.FormCreate(Sender: TObject);
  107. begin
  108.   Table1.Open;
  109. end;
  110.  
  111. end.