wzzdedit.pas

物资管理系统 包括屋子入库出库管理

unit WZZDEDIT;

interface

uses
  Windows, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, DB, WZGLCommon;

type
  TWZZDEditForm = class(TForm)
    lblBm: TLabel;
    lblDw: TLabel;
    edtDw: TEdit;
    edtMc: TEdit;
    lblMc: TLabel;
    lblGg: TLabel;
    edtGg: TEdit;
    lblDj: TLabel;
    edtDj: TEdit;
    btOk: TButton;
    btCancel: TButton;
    edtBm: TEdit;
    procedure btOkClick(Sender: TObject);
  private
    { Private declarations }
    function CheckData: Boolean;
  public
    { Public declarations }
    FWZRec: TWZMX;
  end;

implementation

{$R *.dfm}

//检验数据的合法性
function TWZZDEditForm.CheckData: Boolean;
  function IsEmpty(AMC: string; Aedt: TEDIT): Boolean;
  begin
    Aedt.Text := Trim(Aedt.Text);
    Result := (Length(Aedt.Text) = 0);
    if Result then
    begin
      showmessage(AMC + '不能为空!');
      Aedt.SetFocus;
    end;
  end;
begin
  Result := False;
  if IsEmpty('编号', edtBm) or IsEmpty('名称', edtMC) or IsEmpty('单位', edtDW)
    or IsEmpty('单价', edtDJ) then
    Exit;

  if Length(edtBm.Text) > 10 then
  begin
    showmessage('编码不能多于10位字符！');
    edtBm.SetFocus;
    Exit;
  end;

  if not IsNumeric(edtDJ.Text) or (StrToFloat(edtDJ.Text) <= 0) then
  begin
    showmessage('单价应该是大于0的数值!');
    edtDJ.SetFocus;
    Exit;
  end;
  Result := True;
end;

procedure TWZZDEditForm.btOkClick(Sender: TObject);
begin
  if CheckData then
  begin
    with FWZRec do
    begin
      BM := edtBM.Text;
      MC := edtMC.Text;
      GG := edtGG.Text;
      DW := edtDW.Text;
      DJ := StrToFloat(edtDJ.Text);
    end;
    ModalResult := mrOK;
  end;
end;

end.