jggjjdwtj.pas

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

unit JGGjjDwTj;

interface

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

type
  TJGGjjDwTjGL = class(TForm)
    Panel1: TPanel;
    Label3: TLabel;
    EdtBh1: TEdit;
    EdtBh2: TEdit;
    EdtMc: TEdit;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    CboTjYe: TComboBox;
    Label7: TLabel;
    CboTjJc: TComboBox;
    SpinEdit3: TSpinEdit;
    Label8: TLabel;
    SpinEdit4: TSpinEdit;
    CboTjZq: TComboBox;
    SpinEdit5: TSpinEdit;
    Label9: TLabel;
    SpinEdit6: TSpinEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    procedure EdtBh1Exit(Sender: TObject);
    procedure CboTjYeChange(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iPadL:smallint;
    cDw:String;
  end;

var
  JGGjjDwTjGL: TJGGjjDwTjGL;

implementation

uses uUserFunc;

{$R *.dfm}

procedure TJGGjjDwTjGL.EdtBh1Exit(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;

procedure TJGGjjDwTjGL.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
  else
  if Sender = CboTjJc then
  begin
    if CboTjJc.ItemIndex <> 4 then
    begin
      Label8.Visible := false;
      SpinEdit4.Visible := False;
    end
    else
    begin
      Label8.Visible := True;
      SpinEdit4.Visible := True;
    end;
  end
  else
  if Sender = CboTjZq then
  begin
    if CboTjZq.ItemIndex <> 4 then
    begin
      Label9.Visible := false;
      SpinEdit6.Visible := False;
    end
    else
    begin
      Label9.Visible := True;
      SpinEdit6.Visible := True;
    end;
  end;
end;

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

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

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

procedure TJGGjjDwTjGL.CheckBox4Click(Sender: TObject);
begin
  CboTjJc.Enabled := CheckBox4.Checked;
  SpinEdit3.Enabled := CheckBox4.Checked;
  SpinEdit4.Enabled := CheckBox4.Checked;
end;

procedure TJGGjjDwTjGL.CheckBox5Click(Sender: TObject);
begin
  CboTjZq.Enabled := CheckBox5.Checked;
  SpinEdit5.Enabled := CheckBox5.Checked;
  SpinEdit6.Enabled := CheckBox5.Checked;
end;

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

end.