reserve.pas

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

unit Reserve;

interface

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

type
  TProducts = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    N6: TMenuItem;
    N7: TMenuItem;
    cxGrid1: TcxGrid;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1ID: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn2: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn3: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn4: TcxGridDBColumn;
    cxGrid1DBTableView1DBColumn5: TcxGridDBColumn;
    N8: TMenuItem;
    N9: TMenuItem;
    cxGrid1DBTableView1DBColumn6: TcxGridDBColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    //编辑产品信息
    procedure EidtProducts(ID:Integer);
    procedure N1Click(Sender: TObject);
    procedure cxGrid1DBTableView1DblClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Products: TProducts;

implementation

uses DM, Editproduct, MAIN;

{$R *.dfm}

procedure TProducts.EidtProducts(ID: Integer);
begin
//编辑产品信息
   case ID of
      1 : DM1.ADODataSet5.Append;
      3 : DM1.ADODataSet5.Delete;
      4 : begin
            with DM1.ADODataSet5 do try
              Close;
              CommandText:='Select * from ProductInfo';
              Open;
            except
            end;
          end;
      5 : DM1.ADODataSet5.Requery();
      6 : cxGrid1DBTableView1.Filtering.RunCustomizeDialog();
   end;
   
   case ID of
      1,2 : EditProductForm.ShowModal;
   end;
end;

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

procedure TProducts.N1Click(Sender: TObject);
begin
   EidtProducts(TpopupMenu(sender).Tag);
end;

procedure TProducts.cxGrid1DBTableView1DblClick(Sender: TObject);
begin
  EidtProducts(2);
end;

procedure TProducts.N7Click(Sender: TObject);
begin
   MainForm.PrintReport(6);
end;

end.