unit1.pas

超级好用的韩国数据表控件一共5个 Korea, a data table control

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  URGrids, URMGrid, UCustomExcel, URealExcel, StdCtrls, URealDBExcel, Db,
  DBTables, URDBGrid;

type
  TForm1 = class(TForm)
    exMain: TRealExcel;
    grdReal: TRealGrid;
    cmReal: TButton;
    grdDB: TRealDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    cmDB: TButton;
    exDb: TRealDBExcel;
    chkReal: TCheckBox;
    chkDB: TCheckBox;
    procedure cmRealClick(Sender: TObject);
    procedure cmDBClick(Sender: TObject);
    procedure chkRealClick(Sender: TObject);
    procedure chkDBClick(Sender: TObject);
  private
    FCount  : Integer;
    FDBCount: Integer;

  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.cmRealClick(Sender: TObject);
var
  r, c: Integer;
begin
  with grdReal do
  begin
    Clear;

    for r := 0 to 5 do
    begin
      AddRow;

      for c := 0 to VColCount - 1 do
        Cells[c, r].AsString := 'hello' + IntToStr(c) + IntToStr(r);
    end;

    CalcFooters;
    Repaint;
  end;

  // 窍唱狼 竣伎俊辑 咯矾 sheet 甫 凯妨搁 酒贰贸烦...
  // SheetName狼 加己阑 官层林绊 促矫 Convert窍搁 凳.
  // 家胶 曼炼
  Inc(FCount);
  exMain.SheetName := 'Sheet' + IntToStr(FCount);
  ///////////////////////////////////////////////////

  exMain.Convert;
end;

procedure TForm1.cmDBClick(Sender: TObject);
begin
  table1.Active := True;
  grdDB.Repaint;

  Inc(FDBCount);
  exMain.SheetName := 'Sheet' + IntToStr(FDBCount);
  exDB.Convert;
end;

procedure TForm1.chkRealClick(Sender: TObject);
begin
  grdReal.GroupMode := chkReal.Checked;
end;

procedure TForm1.chkDBClick(Sender: TObject);
begin
  grdDB.GroupMode := chkDB.Checked;
end;

end.