?? winform.pas.~2~

?? 《Delphi 2005程序設計及其應用開發》源代碼
?? ~2~
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit WinForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, Borland.Data.Provider, Borland.Data.Common, 
  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;
    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;
    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.DataGrid1 := System.Windows.Forms.DataGrid.Create;
  Self.DataGrid2 := System.Windows.Forms.DataGrid.Create;
  Self.DataSet11 := DataSet1Unit.DataSet1.Create;
  Self.BdpConnection1 := Borland.Data.Provider.BdpConnection.Create;
  Self.CategoryAdapter := 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.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;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid2)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.DataSet11)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.CategoryAdapter)).BeginInit;
  (System.ComponentModel.ISupportInitialize(Self.ProductAdapter)).BeginInit;
  Self.SuspendLayout;
  // 
  // DataGrid1
  // 
  Self.DataGrid1.CaptionText := 'Customers';
  Self.DataGrid1.DataMember := '';
  Self.DataGrid1.HeaderForeColor := System.Drawing.SystemColors.ControlText;
  Self.DataGrid1.Location := System.Drawing.Point.Create(7, 7);
  Self.DataGrid1.Name := 'DataGrid1';
  Self.DataGrid1.Size := System.Drawing.Size.Create(373, 171);
  Self.DataGrid1.TabIndex := 0;
  // 
  // DataGrid2
  // 
  Self.DataGrid2.CaptionText := 'Ouders';
  Self.DataGrid2.DataMember := '';
  Self.DataGrid2.HeaderForeColor := System.Drawing.SystemColors.ControlText;
  Self.DataGrid2.Location := System.Drawing.Point.Create(7, 186);
  Self.DataGrid2.Name := 'DataGrid2';
  Self.DataGrid2.Size := System.Drawing.Size.Create(373, 156);
  Self.DataGrid2.TabIndex := 1;
  // 
  // DataSet11
  // 
  Self.DataSet11.DataSetName := 'DataSet1';
  Self.DataSet11.Locale := System.Globalization.CultureInfo.Create('zh-CN');
  Self.DataSet11.Namespace := 'http://www.changeme.now/DataSet1.xsd';
  // 
  // 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=Administrator;provider=MSSQL';
  // 
  // CategoryAdapter
  // 
  Self.CategoryAdapter.Active := True;
  Self.CategoryAdapter.DataSet := Self.DataSet11;
  Self.CategoryAdapter.DataTable := Self.DataSet11.Categories;
  Self.CategoryAdapter.DeleteCommand := Self.bdpDeleteCommand1;
  Self.CategoryAdapter.InsertCommand := Self.bdpInsertCommand1;
  Self.CategoryAdapter.SelectCommand := Self.bdpSelectCommand1;
  Self.CategoryAdapter.StartRecord := 0;
  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(10)), (Byte(0)), 
        10, '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, 
        30, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryName', 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.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(10)), (Byte(0)), 
        10, '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, 
        30, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryName', 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.Categories';
  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.Categories SET CategoryI' +
  'D = ?, CategoryName = ?, Description = ?, Picture = ? WHERE CategoryID = ' +
  '? AND CategoryName = ?';
  Self.bdpUpdateCommand1.CommandType := System.Data.CommandType.Text;
  Self.bdpUpdateCommand1.Connection := Self.BdpConnection1;
  Self.bdpUpdateCommand1.ParameterCount := (SmallInt(6));
  Self.bdpUpdateCommand1.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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryName', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        30, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryName', System.Data.DataRowVersion.Current, nil));
  Self.bdpUpdateCommand1.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.bdpUpdateCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('C' +
      'ategoryNameOriginal', Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.Unknown, 
        30, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, 'CategoryName', System.Data.DataRowVersion.Original, nil));
  Self.bdpUpdateCommand1.SchemaName := nil;
  Self.bdpUpdateCommand1.Transaction := nil;
  Self.bdpUpdateCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;
  // 
  // ProductAdapter
  // 
  Self.ProductAdapter.Active := True;
  Self.ProductAdapter.DataSet := Self.DataSet11;
  Self.ProductAdapter.DataTable := Self.DataSet11.Products;
  Self.ProductAdapter.DeleteCommand := Self.bdpDeleteCommand2;
  Self.ProductAdapter.InsertCommand := Self.bdpInsertCommand2;
  Self.ProductAdapter.SelectCommand := Self.bdpSelectCommand2;
  Self.ProductAdapter.StartRecord := 0;
  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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        80, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)), 
        0, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        0, System.Data.ParameterDirection.Input, False, (Byte(10)), (Byte(0)), 
        10, '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, 
        40, System.Data.ParameterDirection.Input, False, (Byte(0)), (Byte(0)),
12 下一頁
?? 文件大小 5229 K
?? 上傳用戶 ludingpc
?? 所屬分類 Delphi控件源碼
??? 相關標簽

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

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

?? winform.pas.~2~

?? 快捷鍵說明
