winform.pas.~3~

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

      'equiredDate', 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('S' +
      'hippedDate', 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('S' +
      'hipVia', 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('F' +
      'reight', 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('S' +
      'hipName', 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('S' +
      'hipAddress', 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('S' +
      'hipCity', 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('S' +
      'hipRegion', 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('S' +
      'hipPostalCode', 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('S' +
      'hipCountry', 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('O' +
      'rderIDOriginal', 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('C' +
      'ustomerIDOriginal', 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('E' +
      'mployeeIDOriginal', 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('O' +
      'rderDateOriginal', 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('R' +
      'equiredDateOriginal', 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('S' +
      'hippedDateOriginal', 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('S' +
      'hipViaOriginal', 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('F' +
      'reightOriginal', 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('S' +
      'hipNameOriginal', 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('S' +
      'hipAddressOriginal', 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('S' +
      'hipCityOriginal', 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('S' +
      'hipRegionOriginal', 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('S' +
      'hipPostalCodeOriginal', 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('S' +
      'hipCountryOriginal', 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;
  // 
  // DataSet11
  // 
  Self.DataSet11.DataSetName := 'DataSet1';
  Self.DataSet11.Locale := System.Globalization.CultureInfo.Create('zh-CN');
  Self.DataSet11.Namespace := 'http://www.changeme.now/DataSet1.xsd';
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.ClientSize := System.Drawing.Size.Create(456, 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.dgOrders)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.daCustomers)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.daOrders)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.DataSet11)).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.