?? winform.pas.~2~

?? 《Delphi 2005程序設計及其應用開發(fā)》源代碼
?? ~2~
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
        0, 'QuantityPerUnit', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPriceOriginal', Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(19)), (Byte(0)), 
        19, 'UnitPrice', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsInStockOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsInStock', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrderOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsOnOrder', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevelOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'ReorderLevel', System.Data.DataRowVersion.Original, nil));
  Self.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinuedOriginal', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', 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.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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        80, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        40, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '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, 
        0, 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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, '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, 
        0, 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;
  // 
  // 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;
  // 
  // 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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        80, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        40, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '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, 
        0, 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' +
      'nitsInStock', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsInStock', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrder', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsOnOrder', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevel', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'ReorderLevel', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinued', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'ProductID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
      'roductNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        80, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'ProductName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('S' +
      'upplierIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'SupplierID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryIDOriginal', Borland.Data.Common.BdpType.Int32, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, 'CategoryID', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('Q' +
      'uantityPerUnitOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        40, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'QuantityPerUnit', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitPriceOriginal', Borland.Data.Common.BdpType.Decimal, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(19)), (Byte(0)), 
        19, 'UnitPrice', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsInStockOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsInStock', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('U' +
      'nitsOnOrderOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'UnitsOnOrder', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('R' +
      'eorderLevelOriginal', Borland.Data.Common.BdpType.Int16, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(5)), (Byte(0)), 
        5, 'ReorderLevel', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
      'iscontinuedOriginal', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown, 
        0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'Discontinued', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand2.SchemaName := nil;
  Self.bdpUpdateCommand2.Transaction := nil;
  Self.bdpUpdateCommand2.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(393, 353);
  Self.Controls.Add(Self.DataGrid2);
  Self.Controls.Add(Self.DataGrid1);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid2)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.DataSet11)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.CategoryAdapter)).EndInit;
  (System.ComponentModel.ISupportInitialize(Self.ProductAdapter)).EndInit;
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;

procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
var
  parentCol, ChildCol: DataColumn;
  Relation: DataRelation;
begin
   CategoryAdapter.Fill(DataSet11.Tables['Categories']);
   ProductAdapter.Fill(Dataset11.Tables['Products']);
   parentCol := Dataset11.Tables['Categories'].Columns['CategoryID'];
   childCol := Dataset11.Tables['Products'].Columns['CategoryID'];
   Relation :=DataRelation.Create('ProductCatagory',parentCol,childCol);
   DataSet11.Relations.Add(Relation);

   DataGrid1.DataSource:= DataSet11;
   DataGrid1.DataMember := 'Categories';

   DataGrid2.DataSource := DataSet11;
   DataGrid2.DataMember := 'Categories.ProductCatagory';
end;

end.
上一頁 12
?? 文件大小 5229 K
?? 上傳用戶 ludingpc
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#Delphi #2005 #程序設計 #應用開發(fā)
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? winform.pas.~2~

?? 快捷鍵說明
