winform.pas.~5~

《Delphi 2005程序设计及其应用开发》源代码

  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrder', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'UnitsOnOrder', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevel', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ReorderLevel', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinued', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ProductID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        40, System.Data.ParameterDirection.Input, False, (Byte(40)), (Byte(0)), 
        40, 'ProductName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'upplierIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'SupplierID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Q' +
      'uantityPerUnitOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        20, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)), 
        20, 'QuantityPerUnit', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPriceOriginal', Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
        8, System.Data.ParameterDirection.Input, False, (Byte(19)), (Byte(0)), 
        19, 'UnitPrice', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsInStockOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'UnitsInStock', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrderOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'UnitsOnOrder', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevelOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ReorderLevel', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinuedOriginal', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.SchemaName := nil;
  Self.bdpUpdateCommand2.Transaction := nil;
  Self.bdpUpdateCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpDeleteCommand2
  // 
  Self.bdpDeleteCommand2.CommandOptions := nil;
  Self.bdpDeleteCommand2.CommandText := 'DELETE FROM dbo.Products WHERE Prod' +
  'uctID = ? AND ProductName = ? AND SupplierID = ? AND CategoryID = ? AND Q' +
  'uantityPerUnit = ? AND UnitPrice = ? AND UnitsInStock = ? AND UnitsOnOrde' +
  'r = ? AND ReorderLevel = ? AND Discontinued = ?';
  Self.bdpDeleteCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpDeleteCommand2.Connection := Self.BdpConnection1;
  Self.bdpDeleteCommand2.ParameterCount := (SmallInt(10));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ProductID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        40, System.Data.ParameterDirection.Input, False, (Byte(40)), (Byte(0)), 
        40, 'ProductName', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'upplierIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'SupplierID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryID', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Q' +
      'uantityPerUnitOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        20, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)), 
        20, 'QuantityPerUnit', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPriceOriginal', Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
        8, System.Data.ParameterDirection.Input, False, (Byte(19)), (Byte(0)), 
        19, 'UnitPrice', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsInStockOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'UnitsInStock', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrderOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'UnitsOnOrder', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevelOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ReorderLevel', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinuedOriginal', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.SchemaName := nil;
  Self.bdpDeleteCommand2.Transaction := nil;
  Self.bdpDeleteCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // dataSet1
  // 
  Self.dataSet1.DataSetName := 'NewDataSet';
  Self.dataSet1.Locale := System.Globalization.CultureInfo.Create('zh-CN');
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(393, 353);
  Self.Controls.Add(Self.DataGrid2);
  Self.Controls.Add(Self.DataGrid1);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid2)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.CatagoryDataAdapter)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.ProductDataAdapter)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.dataSet1)).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, ChildCol: DataColumn;
  Relation: DataRelation;
begin
   CategoryAdapter.Fill(DataSet11.Tables['Categories']);
   ProductAdapter.Fill(Dataset11.Tables['Products']);
   parentCol := Dataset11.Tables['Categories'].Columns['CategoryID'];
   childCol := Dataset11.Tables['Products'].Columns['CategoryID'];
   Relation :=DataRelation.Create('ProductCatagory',parentCol,childCol);
   DataSet11.Relations.Add(Relation);

   DataGrid1.DataSource:= DataSet11;
   DataGrid1.DataMember := 'Categories';

   DataGrid2.DataSource := DataSet11;
   DataGrid2.DataMember := 'Categories.ProductCatagory';
end;

end.