📄 winform.pas.~1~
字号:
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
//
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -