www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_record_pro_input.pas

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.