ufrmbasedb_user.pas

a voice guide client ,it is the second part of voice guide center

unit ufrmBaseDB_User;

interface

uses
  Windows, DB, Classes, SysUtils,
  cxTextEdit, cxControls, cxContainer, cxEdit, cxLabel, ExtCtrls, RzPanel,
  StdCtrls, cxButtons, Controls, ComCtrls, TbListView, dxDockPanel,
  dxDockControl, uBaseDBUtils, Graphics, 
  uBaseDBForm, uBaseDBDefs,  ufrmBaseDB_UserEdit, cxLookAndFeelPainters,
  cxMemo, ImgList, dxNavBarCollns, dxNavBarBase, dxNavBar, ufrmBaseDBPurview,
  uBaseSystemNavForm, uBaseDBFormInfor, cxMaskEdit, cxDropDownEdit,
  cxCheckBox;
type

  TfrmBaseDB_User = class(TBaseDBForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel1: TdxDockPanel;
    lvOilType: TTbListView;
    Panel1: TPanel;
    dxDockSite2: TdxDockSite;
    dxDockPanel3: TdxDockPanel;
    dxLayoutDockSite3: TdxLayoutDockSite;
    gbPlan: TRzGroupBox;
    Name: TcxTextEdit;
    btnRefresh: TcxButton;
    btnEdit: TcxButton;
    btnDelete: TcxButton;
    btnAdd: TcxButton;
    ilSmall: TImageList;
    ilLarge: TImageList;
    cxLabel1: TcxLabel;
    cxLabel3: TcxLabel;
    GroupID: TcxTextEdit;
    cxLabel5: TcxLabel;
    isActive: TcxTextEdit;
    Password: TcxTextEdit;
    cxLabel2: TcxLabel;
    procedure FormCreate(Sender: TObject);
  end;

implementation

{$R *.dfm}

{ TfrmProtectSecurityUser }

procedure TfrmBaseDB_User.FormCreate(Sender: TObject);
var
//  p_ref_table_provice : PBaseDBRefTable;
  p_ref_GroupID_provice : PBaseDBRefTable;
begin
  DBListView      := lvOilType;
  ButtonNew       := btnAdd;
  ButtonEdit      := btnEdit;
  ButtonDelete    := btnDelete;
  ButtonRefresh   := btnRefresh;

  DBTableName     := 'BaseDB_User';
  DBTableCHNName  := '';

  EditFormClass := TfrmBaseDB_UserEdit;

//  p_ref_table_provice   := AddRefTable('Base_Employee', '员工代码', 'name', 'ID');
  p_ref_GroupID_provice := AddRefTable('BaseDB_UserGroup', '权限组', 'name', 'ID');

  AddField('ID', '用户代码', 50, ftInteger, False, False, True);
  AddField('Name', '用户名', 100, ftString, False, true);
  AddField('Password', '密码', 100, ftString, False,False, False, '', '',nil,false,0,false);
  AddField('GroupID', '权限组', 100,  ftReference,
    false, False, False, '', '', p_ref_GroupID_provice);
  AddField('IsActive', '可用标志', 100, ftBoolean, False, False, False, '是', '否');
//  AddField('EmployeeID', '员工代号', 100, ftReference,
//    true, False, False, '', '', p_ref_table_provice);
  InitialInfo;
end;

end.