我買了infopower, 但其附的書所寫的說明, 實在是太少了 是否有其它的參考書, 或是文章 kaisheng

------
Number One

你可以參考『C:\Program Files\Woll2Woll\ip4000vcl7\demos\maindemo』下之Demo程式去學習！ Ian

引言: 我買了infopower, 但其附的書所寫的說明, 實在是太少了 是否有其它的參考書, 或是文章 kaisheng

謝謝您的回答!! 我大概DEMO了一下, 大致都有我要的說明 可是有一個功能找不到, 就是 能在wwdbgrid上按其title就能sort其欄位的record, 請問, 這個只要設屬性就好了, 還是要寫程式 新竹的小凱

這個要寫程式, Grid 的 TitleButton 按下會觸發事件 ,你自己在去更改 Grid.datasource.dataset 的 Index 屬性就可以了

引言: 這個要寫程式, Grid 的 TitleButton 按下會觸發事件 ,你自己在去更改 Grid.datasource.dataset 的 Index 屬性就可以了

Thank your answer!! 我找了一下,grid.datasource.dataset沒有index屬性 您指的屬性是什麼 ? wwdbgrid的title的欄位有好幾個, 請問用這個方法能讓按到不同的欄位也能sort 資料嗎? 新竹的小凱

我指的是 Index 的那幾個 Property , 像是 IndexfieldNames

引言: 我指的是 Index 的那幾個 Property , 像是 IndexfieldNames

james, 及版主您好: 您說在wwdbGrid的wwDBGrid1TitleButtonClick事件中, 更改wwGrid.datasource.dataset 的 IndexfieldNames屬性 要如何寫才能逹到"使用者一按title"就能sort資料呢? 新竹的小凱

看來這個分數還真難賺...  :)    

  object wwDBGrid1: TwwDBGrid
    Left = 32
    Top = 72
    Width = 521
    Height = 313
    DataSource = DataSource1
    TitleButtons = True
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    ProviderName = 'DataSetProvider1'
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'employee.db'
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Table1
    Constraints = True
  end

上面是一些dfm 的設定 ,於是你的程式碼很簡單 , 只要寫

procedure TForm1.wwDBGrid1TitleButtonClick(Sender: TObject;
  AFieldName: String);
begin
  ClientDataSet1.IndexFieldNames := AFieldName ;
end;

這是比較簡單的做法, 你可以自己再去變化做成可以遞增和遞減...

引言: 看來這個分數還真難賺... :)

  object wwDBGrid1: TwwDBGrid
    Left = 32
    Top = 72
    Width = 521
    Height = 313
    DataSource = DataSource1
    TitleButtons = True
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    ProviderName = 'DataSetProvider1'
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'employee.db'
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Table1
    Constraints = True
  end

上面是一些dfm 的設定 ,於是你的程式碼很簡單 , 只要寫

procedure TForm1.wwDBGrid1TitleButtonClick(Sender: TObject;
  AFieldName: String);
begin
  ClientDataSet1.IndexFieldNames := AFieldName ;
end;

這是比較簡單的做法, 你可以自己再去變化做成可以遞增和遞減...

James前輩, 這種作法使用者按每一個title都會sort資料嗎? 還有AFieldName 是代表什麼意思? 新竹的小凱

你自己試試看囉...

引言: 你自己試試看囉...

謝謝James前輩的幫助!! 新竹的小凱

我改用ado元件來用在gridontitleclick的事件下  adoquery1.Sort :=wwdbgrid1.SelectedField.FieldName  + 'ASC'; 不過會出現"item cannot be found in the collection corresponding to th erequested name or ordinal"的訊息!!     新竹的小凱

------
Number One

ASC字串前面要加空白, 就不會有這個問題了, 可是這樣還是不知sort其資料 新竹的小凱

------
Number One

來自網路網友的解答, 其指令應為 adoquery1.Sort:=AFieldName ' ASC' ; 寫了這一行之後就能正常WORK了, 可是我想 讓使用者再按一下title時能變為DEC不知該如何做 新竹的小凱

------
Number One

 
procedure TForm1.wwDBGrid1TitleButtonClick(Sender: TObject;
  AFieldName: String);
begin
  if adoquery1.Sort = AFieldName   ' ASC' then
    adoquery1.Sort = AFieldName   ' DESC' 
  else
    adoquery1.Sort = AFieldName   ' ASC' ;
end;