infor_seleunit.pas

使用delphi语言

unit infor_seleunit;

interface

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

type
  Tinfor_seleform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    rb1: TRadioButton;
    rb2: TRadioButton;
    rb3: TRadioButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    combobox1: TDBLookupComboBox;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  infor_seleform: Tinfor_seleform;

implementation
   uses dmunit,inforunit;
{$R *.dfm}

procedure Tinfor_seleform.BitBtn2Click(Sender: TObject);
begin
  dm.bm.Active:=false;
  close;
end;

procedure Tinfor_seleform.FormActivate(Sender: TObject);
begin
  combobox1.SetFocus ;
  dm.bm.Open ;
end;

procedure Tinfor_seleform.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     if trim(combobox1.Text )<>''  then
       bitbtn3.SetFocus ;
end;

procedure Tinfor_seleform.BitBtn3Click(Sender: TObject);
begin
  if combobox1.Text='' then
  begin
    messagebox(self.Handle,'请选择部门名称','提示信息',mb_iconinformation);
    combobox1.SetFocus ;
  end
  else
    bitbtn1.Click ;
end;

procedure Tinfor_seleform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm.bm.Active:=false;
end;

end.