TFDMemTable 更新到数据库

设计界面

 

code

 

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 569
  ClientWidth = 812
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 201
    Width = 812
    Height = 343
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 544
    Width = 812
    Height = 25
    DataSource = DataSource1
    Align = alBottom
    TabOrder = 1
    ExplicitWidth = 980
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 812
    Height = 201
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 2
    ExplicitWidth = 980
    object btnULastChange: TButton
      Left = 360
      Top = 170
      Width = 249
      Height = 25
      Caption = 'UndoLastChange'
      TabOrder = 0
    end
    object btnRevertPoint: TButton
      Left = 143
      Top = 170
      Width = 193
      Height = 25
      Caption = 'RevertPoint'
      TabOrder = 1
    end
    object btnSavePoint: TButton
      Left = 8
      Top = 170
      Width = 129
      Height = 25
      Caption = 'SavePoint'
      TabOrder = 2
    end
    object btnApplyUpdates: TButton
      Left = 632
      Top = 170
      Width = 169
      Height = 25
      Caption = 'Apply Updates'
      TabOrder = 3
      OnClick = btnApplyUpdatesClick
    end
  end
  object FDConnection1: TFDConnection
    Params.Strings = (
      'Database=Northwind'
      'User_Name=sa'
      'Password=123'
      'Server=(local)'
      'DriverID=MSSQL')
    Connected = True
    LoginPrompt = False
    Left = 40
    Top = 24
  end
  object FDCommand1: TFDCommand
    Connection = FDConnection1
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    CommandText.Strings = (
      'SELECT [OrderID]'
      '      ,[CustomerID]'
      '      ,[EmployeeID]'
      '      ,[OrderDate]'
      '      ,[RequiredDate]'
      '      ,[ShippedDate]'
      '      ,[ShipVia]'
      '      ,[Freight]'
      '      ,[ShipName]'
      '      ,[ShipAddress]'
      '      ,[ShipCity]'
      '      ,[ShipRegion]'
      '      ,[ShipPostalCode]'
      '      ,[ShipCountry]'
      '  FROM [Northwind].[dbo].[Orders]')
    Left = 160
    Top = 24
  end
  object FDMemTable1: TFDMemTable
    Active = True
    CachedUpdates = True
    IndexFieldNames = 'OrderID'
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    Adapter = FDTableAdapter1
    Left = 448
    Top = 24
  end
  object FDTableAdapter1: TFDTableAdapter
    DatSTableName = 'FDMemTable1'
    SelectCommand = FDCommand1
    Left = 292
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = FDMemTable1
    Left = 368
    Top = 184
  end
end

 

 

 

 

>>>>>>>>>>>>>>>>>>>>>

procedure TForm2.btnApplyUpdatesClick(Sender: TObject);
begin
      FDMemTable1.ApplyUpdates;
end;