求:数据库SQL SERVER保存读取图片例程。(jpg和bmp格式) 求:数据库SQL SERVER保存读取图片例程。(jpg和bmp格式) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function TfrmSbManager.InsertSbTb: Boolean;varsqltext : string;begin //添加设备 sqltext := ''; Memo1.Lines.SaveToFile('c:\tempMemo.txt'); with dtmd.qyinsertsb do begin Close; SQL.Clear; if PicterFilename <> '' then begin SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz,tp)'); SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz,:#tp)'); end else begin SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz)'); // SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz)'); // end; Parameters.ParamByName('#sbid').Value := Trim(edSbid.Text); Parameters.ParamByName('#sbname').Value := Trim(edSbname.Text); Parameters.ParamByName('#gmdate').Value := FormatDateTime('yyyy-mm-dd',dtpkGmrq.Date); Parameters.ParamByName('#dj').Value := StrToFloat(edDj.Text); Parameters.ParamByName('#sl').Value := StrToFloat(EdSl.Text); Parameters.ParamByName('#fpsl').Value := 0; Parameters.ParamByName('#cjname').Value := Trim(edCj.Text); Parameters.ParamByName('#cfdb').Value := Trim(edDb.Text); Parameters.ParamByName('#tel').Value := Trim(edTel.Text); // Parameters.ParamByName('#memo').DataType := ftMemo; Parameters.ParamByName('#bz').Value := Memo1.Text; if PicterFilename <> '' then Parameters.ParamByName('#tp').LoadFromFile(PicterFilename,ftBlob);//保存图片 try ExecSQL; Result := true; except Result := false; end; end;end; (最好有实例)子窗口怎么更改父窗口的某Label? 怎样用button激活一个时间控件! 如何动态创建TIDTCPserver并为之分配相应的onexecute处理事件? 一个有100个节点的树有几条边? 数据导入道word的问题 菜鸟请教:关于DBgrid录入数据的问题; formula one如何获得页码?(100分) access很慢吗? 用DELPHI6编,获取windows版本信息时编译通不过,请大虾们指点一二? 学了一辈子的Delphi,居然连最基本的Windows程序结构也不懂 软件角色能力 组建温州计算机开发俱乐部
var
sqltext : string;
begin
//添加设备
sqltext := '';
Memo1.Lines.SaveToFile('c:\tempMemo.txt');
with dtmd.qyinsertsb do
begin
Close;
SQL.Clear; if PicterFilename <> '' then
begin
SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz,tp)');
SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz,:#tp)');
end else begin
SQL.Add('insert into sbtb(sbid,sbname,gmdate,dj,sl,fpsl,cjname,cfdb,tel,bz)');
//
SQL.Add('values(:#sbid,:#sbname,:#gmdate,:#dj,:#sl,:#fpsl,:#cjname,:#cfdb,:#tel,:#bz)');
//
end;
Parameters.ParamByName('#sbid').Value := Trim(edSbid.Text);
Parameters.ParamByName('#sbname').Value := Trim(edSbname.Text);
Parameters.ParamByName('#gmdate').Value := FormatDateTime('yyyy-mm-dd',dtpkGmrq.Date);
Parameters.ParamByName('#dj').Value := StrToFloat(edDj.Text);
Parameters.ParamByName('#sl').Value := StrToFloat(EdSl.Text);
Parameters.ParamByName('#fpsl').Value := 0;
Parameters.ParamByName('#cjname').Value := Trim(edCj.Text);
Parameters.ParamByName('#cfdb').Value := Trim(edDb.Text);
Parameters.ParamByName('#tel').Value := Trim(edTel.Text);
// Parameters.ParamByName('#memo').DataType := ftMemo;
Parameters.ParamByName('#bz').Value := Memo1.Text;
if PicterFilename <> '' then
Parameters.ParamByName('#tp').LoadFromFile(PicterFilename,ftBlob);//保存图片
try
ExecSQL;
Result := true;
except
Result := false;
end; end;
end;