商品销售管理系统文档(十五)

商品销售管理系统文档(十五) nbsp; self.Caption := '权限管理';
  setlength(P_rights, 2);
  setlength(P_rights[0], 6);
  setlength(P_rights[1], 6);
  P_rights[0, 0] := '管理员';
  P_rights[0, 1] := '一级';
  P_rights[0, 2] := '二级';
  P_rights[0, 3] := '三级';
  P_rights[0, 4] := '四级';
  P_rights[0, 5] := '限制级';
  query_data.DatabaseName := 'CPXSGL';
  B_create := false;
  with query_data do
  begin
    close;
    sql.Clear;
    sql.Text := 'select * from SysUserRights';
    try
      open;
      B_create := true;
    except
      messagedlg(Errormsg0001 + '0006', mtError, [mbok], 0);
      close;
      B_create := false;
    end;
    //如果数据表记录数不对，则重置权限信息
    if (RecordCount <> 6) and (B_create) then
    begin
      P_rights[1, 0] := '1111111111';
      P_rights[1, 1] := '1111011111';
      P_rights[1, 2] := '1111011011';
      P_rights[1, 3] := '1111001011';
      P_rights[1, 4] := '1111000011';
      P_rights[1, 5] := '0000000011';
    end
    else if (RecordCount = 6) and (B_create) then
    begin
      first;
      for I_index := 1 to recordcount do
      begin
        P_rights[1, I_index - 1] := fieldbyname('rights').AsString;
        next;
      end;
    end;
  end;
end;

procedure TRightManageForm.OKBtnClick(Sender: TObject);
var
  I_row: integer;
begin

  with query_data do
  begin
    close;
    sql.Clear;
    sql.Text := 'delete  from SysUserRights';
    try
      execsql;
    except
      messagedlg(Errormsg0005 + '0006', mtError, [mbok], 0);
      close;
      self.Close;
    end;

    for I_row := 0 to 5 do
    begin
      close;
      sql.Clear;
      sql.Text := 'insert into SysUserRights (id,name,rights)'
        + ' values("' + inttostr(I_row) + '","' + P_rights[0, I_row] + '","'
        + P_rights[1, I_row] + '")';
      try
        execsql;
      except
        messagedlg(Errormsg0004 + '0006', mtError, [mbok], 0);
        close;
     &nbs

首页 上一页 12 13 14 15 16 下一页 尾页 15/16/16

商品销售管理系统文档(十五)由毕业论文网（www.huoyuandh.com）会员上传。