winform.pas.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('OrderDate', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'OrderDate', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('RequiredDate', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'RequiredDate', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShippedDate', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShippedDate', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipVia', 
                                Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(10)), (Byte(0)), 10, 'ShipVia', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Freight', 
                                Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(19)), (Byte(0)), 19, 'Freight', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipName', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                80, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipName', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipAddress', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                120, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipAddress', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipCity', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipCity', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipRegion', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipRegion', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipPostalCode', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipPostalCode', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipCountry', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipCountry', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('OrderIDOriginal', 
                                Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(10)), (Byte(0)), 10, 'OrderID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CustomerIDOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                10, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'CustomerID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('EmployeeIDOriginal', 
                                Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(10)), (Byte(0)), 10, 'EmployeeID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('OrderDateOriginal', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'OrderDate', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('RequiredDateOriginal', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'RequiredDate', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShippedDateOriginal', 
                                Borland.Data.Common.BdpType.DateTime, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShippedDate', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipViaOriginal', 
                                Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(10)), (Byte(0)), 10, 'ShipVia', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('FreightOriginal', 
                                Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
                                0, System.Data.ParameterDirection.Input, False, 
                                (Byte(19)), (Byte(0)), 19, 'Freight', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipNameOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                80, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipName', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipAddressOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                120, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipAddress', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipCityOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipCity', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipRegionOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipRegion', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipPostalCodeOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipPostalCode', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ShipCountryOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ShipCountry', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand2.SchemaName := nil;
        Self.bdpUpdateCommand2.Transaction := nil;
        Self.bdpUpdateCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // TWinForm
        // 
        Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
        Self.ClientSize := System.Drawing.Size.Create(544, 365);
        Self.Controls.Add(Self.dgOrders);
        Self.Controls.Add(Self.dgCustomers);
        Self.Name := 'TWinForm';
        Self.Text := 'WinForm';
        Include(Self.Load, Self.TWinForm_Load);
        (System.ComponentModel.ISupportInitialize(Self.dgCustomers)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.DataSet11)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.dgOrders)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.daCustomers)).EndInit;
        (System.ComponentModel.ISupportInitialize(Self.daOrders)).EndInit;
        Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
var
  //主表联系列
  parentCol:DataColumn;
  //子表联系列
  childCol:DataColumn;
  //数据关系对象
  relCustOrder:DataRelation;
begin
  //填充数据集中的数据表
  daCustomers.Fill(DataSet11.Tables['Customers']);
  daOrders.Fill(DataSet11.Tables['Orders']);

  //获取两个表中用于建立关系的列的字段
  parentCol := DataSet11.Tables['Customers'].Columns['CustomerID'];
  childCol := DataSet11.Tables['Orders'].Columns['CustomerID'];

  //建立一个数据关系对象
  relCustOrder:=DataRelation.Create('CustomersOrders', parentCol, childCol);
  DataSet11.Relations.Add(relCustOrder);

  //设置dgCustomers的数据源和数据成员
  dgCustomers.DataSource:=DataSet11;
  dgCustomers.DataMember:='Customers';

  //设置dgOrders的数据源和数据成员
  dgOrders.DataSource:=DataSet11;
  dgOrders.DataMember:='Customers.CustomersOrders';

end;

end.