取 wwdbgrid 里修改过的值 在线...

Question

wwdbgrid 里面有一个字段是可以修改的(受理日期),
比如原受理日期为2009-1-1 现在我在wwdbgrid 里修改成2010-12-1.
怎样去取这两个值的差值?
object qrMain: TwwQuery
    CachedUpdates = True
    DatabaseName = 'Misassure'
    SQL.Strings = (
      'select * from app_accountpro t where 1=2')
    UpdateObject = usMain
    ValidateWithMask = True
    Left = 80
    Top = 64
    object qrMainREGISTER_ID: TStringField
      DisplayLabel = '受理号'
      DisplayWidth = 10
      FieldName = 'REGISTER_ID'
      Origin = 'MISASSURE.APP_ACCOUNTPRO.REGISTER_ID'
      Size = 10
    end
    object qrMainACC_DATE: TDateTimeField
      FieldName = 'ACC_DATE'
      Origin = 'ASSURE.APP_ACCOUNTPRO.ACC_DATE'
    end-------------------------------------------------------
object d_grdMain: TwwDBGrid
    Left = 0
    Top = 65
    Width = 760
    Height = 368
    Selected.Strings = (
      'REGISTER_ID'#9'10'#9'受理号'#9'T'
      'ACC_DATE'#9'18'#9'受理日期'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsMain
    KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
    TabOrder = 1
    

Answer 1

你只要能把前后两个值变为日期型的就可以了，然后delphi自身有函数UnitDateUtilsfunction DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 2

我知道 通过query 可以得到一个值，那还有一个呢。。
有没有类似dbgrid.cell[index].text 之类的属性？

Answer 3

我自己顶一下.
可能我讲的太乱了.
dbgrid 能不能不通过绑定的控件(query)取值.

Answer 4

TupdateSQL 控件就可以实现这个功能。