uform_record_pro_input.pas

来自「电话防伪系统」· PAS 代码 · 共 65 行

unit Uform_record_pro_input;

interface

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

type
  Tform_record_pro_input = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image2: TImage;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label2: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yesno:boolean;
    string_name:string;
  end;

var
  form_record_pro_input: Tform_record_pro_input;

implementation

{$R *.dfm}

procedure Tform_record_pro_input.BitBtn2Click(Sender: TObject);
begin
   close;
end;

procedure Tform_record_pro_input.FormShow(Sender: TObject);
begin
   yesno:=false;
end;

procedure Tform_record_pro_input.BitBtn1Click(Sender: TObject);
begin
   if length(trim(edit1.Text )) =0 then
   begin
      showmessage('请输入产品名称');
      edit1.SetFocus ;
   end
   else
   begin
      string_name:=trim(edit1.Text );
      yesno:=true;
      close;
   end;
end;

end.