dataribbon_mainform.pas

来自「source code for the Marco Cantu s book D」· PAS 代码 · 共 66 行

unit DataRibbon_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdActns, DBClientActns, DBActns, ActnList, DB, DBClient, Grids,
  DBGrids, Ribbon, RibbonLunaStyleActnCtrls, ActnMan, ImgList, ToolWin,
  ActnCtrls;

type
  TFormDataRibbon = class(TForm)
    ImageList1: TImageList;
    ActionManager1: TActionManager;
    Ribbon1: TRibbon;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ClientDataSet1: TClientDataSet;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    ClientDataSetUndo1: TClientDataSetUndo;
    FileOpen1: TFileOpen;
    FileExit1: TFileExit;
    RibbonPage1: TRibbonPage;
    RibbonGroup1: TRibbonGroup;
    RibbonGroup2: TRibbonGroup;
    RibbonGroup3: TRibbonGroup;
    procedure FormCreate(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormDataRibbon: TFormDataRibbon;

implementation

{$R *.dfm}

procedure TFormDataRibbon.FileOpen1Accept(Sender: TObject);
begin
  ClientDataSet1.Close;
  ClientDataSet1.FileName := FileOpen1.Dialog.FileName;
  Ribbon1.DocumentName := ClientDataSet1.FileName;
  ClientDataSet1.Open;
end;

procedure TFormDataRibbon.FormCreate(Sender: TObject);
begin
  ClientDataSet1.Open;
  Ribbon1.DocumentName := ClientDataSet1.FileName;
end;

end.