selllist.pas

针对快餐店的会员管理系统.具有详细的分类及管理作用

unit SellList;

interface

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

type
  TSellListForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    KeyList: TRzComboBox;
    List: TRzComboBox;
    Key: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    RzBitBtn3: TRzBitBtn;
    N6: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure KeyKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListChange(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SellListForm: TSellListForm;

implementation

uses DM, MAIN, Editsell, Search, ClientList;

{$R *.dfm}

procedure TSellListForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TSellListForm.N1Click(Sender: TObject);
begin
if DM1.SellList.RecordCount>0 then begin
  with DM1 do GoToDataSet(SellList,ADODataSet6);
  EditSellForm.ShowModal;
end;
end;

procedure TSellListForm.N3Click(Sender: TObject);
begin
  DM1.SellList.Requery();
end;

procedure TSellListForm.RzBitBtn3Click(Sender: TObject);
begin
   MainForm.PrintReport(5);
end;

procedure TSellListForm.RzBitBtn2Click(Sender: TObject);
begin
   //复位搜索内容
   with DM1.SellList do try
      Close;
      CommandText:='Select * from ProductSell';
      Open;
   except
   end;
end;

procedure TSellListForm.RzBitBtn1Click(Sender: TObject);
var
   S,S1  : String;
   Dates : TDateTime;
begin
//搜索产品销售信息
  if (KeyList.ItemIndex<0)or(List.ItemIndex<0)or(((List.ItemIndex=0)or(List.ItemIndex=1))and(Key.Text=''))then begin
     Messagebox(handle,'请输入完整的搜索信息后再试！','提示',MB_OK+MB_ICONWARNING);
     Exit;
  end;

  S1:=SearchForm.TransformData('ProductSell',KeyList.Text);
  case List.ItemIndex of
     0  :  S:=s1+'='+ Key.Text;
     1  :  S:=s1+' Like '+''''+'%'+Key.Text+'%'+'''';
     2  :  S:=s1+' is Null or '+S1+'='+''''+'''';
     3  :  S:=s1+' <> Null or '+S1+'<>'+''''+'''';
  end;

  if KeyList.Text='开单日期'then begin
     S := 'SellDate =:KD';
     try
        Dates:=StrToDate(Key.Text);
     except
        Messagebox(handle,'您输入的日期格式不正确，请按照“2008-01-01”的格式重新输入！','错误',MB_OK+MB_ICONERROR);
        Exit;
     end;
  end;


  with DM1.SellList do try
     Close;
     CommandText:='Select * from ProductSell where '+ S;
     if KeyList.Text='开单日期'then
        Parameters.ParamByName('KD').Value:=FormatDateTime(ShortDateFormat,Dates);

     Open;
      if RecordCount=0 then begin
         Messagebox(handle,PChar('没有找到任何关于“'+Key.Text+'”的产品销售记录，请点击确定返回！'),'信息',MB_OK+MB_ICONINFORMATION);
         Close;
         CommandText:='Select * from ProductSell';
         Open;
      end;
   except
      RzBitBtn2Click(sender);
      Messagebox(handle,'搜索产品销售记录失败，请检查所输入的关键词是否正确！','错误',MB_OK+MB_ICONERROR);
   end;
end;

procedure TSellListForm.KeyKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
     RzBitBtn1.Click;
end;

procedure TSellListForm.ListChange(Sender: TObject);
begin
   case List.ItemIndex of
      0,1  :  Key.Enabled:=true;
      2,3  :  Key.Enabled:=false;
   end;
end;

procedure TSellListForm.N6Click(Sender: TObject);
begin
   cxGrid1DBTableView1.Filtering.RunCustomizeDialog();
end;

end.