home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Ado / Shape / shapemain.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  2.4 KB  |  88 lines
  1. unit ShapeMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     ADOConnection1: TADOConnection;
  12.     Customers: TADODataSet;
  13.     Orders: TADODataSet;
  14.     CustSource: TDataSource;
  15.     OrderSource: TDataSource;
  16.     DBGrid1: TDBGrid;
  17.     DBGrid2: TDBGrid;
  18.     CustomersCustNo: TFloatField;
  19.     CustomersCompany: TWideStringField;
  20.     CustomersAddr1: TWideStringField;
  21.     CustomersAddr2: TWideStringField;
  22.     CustomersCity: TWideStringField;
  23.     CustomersState: TWideStringField;
  24.     CustomersZip: TWideStringField;
  25.     CustomersCountry: TWideStringField;
  26.     CustomersPhone: TWideStringField;
  27.     CustomersFAX: TWideStringField;
  28.     CustomersTaxRate: TFloatField;
  29.     CustomersContact: TWideStringField;
  30.     CustomersLastInvoiceDate: TDateField;
  31.     CustomersOrders: TDataSetField;
  32.     OrdersOrderNo: TFloatField;
  33.     OrdersCustNo: TFloatField;
  34.     OrdersSaleDate: TDateField;
  35.     OrdersShipDate: TDateField;
  36.     OrdersEmpNo: TIntegerField;
  37.     OrdersShipToContact: TWideStringField;
  38.     OrdersShipToAddr1: TWideStringField;
  39.     OrdersShipToAddr2: TWideStringField;
  40.     OrdersShipToCity: TWideStringField;
  41.     OrdersShipToState: TWideStringField;
  42.     OrdersShipToZip: TWideStringField;
  43.     OrdersShipToCountry: TWideStringField;
  44.     OrdersShipToPhone: TWideStringField;
  45.     OrdersShipVIA: TWideStringField;
  46.     OrdersPO: TWideStringField;
  47.     OrdersTerms: TWideStringField;
  48.     OrdersPaymentMethod: TWideStringField;
  49.     OrdersItemsTotal: TFloatField;
  50.     OrdersTaxRate: TFloatField;
  51.     OrdersFreight: TFloatField;
  52.     OrdersAmountPaid: TFloatField;
  53.     Panel1: TPanel;
  54.     ProviderLabel: TLabel;
  55.     DataProviderLabel: TLabel;
  56.     DataSourceLabel: TLabel;
  57.     Label4: TLabel;
  58.     Provider: TEdit;
  59.     DataProvider: TEdit;
  60.     DataSource: TEdit;
  61.     OpenButton: TButton;
  62.     procedure OpenButtonClick(Sender: TObject);
  63.   private
  64.     { Private declarations }
  65.   public
  66.     { Public declarations }
  67.   end;
  68.  
  69. var
  70.   Form1: TForm1;
  71.  
  72. implementation
  73.  
  74. {$R *.DFM}
  75.  
  76. procedure TForm1.OpenButtonClick(Sender: TObject);
  77. const
  78.   ConnStr = 'Provider=%s;Data Provider=%s;Data Source=%s';
  79. begin
  80.   if not ADOConnection1.Connected then
  81.     ADOConnection1.ConnectionString := Format(ConnStr, [Provider.Text,
  82.       DataProvider.Text, DataSource.Text]);
  83.   Customers.Open;
  84.   Orders.Open;
  85. end;
  86.  
  87. end.
  88.