DS6JIEFENG/公用模块/系统模块/u_sys_data_price.pas

unit u_sys_data_price;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dxExEdtr, Menus, DB, ADODB, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, bsSkinCtrls, XPMenu;

type
  Tfra_sys_data_price = class(TFrame)
    bsSkinGroupBox9: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridCheckColumn;
    t_op: TADOQuery;
    t_op1: TDataSource;
    PopupMenu1: TPopupMenu;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    XPMenu1: TXPMenu;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure Tfra_sys_data_price.bsSkinButton2Click(Sender: TObject);
var
  Pnt:Tpoint;
begin
  Pnt:=bsSkinButton2.ClientToScreen(Point(0,bsSkinButton2.Height));
  PopupMenu1.Popup(Pnt.x,Pnt.y); 
end;

procedure Tfra_sys_data_price.bsSkinButton5Click(Sender: TObject);
begin
  if (t_op.State=dsedit)or(t_op.State=dsinsert)then
    t_op.post;
end;

procedure Tfra_sys_data_price.N12Click(Sender: TObject);
begin
  t_op.first;
  while not t_op.eof do
  begin
    t_op.edit;
    t_op['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
    t_op.post;
    t_op.next;
  end;
end;

procedure Tfra_sys_data_price.N14Click(Sender: TObject);
begin
  t_op.first;
  while not t_op.eof do
  begin
    t_op.edit;
    t_op['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
    t_op.post;
    t_op.next;
  end;
end;

end.