ueditkind.pas

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

unit UEditKind;

interface

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

type
  TfrmEditKind = class(TForm)
    memoMain: TMemo;
    Splitter2: TSplitter;
    grdMain: TRealGrid;
    tblMain: TTable;
    tblMainSYMBOL: TStringField;
    tblMainCO_NAME: TStringField;
    tblMainEXCHANGE: TStringField;
    tblMainCUR_PRICE: TFloatField;
    tblMainRISK: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure SelectData;
    
  public
  end;

implementation

{$R *.DFM}

const
  GD_SYMBOL    = 0;
  GD_CO_NAME   = 1;
  GD_EXCHANGE  = 2;
  GD_CUR_PRICE = 3;
  GD_BETA      = 4;
  GD_VAT       = 5;
  GD_RISK      = 6;
  GD_DATE      = 7;
  GD_TIME      = 8;

  Description = 'TwCustomGrid绰 拿烦伎阑 祈笼窍扁 困茄 割啊瘤 郴厘 祈笼扁甫 力傍钦聪促.' + #13#10 +
                '祈笼扁狼 汲沥篮 拿烦狼 EditStyle 加己苞 拿烦狼 磊丰屈俊 蝶扼 汲沥邓聪促. ' +
                'TRealGrid狼 版快 拿烦狼 DataType苞 Values啊 包访邓聪促.' + #13#10 +
                'Symbol 拿烦篮 扁夯利牢 Line Editor涝聪促.' + #13#10 +
                'Co_Name 拿烦篮 MultiText 祈笼扁涝聪促.' + #13#10 +
                'Exchange 拿烦篮 PickList 祈笼扁涝聪促.' + #13#10 +
                'Cur_Price 拿烦篮 Number 祈笼扁涝聪促.' + #13#10 +
                'Beta 拿烦篮 CheckBox 祈笼扁涝聪促.' + #13#10 +
                'Vat 拿烦篮 Boolean 祈笼扁涝聪促.' + #13#10 +
                'Risk 拿烦篮 RadioGroup 祈笼扁涝聪促.' + #13#10 +
                'Date 拿烦篮 朝楼 祈笼扁涝聪促.' + #13#10 +
                'Time 拿烦篮 矫埃 祈笼扁涝聪促.';

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

    while not EOF do
    begin
      AddRow;

      Cells[GD_SYMBOL   , RowCount - 1].AsString := FieldByName('Symbol'   ).AsString;
      Cells[GD_CO_NAME  , RowCount - 1].AsString := FieldByName('Co_Name'  ).AsString;
      Cells[GD_EXCHANGE , RowCount - 1].AsString := Trim(FieldByName('Exchange' ).AsString);
      Cells[GD_CUR_PRICE, RowCount - 1].AsFloat  := FieldByName('Cur_Price').AsFloat;
      Cells[GD_BETA     , RowCount - 1].AsBool   := RowCount mod 3 = 1;
      Cells[GD_VAT      , RowCount - 1].AsBool   := Boolean(RowCount mod 2);
      Cells[GD_RISK     , RowCount - 1].AsString := FieldByName('Risk'     ).AsString;
      Cells[GD_DATE     , RowCount - 1].AsDate   := Date;
      Cells[GD_TIME     , RowCount - 1].AsTime   := Time;

      Next;
    end;

    Close;
  end;
end;

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

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

end.