frmjgsetwgtj.pas

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

unit frmJGSetWgTj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, ExtCtrls, StdCtrls, Spin, Grids, ComObj;

type
  TJGWgTj = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    PgTj: TPageControl;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    CheckBox6: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox7: TCheckBox;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox8: TCheckBox;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    CheckBox9: TCheckBox;
    SpinEdit6: TSpinEdit;
    Label9: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox10: TCheckBox;
    SpinEdit7: TSpinEdit;
    SpinEdit8: TSpinEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    TabSheet10: TTabSheet;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    SpinEdit9: TSpinEdit;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox24: TCheckBox;
    SpinEdit10: TSpinEdit;
    CheckBox25: TCheckBox;
    SpinEdit11: TSpinEdit;
    CheckBox26: TCheckBox;
    SpinEdit12: TSpinEdit;
    YhGrid: TStringGrid;
    LlGrid: TStringGrid;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    Memo5: TMemo;
    Memo6: TMemo;
    Memo7: TMemo;
    Memo8: TMemo;
    TabSheet11: TTabSheet;
    Memo9: TMemo;
    CheckBox28: TCheckBox;
    CheckBox29: TCheckBox;
    CheckBox30: TCheckBox;
    Edit34: TEdit;
    Edit35: TEdit;
    Edit36: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Edit33: TEdit;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    CkllGrid: TStringGrid;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    CheckBox2: TCheckBox;
    Edit2: TEdit;
    CheckBox3: TCheckBox;
    Edit3: TEdit;
    CheckBox4: TCheckBox;
    Edit4: TEdit;
    Button1: TButton;
    CheckBox5: TCheckBox;
    Edit5: TEdit;
    Button2: TButton;
    CheckBox13: TCheckBox;
    Edit6: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edit7: TEdit;
    Button3: TButton;
    CheckBox14: TCheckBox;
    Edit8: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edit9: TEdit;
    Button4: TButton;
    CheckBox15: TCheckBox;
    Edit10: TEdit;
    Label17: TLabel;
    Label18: TLabel;
    Edit11: TEdit;
    Button5: TButton;
    CheckBox27: TCheckBox;
    Label34: TLabel;
    Edit26: TEdit;
    Button8: TButton;
    CheckBox18: TCheckBox;
    Edit14: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    Edit15: TEdit;
    Button6: TButton;
    CheckBox19: TCheckBox;
    Edit16: TEdit;
    Label39: TLabel;
    Label25: TLabel;
    Edit17: TEdit;
    Button7: TButton;
    CheckBox20: TCheckBox;
    Label26: TLabel;
    Edit18: TEdit;
    Label27: TLabel;
    Edit19: TEdit;
    Label35: TLabel;
    CheckBox21: TCheckBox;
    Label28: TLabel;
    Edit20: TEdit;
    Label29: TLabel;
    Edit21: TEdit;
    Label36: TLabel;
    CheckBox22: TCheckBox;
    Label30: TLabel;
    Edit22: TEdit;
    Label31: TLabel;
    Edit23: TEdit;
    Label37: TLabel;
    CheckBox23: TCheckBox;
    Label32: TLabel;
    Edit24: TEdit;
    Label33: TLabel;
    Edit25: TEdit;
    Label38: TLabel;
    Edit27: TEdit;
    Button9: TButton;
    Edit28: TEdit;
    Button10: TButton;
    Edit29: TEdit;
    Button11: TButton;
    Edit30: TEdit;
    Button12: TButton;
    procedure ToolButton3Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormResize(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure SpinEdit4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure CheckBox24Click(Sender: TObject);
    procedure Edit10Exit(Sender: TObject);
    procedure CheckBox27Click(Sender: TObject);
    procedure CheckBox28Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ButtonKmClick(Sender: TObject);
  private
    { Private declarations }
//    function fYjSetInfo(const sDsbh: String;var vData: Variant): Smallint;

  public
    { Public declarations }
    sCityNum: string;
    sURL: String;
//    iJk: Smallint;
    procedure RefreshWg(const dsbh:string;const xm:smallint);
  end;

var
  JGWgTj: TJGWgTj;

implementation

{$R *.dfm}
uses uDMFunc, uConstUtils;

procedure TJGWgTj.ToolButton3Click(Sender: TObject);
begin
  close;
end;

procedure TJGWgTj.Edit1Exit(Sender: TObject);
var
  dVal : Double;
  cVal : string;
begin
  inherited;
  try
    dVal := strtofloat((Sender as tEdit).Text);
    str(dVal:11:2,cVal);
    (Sender as tEdit).Text := cVal;
  except
    (Sender as tEdit).Text := '       0.00';
  end;
end;

procedure TJGWgTj.Edit1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (Sender as tEdit).SelectAll;
end;

procedure TJGWgTj.FormResize(Sender: TObject);
begin
//  Panel2.Width := TabSheet1.Width;
end;

procedure TJGWgTj.CheckBox1Click(Sender: TObject);
begin
  if Sender = CheckBox1 then
    Edit1.Enabled := (Sender as tCheckBox).Checked
  else
    if Sender = CheckBox2 then
      Edit2.Enabled := (Sender as tCheckBox).Checked
    else
      if Sender = CheckBox3 then
        Edit3.Enabled := (Sender as tCheckBox).Checked
      else
        if Sender = CheckBox4 then
        begin
          Edit4.Enabled := (Sender as tCheckBox).Checked;
          Button1.Enabled := (Sender as tCheckBox).Checked;
        end
        else
          if Sender = CheckBox5 then
          begin
            Edit5.Enabled := (Sender as tCheckBox).Checked;
            Button2.Enabled := (Sender as tCheckBox).Checked;
          end;
end;

procedure TJGWgTj.CheckBox6Click(Sender: TObject);
begin
  if Sender = CheckBox6 then
  begin
    SpinEdit4.Enabled := (Sender as tCheckBox).Checked;
    SpinEdit5.Enabled := (Sender as tCheckBox).Checked;
  end
  else
    if Sender = CheckBox7 then
    begin
      SpinEdit1.Enabled := (Sender as tCheckBox).Checked;
      SpinEdit2.Enabled := (Sender as tCheckBox).Checked;
    end
    else
      if Sender = CheckBox8 then
      begin
        SpinEdit3.Enabled := (Sender as tCheckBox).Checked;
      end
      else
        if Sender = CheckBox9 then
        begin
          SpinEdit6.Enabled := (Sender as tCheckBox).Checked;
          RadioButton1.Enabled := (Sender as tCheckBox).Checked;
          RadioButton2.Enabled := (Sender as tCheckBox).Checked;
        end

end;

procedure TJGWgTj.SpinEdit4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (Sender as tSpinEdit).SelectAll;
end;

procedure TJGWgTj.CheckBox10Click(Sender: TObject);
begin
  SpinEdit7.Enabled := (Sender as tCheckBox).Checked;
  SpinEdit8.Enabled := (Sender as tCheckBox).Checked;
end;

procedure TJGWgTj.CheckBox11Click(Sender: TObject);
begin
  SpinEdit9.Enabled := (Sender as tCheckBox).Checked ;
end;

procedure TJGWgTj.CheckBox13Click(Sender: TObject);
begin
  if sender= CheckBox13 then
  begin
    Edit6.Enabled :=(Sender as tCheckBox).Checked;
    Edit7.Enabled :=(Sender as tCheckBox).Checked;
    Button3.Enabled :=(Sender as tCheckBox).Checked;
  end
  else
    if sender= CheckBox14 then
    begin
      Edit8.Enabled :=(Sender as tCheckBox).Checked;
      Edit9.Enabled :=(Sender as tCheckBox).Checked;
      Button4.Enabled :=(Sender as tCheckBox).Checked;
    end
    else
      if sender= CheckBox15 then
      begin
        Edit10.Enabled :=(Sender as tCheckBox).Checked;
        Edit11.Enabled :=(Sender as tCheckBox).Checked;
        Button5.Enabled :=(Sender as tCheckBox).Checked;
      end;
end;

procedure TJGWgTj.CheckBox16Click(Sender: TObject);
begin
//  Edit12.Enabled := (Sender as tCheckBox).Checked;
//  Edit13.Enabled := (Sender as tCheckBox).Checked;
end;

procedure TJGWgTj.CheckBox18Click(Sender: TObject);
begin
  if sender= CheckBox18 then
  begin
    Edit14.Enabled :=(Sender as tCheckBox).Checked;
    Edit15.Enabled :=(Sender as tCheckBox).Checked;
    Button6.Enabled :=(Sender as tCheckBox).Checked;
  end
  else
    if sender= CheckBox19 then
    begin
      Edit16.Enabled :=(Sender as tCheckBox).Checked;
      Edit17.Enabled :=(Sender as tCheckBox).Checked;
      Button7.Enabled :=(Sender as tCheckBox).Checked;
    end;

end;

procedure TJGWgTj.CheckBox20Click(Sender: TObject);
begin
  if Sender=CheckBox20 then
  begin
    Edit18.Enabled := (Sender as tCheckBox).Checked;
    Edit19.Enabled := (Sender as tCheckBox).Checked;
    Edit27.Enabled := (Sender as tCheckBox).Checked;
    Button9.Enabled := (Sender as tCheckBox).Checked;
  end
  else
    if Sender=CheckBox21 then
    begin
      Edit20.Enabled := (Sender as tCheckBox).Checked;
      Edit21.Enabled := (Sender as tCheckBox).Checked;
      Edit28.Enabled := (Sender as tCheckBox).Checked;
      Button10.Enabled := (Sender as tCheckBox).Checked;
    end
    else
      if Sender=CheckBox22 then
      begin
        Edit22.Enabled := (Sender as tCheckBox).Checked;
        Edit23.Enabled := (Sender as tCheckBox).Checked;
        Edit29.Enabled := (Sender as tCheckBox).Checked;
        Button11.Enabled := (Sender as tCheckBox).Checked;
      end
      else
        if Sender=CheckBox23 then
        begin
          Edit24.Enabled := (Sender as tCheckBox).Checked;
          Edit25.Enabled := (Sender as tCheckBox).Checked;
          Edit30.Enabled := (Sender as tCheckBox).Checked;
          Button12.Enabled := (Sender as tCheckBox).Checked;
        end;

end;

procedure TJGWgTj.CheckBox24Click(Sender: TObject);
begin
  if (Sender = CheckBox24) then
    SpinEdit10.Enabled := (Sender as tCheckBox).Checked
  else
    if (Sender = CheckBox25) then
      SpinEdit11.Enabled := (Sender as tCheckBox).Checked
    else
      if (Sender = CheckBox26) then
      SpinEdit12.Enabled := (Sender as tCheckBox).Checked;
end;

procedure TJGWgTj.RefreshWg(const dsbh:string;const xm:smallint);
var
  d1,d2,d3,d4,d5,d6,d7,d8: double;
  l1,l2,l3,l4,l5: boolean;
  i1,i2,i3:Longint;
  is1,is2,is3,is4,is5: smallint;
  c1,c2,c3,c4: string;
//  dVal: double;
  cVal: string;
//  i: smallint;
//  vd: variant;
  aKhyh: TKhyhDynArray;
  aDkll: TDkllDynArray;
  aCkll: TCkllDynArray;
begin
  YjSetInfo(sCityNum);
  case xm of
    0: begin
         YjSet1Info(d1,l1,d2,l2,d3,l3,c1,l4,c2,l5);
         Str(d1:11:2,cVal);
         Edit1.Text := cVal;
         CheckBox1.Checked := l1;
         Edit1.Enabled := l1;

         Str(d2:11:2,cVal);
         Edit2.Text := cVal;
         CheckBox2.Checked := l2;
         Edit2.Enabled := l2;

         Str(d3:11:2,cVal);
         Edit3.Text := cVal;
         CheckBox3.Checked := l3;
         Edit3.Enabled := l3;

         CheckBox4.Checked := l4;
         Edit4.Enabled := l4;