Unigui使用TUniFileUploadButton上传图片到数据库

http://ehr.kopsoft.cn?url=TUniFrame_hr_user_Pic_Import

 免费人力资源管理软件,免费Mes系统,免费仓库管理软件WMS

1，MultiCompleted

procedure TUniFrame_hr_user_Pic_Import.btn_Pic_UpMultiCompleted(Sender: TObject;
Files: TUniFileInfoArray);
var m:TMemoryStream;
begin

if (unqry_user.Active=False) or (unqry_user.FieldByName('hrid').IsNull) then
begin
AppMainForm.unswtlrt1.Title:='提示';
AppMainForm.unswtlrt1.AlertType:=atInfo;
AppMainForm.unswtlrt1.Show('请先选择人员后再导入照片!');
Exit;
end;
if (UpperCase(ExtractFileExt(Files[0].FileName))<>'.JPG')
and (UpperCase(ExtractFileExt(Files[0].FileName))<>'.JPEG')
and (UpperCase(ExtractFileExt(Files[0].FileName))<>'.PNG')
and (UpperCase(ExtractFileExt(Files[0].FileName))<>'.BMP')
then
begin
AppMainForm.unswtlrt1.Title:='错误';
AppMainForm.unswtlrt1.AlertType:=atError;
AppMainForm.unswtlrt1.Show('只能导入图片格式片!');
Exit;
end;

m:=TMemoryStream.Create;
m.Position:=0;

m.LoadFromStream(Files[0].Stream);

if unpgcntrl_pic.ActivePageIndex=0 then
begin
if UniImage_zjz.Picture.Graphic.Empty=False then
begin
UniImage_zjz.LoadFromStream(Files[0].Stream);
AppMainForm.unswtlrt1.Title:='提示';
AppMainForm.unswtlrt1.AlertType:=atInfo;
AppMainForm.unswtlrt1.Show('该人员已经有相关照片,请点击下方按钮覆盖导入!');
m.Free;
Exit;
end;
UniImage_zjz.LoadFromStream(Files[0].Stream);
PicImport(m,'HR_PIC_ZJZ','zjz');
end;

 

2，PicImport

procedure TUniFrame_hr_user_Pic_Import.PicImport(PicStream:TMemoryStream;TableName:string;ZjType:string);
var
t_q: TUniQuery;
begin

t_q := TUniQuery.Create(Self);
t_q.Connection := DataModule_Main.con_Main;

//作废原有的
t_q.Close;
t_q.SQL.Text := 'update '+TableName+'.[dbo].[table_zjz] set is_cancel=1 where hrid=:hrid and is_cancel=0 and zj_type=:zj_type';
t_q.Params.ParamByName('hrid').Value := unqry_user.FieldByName('hrid').Value;
t_q.Params.ParamByName('zj_type').Value := ZjType;
t_q.Execute;
//导入新的
t_q.Close;
t_q.SQL.Text := 'INSERT INTO '+TableName+'.[dbo].[table_zjz_]([hrid],[pic],[zj_type],[czy])'
+ ' values (:hrid,:pic,:zj_type,:czy)';
t_q.Params.ParamByName('hrid').Value := unqry_user.FieldByName('hrid').Value;
t_q.Params.ParamByName('pic').LoadFromStream(PicStream, ftBlob);
t_q.Params.ParamByName('zj_type').Value := ZjType;
t_q.Params.ParamByName('czy').Value := AppMainForm.LoginUserName;
t_q.Execute;

AppMainForm.unswtlrt1.Title := '成功';
AppMainForm.unswtlrt1.AlertType := atSuccess;
AppMainForm.unswtlrt1.Show('导入成功!');

t_q.Destroy;
end;