【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-fMyBaseMain.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    unit fMyBaseMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DBXpress, DBClient, Grids, DBGrids, ExtCtrls, DBCtrls, DB,
      SimpleDS, SqlExpr, StdCtrls, Buttons, WideStrings;
    
    type
      TForm1 = class(TForm)
        sdsPerformers: TSimpleDataSet;
        DataSource1: TDataSource;
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        cdsDelta: TClientDataSet;
        dsDelta: TDataSource;
        DBNavigator2: TDBNavigator;
        DBGrid2: TDBGrid;
        Panel1: TPanel;
        rbtnBinary: TRadioButton;
        rbtnXML: TRadioButton;
        BitBtn4: TBitBtn;
        BitBtn3: TBitBtn;
        Edit1: TEdit;
        Button1: TButton;
        D2006HDBP: TSQLConnection;
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure sdsPerformersAfterPost(DataSet: TDataSet);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    const
      TFILENAME = 'TempMyBase';
      
    procedure TForm1.BitBtn3Click(Sender: TObject);
    begin
      if (Self.rbtnBinary.Checked) then
        Self.sdsPerformers.SaveToFile(TFILENAME)
      else
      begin
        Self.sdsPerformers.SaveToFile(TFILENAME+ '.XML', dfXMLUTF8);
      end;
    end;
    
    procedure TForm1.BitBtn4Click(Sender: TObject);
    begin
      Self.sdsPerformers.Active := False;
      if (Self.rbtnBinary.Checked) then
        Self.sdsPerformers.LoadFromFile(TFILENAME)
      else
        Self.sdsPerformers.LoadFromFile(TFILENAME + '.XML');
    
      Edit1.Text := IntToStr(Self.sdsPerformers.ChangeCount);
      cdsDelta.Data := Self.sdsPerformers.Delta;
    end;
    
    procedure TForm1.sdsPerformersAfterPost(DataSet: TDataSet);
    begin
      cdsDelta.Data := Self.sdsPerformers.Delta;
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Self.sdsPerformers.ApplyUpdates(0);
    end;
    
    end.