易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi中的图片问题 - Delphi / 数据库相关

我用的是sql server2000,定义有字段学号(关键字),………………,照片(varchar(100)),以下部分代码:
procedure TfrmStuInfoMng.Label10Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
  Image2.Picture.LoadfromFile(OpenPictureDialog1.FileName);
  end;
end;
var
  strPicPath:String;
procedure TfrmStuInfoMng.Label11Click(Sender: TObject);

begin
  strPicPath := ExtractFilePath(Application.ExeName) + '\Images\' +DBEdit1.Text+ '.jpg';
  Image2.Picture.SaveToFile(strPicPath);
  Application.MessageBox('保存成功!','照片保存',MB_OK+MB_ICONASTERISK);
end;

其中第一个过程是实现上传照片功能的,第二个过程是实现按学号保存照片的功能的,保存路径就在我的.exe可执行文件下我所见的Images文件夹下,并命名为关键字学号。

因为我在数据库存的是varchar类型的字段,所以当我打开我所做的窗口时,并没有显示我保存的照片,本想用以下代码实现:

procedure TfrmStuInfoMng.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  Image2.Picture.LoadfromFile(strPicPath);
end;

可是动不了!!,即便我把strpicpath定义为全局变量也不可用,我想问的是我写的过程TfrmStuInfoMng.ADOQuery1AfterScroll(DataSet:TDataSet);是不是错了 ,正确的格式是怎么样的!!?


(顺便插播一下,我建的另一个表里面有edit,checkbox控件,全都不可以选择了?!为什么啊!其中控件的enabale时间全为true!!谁可以告诉我啊!!)




相关问答:

DELPHI DLL实参传窗体

//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
  skf:TbsBusinessSkinForm;
  nskfrm:TForm;
begin
  frmUUMain:=skfrm;
  skf:=TbsBus ......

VB/delphi 修改text文件 - VB / 基础类

各位好!!
假设我有两个text文件
一个名叫 1.text
内容:
I like PC.... 
另外一是2.text
内容:
function yk as string
endfunction
globals
endglobals
***********************分界线********** ......

Delphi相关问题 - Delphi / 语言基础/算法/系统设计


  在安装完成Delphi的时候,打开Delphi进入窗口,点运行的时候为什么自动停止运行了。
什么意思,是新建的应用运行停止,还是程序停止了呢。

没明白LZ意思~~

引用
在安装完成Delphi的时候,打开De ......

delphi 判定文本框输入值是否在0到10之间

如标题所示,如何判定edit输入的值在0~10..........
我用val来获取了一个real的数值.....但不知道怎么比较.....否烦死了- -!
我用abs(x-10)>0 or abs(x-0)<0 判断编译报错....解决不了问题....
有没有 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号