看过一个软件，是查询结果可以自己设置，即自己设置哪些列显示，哪些列不显示，或者按一个默认的方式显示，并且可以调整列的显示顺序，即哪列在前，哪列在后。想了好久没有解决的好方法，请教各位了，不胜感谢~ 我的电子邮件是：zwhu@sohu.com，再次感谢！ 心灵琴音界 灵透结界石

------
心灵琴音界
灵透结界石

您好﹗    小弟做了一個有關這方面的範例﹐完整程式碼如下﹐您也可至此下載﹕ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=36615 ============================================================================

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, Grids, DBGrids, DB, ADODB, Buttons, DBCommon;    type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Memo1: TMemo;
    CheckListBox1: TCheckListBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Memo2: TMemo;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckListBox1Click(Sender: TObject);
    procedure ADOQuery1AfterClose(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  if Memo1.Lines.Text <> '' then
    Try
      ADOQuery1.SQL.Add(Memo1.Lines.Text);
      ADOQuery1.Open;
    Except
      ShowMessage('SQL語法錯誤!');
    end
  else
    begin
      Memo1.SetFocus;
      ShowMessage('無SQL查詢語法!')
    end;
end;    procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  I,J : Integer;
begin
  CheckListBox1.Items.Clear;
  For I:=0 To ADOQuery1.FieldCount-1 do
  CheckListBox1.Items.Add(ADOQuery1.Fields[I].FieldName);
  For J:=0 To CheckListBox1.Items.Count-1 do
  CheckListBox1.Checked[J] := True;
  Label4.Caption := GetTableNameFromSQL(ADOQuery1.SQL.Text);
end;    procedure TForm1.Button2Click(Sender: TObject);
Var
  I : Integer;
begin
  DBGrid1.Columns.Clear;
  For I:=0 To CheckListBox1.Items.Count-1 do
    begin
      DBGrid1.Columns.Add;
      DBGrid1.Columns[I].FieldName := CheckListBox1.Items.Strings[I];
      if CheckListBox1.Checked[I] then
        DBGrid1.Columns[I].Visible := True
      else
        DBGrid1.Columns[I].Visible := False;
    end;
end;    procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  I : Integer;
begin
    CheckListBox1.Items.Exchange(CheckListBox1.ItemIndex,0);
    DBGrid1.Columns.Clear;
    For I:=0 To CheckListBox1.Items.Count-1 do
      begin
        DBGrid1.Columns.Add;
        DBGrid1.Columns[I].FieldName := CheckListBox1.Items.Strings[I];
        if CheckListBox1.Checked[I] then
          DBGrid1.Columns[I].Visible := True
        else
          DBGrid1.Columns[I].Visible := False;
      end;
end;    procedure TForm1.FormActivate(Sender: TObject);
begin
  Memo1.SetFocus;
  Memo1.Lines.Text := 'Select * From 訂單';
  Memo1.SelectAll;
end;    procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  BitBtn1.Enabled := True;
end;    procedure TForm1.ADOQuery1AfterClose(DataSet: TDataSet);
begin
  Label4.Caption := '';
  CheckListBox1.Items.Clear;
end;    end.

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

可以用 ado Tadoquery+Tdatasource+Tdbgrid 或 bde Tquery++Tdatasource+Tdbgrid    方法如下： ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Text :='select field1,...,fieldn form mytable ...'; ADOQuery1.Open ; 设置： DataSource1.DataSet :=adoquery1; dbgrid1.DataSource :=DataSource1; 对于不同查询结果的现实，只需要将红色部分的sql改变就可以了

提供一個比較沒效率的方法, 開一個空的DataSet去塞資料, 效率比較不好, 但卻可達成你的需要, 或是使用Filter,在 OnFilterRecord上作篩選. 發表人 - miles 於 2003/08/31 21:06:36

------


我不是高手, 高手是正在銀幕前微笑的人.

TO：cashxin2002 多谢你的代码，我看了后解决了我的问题。 心灵琴音界 灵透结界石

------
心灵琴音界
灵透结界石