ufrmbanbie.~pas

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

unit uFrmBanBie;

interface

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

type
  TFrm_BanBie = class(Tframe_frmDataList)
    lblemployid: TLabel;
    lblemployeename: TLabel;
    edtclassname: TEdit;
    edtmemo: TEdit;
    btnSearch: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnSearchClick(Sender: TObject);
  private
    procedure doinitselect(const selectsql: string; param: TStringList);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_BanBie: TFrm_BanBie;
  selectsql:string;
implementation

uses frame_uDM, uFrmBanBieEdit;

{$R *.dfm}

procedure TFrm_BanBie.FormCreate(Sender: TObject);
begin
  inherited;
  selectSQL := 'select dutyclassseqn,dutyclassname,memo from t_dutyclass ';
  doinitselect(selectSQL,nil);

end;
procedure TFrm_BanBie.doinitselect(const selectsql:string;param:TStringList);
begin
  inherited;

  frame_DM.OpenSQL(dataqry, selectsql, param);
  (dataqry as TADOXquery).SqlUpdateTable := 't_dutyclass';
  (dataqry as TADOXquery).SqlKeyField := 'dutyclassseqn';
  (dataqry as TADOXquery).SqlPost := true;
  setlength(gridfields, 2);
  setlength(gridCaption, 2);
  gridfields[0] := 'dutyclassname';
  gridcaption[0] := '班别';

  gridfields[1] := 'memo';
  gridcaption[1] := '备注';


  editformclass := Tfrm_BanBieEdit;

  deletehintfield := 'dutyclassname';
showgridlayout;
end;

procedure TFrm_BanBie.btnSearchClick(Sender: TObject);
var
  tmp,tmpsql: string;
  param:TStringList;

begin

  inherited;
   param:=TStringList.Create;
   tmp:='';
   tmpsql:=selectsql;
  if edtclassname.Text <> '' then
  begin
    tmp := 'and dutyclassname like :s1 ';
    param.Add('%'+edtclassname.text+'%')
  end;
  if edtmemo.Text <> '' then
  begin
    tmp := tmp + 'and memo like :s2 ';
    param.Add('%'+edtclassname.Text+'%')
  end;

  if tmp<>''  then
  begin
    Delete(tmp,1,3);
  //  tmpsql:=selectSQL +'  '+tmp;
     tmpsql:=selectSQL +' where  '+tmp;
  end;
   doinitselect(tmpsql,param);
  param.Free;
end;

end.