📄 winform.pas.~8~
字号:
unit WinForm;
interface
uses
System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data, Borland.Data.Provider, Borland.Data.Common,
DataSet1Unit, System.Globalization, System.Data.Common;
type
TWinForm = class(System.Windows.Forms.Form)
{$REGION 'Designer Managed Code'}
strict private
/// <summary>
/// Required designer variable.
/// </summary>
Components: System.ComponentModel.Container;
BdpConnection1: Borland.Data.Provider.BdpConnection;
bdpSelectCommand1: Borland.Data.Provider.BdpCommand;
bdpInsertCommand1: Borland.Data.Provider.BdpCommand;
bdpUpdateCommand1: Borland.Data.Provider.BdpCommand;
bdpDeleteCommand1: Borland.Data.Provider.BdpCommand;
bdpSelectCommand2: Borland.Data.Provider.BdpCommand;
bdpInsertCommand2: Borland.Data.Provider.BdpCommand;
bdpUpdateCommand2: Borland.Data.Provider.BdpCommand;
bdpDeleteCommand2: Borland.Data.Provider.BdpCommand;
DataGrid1: System.Windows.Forms.DataGrid;
DataGrid2: System.Windows.Forms.DataGrid;
CategoryAdapter: Borland.Data.Provider.BdpDataAdapter;
ProductAdapter: Borland.Data.Provider.BdpDataAdapter;
dataSet1: System.Data.DataSet;
DataTable1: System.Data.DataTable;
DataColumn1: System.Data.DataColumn;
DataColumn2: System.Data.DataColumn;
DataColumn3: System.Data.DataColumn;
DataColumn4: System.Data.DataColumn;
DataColumn5: System.Data.DataColumn;
DataColumn6: System.Data.DataColumn;
DataColumn7: System.Data.DataColumn;
DataColumn8: System.Data.DataColumn;
DataColumn9: System.Data.DataColumn;
DataColumn10: System.Data.DataColumn;
DataTable2: System.Data.DataTable;
DataColumn11: System.Data.DataColumn;
DataColumn12: System.Data.DataColumn;
DataColumn13: System.Data.DataColumn;
DataColumn14: System.Data.DataColumn;
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure InitializeComponent;
procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
{$ENDREGION}
strict protected
/// <summary>
/// Clean up any resources being used.
/// </summary>
procedure Dispose(Disposing: Boolean); override;
private
{ Private Declarations }
public
constructor Create;
end;
[assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
implementation
{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure TWinForm.InitializeComponent;
type
TArrayOfSystem_Data_Common_DataTableMapping = array of System.Data.Common.DataTableMapping;
TArrayOfSystem_Data_Common_DataColumnMapping = array of System.Data.Common.DataColumnMapping;
TArrayOfSystem_Data_DataRelation = array of System.Data.DataRelation;
TArrayOfString = array of string;
TArrayOfSystem_Data_DataTable = array of System.Data.DataTable;
TArrayOfSystem_Data_DataColumn = array of System.Data.DataColumn;
TArrayOfSystem_Data_Constraint = array of System.Data.Constraint;
TArrayOfWideChar = array of WideChar;
TArrayOfByte = array of Byte;
begin
Self.DataGrid1 := System.Windows.Forms.DataGrid.Create;
Self.DataGrid2 := System.Windows.Forms.DataGrid.Create;
Self.BdpConnection1 := Borland.Data.Provider.BdpConnection.Create;
Self.ProductAdapter := Borland.Data.Provider.BdpDataAdapter.Create;
Self.bdpDeleteCommand2 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpInsertCommand2 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpSelectCommand2 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpUpdateCommand2 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpInsertCommand1 := Borland.Data.Provider.BdpCommand.Create;
Self.CategoryAdapter := Borland.Data.Provider.BdpDataAdapter.Create;
Self.bdpDeleteCommand1 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpSelectCommand1 := Borland.Data.Provider.BdpCommand.Create;
Self.bdpUpdateCommand1 := Borland.Data.Provider.BdpCommand.Create;
Self.dataSet1 := System.Data.DataSet.Create;
Self.DataTable1 := System.Data.DataTable.Create;
Self.DataColumn1 := System.Data.DataColumn.Create;
Self.DataColumn2 := System.Data.DataColumn.Create;
Self.DataColumn3 := System.Data.DataColumn.Create;
Self.DataColumn4 := System.Data.DataColumn.Create;
Self.DataTable2 := System.Data.DataTable.Create;
Self.DataColumn5 := System.Data.DataColumn.Create;
Self.DataColumn6 := System.Data.DataColumn.Create;
Self.DataColumn7 := System.Data.DataColumn.Create;
Self.DataColumn8 := System.Data.DataColumn.Create;
Self.DataColumn9 := System.Data.DataColumn.Create;
Self.DataColumn10 := System.Data.DataColumn.Create;
Self.DataColumn11 := System.Data.DataColumn.Create;
Self.DataColumn12 := System.Data.DataColumn.Create;
Self.DataColumn13 := System.Data.DataColumn.Create;
Self.DataColumn14 := System.Data.DataColumn.Create;
(System.ComponentModel.ISupportInitialize(Self.DataGrid1)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.DataGrid2)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.ProductAdapter)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.CategoryAdapter)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.dataSet1)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.DataTable1)).BeginInit;
(System.ComponentModel.ISupportInitialize(Self.DataTable2)).BeginInit;
Self.SuspendLayout;
//
// DataGrid1
//
Self.DataGrid1.CaptionText := 'Categories';
Self.DataGrid1.DataMember := 'Categories';
Self.DataGrid1.DataSource := Self.dataSet1;
Self.DataGrid1.HeaderForeColor := System.Drawing.SystemColors.ControlText;
Self.DataGrid1.Location := System.Drawing.Point.Create(16, 16);
Self.DataGrid1.Name := 'DataGrid1';
Self.DataGrid1.Size := System.Drawing.Size.Create(280, 296);
Self.DataGrid1.TabIndex := 0;
//
// DataGrid2
//
Self.DataGrid2.CaptionText := 'Products';
Self.DataGrid2.DataMember := 'Products';
Self.DataGrid2.DataSource := Self.dataSet1;
Self.DataGrid2.HeaderForeColor := System.Drawing.SystemColors.ControlText;
Self.DataGrid2.Location := System.Drawing.Point.Create(312, 16);
Self.DataGrid2.Name := 'DataGrid2';
Self.DataGrid2.Size := System.Drawing.Size.Create(360, 296);
Self.DataGrid2.TabIndex := 1;
//
// BdpConnection1
//
Self.BdpConnection1.ConnectionOptions := 'transaction isolation=ReadCommit' +
'ted;blobsize=1024';
Self.BdpConnection1.ConnectionString := 'assembly=Borland.Data.Mssql,Versi' +
'on=2.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=s' +
'qloledb.dll;osauthentication=True;database=Northwind;username=;hostname=E' +
'CON-IBM-T40-G7;password=;provider=MSSQL';
//
// ProductAdapter
//
Self.ProductAdapter.Active := True;
Self.ProductAdapter.DataSet := Self.dataSet1;
Self.ProductAdapter.DataTable := Self.DataTable2;
Self.ProductAdapter.DeleteCommand := Self.bdpDeleteCommand2;
Self.ProductAdapter.InsertCommand := Self.bdpInsertCommand2;
Self.ProductAdapter.SelectCommand := Self.bdpSelectCommand2;
Self.ProductAdapter.StartRecord := 0;
Self.ProductAdapter.TableMappings.AddRange(TArrayOfSystem_Data_Common_DataTableMapping.Create(System.Data.Common.DataTableMapping.Create('T' +
'able', 'Products', TArrayOfSystem_Data_Common_DataColumnMapping.Create(System.Data.Common.DataColumnMapping.Create('P' +
'roductID', 'ProductID'), System.Data.Common.DataColumnMapping.Create('P' +
'roductName', 'ProductName'), System.Data.Common.DataColumnMapping.Create('S' +
'upplierID', 'SupplierID'), System.Data.Common.DataColumnMapping.Create('C' +
'ategoryID', 'CategoryID'), System.Data.Common.DataColumnMapping.Create('Q' +
'uantityPerUnit', 'QuantityPerUnit'), System.Data.Common.DataColumnMapping.Create('U' +
'nitPrice', 'UnitPrice'), System.Data.Common.DataColumnMapping.Create('U' +
'nitsInStock', 'UnitsInStock'), System.Data.Common.DataColumnMapping.Create('U' +
'nitsOnOrder', 'UnitsOnOrder'), System.Data.Common.DataColumnMapping.Create('R' +
'eorderLevel', 'ReorderLevel'), System.Data.Common.DataColumnMapping.Create('D' +
'iscontinued', 'Discontinued')))));
Self.ProductAdapter.UpdateCommand := Self.bdpUpdateCommand2;
//
// bdpDeleteCommand2
//
Self.bdpDeleteCommand2.CommandOptions := nil;
Self.bdpDeleteCommand2.CommandText := 'DELETE FROM dbo.Products WHERE Prod' +
'uctID = ? AND ProductName = ? AND SupplierID = ? AND CategoryID = ? AND Q' +
'uantityPerUnit = ? AND UnitPrice = ? AND UnitsInStock = ? AND UnitsOnOrde' +
'r = ? AND ReorderLevel = ? AND Discontinued = ?';
Self.bdpDeleteCommand2.CommandType := System.Data.CommandType.Text;
Self.bdpDeleteCommand2.Connection := Self.BdpConnection1;
Self.bdpDeleteCommand2.ParameterCount := (SmallInt(10));
Self.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.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.bdpDeleteCommand2.Parameters.Add(Borland.Data.Common.BdpParameter.Create('D' +
'iscontinuedOriginal', Borland.Data.Common.BdpType.Boolean, Borland.Data.Common.BdpType.Unknown,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -