winform.pas.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

unit WinForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, Borland.Data.Common, Borland.Data.Provider, 
  DataSet1Unit, System.Globalization;

type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
                dgCustomers: System.Windows.Forms.DataGrid;
                dgOrders: System.Windows.Forms.DataGrid;
                BdpConnection1: Borland.Data.Provider.BdpConnection;
                daCustomers: Borland.Data.Provider.BdpDataAdapter;
                bdpSelectCommand1: Borland.Data.Provider.BdpCommand;
                bdpInsertCommand1: Borland.Data.Provider.BdpCommand;
                bdpUpdateCommand1: Borland.Data.Provider.BdpCommand;
                bdpDeleteCommand1: Borland.Data.Provider.BdpCommand;
                daOrders: Borland.Data.Provider.BdpDataAdapter;
                bdpSelectCommand2: Borland.Data.Provider.BdpCommand;
                bdpInsertCommand2: Borland.Data.Provider.BdpCommand;
                bdpUpdateCommand2: Borland.Data.Provider.BdpCommand;
                bdpDeleteCommand2: Borland.Data.Provider.BdpCommand;
                DataSet11: DataSet1Unit.DataSet1;
    /// <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;
begin
        Self.dgCustomers := System.Windows.Forms.DataGrid.Create;
        Self.DataSet11 := DataSet1Unit.DataSet1.Create;
        Self.dgOrders := System.Windows.Forms.DataGrid.Create;
        Self.BdpConnection1 := Borland.Data.Provider.BdpConnection.Create;
        Self.daCustomers := Borland.Data.Provider.BdpDataAdapter.Create;
        Self.bdpDeleteCommand1 := Borland.Data.Provider.BdpCommand.Create;
        Self.bdpInsertCommand1 := Borland.Data.Provider.BdpCommand.Create;
        Self.bdpSelectCommand1 := Borland.Data.Provider.BdpCommand.Create;
        Self.bdpUpdateCommand1 := Borland.Data.Provider.BdpCommand.Create;
        Self.daOrders := 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;
        (System.ComponentModel.ISupportInitialize(Self.dgCustomers)).BeginInit;
        (System.ComponentModel.ISupportInitialize(Self.DataSet11)).BeginInit;
        (System.ComponentModel.ISupportInitialize(Self.dgOrders)).BeginInit;
        (System.ComponentModel.ISupportInitialize(Self.daCustomers)).BeginInit;
        (System.ComponentModel.ISupportInitialize(Self.daOrders)).BeginInit;
        Self.SuspendLayout;
        // 
        // dgCustomers
        // 
        Self.dgCustomers.DataMember := '';
        Self.dgCustomers.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgCustomers.Location := System.Drawing.Point.Create(8, 8);
        Self.dgCustomers.Name := 'dgCustomers';
        Self.dgCustomers.Size := System.Drawing.Size.Create(528, 160);
        Self.dgCustomers.TabIndex := 0;
        // 
        // DataSet11
        // 
        Self.DataSet11.DataSetName := 'DataSet1';
        Self.DataSet11.Locale := System.Globalization.CultureInfo.Create('zh-CN');
        Self.DataSet11.Namespace := 'http://www.changeme.now/DataSet1.xsd';
        // 
        // dgOrders
        // 
        Self.dgOrders.DataMember := '';
        Self.dgOrders.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgOrders.Location := System.Drawing.Point.Create(8, 184);
        Self.dgOrders.Name := 'dgOrders';
        Self.dgOrders.Size := System.Drawing.Size.Create(528, 168);
        Self.dgOrders.TabIndex := 1;
        // 
        // BdpConnection1
        // 
        Self.BdpConnection1.ConnectionOptions := 'transaction isolation=ReadCommitted;blob size=1024';
        Self.BdpConnection1.ConnectionString := 'assembly=Borland.Data.Mssql, Version=1.5.0.0, Culture=neutral, PublicKeyToken=9'+ 
  '1d62ebb5b0d1b1b;vendorclient=sqloledb.dll;database=NorthWind;username=sa;hostn'+ 
  'ame=localhost;password=;provider=MSSQL';
        // 
        // daCustomers
        // 
        Self.daCustomers.Active := False;
        Self.daCustomers.DataSet := nil;
        Self.daCustomers.DataTable := nil;
        Self.daCustomers.DeleteCommand := Self.bdpDeleteCommand1;
        Self.daCustomers.InsertCommand := Self.bdpInsertCommand1;
        Self.daCustomers.SelectCommand := Self.bdpSelectCommand1;
        Self.daCustomers.StartRecord := 0;
        Self.daCustomers.UpdateCommand := Self.bdpUpdateCommand1;
        // 
        // bdpDeleteCommand1
        // 
        Self.bdpDeleteCommand1.CommandOptions := nil;
        Self.bdpDeleteCommand1.CommandText := 'DELETE FROM dbo.Customers WHERE CustomerID = ? AND CompanyName = ? AND ContactN'+ 
  'ame = ? AND ContactTitle = ? AND Address = ? AND City = ? AND Region = ? AND P'+ 
  'ostalCode = ? AND Country = ? AND Phone = ? AND Fax = ?';
        Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
        Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
        Self.bdpDeleteCommand1.ParameterCount := (SmallInt(11));
        Self.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.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.bdpDeleteCommand1.SchemaName := nil;
        Self.bdpDeleteCommand1.Transaction := nil;
        Self.bdpDeleteCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
        // 
        // bdpInsertCommand1
        // 
        Self.bdpInsertCommand1.CommandOptions := nil;
        Self.bdpInsertCommand1.CommandText := 'INSERT INTO dbo.Customers (CustomerID, CompanyName, ContactName, ContactTitle, '+ 
  'Address, City, Region, PostalCode, 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('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,