frame_user.~pas

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

unit frame_user;

interface

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

type
  Tframe_frmuser = class(Tframe_frmDataList)
    lblemployid: TLabel;
    edtemployeeid: TEdit;
    lblemployeename: TLabel;
    edtemployeename: TEdit;
    lbljobname: TLabel;
    cbbjobname: TComboBox;
    btnSearch: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnSearchClick(Sender: TObject);
  private
    procedure doinitselect(const selectsql:string;param:TStringList);
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frame_frmuser: Tframe_frmuser;
  selectSQL: string;
implementation

uses frame_userEdit, frame_uDM;

{$R *.dfm}

procedure Tframe_frmuser.FormCreate(Sender: TObject);
begin
  inherited;
  selectSQL := 'select a.employeeseqn,a.employeeid,a.employeename,a.usrpwd,a.jobseqn,b.jobname from t_employee a,t_job b where a.jobseqn=b.jobseqn ';
  doinitselect(selectSQL,nil);
end;
procedure TFrame_frmuser.doinitselect(const selectsql:string;param:TStringList);
begin
  inherited;

  frame_DM.OpenSQL(dataqry, selectsql, param);
  (dataqry as TADOXquery).SqlUpdateTable := 't_employee';
  (dataqry as TADOXquery).SqlKeyField := 'employeeseqn';
  (dataqry as TADOXquery).SqlPost := true;
  setlength(gridfields, 3);
  setlength(gridCaption, 3);
  gridfields[0] := 'employeeid';
  gridcaption[0] := '用户ID';

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

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

  editformclass := Tframe_frmuserEdit;

  deletehintfield := 'employeename';
showgridlayout;
end;


procedure Tframe_frmuser.FormShow(Sender: TObject);
begin
  inherited;
  frame_DM.OpenSQL(GV_Qry, 'select jobname from t_job order by jobname', []);
  while not gv_qry.Eof do
  begin
    cbbjobname.Items.Add(GV_Qry.Fields[0].asstring);
    GV_Qry.Next;
  end;

end;

procedure Tframe_frmuser.btnSearchClick(Sender: TObject);
var
  tmp,tmpsql: string;
  param:TStringList;
begin
  inherited;
   param:=TStringList.Create;
   tmp:='';
   tmpsql:=selectsql;
  if edtemployeeid.Text <> '' then
  begin
    tmp := 'and employeeid like :s1 ';
    param.Add('%'+edtemployeeid.text+'%')
  end;
  if edtemployeename.Text <> '' then
  begin
    tmp := tmp + 'and employeename like :s2 ';
    param.Add('%'+edtemployeename.Text+'%')
  end;
  if cbbjobname.Text <> '' then
  begin
    tmp := tmp + 'and jobname like :s3 ';
    param.Add(cbbjobname.Text)
  end;
  if tmp<>''  then
  begin
 //   Delete(tmp,1,3);
    tmpsql:=selectSQL +'  '+tmp;

  end;
   doinitselect(tmpsql,param);
  param.Free;
end;

end.