frmjgsetwg.pas

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

unit frmJGSetWg;

interface

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

type
  TJGSetWG = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    CheckBox1: TCheckBox;
    Button1: TButton;
    CheckBox2: TCheckBox;
    Button2: TButton;
    CheckBox3: TCheckBox;
    Button3: TButton;
    CheckBox4: TCheckBox;
    Button4: TButton;
    CheckBox5: TCheckBox;
    Button5: TButton;
    CheckBox6: TCheckBox;
    Button6: TButton;
    CheckBox7: TCheckBox;
    Button7: TButton;
    CheckBox8: TCheckBox;
    Button8: TButton;
    CheckBox9: TCheckBox;
    Button9: TButton;
    CheckBox10: TCheckBox;
    Button10: TButton;
    CheckBox11: TCheckBox;
    Button11: TButton;
    CheckBox12: TCheckBox;
    Button12: TButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sCityNum:string;
    sCityName:string;
    sURL: String;
    procedure LoadYjlxInfo;
//  activenum,iJk:smallint;
  end;

var
  JGSetWG: TJGSetWG;

implementation

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

procedure TJGSetWG.FormCreate(Sender: TObject);
{var
  aBh: TSmallIntDynArray;
  aMc: TStringDynArray;
  aBz: TBooleanDynArray;
}
begin
//activenum:=0;


end;

procedure TJGSetWG.FormActivate(Sender: TObject);
{ar
  i: smallint;
  cDb:string;
}
begin
{  if activenum=0 then
  begin
    activenum:=1;
    DM.P_DsbmInfo(cCityNum);
//    cDb:=trim(NVL(DM.Qry_User.FieldByName('cwdb1').AsString,''));
    cDb:=trim(NVL(DM.Qry_User.FieldByName('gjjdb').AsString,''));
    iJk:=DM.Qry_User.FieldByName('xtjk').AsInteger;
    if iJk<>0 then
    begin
      Button7.Hide;
      CheckBox7.Hide;
      Button8.Hide;
      CheckBox8.Hide;
      Button9.Hide;
      CheckBox9.Hide;
      Button11.Hide;
      CheckBox11.Hide;
    end
    else
    if cDb<>'' then
    begin
//      DM.F_CwConnect(DatabaseType(INISYSTEMTYPE),ConnectServer(INISYSTEMTYPE),cDb)
      DM.F_GjjConnect(DatabaseType(INISYSTEMTYPE),ConnectServer(INISYSTEMTYPE),cDb)
    end;
    DM.P_WgInfo(cCityNum);
    DM.Qry_Search.First;
    while not DM.Qry_Search.Eof do
    begin
      i := Dm.Qry_Search.FieldByName('xmbh').AsInteger;
      (Panel1.Controls[i*2] as tCheckBox).Caption := Dm.Qry_Search.FieldByName('xmmc').AsString;
      (Panel1.Controls[i*2] as tCheckBox).Checked := Dm.Qry_Search.FieldByName('qybz').AsBoolean;
      (Panel1.Controls[i*2+1] as tButton).Enabled := Dm.Qry_Search.FieldByName('qybz').AsBoolean;
      DM.Qry_Search.Next;
    end;
  end;
}
end;

procedure TJGSetWG.ToolButton2Click(Sender: TObject);
begin
  close;
end;

procedure TJGSetWG.CheckBox1Click(Sender: TObject);
var
  i: smallint;
begin
  i := (Sender as tCheckBox).TabOrder;
  if (Sender as tCheckBox).Checked then
    (Panel1.Controls[i+1] as tButton).Enabled := True
  else
    (Panel1.Controls[i+1] as tButton).Enabled := False;
end;

procedure TJGSetWG.ToolButton1Click(Sender: TObject);
var
  abh: TSmallIntDynArray;
  amc: TStringDynArray;
  abz: TBooleanDynArray;
  i,j,iLen: smallint;
begin
  ilen := trunc(Panel1.ControlCount/2) ;
  setlength(abh,ilen);
  setlength(amc,ilen);
  setlength(abz,ilen);
  ilen := Panel1.ControlCount-1 ;
  j:=0;
  for i:=0 to ilen do
  begin
    if i mod 2 = 1 then
      continue;
    abh[j] := j;
    aMc[j] := (panel1.Controls[i] as tCheckBox).Caption;
    aBz[j] := (panel1.Controls[i] as tCheckBox).Checked;
    inc(j);
  end;
  if YjlxSave(sCityNum,abh,amc,abz)=0 then
    Application.MessageBox('违规项目存盘成功。',PMsgCaption,64)
 else
    Application.MessageBox('违规项目存盘失败！',PMsgCaption,16)

end;

procedure TJGSetWG.Button1Click(Sender: TObject);
var
  JGTJ : TJGWgTj;
  i : smallint;
begin
  JGTJ := TJGWgTj.Create(application);
  JGTJ.StatusBar1.Panels[0].Text := StatusBar1.Panels[0].Text;
  i := (Sender as tButton).TabOrder - 1 ;
  JGTJ.StatusBar1.Panels[1].Text := (Panel1.Controls[i] as tCheckBox).Caption;
  JGTJ.PgTj.ActivePageIndex := trunc(i/2);
  JGTJ.sCityNum := sCityNum;
  JGTJ.sURL := sURL;
  JGTJ.RefreshWg(sCityNum,trunc(i/2));
{  JGTJ.iJk := iJk;
  if iJk <>0 then
  begin
    if trunc(i/2)=1 then
    begin
      JGTJ.CheckBox9.Visible := False;
      JGTJ.SpinEdit6.Visible := False;
      JGTJ.RadioButton1.Visible := False;
      JGTJ.RadioButton2.Visible := False;
    end;
  end;
}
  JGTJ.ShowModal;
  JGTJ.Free;
end;

procedure TJGSetWG.ToolButton3Click(Sender: TObject);
var
  i,ilen: smallint;
begin
  ilen := Panel1.ControlCount-1 ;
  for i:=0 to ilen do
  begin
    if i mod 2 = 1 then
      continue;
    (panel1.Controls[i] as tCheckBox).Checked := True;
  end;
end;

procedure TJGSetWG.ToolButton5Click(Sender: TObject);
var
  i,ilen: smallint;
begin
  ilen := Panel1.ControlCount-1 ;
  for i:=0 to ilen do
  begin
    if i mod 2 = 1 then
      continue;
    (panel1.Controls[i] as tCheckBox).Checked := False;
  end;
end;

procedure TJGSetWG.LoadYjlxInfo;
var
//  aBh: TSmallIntDynArray;
//  aMc: TStringDynArray;
//  aBz: TBooleanDynArray;
  i,l: Smallint;
  aYjlx: TYjlxDynArray;
begin
//  YjlxInfo(sCityNum,aBh,aMc,aBz);
  YjLxInfo(sCityNum,aYjlx);
//  l := high(aBh);
  l := high(aYjlx);
  for i:=0 to l do
  begin
    (Panel1.Controls[i*2] as tCheckBox).Caption := aYjlx[i].Mc;//aMc[i];
    (Panel1.Controls[i*2] as tCheckBox).Checked := aYjlx[i].bz;//aBz[i];
    (Panel1.Controls[i*2+1] as tButton).Enabled := aYjlx[i].Bz;//aBz[i];
  end;
end;

end.