uhs1.pas

通过程序的试算平衡表

unit UHS1;

interface

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

type
  TFmHS1 = class(TForm)
    xpGroupBox1: TxpGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    xpGroupBox2: TxpGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    BitBtnOK: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    xpEdit1: TxpEdit;
    xpEdit2: TxpEdit;
    xpEdit3: TxpEdit;
    xpEdit4: TxpEdit;
    xpEdit5: TxpEdit;
    Panel2: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    xpEdit6: TxpEdit;
    xpEdit7: TxpEdit;
    xpEdit8: TxpEdit;
    xpEdit9: TxpEdit;
    xpEdit10: TxpEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    xpEdit11: TxpEdit;
    xpEdit12: TxpEdit;
    xpEdit13: TxpEdit;
    xpEdit14: TxpEdit;
    xpEdit15: TxpEdit;
    xpEdit16: TxpEdit;
    xpEdit17: TxpEdit;
    xpEdit18: TxpEdit;
    Label18: 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
  FmHS1: TFmHS1;

implementation

{$R *.dfm}

procedure TFmHS1.FormCreate(Sender: TObject);
begin
  Height := 160;
end;

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

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

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

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

end.