winform.pas.~1~

来自「Delphi 2005程序设计教程_实例源文件和教学课件」· ~1~ 代码 · 共 815 行 · 第 1/4 页

                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CompanyName', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                80, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'CompanyName', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactName', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactName', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactTitle', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactTitle', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Address', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                120, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Address', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('City', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'City', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Region', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Region', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('PostalCode', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'PostalCode', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Country', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Country', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Phone', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Phone', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Fax', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Fax', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpInsertCommand1.SchemaName := nil;
        Self.bdpInsertCommand1.Transaction := nil;
        Self.bdpInsertCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // bdpSelectCommand1
        // 
        Self.bdpSelectCommand1.CommandOptions := nil;
        Self.bdpSelectCommand1.CommandText := 'SELECT * FROM dbo.Customers';
        Self.bdpSelectCommand1.CommandType := System.Data.CommandType.Text;
        Self.bdpSelectCommand1.Connection := Self.BdpConnection1;
        Self.bdpSelectCommand1.ParameterCount := (SmallInt(0));
        Self.bdpSelectCommand1.SchemaName := nil;
        Self.bdpSelectCommand1.Transaction := nil;
        Self.bdpSelectCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // bdpUpdateCommand1
        // 
        Self.bdpUpdateCommand1.CommandOptions := nil;
        Self.bdpUpdateCommand1.CommandText := 'UPDATE dbo.Customers SET CustomerID = ?, CompanyName = ?, ContactName = ?, Cont'+ 
  'actTitle = ?, Address = ?, City = ?, Region = ?, PostalCode = ?, Country = ?, '+ 
  'Phone = ?, Fax = ? WHERE CustomerID = ? AND CompanyName = ? AND ContactName = '+ 
  '? AND ContactTitle = ? AND Address = ? AND City = ? AND Region = ? AND PostalC'+ 
  'ode = ? AND Country = ? AND Phone = ? AND Fax = ?';
        Self.bdpUpdateCommand1.CommandType := System.Data.CommandType.Text;
        Self.bdpUpdateCommand1.Connection := Self.BdpConnection1;
        Self.bdpUpdateCommand1.ParameterCount := (SmallInt(22));
        Self.bdpUpdateCommand1.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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CompanyName', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                80, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'CompanyName', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactName', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactName', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactTitle', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactTitle', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Address', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                120, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Address', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('City', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'City', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Region', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Region', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('PostalCode', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'PostalCode', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Country', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Country', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Phone', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Phone', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Fax', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Fax', System.Data.DataRowVersion.Current, 
                                nil));
        Self.bdpUpdateCommand1.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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CompanyNameOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                80, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'CompanyName', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactNameOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactName', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('ContactTitleOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                60, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ContactTitle', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('AddressOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                120, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Address', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CityOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'City', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('RegionOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Region', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('PostalCodeOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'PostalCode', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('CountryOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                30, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Country', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('PhoneOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Phone', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('FaxOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
                                48, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Fax', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpUpdateCommand1.SchemaName := nil;
        Self.bdpUpdateCommand1.Transaction := nil;
        Self.bdpUpdateCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // daOrders
        // 
        Self.daOrders.Active := False;
        Self.daOrders.DataSet := nil;
        Self.daOrders.DataTable := nil;
        Self.daOrders.DeleteCommand := Self.bdpDeleteCommand2;
        Self.daOrders.InsertCommand := Self.bdpInsertCommand2;
        Self.daOrders.SelectCommand := Self.bdpSelectCommand2;
        Self.daOrders.StartRecord := 0;
        Self.daOrders.UpdateCommand := Self.bdpUpdateCommand2;
        // 
        // bdpDeleteCommand2
        //