uhs2.pas

通过程序的试算平衡表

unit UHS2;

interface

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

type
  TFmHS2 = class(TForm)
    xpGroupBox1: TxpGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    xpGroupBox2: TxpGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    BitBtnOK: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    xpEdit1: TxpEdit;
    xpEdit2: TxpEdit;
    xpEdit3: TxpEdit;
    Panel2: TPanel;
    xpEdit6: TxpEdit;
    Label6: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    xpEdit5: TxpEdit;
    xpEdit4: TxpEdit;
    Label8: TLabel;
    DosMove1: TDosMove;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmHS2: TFmHS2;

implementation

{$R *.dfm}

procedure TFmHS2.FormCreate(Sender: TObject);
begin
  Height := 180;
end;

procedure TFmHS2.RadioButton2Click(Sender: TObject);
begin
    If RadioButton2.Checked Then
    Begin
      BitBtnOK.Default := False;
      RadioButton3.Checked := True;
      xpGroupBox2.Visible := True;
      Panel1.Visible := True;
    Panel2.Visible := False;
      FmHS2.Height := 320;
    End;
end;

procedure TFmHS2.RadioButton1Click(Sender: TObject);
begin
    If RadioButton1.Checked Then
    Begin
      xpGroupBox2.Visible := False;
      Panel1.Visible := False;
      FmHS2.Height := 180;
      BitBtnOK.Default := True;
    End;
end;

procedure TFmHS2.RadioButton4Click(Sender: TObject);
begin
    If RadioButton4.Checked Then
    Begin
    Panel1.Visible := False;
    Panel2.Visible := True;
    End;
end;

procedure TFmHS2.RadioButton3Click(Sender: TObject);
begin
    If RadioButton3.Checked Then
    Begin
    Panel1.Visible := True;
    Panel2.Visible := False;
    End;
end;

end.