📄 winform.pas.~8~
字号:
2, 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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
40, System.Data.ParameterDirection.Input, False, (Byte(40)), (Byte(0)),
40, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
20, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)),
20, '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,
8, 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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, 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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
40, System.Data.ParameterDirection.Input, False, (Byte(40)), (Byte(0)),
40, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
20, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)),
20, '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,
8, 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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, 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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
40, System.Data.ParameterDirection.Input, False, (Byte(40)), (Byte(0)),
40, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
4, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
20, System.Data.ParameterDirection.Input, False, (Byte(20)), (Byte(0)),
20, '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,
8, 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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, '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,
2, 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;
//
// bdpInsertCommand1
//
Self.bdpInsertCommand1.CommandOptions := nil;
Self.bdpInsertCommand1.CommandText := 'INSERT INTO dbo.Categories (Categor' +
'yID, CategoryName, Description, Picture ) VALUES ( ?, ?, ?, ?)';
Self.bdpInsertCommand1.CommandType := System.Data.CommandType.Text;
Self.bdpInsertCommand1.Connection := Self.BdpConnection1;
Self.bdpInsertCommand1.ParameterCount := (SmallInt(4));
Self.bdpInsertCommand1.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(0)), (Byte(0)),
0, 'CategoryID', System.Data.DataRowVersion.Current, nil));
Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
'ategoryName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown,
0, System.Data.ParameterDirection.Input, False, (Byte(15)), (Byte(0)),
15, 'CategoryName', System.Data.DataRowVersion.Current, nil));
Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
'escription', Borland.Data.Common.BdpType.Blob, Borland.Data.Common.BdpType.stMemo,
0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, 'Description', System.Data.DataRowVersion.Current, nil));
Self.bdpInsertCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('P' +
'icture', Borland.Data.Common.BdpType.Blob, Borland.Data.Common.BdpType.stBinary,
0, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
0, 'Picture', System.Data.DataRowVersion.Current, nil));
Self.bdpInsertCommand1.SchemaName := nil;
Self.bdpInsertCommand1.Transaction := nil;
Self.bdpInsertCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
//
// CategoryAdapter
//
Self.CategoryAdapter.Active := True;
Self.CategoryAdapter.DataSet := Self.dataSet1;
Self.CategoryAdapter.DataTable := Self.DataTable1;
Self.CategoryAdapter.DeleteCommand := Self.bdpDeleteCommand1;
Self.CategoryAdapter.InsertCommand := Self.bdpInsertCommand1;
Self.CategoryAdapter.SelectCommand := Self.bdpSelectCommand1;
Self.CategoryAdapter.StartRecord := 0;
Self.CategoryAdapter.TableMappings.AddRange(TArrayOfSystem_Data_Common_DataTableMapping.Create(System.Data.Common.DataTableMapping.Create('T' +
'able', 'Categories', TArrayOfSystem_Data_Common_DataColumnMapping.Create(System.Data.Common.DataColumnMapping.Create('C' +
'ategoryID', 'CategoryID'), System.Data.Common.DataColumnMapping.Create('C' +
'ategoryName', 'CategoryName'), System.Data.Common.DataColumnMapping.Create('D' +
'escription', 'Description'), System.Data.Common.DataColumnMapping.Create('P' +
'icture', 'Picture')))));
Self.CategoryAdapter.UpdateCommand := Self.bdpUpdateCommand1;
//
// bdpDeleteCommand1
//
Self.bdpDeleteCommand1.CommandOptions := nil;
Self.bdpDeleteCommand1.CommandText := 'DELETE FROM dbo.Categories WHERE Ca' +
'tegoryID = ? AND CategoryName = ?';
Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
Self.bdpDeleteCommand1.ParameterCount := (SmallInt(2));
Self.bdpDeleteCommand1.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(0)), (Byte(0)),
0, 'CategoryID', System.Data.DataRowVersion.Original, nil));
Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
'ategoryNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown,
0, System.Data.ParameterDirection.Input, False, (Byte(15)), (Byte(0)),
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -