winform.pas.~4~

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

  Self.bdpUpdateCommand1.ParameterCount := (SmallInt(6));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryID', 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.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        15, System.Data.ParameterDirection.Input, False, (Byte(15)), (Byte(0)), 
        15, 'CategoryName', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'escription', Borland.Data.Common.BdpType.Blob, Borland.Data.Common.BdpType.stMemo, 
        -1, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Description', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'icture', Borland.Data.Common.BdpType.Blob, Borland.Data.Common.BdpType.stBinary, 
        -1, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Picture', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        15, System.Data.ParameterDirection.Input, False, (Byte(15)), (Byte(0)), 
        15, 'CategoryName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.SchemaName := nil;
  Self.bdpUpdateCommand1.Transaction := nil;
  Self.bdpUpdateCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpDeleteCommand1
  // 
  Self.bdpDeleteCommand1.CommandOptions := nil;
  Self.bdpDeleteCommand1.CommandText := 'DELETE FROM dbo.Categories WHERE Ca' +
  'tegoryID = ? AND CategoryName = ?';
  Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
  Self.bdpDeleteCommand1.ParameterCount := (SmallInt(2));
  Self.bdpDeleteCommand1.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.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        15, System.Data.ParameterDirection.Input, False, (Byte(15)), (Byte(0)), 
        15, 'CategoryName', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand1.SchemaName := nil;
  Self.bdpDeleteCommand1.Transaction := nil;
  Self.bdpDeleteCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // ProductDataAdapter
  // 
  Self.ProductDataAdapter.Active := False;
  Self.ProductDataAdapter.DataSet := nil;
  Self.ProductDataAdapter.DataTable := nil;
  Self.ProductDataAdapter.DeleteCommand := Self.bdpDeleteCommand2;
  Self.ProductDataAdapter.InsertCommand := Self.bdpInsertCommand2;
  Self.ProductDataAdapter.SelectCommand := Self.bdpSelectCommand2;
  Self.ProductDataAdapter.StartRecord := 0;
  Self.ProductDataAdapter.TableMappings.AddRange(TArrayOfSystem_Data_Common_DataTableMapping.Create(System.Data.Common.DataTableMapping.Create('T' +
          'able', 'Products', TArrayOfSystem_Data_Common_DataColumnMapping.Create(System.Data.Common.DataColumnMapping.Create('P' +
                'roductID', 'ProductID'), System.Data.Common.DataColumnMapping.Create('P' +
                'roductName', 'ProductName'), System.Data.Common.DataColumnMapping.Create('S' +
                'upplierID', 'SupplierID'), System.Data.Common.DataColumnMapping.Create('C' +
                'ategoryID', 'CategoryID'), System.Data.Common.DataColumnMapping.Create('Q' +
                'uantityPerUnit', 'QuantityPerUnit'), System.Data.Common.DataColumnMapping.Create('U' +
                'nitPrice', 'UnitPrice'), System.Data.Common.DataColumnMapping.Create('U' +
                'nitsInStock', 'UnitsInStock'), System.Data.Common.DataColumnMapping.Create('U' +
                'nitsOnOrder', 'UnitsOnOrder'), System.Data.Common.DataColumnMapping.Create('R' +
                'eorderLevel', 'ReorderLevel'), System.Data.Common.DataColumnMapping.Create('D' +
                'iscontinued', 'Discontinued')))));
  Self.ProductDataAdapter.UpdateCommand := Self.bdpUpdateCommand2;
  // 
  // bdpSelectCommand2
  // 
  Self.bdpSelectCommand2.CommandOptions := nil;
  Self.bdpSelectCommand2.CommandText := 'SELECT * FROM dbo.Products';
  Self.bdpSelectCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpSelectCommand2.Connection := Self.BdpConnection1;
  Self.bdpSelectCommand2.ParameterCount := (SmallInt(0));
  Self.bdpSelectCommand2.SchemaName := nil;
  Self.bdpSelectCommand2.Transaction := nil;
  Self.bdpSelectCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpInsertCommand2
  // 
  Self.bdpInsertCommand2.CommandOptions := nil;
  Self.bdpInsertCommand2.CommandText := 'INSERT INTO dbo.Products (ProductID' +
  ', ProductName, SupplierID, CategoryID, QuantityPerUnit, UnitPrice, UnitsI' +
  'nStock, UnitsOnOrder, ReorderLevel, Discontinued ) VALUES ( ?, ?, ?, ?, ?' +
  ', ?, ?, ?, ?, ?)';
  Self.bdpInsertCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpInsertCommand2.Connection := Self.BdpConnection1;
  Self.bdpInsertCommand2.ParameterCount := (SmallInt(10));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductName', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'upplierID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Q' +
      'uantityPerUnit', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPrice', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsInStock', 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.Current, nil));
  Self.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.SchemaName := nil;
  Self.bdpInsertCommand2.Transaction := nil;
  Self.bdpInsertCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpUpdateCommand2
  // 
  Self.bdpUpdateCommand2.CommandOptions := nil;
  Self.bdpUpdateCommand2.CommandText := 'UPDATE dbo.Products SET ProductID =' +
  ' ?, ProductName = ?, SupplierID = ?, CategoryID = ?, QuantityPerUnit = ?,' +
  ' UnitPrice = ?, UnitsInStock = ?, UnitsOnOrder = ?, ReorderLevel = ?, Dis' +
  'continued = ? WHERE ProductID = ? AND ProductName = ? AND SupplierID = ? ' +
  'AND CategoryID = ? AND QuantityPerUnit = ? AND UnitPrice = ? AND UnitsInS' +
  'tock = ? AND UnitsOnOrder = ? AND ReorderLevel = ? AND Discontinued = ?';
  Self.bdpUpdateCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpUpdateCommand2.Connection := Self.BdpConnection1;
  Self.bdpUpdateCommand2.ParameterCount := (SmallInt(20));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductName', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'upplierID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Q' +
      'uantityPerUnit', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPrice', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +