You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
79 lines
1.7 KiB
Plaintext
79 lines
1.7 KiB
Plaintext
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['ÊÇ·ñ¿ÉÊÓ']:=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['ÊÇ·ñ¿ÉÊÓ']:=0;
|
|
t_op.post;
|
|
t_op.next;
|
|
end;
|
|
end;
|
|
|
|
end.
|