basefindunit1.~pas

本系统是结合行业管理中实际的人力资源、工资制度

unit basefindUnit1;

interface

uses
  Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Grids, DBGrids, ExtCtrls, DB, ADODB, ExtDlgs, ComCtrls, DBCtrls,
  StdCtrls,DBClient,basedata_unit;

type
  Tbasefindfrm = class(TForm)
    cancel_btn: TButton;
    Label1: TLabel;
    Bevel1: TBevel;
    basefind_ds1: TDataSource;
    DBGrid1: TDBGrid;
    basefind_cds1: TClientDataSet;
    Add_Btn: TButton;
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure cancel_btnClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Add_BtnClick(Sender: TObject);


  private
    basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  basefindfrm: Tbasefindfrm;

implementation

uses baseholdUnit1, baseinputUnit1;



{$R *.dfm}

procedure Tbasefindfrm.cancel_btnClick(Sender: TObject);
begin
//dbgrid1.Enabled :=false;
basefindfrm.Close;
end;

procedure Tbasefindfrm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  area:trect;
  bmp:tbitmap;
  begin
  area:=rect;    //设置显示区域为矩形
   if(column.Field=DBGrid1.Fields[5])  then
   begin
    bmp:=tbitmap.Create ;
    try

     bmp.Width :=(rect.Bottom-rect.Top)*3;  //设置图片的宽度
     area.Right :=rect.Left +bmp.Width;  //设置显示区域的右端范围
      bmp.Assign(DBGrid1.Fields[5]); //指定图片来源
     dbgrid1.Canvas.StretchDraw(area,bmp); //在显示区域中画出图片
     except
      bmp.Free ;
      end;
      area:=rect;
      area.Left :=area.Left +bmp.Height;  //设置显示区域的左端区域
      end;
      dbgrid1.DefaultDrawDataCell(area,column.Field,state);

end;

procedure Tbasefindfrm.DBGrid1DblClick(Sender: TObject);
begin
baseholdfrm.Edit1.Text:= DBGrid1.Fields[0].AsString ;
baseholdfrm.showmodal;
end;

procedure Tbasefindfrm.FormActivate(Sender: TObject);
var
  findsql:string;
begin
//创建类的实例
basedata:=Tbasedata.create ;
//赋值查询语句
findsql:='select WORKER_ID 员工编号,WORKER_NAME 员工姓名,'
+'SEX 性别,ARCHIVES_ID 档案编号 ,SCHOOL_AGE 学历,PHOTO 个人照片,'
+'BIRTHDAY 出生日期,NATIVE_PLACE 籍贯,GRADUATE_SCH 毕业学校,'
+'POLITIC_STATUS 政治面貌,LINK_PHONE 联系电话,DEPARTMENT_NAME '
+'所在部门名称,MAJOR 专业,ADDRESS 住址,WORK_TIME 参加工作时间,'
+'COME_TIME 入本单位时间,REMARK 备注   FROM BASE_DATA';
//执行查询方法并用列表显示出来
basefind_cds1.Data:=basedata.AllRec(findsql);
end;

procedure Tbasefindfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//释放实例
basedata.Free;
end;

procedure Tbasefindfrm.Add_BtnClick(Sender: TObject);
begin
  baseinputfrm.showmodal;
end;

end.