unit p_mychef;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, cxGridCustomTableView, cxGridCardView,
  cxGridDBCardView, Db, DBTables, RzButton, ExtCtrls, RzPanel, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, Buttons, IvDictio,
  IvMulti;

type
  Tf_mychef = class(TForm)
    cxGrid1: TcxGrid;
    cxGrid1DBCardView1: TcxGridDBCardView;
    cxGrid1Level1: TcxGridLevel;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1ID: TIntegerField;
    Query1MID: TIntegerField;
    Query1DESCR: TStringField;
    cxGrid1DBCardView1DESCR: TcxGridDBCardViewRow;
    cxGrid1DBCardView1Row1: TcxGridDBCardViewRow;
    cxGrid1DBCardView1Row2: TcxGridDBCardViewRow;
    IvTranslator1: TIvTranslator;
    RzPanel1: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    Query2: TQuery;
    Query2descr: TStringField;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cxGrid1DBCardView1CellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_mychef: Tf_mychef;mys:string;

implementation

uses p_posmodule;

{$R *.DFM}

procedure Tf_mychef.FormShow(Sender: TObject);
begin
query1.open;

end;

procedure Tf_mychef.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
query1.close;

end;

procedure Tf_mychef.cxGrid1DBCardView1CellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin

mys:= DataSource1.DataSet.fieldbyname('DESCR').AsString;
modalresult:=mrok;
end;

end.
