uform_apart_input.pas

婚纱摄影客户管理系统V2.0原型版

unit UForm_apart_input;

interface

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

type
  TForm_apart_input = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Bevel1: TBevel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bYesno:boolean;
    stringApartname:string;
  end;

var
  Form_apart_input: TForm_apart_input;

implementation

{$R *.dfm}

procedure TForm_apart_input.BitBtn1Click(Sender: TObject);
begin
   if trim(edit1.Text )<>'' then
   begin
      bYesno:=true;
      stringApartname:=trim(edit1.Text );
      close;
   end
   else
   begin
      messagebox(self.Handle ,'部门名称不能为空!','提示',MB_OK or MB_ICONASTERISK);
      edit1.SetFocus ;
   end;
end;

procedure TForm_apart_input.FormShow(Sender: TObject);
begin
   bYesno:=false;
   edit1.SetFocus;
end;

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

end.