⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 winform.pas.~3~

📁 Delphi 2005程序设计教程_实例源文件和教学课件
💻 ~3~
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  'ID, CompanyName, ContactName, ContactTitle, Address, City, Region, Postal' +
  'Code, Country, Phone, Fax ) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)';
  Self.bdpInsertCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpInsertCommand1.Connection := Self.BdpConnection1;
  Self.bdpInsertCommand1.ParameterCount := (SmallInt(11));
  Self.bdpInsertCommand1.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.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ompanyName', 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('C' +
      'ontactName', 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('C' +
      'ontactTitle', 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('A' +
      'ddress', 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('C' +
      'ity', 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('R' +
      'egion', 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('P' +
      'ostalCode', 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('C' +
      'ountry', 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('P' +
      'hone', 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('F' +
      'ax', 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 = ?, ContactTitle = ?, Address = ?, Ci' +
  'ty = ?, Region = ?, PostalCode = ?, Country = ?, Phone = ?, Fax = ? WHERE' +
  ' CustomerID = ? AND CompanyName = ? AND ContactName = ? AND ContactTitle ' +
  '= ? AND Address = ? AND City = ? AND Region = ? AND PostalCode = ? AND Co' +
  'untry = ? 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('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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ompanyName', 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('C' +
      'ontactName', 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('C' +
      'ontactTitle', 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('A' +
      'ddress', 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('C' +
      'ity', 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('R' +
      'egion', 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('P' +
      'ostalCode', 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('C' +
      'ountry', 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('P' +
      'hone', 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('F' +
      'ax', 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('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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ompanyNameOriginal', 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('C' +
      'ontactNameOriginal', 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('C' +
      'ontactTitleOriginal', 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('A' +
      'ddressOriginal', 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('C' +
      'ityOriginal', 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('R' +
      'egionOriginal', 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('P' +
      'ostalCodeOriginal', 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('C' +
      'ountryOriginal', 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('P' +
      'honeOriginal', 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('F' +
      'axOriginal', 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
  //
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -