ClientDataSetの
使用方法
AS/400とClientDataSetの関連付け
レコードの抽出
インデックスの追加
ClientDataSetからAS/400への更新
ClientDataSetの
更新内容の取消
レコードの抽出
2/3
2/3
[Filter]ボタンをクリックしたときのイベントを記述します。
procedure
TForm1.Button2Click(Sender: TObject);
begin
if
Edit1.Text <> ''
then
begin
//STATEの指定時
ClientDataSet1.Filter := 'STATE = ''' + Edit1.Text + '''';
ClientDataSet1.Filtered := True;
end
else
begin
//STATEの指定なしなら Filter使用せず全件表示
ClientDataSet1.Filtered := False;
end;
end;
2/3