reserve.pas

DELPHI+ACCESS 客户关系管理

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.