unitsure.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 39 行

unit Unitsure;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls;

type
  Tfrmsure = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsure: Tfrmsure;

implementation

uses Unitsupplier;

{$R *.DFM}



procedure Tfrmsure.BitBtn1Click(Sender: TObject);
begin
if trim(edit1.Text)=trim(frmaddnewgoods.edtiaoma.text) then frmsure.ModalResult:=mrOK
  else frmsure.ModalResult:=mrcancel;
end;

end.