winform.pas.~1~

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

        Self.bdpDeleteCommand2.CommandOptions := nil;
        Self.bdpDeleteCommand2.CommandText := 'DELETE FROM dbo.Orders WHERE OrderID = ? AND CustomerID = ? AND EmployeeID = ? '+ 
  'AND OrderDate = ? AND RequiredDate = ? AND ShippedDate = ? AND ShipVia = ? AND'+ 
  ' Freight = ? AND ShipName = ? AND ShipAddress = ? AND ShipCity = ? AND ShipReg'+ 
  'ion = ? AND ShipPostalCode = ? 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('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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.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, CustomerID, EmployeeID, OrderDate, RequiredDat'+ 
  'e, ShippedDate, ShipVia, Freight, ShipName, ShipAddress, ShipCity, ShipRegion,'+ 
  ' ShipPostalCode, ShipCountry ) 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('OrderID', 
                                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('CustomerID', 
                                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('EmployeeID', 
                                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('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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.bdpInsertCommand2.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.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 = ?, ShippedDate = ?, ShipVia = ?, Freight = ?, ShipName = ?, '+ 
  'ShipAddress = ?, ShipCity = ?, ShipRegion = ?, ShipPostalCode = ?, ShipCountry'+ 
  ' = ? WHERE OrderID = ? AND CustomerID = ? AND EmployeeID = ? AND OrderDate = ?'+ 
  ' AND RequiredDate = ? AND ShippedDate = ? AND ShipVia = ? AND Freight = ? AND '+ 
  'ShipName = ? AND ShipAddress = ? AND ShipCity = ? AND ShipRegion = ? AND ShipP'+ 
  'ostalCode = ? 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('OrderID', 
                                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('CustomerID', 
                                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('EmployeeID', 
                                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,