码迷,mamicode.com
首页 > 其他好文 > 详细

dac FDMemTable

时间:2020-01-09 14:44:32      阅读:86      评论:0      收藏:0      [点我收藏+]

标签:btn   vco   table   skinsharp   idt   pool   ini   update   syn   

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
  FireDAC.VCLUI.Wait, FireDAC.Phys.MSSQLDef, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.MSSQL, cxGraphics, cxControls,
  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, cxStyles,
  dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
  cxNavigator, Data.DB, cxDBData, FireDAC.Comp.Client, cxGridLevel, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
  cxGrid, FireDAC.Phys.ODBCBase, FireDAC.Comp.UI, FireDAC.Comp.DataSet,
  Vcl.StdCtrls, FireDAC.Stan.StorageXML, FireDAC.Stan.StorageJSON,
  FireDAC.Stan.StorageBin;

type
  TForm1 = class(TForm)
    FDQuery1: TFDQuery;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink;
    tv: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    ds1: TDataSource;
    con: TFDConnection;
    btn1: TButton;
    tvColumn1: TcxGridDBColumn;
    tvColumn2: TcxGridDBColumn;
    btn2: TButton;
    btn3: TButton;
    FDMemTable1: TFDMemTable;
    FDStanStorageXMLLink1: TFDStanStorageXMLLink;
    FDMemTable2: TFDMemTable;
    FDStanStorageJSONLink1: TFDStanStorageJSONLink;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//select * from tb_kswh
procedure TForm1.btn1Click(Sender: TObject);
begin
//  with FDQuery1  do
//  begin
//    close;
//    sql.Text:= ‘select sksbm,sksmc from tb_kswh‘;
//    open;
//  end;

//FDQuery1.Connection:= nil;

//  FDQuery1.Close;
//  FDQuery1.FieldDefs.Clear;
//  FDQuery1.FieldDefs.Add(‘sksbm‘,ftString,50);
//  FDQuery1.FieldDefs.Add(‘sksmc‘,ftString,50);
//  FDQuery1.CreateDataSet;

  FDMemTable1.Close;
  FDMemTable1.FieldDefs.Clear();
  FDMemTable1.FieldDefs.Add(sksbm, ftString, 50, false);
  FDMemTable1.FieldDefs.Add(sksmc, ftString, 50, false);
  FDMemTable1.CreateDataSet;


//  FDMemTable1.Append;
//  FDMemTable1.FieldByName(‘sksbm‘).AsString:= ‘1‘;
//  FDMemTable1.FieldByName(‘sksmc‘).AsString:= ‘1aa‘;
//  FDMemTable1.Append;
//  FDMemTable1.FieldByName(‘sksbm‘).AsString:= ‘2‘;
//  FDMemTable1.FieldByName(‘sksmc‘).AsString:= ‘2bb‘;
//  FDMemTable1.Post;
  FDMemTable1.AppendRecord([1, 1cc]);
  FDMemTable1.AppendRecord([2, 2cc]);
  FDMemTable1.AppendRecord([3, 3cc]);
  //FDMemTable1.Post;
  FDMemTable1.SaveToFile(a.xml);
   FDQuery1.LoadFromFile(a.xml);
  FDMemTable2.LoadFromFile(a.xml);
  ds1.DataSet:= FDMemTable1;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  i:Integer;
begin
//  tv.OptionsData.Editing:= true;
//  FDQuery1.Edit;
//  con.StartTransaction;
  FDMemTable1.Delete;
  FDMemTable1.SaveToFile(b.xml);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
//  FDQuery1.ApplyUpdates(0);//must
//  //FDQuery1.CommitUpdates; //no use
//  con.Commit;

  FDMemTable1.LoadFromFile(b.xml);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//  FDQuery1.CachedUpdates:= True;
//  tv.OptionsData.Editing:= false;
end;

end.

dac FDMemTable

标签:btn   vco   table   skinsharp   idt   pool   ini   update   syn   

原文地址:https://www.cnblogs.com/tobetterlife/p/12171374.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!