showresult.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 64 行

unit ShowResult;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, DB, ADODB, ExtCtrls, StdCtrls;

type
  TfrmShowResult = class(TForm)
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmShowResult: TfrmShowResult;

implementation

{$R *.dfm}
uses BaseExport;

procedure TfrmShowResult.Button1Click(Sender: TObject);
var
    find_export:TfrmBaseExport;
begin
    find_export:=TfrmBaseExport.DefineCreate(find_export,self.AdoQuery1,self.DBGridEh1);
    find_export.ShowModal;
end;

procedure TfrmShowResult.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
    if Column.Title.SortMarker=smNoneEh then
    begin
        Column.Title.SortMarker:=smDownEh;
        self.ADOQuery1.Sort:=Column.FieldName+' DESC';
    end
        //ShowMessage('smNoneEh')
    else if Column.Title.SortMarker=smDownEh then
    begin
        Column.Title.SortMarker:=smUpEh;
        self.ADOQuery1.Sort:=Column.FieldName+' ASC';
    end
        //ShowMessage('smDownEh')
    else if Column.Title.SortMarker=smUpEh then
    begin
        column.Title.SortMarker:=smDownEh;
        self.ADOQuery1.Sort:=Column.FieldName+' DESC';
    end;
end;

end.