findcjuserfm.pas

一个电力部门的催缴费用系统

unit FindCjUserFM;

interface

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

type
  TFM_FindCjUser = class(TForm)
    rg_FindType: TRadioGroup;
    lbl_FindName: TLabel;
    edt_Value: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    fmstg_findcj: TFormStorage;
    procedure FormCreate(Sender: TObject);
    procedure rg_FindTypeClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
{
var
  FM_FindCjUser: TFM_FindCjUser;
}
implementation

{$R *.DFM}

procedure TFM_FindCjUser.FormCreate(Sender: TObject);
begin
  edt_Value.Text :='';
end;

procedure TFM_FindCjUser.rg_FindTypeClick(Sender: TObject);
begin
  case rg_FindType.ItemIndex of
    0: lbl_FindName.Caption :='用户名称';
    1: lbl_FindName.Caption :='电话号码';
    2: lbl_FindName.Caption :='帐号';
  end;
end;

procedure TFM_FindCjUser.FormActivate(Sender: TObject);
begin
  rg_FindTypeClick(self);
end;

end.