 |
AS/400とClientDataSetの関連付け |
7/8 |
 |
|
 |
7/8 |
 |
次にボタンクリック時(ButtonのOnClickイベント)と画面生成時（FormのOnCreateイベント）に次のようにコードを記述します。
|
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Active := False;
ClientDataSet1.Active := True;
end;
procedure TForm1.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
ClientDataSet1.Active := False;
end;
|
|
|
7/8 |
|
|
