ueditkind2.pas

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

unit UEditKind2;

interface

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

type
  TfrmEditKind2 = class(TForm)
    memoMain: TMemo;
    tblMain: TTable;
    grdMain: TRealGrid;
    tblMainEvent_Name: TStringField;
    tblMainEvent_Description: TMemoField;
    tblMainEvent_Photo: TGraphicField;
    tblMainEventNo: TAutoIncField;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure grdMainGetImage(AColumn: TwMemColumn; ARow: Integer;
      Image: TBitmap);
  private
    procedure SelectData;

  public
  end;

implementation

{$R *.DFM}

const
  GD_NO          = 0;
  GD_NAME        = 1;
  GD_DESCRIPTION = 2;
  GD_PHOTO       = 3;

  Description = 'TCustomGrid绰 滴俺狼 郴厘 BLOB 俊叼磐甫 力傍钦聪促.' + #13#10 +
                '窍唱绰 memo 祈笼扁捞绊 窍唱绰 bitmap 祈笼扁涝聪促.' + #13#10 +
                '酒贰狼 TRealGrid 俊辑 Description 拿烦篮 memo 祈笼扁肺 祈笼登绊, ' +
                'Photo 拿烦篮 bitmap 祈笼扁肺 祈笼钦聪促.' + #13#10 +
                '促父 TRealGrid俊辑 memo string篮 弊府靛啊 单捞磐甫 啊柳 盲肺 祈笼捞 啊瓷窍瘤父 ' +
                'Bitmap 捞固瘤绰 弊府靛狼 滚欺俊 焊包窍瘤 臼绊 捞亥飘甫 烹秦 磊丰甫 涝免仿钦聪促.' + #13#10 +
                '抗力俊辑绰 捞固瘤甫 抛捞喉肺 何磐 啊廉坷变 窍瘤父 祈笼扁甫 烹茄 函版篮 贸府窍瘤 臼疽嚼聪促.';

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

    while not EOF do
    begin
      AddRow;

      Cells[GD_NO         , RowCount - 1].AsLong   := FieldByName('EventNo'          ).AsInteger;
      Cells[GD_NAME       , RowCount - 1].AsString := FieldByName('Event_Name'       ).AsString;
      Cells[GD_DESCRIPTION, RowCount - 1].AsString := FieldByName('Event_Description').AsString;

      Next;
    end;

    //Close;
  end;
end;

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

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

procedure TfrmEditKind2.grdMainGetImage(AColumn: TwMemColumn;
  ARow: Integer; Image: TBitmap);
begin
  with tblMain, grdMain do
  begin
    Locate('EventNo', Cells[GD_NO, ARow].AsLong, []);
    Image.Assign(tblMain.FieldByName('Event_Photo'));
  end;
end;

end.