editclnt.pas

来自「计量功能 事件记录 购电提醒 欠费报警 负荷控制 自检功能 显示功能」· PAS 代码 · 共 81 行

unit EditClnt;

interface

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

type
  TFrmEditClnt = class(TForm)
    DataSourceSoftInfo: TDataSource;
    TableSoftInfo: TTable;
    DBGridSoftInfo: TDBGrid;
    DBEditHostName: TDBEdit;
    DBEditSoftID: TDBEdit;
    LabHost: TLabel;
    LabID: TLabel;
    DBNavSoftInfo: TDBNavigator;
    BtnCancel: TButton;
    TableSoftInfoSHostName: TStringField;
    TableSoftInfoSSoftID: TStringField;
    procedure BtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TableSoftInfoBeforeOpen(DataSet: TDataSet);
    procedure TableSoftInfoAfterClose(DataSet: TDataSet);
    procedure TableSoftInfoBeforePost(DataSet: TDataSet);
    procedure DBNavSoftInfoClick(Sender: TObject; Button: TNavigateBtn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEditClnt: TFrmEditClnt;

implementation

{$R *.DFM}

procedure TFrmEditClnt.FormCreate(Sender: TObject);
begin
  with TableSoftInfo do begin
    Active:=False; DatabaseName:=DefSrvAlias;
    TableName:='SoftInfo'; Active:=True;
   end;
end;

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

procedure TFrmEditClnt.TableSoftInfoBeforeOpen(DataSet: TDataSet);
begin
  Session.AddPassword(Psw_SoftInfo);
end;

procedure TFrmEditClnt.TableSoftInfoAfterClose(DataSet: TDataSet);
begin
  Session.RemovePassword(Psw_SoftInfo);
end;

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

procedure TFrmEditClnt.DBNavSoftInfoClick(Sender: TObject;
  Button: TNavigateBtn);
begin
  if (Button=nbInsert) or (Button=nbEdit)
    then DBEditHostName.SetFocus;
end;

end.