editcust.pas

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

unit EditCust;

interface

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

type
  TFrmEditCust = class(TForm)
    DBNavCust: TDBNavigator;
    BtnCancel: TButton;
    QueryCust: TQuery;
    DataSourceCust: TDataSource;
    DBGridCust: TDBGrid;
    DBEditIDNo: TDBEdit;
    DBEditMark: TDBEdit;
    LabIDNo: TLabel;
    LabMark: TLabel;
    DBEditName: TDBEdit;
    LabName: TLabel;
    QueryCustICustNo: TIntegerField;
    QueryCustSCustName: TStringField;
    QueryCustSIDNo: TStringField;
    QueryCustSMark: TStringField;
    procedure BtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure QueryCustBeforePost(DataSet: TDataSet);
    procedure DBNavCustClick(Sender: TObject; Button: TNavigateBtn);

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

var
  FrmEditCust: TFrmEditCust;

implementation

{$R *.DFM}

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

procedure TFrmEditCust.FormCreate(Sender: TObject);
begin
  Session.AddPassword(Psw_Cust);
  QueryCust.DatabaseName:=DefSrvAlias;
end;

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

procedure TFrmEditCust.FormShow(Sender: TObject);
begin
  with QueryCust do begin
     close;
     SQL.Clear;
     SQL.Add('SELECT ICustNo, SCustName, SIDNo, SMark');
     SQL.Add('FROM "Cust.DB"');
     Prepare;
     Open;
   end;
end;

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

procedure TFrmEditCust.DBNavCustClick(Sender: TObject; Button: TNavigateBtn);
begin
  if Button=nbEdit then DBEditName.SetFocus;
end;

end.