ufrmuserrole.~pas

企业信息管理系统程序框架

unit uFrmUserRole;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frame_uDataList, dcfdes, ImgList, ExtCtrls, Grids, DBGridEh,
  ComCtrls, ToolWin, StdCtrls,frame_UtilFunc,ADOXQuery;

type
  TfrmUserRole = class(Tframe_frmDataList)
    edtusr: TEdit;
    edtJob: TEdit;
    lblusr: TLabel;
    lblJob: TLabel;
    lbluserid: TLabel;
    edtusrID: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure btnTBSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserRole: TfrmUserRole;

implementation

uses ufrmUserRoleEdit, frame_uDM;

{$R *.dfm}

procedure TfrmUserRole.FormCreate(Sender: TObject);
begin
  inherited;
  frame_DM.OpenSQL(dataqry,'select a.userid,sname,c.jobname '
  +' from gpsuniversal.dbo.gkduser a , t_userjob b,t_job c '
  + ' where a.userID=b.userID and b.jobseqn=c.jobseqn ',[]);
  (dataqry as TADOXquery).SqlUpdateTable:='t_userjob';
  (dataqry as TADOXquery).SqlKeyField:='seqn';
  (dataqry as TADOXquery).SqlPost:=true;
  setlength(gridfields,3);
  setlength(gridCaption,3);
  gridfields[0]:='userid';
  gridcaption[0]:='用户ID';

  gridfields[1]:='sname';
  gridcaption[1]:='用户名称';

  gridfields[2]:='jobname';
  gridcaption[2]:='所属角色';

  editformclass:=TfrmuserRoleEdit;

  deletehintfield:='sname';

end;

procedure TfrmUserRole.btnTBSearchClick(Sender: TObject);
var
  tmpsql,sqlwhere:String;
begin
  tmpsql:=' select a.userid,sname,c.jobname from gpsuniversal.dbo.gkduser a , t_userjob b,t_job c  ';
  sqlwhere:=' where a.userID=b.userID and b.jobseqn=c.jobseqn';
  if edtusrid.Text<>'' then
  begin
   addSQLCondition(sqlwhere,'b.userid like '+quotedstr('%'+edtusrid.text+'%'));
  end;
  if edtusr.Text<>'' then
  begin
    addSQLCondition(sqlwhere,'a.sname like '+quotedstr('%'+edtusr.text+'%'));
  end;
  if edtJob.Text<>'' then
  begin
    addSQLCondition(sqlwhere,'c.jobname like '+quotedstr('%'+edtjob.text+'%'));
  end;

  tmpsql:=tmpsql+ sqlwhere+' order by b.userid';
  openSQL(dataqry,tmpsql,[]);
  showgridlayout;

end;

end.