search.~pas

来自「伤残金发放管理系统软件源码,个人作品,现在工作中用到它.」· ~PAS 代码 · 共 72 行

unit Search;

interface

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

type
  TSearchForm = class(TForm)
    XMCheckBox: TCheckBox;
    XMEdit: TEdit;
    SFZEdit: TEdit;
    SCZEdit: TEdit;
    DJEdit: TComboBox;
    XZEdit: TComboBox;
    QueDinButton: TButton;
    QuXiaoButton: TButton;
    SFZCheckBox: TCheckBox;
    SCZCheckBox: TCheckBox;
    DJCheckBox: TCheckBox;
    XZCheckBox: TCheckBox;
    MHCheckBox: TCheckBox;
    JHCheckBox: TCheckBox;
    JHGroupBox: TGroupBox;
    YesRadioButton: TRadioButton;
    NoRadioButton: TRadioButton;
    procedure XMCheckBoxClick(Sender: TObject);
    procedure QueDinButtonClick(Sender: TObject);
    procedure QuXiaoButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    QueDin:Boolean;
  end;

var
  SearchForm: TSearchForm;

implementation

{$R *.dfm}

procedure TSearchForm.XMCheckBoxClick(Sender: TObject);
begin
  XMedit.Enabled :=XMCheckBox.Checked ;
  SFZedit.Enabled :=SFZCheckBox.Checked ;
  SCZedit.Enabled :=SCZCheckBox.Checked ;
  DJedit.Enabled :=DJCheckBox.Checked ;
  XZedit.Enabled :=XZCheckBox.Checked ;
  JHGroupBox.Enabled :=JHCheckBox.Checked;
end;

procedure TSearchForm.QueDinButtonClick(Sender: TObject);
begin
  QueDin:=true;
  SearchForm.Close;
end;

procedure TSearchForm.QuXiaoButtonClick(Sender: TObject);
begin
  SearchForm.Close;
end;

procedure TSearchForm.FormShow(Sender: TObject);
begin
  QueDin:=false;
end;

end.