ufrmcqgpsusergroup.pas

msc map program to control client of tools,use for map guide

unit ufrmCQGPSUserGroup;

interface

uses
  Windows, DB, Classes,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, 
  uBaseDBForm, uBaseDBDefs,  ufrmCQGPSUserGroupEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor, Menus;
type

  TfrmCQGPSUserGroup = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    Name: TcxTextEdit;
    cxLabel4: TcxLabel;
    cxLabel1: TcxLabel;
    InnerPurviewGroupID: TcxTextEdit;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    IsAdd: Boolean;
    SelectedItem: TListItem;

    { Public declarations }
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmCQGPSUserGroup.FormCreate(Sender: TObject);
var
  p_ref_table_purview_group: PBaseDBRefTable;
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'BaseDB_UserGroup';
  DBTableCHNName  := '用户组';
  SelectSQL       := 'Select ID, Name, InnerPurviewGroupID from BaseDB_UserGroup';

  p_ref_table_purview_group := AddRefTable('MSC_PurviewGroup',
    '权限组', 'Name', 'ID');

  EditFormClass := TfrmCQGPSUserGroupEdit;

  AddField('ID', '编号', 50, ftInteger, False, False, True);
  AddField('Name', '名称', 100, ftString, False, True);
  AddField('InnerPurviewGroupID', '权限组', 100, ftReference, True, False, False,
    '', '', p_ref_table_purview_group);

  InitialInfo;
end;

end.