unit1.pas

《Delphi7编程100例》代码,书配资料

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, Provider, DB, DBClient, StdCtrls, Grids, DBGrids,
  Mask, DBCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBEdit1: TDBEdit;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBTextShipMethod: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    CustDataSource: TDataSource;
    CustOrders: TClientDataSet;
    OrderDS: TClientDataSet;
    CustOrdersDataSource: TDataSource;
    OrderDSDataSource: TDataSource;
    DataSetProvider1: TDataSetProvider;
    CustQuery: TQuery;
    OrderQuery: TQuery;
    CustOrdersCustNo: TFloatField;
    CustOrdersCompany: TStringField;
    CustOrdersAddr1: TStringField;
    CustOrdersAddr2: TStringField;
    CustOrdersCity: TStringField;
    CustOrdersState: TStringField;
    CustOrdersZip: TStringField;
    CustOrdersCountry: TStringField;
    CustOrdersPhone: TStringField;
    CustOrdersFAX: TStringField;
    CustOrdersTaxRate: TFloatField;
    CustOrdersContact: TStringField;
    CustOrdersLastInvoiceDate: TDateTimeField;
    CustOrdersOrderQuery: TDataSetField;
    OrderDSTotalPerCustomer: TAggregateField;
    OrderDSTotalPerShipMethod: TAggregateField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CustOrders.Active:=True;
  OrderDS.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  OrderDS.IndexName:='ShipVIA';
  DBTextShipMethod.DataField:='ShipVIA';
  CustOrders.First;
end;

end.