unit u_sys_limited_group;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  ExtCtrls, bsSkinCtrls, dxDBTLCl, dxGrClms, XPMenu, Menus, Grids, DBGridEh;

type
  Tfrm_sys_limited_group = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    Panel1: TPanel;
    Panel2: TPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridMaskColumn;
    dxDBGrid2Column3: TdxDBGridMaskColumn;
    dxDBGrid2Column4: TdxDBGridCheckColumn;
    XPMenu1: TXPMenu;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PopupMenu2: TPopupMenu;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    DBGridEh1: TDBGridEh;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_limited_group: Tfrm_sys_limited_group;

implementation

uses u_sys_limited, my_sys_function, u_sys_progress;

{$R *.dfm}

procedure Tfrm_sys_limited_group.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_sys_limited_group.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(frm_sys_limited.t_sys_lg);
end;

procedure Tfrm_sys_limited_group.bsSkinButton1Click(Sender: TObject);
begin
  table_post(frm_sys_limited.t_sys_lg);
  table_post(frm_sys_limited.t_sys_lg_open);
  table_post(frm_sys_limited.t_sys_lg_data);
end;

procedure Tfrm_sys_limited_group.bsSkinButton2Click(Sender: TObject);
begin
  table_cancel(frm_sys_limited.t_sys_lg);
  table_cancel(frm_sys_limited.t_sys_lg_open);
  table_cancel(frm_sys_limited.t_sys_lg_data)
end;

procedure Tfrm_sys_limited_group.bsSkinButton9Click(Sender: TObject);
begin
  frm_sys_limited.t_sys_lg.insert;
end;

procedure Tfrm_sys_limited_group.bsSkinButton12Click(Sender: TObject);
begin
  if bsSkinButton12.Caption='权限展开' then
  begin
    dxdbgrid2.FullExpand;
    bsSkinButton12.Caption:='权限合并';
  end
  else
  begin
    dxdbgrid2.FullCollapse;
    bsSkinButton12.Caption:='权限展开';
  end; 
end;

procedure Tfrm_sys_limited_group.bsSkinButton10Click(Sender: TObject);
begin
  try
  with frm_sys_limited do
  begin
    if not ASSIGNED(frm_sys_progress) then
      frm_sys_progress:=tfrm_sys_progress.Create(self);
    frm_sys_progress.Show;
    frm_sys_progress.bsSkinGauge1.MaxValue:=(t_sys_code.RecordCount+40);
    frm_sys_progress.bsSkinGauge1.MinValue:=0;
    frm_sys_progress.bsSkinGauge1.Value:=0;
    frm_sys_progress.Update;
    
    t_sys_code.first;
    while not t_sys_code.eof do
    begin
      if t_sys_lg_open.Locate('权限代码',t_sys_code['权限代码'],[])then
      begin
        t_sys_lg_open.edit;
        t_sys_lg_open['一级模块']:=t_sys_code['一级模块'];
        t_sys_lg_open['二级模块']:=t_sys_code['二级模块'];
        t_sys_lg_open['权限名称']:=t_sys_code['权限名称'];
        t_sys_lg_open.post;
      end
      else
      begin
        t_sys_lg_open.insert;
        t_sys_lg_open['LG_ID']:=t_sys_lg['LG_ID'];
        t_sys_lg_open['权限代码']:=t_sys_code['权限代码'];
        t_sys_lg_open['一级模块']:=t_sys_code['一级模块'];
        t_sys_lg_open['二级模块']:=t_sys_code['二级模块'];
        t_sys_lg_open['权限名称']:=t_sys_code['权限名称'];
        t_sys_lg_open['是否可操作']:=0;
        t_sys_lg_open.post;
      end;
      frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
      t_sys_code.next;
    end;

    if not t_sys_lg_data.Locate('模块代码','0001',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运出口操作';
    t_sys_lg_data['模块代码']:='0001';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0002',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运进口操作';
    t_sys_lg_data['模块代码']:='0002';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0003',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运出口操作';
    t_sys_lg_data['模块代码']:='0003';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0004',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运进口操作';
    t_sys_lg_data['模块代码']:='0004';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0011',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运出口审核';
    t_sys_lg_data['模块代码']:='0011';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0012',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运进口审核';
    t_sys_lg_data['模块代码']:='0012';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0013',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运出口审核';
    t_sys_lg_data['模块代码']:='0013';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0014',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运进口审核';
    t_sys_lg_data['模块代码']:='0014';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','1001',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='发票申请信息';
    t_sys_lg_data['模块代码']:='1001';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','1002',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='业务申请发票';
    t_sys_lg_data['模块代码']:='1002';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','1003',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='支付申请信息';
    t_sys_lg_data['模块代码']:='1003';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','1004',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='业务申请支付';
    t_sys_lg_data['模块代码']:='1004';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0021',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运出口销售';
    t_sys_lg_data['模块代码']:='0021';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0022',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='海运进口销售';
    t_sys_lg_data['模块代码']:='0022';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0023',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运出口销售';
    t_sys_lg_data['模块代码']:='0023';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0024',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='空运进口销售';
    t_sys_lg_data['模块代码']:='0024';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0031',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='财务台帐统计';
    t_sys_lg_data['模块代码']:='0031';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0032',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='客户对帐管理';
    t_sys_lg_data['模块代码']:='0032';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0033',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='欠费统计分析';
    t_sys_lg_data['模块代码']:='0033';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0034',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='帐龄统计分析';
    t_sys_lg_data['模块代码']:='0034';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0035',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='业务发票统计';
    t_sys_lg_data['模块代码']:='0035';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0036',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='资金统计分析';
    t_sys_lg_data['模块代码']:='0036';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0037',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='业务统计分析';
    t_sys_lg_data['模块代码']:='0037';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0038',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='业务计时提醒';
    t_sys_lg_data['模块代码']:='0038';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0039',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='财务统计分析';
    t_sys_lg_data['模块代码']:='0039';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
    if not t_sys_lg_data.Locate('模块代码','0008',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='销售客户管理';
    t_sys_lg_data['模块代码']:='0008';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3001',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='航线运价管理';
    t_sys_lg_data['模块代码']:='3001';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3002',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='运价合约管理';
    t_sys_lg_data['模块代码']:='3002';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3003',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='客户合约管理';
    t_sys_lg_data['模块代码']:='3003';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3004',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='同行运价管理';
    t_sys_lg_data['模块代码']:='3004';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3005',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='商机报价管理';
    t_sys_lg_data['模块代码']:='3005';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','0008',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='销售客户管理';
    t_sys_lg_data['模块代码']:='0008';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3007',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='运价发布管理';
    t_sys_lg_data['模块代码']:='3007';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','3008',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='个人运价管理';
    t_sys_lg_data['模块代码']:='3008';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','8001',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='船公司管理';
    t_sys_lg_data['模块代码']:='8001';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','8002',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='货代同行管理';
    t_sys_lg_data['模块代码']:='8002';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','8003',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='宠物客户分析';
    t_sys_lg_data['模块代码']:='8003';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','8004',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='流失客户分析';
    t_sys_lg_data['模块代码']:='8004';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','8005',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='费用方案管理';
    t_sys_lg_data['模块代码']:='8005';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;

    if not t_sys_lg_data.Locate('模块代码','7000',[])then
    begin
    t_sys_lg_data.insert;
    t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
    t_sys_lg_data['模块名称']:='费用修改范围';
    t_sys_lg_data['模块代码']:='7000';
    t_sys_lg_data['数据范围']:='个人数据';
    t_sys_lg_data.Post;
    end;
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
  end;
  finally
    frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
    frm_sys_progress.free;
    frm_sys_progress:=nil;
  end;
end;

procedure Tfrm_sys_limited_group.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_sys_limited_group:=nil;
end;

procedure Tfrm_sys_limited_group.FormShow(Sender: TObject);
begin
  dxDBGrid2.FullExpand;
end;

procedure Tfrm_sys_limited_group.N1Click(Sender: TObject);
begin
  with frm_sys_limited do
  begin
    t_sys_lg_open.first;
    while not t_sys_lg_open.eof do
    begin
      t_sys_lg_open.edit;
      t_sys_lg_open['是否可操作']:=1;
      t_sys_lg_open.post;
      t_sys_lg_open.next;
    end;
  end;
end;

procedure Tfrm_sys_limited_group.N3Click(Sender: TObject);
begin
  with frm_sys_limited do
  begin
    t_sys_lg_open.first;
    while not t_sys_lg_open.eof do
    begin
      t_sys_lg_open.edit;
      t_sys_lg_open['是否可操作']:=0;
      t_sys_lg_open.post;
      t_sys_lg_open.next;
    end;
  end;
end;

procedure Tfrm_sys_limited_group.N4Click(Sender: TObject);
begin
  frm_sys_limited.t_sys_lg_data.first;
  while not frm_sys_limited.t_sys_lg_data.eof do
  begin
    frm_sys_limited.t_sys_lg_data.edit;
    frm_sys_limited.t_sys_lg_data['数据范围']:='个人数据';
    frm_sys_limited.t_sys_lg_data.post;
    frm_sys_limited.t_sys_lg_data.next;
  end;
end;

procedure Tfrm_sys_limited_group.N6Click(Sender: TObject);
begin
  frm_sys_limited.t_sys_lg_data.first;
  while not frm_sys_limited.t_sys_lg_data.eof do
  begin
    frm_sys_limited.t_sys_lg_data.edit;
    frm_sys_limited.t_sys_lg_data['数据范围']:='部门数据';
    frm_sys_limited.t_sys_lg_data.post;
    frm_sys_limited.t_sys_lg_data.next;
  end;
end;

procedure Tfrm_sys_limited_group.N8Click(Sender: TObject);
begin
  frm_sys_limited.t_sys_lg_data.first;
  while not frm_sys_limited.t_sys_lg_data.eof do
  begin
    frm_sys_limited.t_sys_lg_data.edit;
    frm_sys_limited.t_sys_lg_data['数据范围']:='全部数据';
    frm_sys_limited.t_sys_lg_data.post;
    frm_sys_limited.t_sys_lg_data.next;
  end;
end;

procedure Tfrm_sys_limited_group.N10Click(Sender: TObject);
begin
  frm_sys_limited.t_sys_lg_data.first;
  while not frm_sys_limited.t_sys_lg_data.eof do
  begin
    frm_sys_limited.t_sys_lg_data.edit;
    frm_sys_limited.t_sys_lg_data['数据范围']:='没有数据';
    frm_sys_limited.t_sys_lg_data.post;
    frm_sys_limited.t_sys_lg_data.next;
  end;
end;

end.