【delphi开源代码栏目提醒】:本文主要为网学会员提供basefindUnit1.pas,希望对需要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.
上一篇:
BaseFilterEditor.pas
下一篇:
选对材质 夏天也可以穿黑色