unit1.pas

来自「主要用来显示个人资料」· PAS 代码 · 共 93 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    leName: TLabeledEdit;
    rbMale: TRadioButton;
    rbFemale: TRadioButton;
    leTel: TLabeledEdit;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    cbFishing: TCheckBox;
    cbReading: TCheckBox;
    cbChess: TCheckBox;
    cbBall: TCheckBox;
    bbtn1: TBitBtn;
    bbtn2: TBitBtn;
    bbtn3: TBitBtn;
    GroupBox2: TGroupBox;
    dtp: TDateTimePicker;
    mmDisplay: TMemo;
    GroupBox3: TGroupBox;
    rb1: TRadioButton;
    rb2: TRadioButton;
    procedure bbtn1Click(Sender: TObject);
    procedure bbtn2Click(Sender: TObject);
    procedure bbtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bbtn1Click(Sender: TObject);
var
  s,t:string;
begin
  if rbMale.Checked then
     s:='男';
  if rbFemale.Checked then
     s:='女';
  if rb1.Checked then
     t:='汉族';
  if rb2.Checked then
     t:='少数民族';
  mmDisplay.Lines.Add('姓名:'+leName.Text+';'+'生日:'+datetostr(dtp.DateTime)+';'+'电话:'
  +leTel.Text+';'+'性别:'+s+';'+'民族:'+t+';'+'爱好:');
  if cbFishing.Checked then
     mmDisplay.Lines.Add('      钓鱼');
  if cbReading.Checked then
     mmDisplay.Lines.Add('      读书');
  if cbChess.Checked then
     mmDisplay.Lines.Add('      下棋');
  if cbBall.Checked then
     mmDisplay.Lines.Add('      打球');
end;

procedure TForm1.bbtn2Click(Sender: TObject);
begin
  leName.Text:='';
  leTel.Text:='';
  rbMale.Checked:=false;
  rbFemale.Checked:=false;
  rb1.Checked:=false;
  rb2.Checked:=false;
  cbFishing.Checked:=false;
  cbReading.Checked:=false;
  cbChess.Checked:=false;
  cbBall.Checked:=false;
  mmDisplay.Clear;
end;

procedure TForm1.bbtn3Click(Sender: TObject);
begin
  close;
end;

end.