winform.pas.~3~

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

  Self.bdpDeleteCommand2.CommandOptions := nil;
  Self.bdpDeleteCommand2.CommandText := 'DELETE FROM dbo.Orders WHERE OrderI' +
  'D = ? AND CustomerID = ? AND EmployeeID = ? AND OrderDate = ? AND Require' +
  'dDate = ? AND ShippedDate = ? AND ShipVia = ? AND Freight = ? AND ShipNam' +
  'e = ? AND ShipAddress = ? AND ShipCity = ? AND ShipRegion = ? AND ShipPos' +
  'talCode = ? AND ShipCountry = ?';
  Self.bdpDeleteCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpDeleteCommand2.Connection := Self.BdpConnection1;
  Self.bdpDeleteCommand2.ParameterCount := (SmallInt(14));
  Self.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.SchemaName := nil;
  Self.bdpDeleteCommand2.Transaction := nil;
  Self.bdpDeleteCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpInsertCommand2
  // 
  Self.bdpInsertCommand2.CommandOptions := nil;
  Self.bdpInsertCommand2.CommandText := 'INSERT INTO dbo.Orders (OrderID, Cu' +
  'stomerID, EmployeeID, OrderDate, RequiredDate, ShippedDate, ShipVia, Frei' +
  'ght, ShipName, ShipAddress, ShipCity, ShipRegion, ShipPostalCode, ShipCou' +
  'ntry ) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)';
  Self.bdpInsertCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpInsertCommand2.Connection := Self.BdpConnection1;
  Self.bdpInsertCommand2.ParameterCount := (SmallInt(14));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'rderID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ustomerID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('E' +
      'mployeeID', 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.Current, nil));
  Self.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'rderDate', 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.bdpInsertCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      '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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.SchemaName := nil;
  Self.bdpInsertCommand2.Transaction := nil;
  Self.bdpInsertCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // bdpSelectCommand2
  // 
  Self.bdpSelectCommand2.CommandOptions := nil;
  Self.bdpSelectCommand2.CommandText := 'SELECT * FROM dbo.Orders';
  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;
  // 
  // bdpUpdateCommand2
  // 
  Self.bdpUpdateCommand2.CommandOptions := nil;
  Self.bdpUpdateCommand2.CommandText := 'UPDATE dbo.Orders SET OrderID = ?, ' +
  'CustomerID = ?, EmployeeID = ?, OrderDate = ?, RequiredDate = ?, ShippedD' +
  'ate = ?, ShipVia = ?, Freight = ?, ShipName = ?, ShipAddress = ?, ShipCit' +
  'y = ?, ShipRegion = ?, ShipPostalCode = ?, ShipCountry = ? WHERE OrderID ' +
  '= ? AND CustomerID = ? AND EmployeeID = ? AND OrderDate = ? AND RequiredD' +
  'ate = ? AND ShippedDate = ? AND ShipVia = ? AND Freight = ? AND ShipName ' +
  '= ? AND ShipAddress = ? AND ShipCity = ? AND ShipRegion = ? AND ShipPosta' +
  'lCode = ? AND ShipCountry = ?';
  Self.bdpUpdateCommand2.CommandType := System.Data.CommandType.Text;
  Self.bdpUpdateCommand2.Connection := Self.BdpConnection1;
  Self.bdpUpdateCommand2.ParameterCount := (SmallInt(28));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'rderID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ustomerID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('E' +
      'mployeeID', 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.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('O' +
      'rderDate', 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('R' +