sortform.pas

来自「一个全面的客户管理系统,是用delphi开发的,界面和功能都很不错的」· PAS 代码 · 共 76 行

unit SortForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzTabs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, RzButton, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ExtCtrls, RzPanel, RzRadGrp, StdCtrls;

type
  TSortSetForm = class(TForm)
    RzRadioGroup1: TRzRadioGroup;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1Items: TcxGridDBColumn;
    Label1: TLabel;
    procedure RzRadioGroup1Changing(Sender: TObject; NewIndex: Integer;
      var AllowChange: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure cxGrid1DBTableView1EditValueChanged(
      Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SortSetForm: TSortSetForm;

implementation

uses DM;

{$R *.dfm}

procedure TSortSetForm.RzRadioGroup1Changing(Sender: TObject;
  NewIndex: Integer; var AllowChange: Boolean);
begin
   AllowChange:=true;
   with DM1.ADOSort do try
      Filtered:=false;
      DisableControls;
      Filter:='Sorts='+''''+RzRadioGroup1.Items.Strings[NewIndex]+'''';
      Filtered:=true;
      EnableControls;
   except
   end;
end;

procedure TSortSetForm.FormCreate(Sender: TObject);
begin
   RzRadioGroup1.ItemIndex:=0;
end;

procedure TSortSetForm.cxGrid1DBTableView1EditValueChanged(
  Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
begin
   DM1.LoadSortData;
end;

procedure TSortSetForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_F5 then
      DM1.ADOSort.Requery();
end;

end.