fmcustparau.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMCustParaU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMSingleU, Menus, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Grids,
  DBGrids, Mask, DBCtrls;

type
  TFMCustPara = class(TFMSingle)
    cdsMainfPameNo: TSmallintField;
    cdsMainfPameValue: TWideStringField;
    cdsMainfPameMenu: TWideStringField;
    cdsMainfFFU: TWideStringField;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Label1: TLabel;
    dbfPameNo: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    procedure btnAddClick(Sender: TObject);
    procedure btnQueryClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function DelCheck:boolean ; override ;
  end;

var
  FMCustPara: TFMCustPara;

implementation

{$R *.dfm}


function TFMCustPara.DelCheck:boolean;
begin
  result :=false ;
  aErrMsg :='不能删除.';
end ;

procedure TFMCustPara.btnAddClick(Sender: TObject);
begin
  MessageBox(handle,PChar('目前暂时不能新增.'),'提示',MB_OK+MB_ICONWARNING);
  exit ;
  inherited;
end;

procedure TFMCustPara.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_Pame';
  inherited;
end;

procedure TFMCustPara.btnModifyClick(Sender: TObject);
begin
  inherited;
  dbfPameNo.ReadOnly :=true ;
end;

end.