uoutputfile.pas

来自「说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄」· PAS 代码 · 共 57 行

unit UOutputFile;

interface

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

type
  TForm_OutputFile = class(TForm)
    RadioGroup1:TRadioGroup;
    BitBtn1:TBitBtn;
    BitBtn2:TBitBtn;
    Edit1:TEdit;
    procedure FormShow(Sender:TObject);
    procedure BitBtn2Click(Sender:TObject);
    procedure BitBtn1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_OutputFile:TForm_OutputFile;

implementation

{$R *.dfm}

procedure TForm_OutputFile.FormShow(Sender:TObject);
begin
  edit1.Text := '1';
end;

procedure TForm_OutputFile.BitBtn2Click(Sender:TObject);
begin
  edit1.Text := '0';
  close;
end;

procedure TForm_OutputFile.BitBtn1Click(Sender:TObject);
begin
  with RadioGroup1 do
  begin
    case ItemIndex of
      0:edit1.text := '1';
      1:edit1.text := '2';
      2:edit1.text := '3';
    end;
  end;
  close;
end;

end.