主要部分为:
procedure TForm4.Button1Click(Sender: TObject);
var
StartDate,EndDate,ParamToStr:string;
begin
StartDate:=DateTimeToStr(DateTimePicker1.DateTime);
EndDate:=DateTimeToStr(DateTimePicker2.DateTime);
with Form1 do
begin
Query1.Close;
Query1.SQL.Clear;
end;
Form1.Query1.SQL.add('select Photograph from photo_t where DT between'''+StartDate+'''and'''+EndDate+'''');
Form1.Query1.Active:=True;
Form1.Query1.First;
ParamToStr:=Form1.Query1.FieldValues['Photograph'];
Form4.Image1.Picture.LoadFromFile(ParamToStr);
end;Photography属性的实值是图片的存储路径
当我要检索photo_t表中一定范围的DT(DateTime)属性实值的时候,就会报错,称从字符串向datetime转换时失败用showmessage看了下,发现字符串中是12小时格式,而数据库中是24小时格式。怀疑正是因为这个所以报错,所以试图把它改成24小时格式。但在format属性中用HH替换hh,字符串中仍然是12小时格式。请教高手!
procedure TForm4.Button1Click(Sender: TObject);
var
StartDate,EndDate,ParamToStr:string;
begin
StartDate:=DateTimeToStr(DateTimePicker1.DateTime);
EndDate:=DateTimeToStr(DateTimePicker2.DateTime);
with Form1 do
begin
Query1.Close;
Query1.SQL.Clear;
end;
Form1.Query1.SQL.add('select Photograph from photo_t where DT between'''+StartDate+'''and'''+EndDate+'''');
Form1.Query1.Active:=True;
Form1.Query1.First;
ParamToStr:=Form1.Query1.FieldValues['Photograph'];
Form4.Image1.Picture.LoadFromFile(ParamToStr);
end;Photography属性的实值是图片的存储路径
当我要检索photo_t表中一定范围的DT(DateTime)属性实值的时候,就会报错,称从字符串向datetime转换时失败用showmessage看了下,发现字符串中是12小时格式,而数据库中是24小时格式。怀疑正是因为这个所以报错,所以试图把它改成24小时格式。但在format属性中用HH替换hh,字符串中仍然是12小时格式。请教高手!
解决方案 »
- 想把动态创建的excel保存到硬盘,为什么报错呢?谢谢指点!!
- c/s模式下客户端对数据库的操作问题
- 高分求救,急急急急急急急急!!!!!!
- FindWindow函数没有正确执行,请各位指点一下。
- 如何成功的释放动态创建的ADOQuery(WindowXP环境下Delphi5)????
- 如何在主窗体居中的画一个图片?
- 关于一个插入记录的问题!
- TSimpleDataSet.FieldByName() 访问sqlite出错
- delphi xe6 如何在安卓手机创建文件夹?
- 为什麽有时install Packages后会提示,原码已修改是否保存?版本没有转换!
- Socket传文件问题.刚学delphi 求高手指点
- 五分都散了
StartDate:=FormatDateTime(DateTimePicker1.DateTime);
EndDate:=FormatDateTime(DateTimePicker2.DateTime);