ufrmaccounmoveto.pas

DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传DAD2.0 上传下传

unit ufrmAccounMoveTo;

interface

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

type
  TfrmAccounMoveTo = class(TForm)
    cmbUser: TComboBox;
    Label1: TLabel;
    cmdOk: TButton;
    cmdClose: TButton;
    procedure cmdOkClick(Sender: TObject);
    procedure cmdCloseClick(Sender: TObject);
  private

  public
     m_strUser:string;
  end;

var
  frmAccounMoveTo: TfrmAccounMoveTo;

implementation

{$R *.dfm}

procedure TfrmAccounMoveTo.cmdOkClick(Sender: TObject);
begin
    m_strUser := cmbUser.text;
    close;
end;

procedure TfrmAccounMoveTo.cmdCloseClick(Sender: TObject);
begin
   m_strUser := '';
   close;
end;

end.