jggjjgrtj.pas

ProviceSystem-公积金监管系统中心端

unit JGGjjGrTj;

interface

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

type
  TJGGjjGrTjGL = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    edtBh1: TEdit;
    edtBh2: TEdit;
    EdtMc: TEdit;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    CboTjYe: TComboBox;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox5: TCheckBox;
    EdtSfzh: TEdit;
    procedure edtBh1Exit(Sender: TObject);
    procedure CboTjYeChange(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure EdtZh1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iPadL:smallint;
    cDw:String;
  end;

var
  JGGjjGrTjGL: TJGGjjGrTjGL;

implementation

uses uUserFunc;

{$R *.dfm}

procedure TJGGjjGrTjGL.edtBh1Exit(Sender: TObject);
begin
  if trim((Sender as tEdit).Text) <>'' then
    (Sender as TEdit).Text := PadL((Sender as TEdit).Text,9,'0');
end;

procedure TJGGjjGrTjGL.CboTjYeChange(Sender: TObject);
begin
  if Sender = CboTjYe then
  begin
    if CboTjYe.ItemIndex <> 4 then
    begin
      Label7.Visible := false;
      SpinEdit2.Visible := False;
    end
    else
    begin
      Label7.Visible := True;
      SpinEdit2.Visible := True;
    end;
  end;
end;

procedure TJGGjjGrTjGL.CheckBox1Click(Sender: TObject);
begin
  EdtBh1.Enabled := CheckBox1.Checked;
  EdtBh2.Enabled := CheckBox1.Checked;
end;

procedure TJGGjjGrTjGL.CheckBox2Click(Sender: TObject);
begin
  EdtMc.Enabled := CheckBox2.Checked;
end;

procedure TJGGjjGrTjGL.CheckBox3Click(Sender: TObject);
begin
  CboTjYe.Enabled := CheckBox3.Checked;
  SpinEdit1.Enabled := CheckBox3.Checked;
  SpinEdit2.Enabled := CheckBox3.Checked;
end;

procedure TJGGjjGrTjGL.FormCreate(Sender: TObject);
begin
  iPadl := 5;
end;

procedure TJGGjjGrTjGL.CheckBox5Click(Sender: TObject);
begin
  EdtSfzh.Enabled := CheckBox5.Checked;
end;

procedure TJGGjjGrTjGL.EdtZh1Exit(Sender: TObject);
begin
  if trim((Sender as tEdit).Text) <>'' then
  begin
    if iPadl>5 then
      (Sender as TEdit).Text := cDw+PadL((Sender as TEdit).Text,iPadl-5,'0')
    else
      (Sender as TEdit).Text := PadL((Sender as TEdit).Text,iPadl,'0');
  end;
end;

end.