sortform.pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· 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.