bespeak.~pas

来自「针对快餐店的会员管理系统.具有详细的分类及管理作用」· ~PAS 代码 · 共 138 行

unit Bespeak;

interface

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

type
  TBespeakForm = class(TForm)
    Panel1: TPanel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    cxGrid1: TcxGrid;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    RadioGroup: TRzRadioGroup;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure RadioGroupChanging(Sender: TObject; NewIndex: Integer;
      var AllowChange: Boolean);
    //预约安排
    procedure ChangeBespeak(ID:Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BespeakForm: TBespeakForm;

implementation

uses DM, EditBespeak, MAIN, Option;

{$R *.dfm}

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

procedure TBespeakForm.N1Click(Sender: TObject);
begin
//显示客户预约详情
   if DM1.ADODataSet9.RecordCount>0 then begin
      with DM1 do GoToDataSet(ADODataSet9,ADODataSet8);
      EditBespeakForm.ShowModal;
   end;
end;

procedure TBespeakForm.FormCreate(Sender: TObject);
begin
   RadioGroup.ItemIndex:=5;
end;

procedure TBespeakForm.N3Click(Sender: TObject);
begin
  DM1.ADODataSet9.Requery();
end;

procedure TBespeakForm.N5Click(Sender: TObject);
begin
  MainForm.PrintReport(4);
end;

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

procedure TBespeakForm.RadioGroupChanging(Sender: TObject;
  NewIndex: Integer; var AllowChange: Boolean);
begin
  ChangeBespeak(NewIndex);
end;

procedure TBespeakForm.ChangeBespeak(ID: Integer);
begin
   if not ID in[0,1,2,3]then Exit;
   with DM1.ADODataSet9 do try
      Close;
      case ID of
         0  :  begin
                 CommandText:='select * from ClientBespeak where Dates =:PM';
                 Parameters.ParamByName('PM').Value:=FormatDateTime(ShortDateFormat,Now);
               end;
         1  :  begin
                 CommandText:='select * from ClientBespeak where Dates =:PM';
                 Parameters.ParamByName('PM').Value:=FormatDateTime(ShortDateFormat,Now+1);
               end;

         2  :  CommandText:='select * from ClientBespeak where Dates '+MainForm.OutToStarAndEnd;
         3  :  begin
                 CommandText:='select * from ClientBespeak where Dates >=:PM and Dates<=:PMB';
                 Parameters.ParamByName('PM').Value:=FormatDateTime(ShortDateFormat,Now);
                 Parameters.ParamByName('PMB').Value:=FormatDateTime(ShortDateFormat,Now+OptionForm.RzSpinEdit1.Value);
               END;
         4  :  begin
                 CommandText:='select * from ClientBespeak where Dates <:PM';
                 Parameters.ParamByName('PM').Value:=FormatDateTime(ShortDateFormat,Now);
               end;
         5  :  CommandText:='select * from ClientBespeak';
      end;
      Open;
   except
      Messagebox(handle,'数据库操作出现意外错误！','错误',MB_OK+MB_ICONERROR);
      Close;
      CommandText:='select * from ClientBespeak';
      Open;
   end;
end;

end.