Linux上的DB2中生成动态数据输入表单 （3）

　　
　　procedure TForm1.btnGenerateClick(Sender: TObject);
　　var
　　i,Y: Integer;
　　comma: Boolean;
　　begin
　　ClientDataSet1.Active := False;
　　SQLDataSet1.CommandType := ctQuery;
　　SQLDataSet1.CommandText := 'SELECT ';
　　comma := False;
　　for i:=0 to Pred(CheckListBox1.Items.Count) do
　　begin
　　if CheckListBox1.Checked[i] then
　　begin
　　if not comma then comma := True
　　else
　　SQLDataSet1.CommandText := SQLDataSet1.CommandText + ', ';
　　SQLDataSet1.CommandText := SQLDataSet1.CommandText + CheckListBox1.Items[i]
　　end
　　end;
　　if ListBox1.ItemIndex >= 0 then
　　SQLDataSet1.CommandText :=
　　SQLDataSet1.CommandText + ' FROM ' + ListBox1.Items[ListBox1.ItemIndex];
　　//ShowMessage(SQLDataSet1.CommandText);
　　
　　ClientDataSet1.Active := True;
　　
　　PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1
　　end;