ugroupmode.pas

Korea, a data table control 韩国控件的DEMO 值得学习

unit UGroupMode;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  URGrids, ExtCtrls, StdCtrls, Db, DBTables;

type
  TfrmGroupMode = class(TForm)
    memoMain: TMemo;
    Splitter1: TSplitter;
    grdMain: TRealGrid;
    tblMain: TTable;
    tblMainCustNo: TAutoIncField;
    tblMainLast_Name: TStringField;
    tblMainFirst_Name: TStringField;
    tblMainVIP_Status: TStringField;
    tblMainAddress1: TStringField;
    tblMainAddress2: TStringField;
    tblMainCity: TStringField;
    tblMainStateProv: TStringField;
    tblMainPost_Code: TStringField;
    tblMainCountry: TStringField;
    tblMainPhone: TStringField;
    tblMainFax: TStringField;
    tblMainEMail: TStringField;
    tblMainRemarks: TMemoField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure grdMainHeaderTitleClick(Sender: TObject);
  private
    procedure SelectData;

  public
  end;

implementation

{$R *.DFM}

const
  GD_CUSTNO     = 0;
  GD_LASTNAME   = 1;
  GD_FIRSTNAME  = 2;
  GD_VIPSTATUS  = 3;
  GD_ADDRESS1   = 4;
  GD_ADDRESS2   = 5;
  GD_CITY       = 6;
  GD_STATE_PROV = 7;
  GD_POSTCODE   = 8;
  GD_COUNTRY    = 9;
  GD_PHONE      = 10;
  GD_FAX        = 11;
  GD_EMAIL      = 12;
  GD_REMARKS    = 13;

  Description = '汗棱窍芭唱 茄波锅俊 钎矫窍扁 塞电 拿烦甸阑 GroupMode甫 烹秦 ' +
                '焊促 埃搬窍霸 钎矫且 荐 乐嚼聪促. ' +
                '酒贰 弊府靛狼 Olive 祸惑栏肺 钎矫等 HeaderTitle阑 努腐窍搁 ' +
                'GroupMode肺 备己等 葛嚼阑 焊角 荐 乐嚼聪促.' + #13#10 +
                'Group篮 窜瘤 拿烦阑 犁备己窍绰 开劝 寇俊绰 酒公老档 窍瘤 臼嚼聪促. ' +
                '溜, 单捞磐狼 涝免仿篮 坷肺瘤 拿烦阑 烹秦辑父 捞风绢笼聪促. ' +
                'Group篮 荤侩磊肺 窍咯陛 焊促 流包利栏肺 单捞磐甫 凯恩且 荐 乐档废 ' +
                '拿烦甸狼 困惑阑 犁备己 秦临 蝶抚涝聪促.' + #13#10 +
                'GroupMode客 ColumnMode埃狼 傈券篮 弊府靛狼 GroupMode, ColumnMode 加己阑 烹秦 ' +
                '捞风绢 笼聪促. 酒贰狼 版快 OnHeaderTitleClick 捞亥飘俊辑 贸府窍看嚼聪促.';

(*** Private Methods ***)
procedure TFrmGroupMode.SelectData;
begin
  with tblMain, grdMain do
  begin
    Open;

    while not EOF do
    begin
      AddRow;

      Cells[GD_CUSTNO    , RowCount - 1].AsInteger := FieldByName('CustNo'    ).AsInteger;
      Cells[GD_LASTNAME  , RowCount - 1].AsString  := FieldByName('Last_Name' ).AsString;
      Cells[GD_FIRSTNAME , RowCount - 1].AsString  := FieldByName('First_Name').AsString;
      Cells[GD_VIPSTATUS , RowCount - 1].AsString  := FieldByName('VIP_Status').AsString;
      Cells[GD_ADDRESS1  , RowCount - 1].AsString  := FieldByName('Address1'  ).AsString;
      Cells[GD_ADDRESS2  , RowCount - 1].AsString  := FieldByName('Address2'  ).AsString;
      Cells[GD_CITY      , RowCount - 1].AsString  := FieldByName('City'      ).AsString;
      Cells[GD_STATE_PROV, RowCount - 1].AsString  := FieldByName('State/Prov').AsString;
      Cells[GD_POSTCODE  , RowCount - 1].AsString  := FieldByName('Post_Code' ).AsString;
      Cells[GD_COUNTRY   , RowCount - 1].AsString  := FieldByName('Country'   ).AsString;
      Cells[GD_PHONE     , RowCount - 1].AsString  := FieldByName('Phone'     ).AsString;
      Cells[GD_FAX       , RowCount - 1].AsString  := FieldByName('Fax'       ).AsString;
      Cells[GD_EMAIL     , RowCount - 1].AsString  := FieldByName('EMail'     ).AsString;
      Cells[GD_REMARKS   , RowCount - 1].AsString  := FieldByName('Remarks'   ).AsString;

      Next;
    end;

    Close;
  end;
end;

(*** Event Handlers ***)
procedure TfrmGroupMode.FormCreate(Sender: TObject);
begin
  SelectData;
  memoMain.Lines.Text := Description;
end;

procedure TfrmGroupMode.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmGroupMode.grdMainHeaderTitleClick(Sender: TObject);
begin
  grdMain.GroupMode := not grdMain.GroupMode;
end;

end.