ufrmcqgpsusergroup.pas

来自「msc map program to control client of too」· PAS 代码 · 共 81 行

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.