Delphi将图片保存至Sql Server中的小问题？
怎么限制保存图片的大小呢？比如说超过500K的图片就不允许提交。否则数据库太大了，读取也慢。保存图片代码如下，怎么改一下？：
//保存图片
procedure TForm1.btn1Click(Sender: TObject);
begin
if dlgOpen1.Execute then
img1.Picture.LoadfromFile(dlgOpen1.FileName);
qry1.Append;
qry1.Post;
end;
//提前之前将图片转换为数据流
procedure TForm1.qry1BeforePost(DataSet: TDataSet);
var
ms: TMemoryStream;
jpg: TJpegImage;
begin
ms := TMemoryStream.Create;
jpg := TJpegImage.Create;
try
if img1.Picture.Graphic <>nil then
begin
try
img1.Picture.Graphic.SaveToStream(ms);
finally
TBlobField(qry1.FieldByName('pic')).LoadfromStream(ms);
end;
end;
finally
jpg.Free;
ms.Free;
end;
end;
if ms.Size > 500k then
弹一个提示框
简单点改
Delphi(Pascal) code:
procedure TForm1.qry1BeforePost(DataSet: TDataSet);
var
ms: TMe
相关问答：
执行的顺序：
1）文件浏览框（选择文件使用）
选择好文件后
点击一个导入按钮的时候 ，把上面上传框里的csv文件以一个ID为文件名，上传到**/**文件夹下
2）读取这个文件夹下的csv的文件，转换成sql
3 ......
select count(1) from FX_RETURNBOOKCHECKLIST fxreturnbo0_ where fxreturnbo0_.BOOKID='164 ' AND fxreturnbo0_.RETURNID='00025.S0000001'
上面一个简单的SQL,执行时间2.6� ......
如何在SQL2005中设定定时作业，比如说定时清理某些表的数据，
或者是定时的将某些表的数据导出excel！
在线等待，急急急，最好是详细步骤！
之前我做的作业有点问题！
帮UP
参考:http://hi.baidu.com/toiota ......
tab1 字段:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 字段:goodsid,goodskind（商品类型）
tab3 字段:goodskind（商品类型）,kindname
结果：
得到商品类型在一段时间 ......
第一句:
select ht.gfdm,gfdm.gfmc,gfdm.lb ,sum(jh.htdj*jh.htsl)as je
from ht left join gfdm on ht.gfdm=gfdm.gfdm
join jh on ht.htbh=jh.hth
and ht.htbh not like'del%' and ht. ......
