editprice.pas

计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能 用户插卡错误信息显示

unit EditPrice;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids,
  Db, DBTables, ExtCtrls, ConstDef, FieldDef;

type
  TFrmEditPrice = class(TForm)
    DBNavPrice: TDBNavigator;
    BtnCancel: TButton;
    QueryPrice: TQuery;
    DataSourcePrice: TDataSource;
    DBGridPrice: TDBGrid;
    DBEditMark: TDBEdit;
    LabMark: TLabel;
    DBEditPriceName: TDBEdit;
    LabName: TLabel;
    Label1: TLabel;
    QueryPriceIEPriceKind: TIntegerField;
    QueryPriceSEPriceName: TStringField;
    QueryPriceFEPrice: TFloatField;
    QueryPriceSEPriceMark: TStringField;
    DBEditPrice: TDBEdit;
    procedure BtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure QueryPriceBeforePost(DataSet: TDataSet);
    procedure DBNavPriceClick(Sender: TObject; Button: TNavigateBtn);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEditPrice: TFrmEditPrice;

implementation

{$R *.DFM}

procedure TFrmEditPrice.BtnCancelClick(Sender: TObject);
begin
    ModalResult:=mrCancel;
end;

procedure TFrmEditPrice.FormCreate(Sender: TObject);
begin
  Session.AddPassword(Psw_EPKind);
end;

procedure TFrmEditPrice.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Session.RemovePassword(Psw_EPKind);
end;

procedure TFrmEditPrice.FormShow(Sender: TObject);
begin
  with QueryPrice do begin
     DatabaseName:=DefSrvAlias;
     close;
     SQL.Clear;
     SQL.Add('SELECT IEPriceKind,SEPriceName,FEPrice,SEPriceMark');
     SQL.Add('FROM "EPKind.DB"');
     Prepare;
     Open;
   end;
end;

procedure TFrmEditPrice.QueryPriceBeforePost(DataSet: TDataSet);
begin
  if wFunShowASK('确定要修改此项记录吗?',[mbYes]+[mbNo])<>mrYes
    then begin
      DBNavPrice.BtnClick(nbCancel); Abort;
    end;
end;

procedure TFrmEditPrice.DBNavPriceClick(Sender: TObject; Button: TNavigateBtn);
begin
  if Button=nbEdit then DBEditPriceName.SetFocus;
end;

end.