frame_role.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 81 行

unit frame_role;

interface

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

type
  Tframe_frmRole = class(Tframe_frmDataList)
    lbljobname: TLabel;
    lbljobdesc: TLabel;
    edtjobname: TEdit;
    edtjobdesc: TEdit;
    btnSearch: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frame_frmRole: Tframe_frmRole;

implementation

uses frame_roleEdit, frame_uDM;

{$R *.dfm}

procedure Tframe_frmRole.FormCreate(Sender: TObject);
begin
  inherited;
  frame_DM.OpenSQL(dataqry,'select jobseqn,jobname,jobdesc from t_job  ',[]);
  (dataqry as TADOXquery).SqlUpdateTable:='t_job';
  (dataqry as TADOXquery).SqlKeyField:='jobseqn';
  (dataqry as TADOXquery).SqlPost:=true;
  setlength(gridfields,2);
  setlength(gridCaption,2);
  gridfields[0]:='jobname';
  gridcaption[0]:='角色名称';

  gridfields[1]:='jobdesc';
  gridcaption[1]:='角色描述';

  editformclass:=Tframe_frmRoleEdit;

  deletehintfield:='jobname';


end;

procedure Tframe_frmRole.btnSearchClick(Sender: TObject);
var
  tmpsql,sqlwhere:String;
  params:TStringList;
begin
  params:=TStringList.create;
  tmpsql:=' select jobseqn,jobname,jobdesc from t_job ';
  if edtjobname.Text<>'' then
  begin
   addSQLCondition(sqlwhere,' jobname like :s1 ');
   params.Add('%'+edtjobname.text+'%')
  end;
  if edtjobdesc.Text<>'' then
  begin
    addSQLCondition(sqlwhere,' jobdesc like :s2 ');
       params.Add('%'+edtjobdesc.text+'%')
  end;
  tmpsql:=tmpsql+ sqlwhere+' order by jobname';
  frame_DM.openSQL(dataqry,tmpsql,params);
  showgridlayout;
  params.free;

end;

end.